每个ASP程序员必备的知识

您当前所在位置：IT猫扑网 > 网络编程 > Asp编程 > 每个ASP程序员必备的知识

每个ASP程序员必备的知识 时间：2015-06-28 00:00 来源：IT猫扑网|http://www.itmop.com/ 作者：网管联盟 我要评论(0)

数据库连接：
<%
set conn=server.createobject(&adodb.connection&)
conn.open &driver={microsoft access driver (*.mdb)};dbq=&&server.mappath(&数据库名&)
%>

打开数据库：
exec=&select * from 数据库表&
set rs=server.createobject(&adodb.recordset&)
rs.open exec,conn,1,1
参数1，1为读取
读取内容格式：<%=rs(&字段&)%>
添加记录处理程序：
<%
set conn=server.createobject(&adodb.connection&)
conn.open &driver={microsoft access driver (*.mdb)};dbq=&&server.mappath(&数据库名&)
name=request.form(&字段&) name,tel,message为提交表单所设置的字段值
tel=request.form(&字段&)
message=request.form(&字段&)
exec=&insert into 表名(字段)values(';&+字段+&';)& 多个用逗号隔开
conn.execute exec 使用execute提交
conn.close
set conn=nothing
%>
搜索处理程序:
<%
name=request.form(&字段&) name,tel为提交表单所设置的字段值
tel=request.form(&字段&)
set conn=server.createobject(&adodb.connection&)
conn.open &driver={microsoft access driver (*.mdb)};dbq=&&server.mappath(&数据库名&)
exec=&select * from 表 where name=';&+字段+&'; and tel=&+字段
set rs=server.createobject(&adodb.recordset&)
rs.open exec,conn,1,1
%>
';页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
<td><%=rs(&name&)%></td>
<td><%=rs(&tel&)%></td>
<td><%=rs(&time&)%></td>
</tr>
<%
rs.movenext
loop
%>
删除记录处理程序:
<%
set conn=server.createobject(&adodb.connection&)
conn.open &driver={microsoft access driver (*.mdb)};dbq=&&server.mappath(&数据库名&)
exec=&delete * from 表名 where 编号=&&request.form(&id&)
conn.execute exec
%>

修改记录处理程序:
<%
set conn=server.createobject(&adodb.connection&)
conn.open &driver={microsoft access driver (*.mdb)};dbq=&&server.mappath(&数据库名&)
exec=&select * from 表名 where 编号=&&request.form(&id&)
set rs=server.createobject(&adodb.recordset&)
rs.open exec,conn,1,3 ';1,3为修改意思
rs(&name&)=request.form(&字段&) ';name,tel,message为提交表单所设置的字段值
rs(&tel&)=request.form(&字段&)
rs(&message&)=request.form(&字段&)
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
后台登陆处理程序例子:
<%
dim name,password
name=request.form(&name&)
password=request.form(&password&)
dim exec,conn,rs
exec=&select *from 表名 where(name=';&&字段&&'; and password=';&&字段&&';)&
set conn=server.createobject(&adodb.connection&)
conn.open &driver={microsoft access driver (*.mdb)};dbq=&&server.mappath(&数据库名&)
set rs=server.createobject(&adodb.recordset&)
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session(&checked&)=&yes&
session(&check&)=&right&
response.Redirect &index.asp&
else
session(&checked&)=&no&
session(&check&)=&wrong&
response.Redirect &login.asp&
end if
%>
每个后台页面加上:
<%if not session(&checked&)=&yes& then ';session里面定义一个checked字符串变量
response.Redirect &login.asp&
else
%>

关键词标签：知识,必备,程序员,每个

文章评论

查看所有0条评论>>