|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。教程|数据|数据库 <1>.数据库毗连(用来独自体例毗连文件conn.asp)
<%
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("bsdb1user.mdb")
%>
(用来毗连bbsdb1目次下的user.mdb数据库)
<2>显现数据库纪录
道理:将数据库中的纪录逐一显现到客户端扫瞄器,顺次读出数据库中的每笔记录
假如是从头至尾:用轮回并判别指针是不是到末利用:notrs.eof
假如是从尾到头:用轮回并判别指针是不是到入手下手利用:notrs.bof
<!--#includefile=conn.asp-->(包括conn.asp用来翻开bbsdb1目次下的user.mdb数据
库)
<%
setrs=server.CreateObject("adodb.recordset")(创建recordset工具)
sqlstr="select*frommessage"---->(message为数据库中的一个数据表,即你要显现的
数据所寄存的数据表)
rs.opensqlstr,conn,1,3---->(暗示翻开数据库的体例)
rs.movefirst---->(将指针移到第一笔记录)
whilenotrs.eof---->(判别指针是不是到开端)
response.write(rs("name"))---->(显现数据表message中的name字段)
rs.movenext---->(将指针挪动到下一笔记录)
wend---->(轮回停止)
------------------------------------------------------
rs.close
conn.close这几句是用来封闭数据库
setrs=nothing
setconn=nothing
-------------------------------------------------------
%>
个中response工具是服务器向客户端扫瞄器发送的信息
<3>增添数据库纪录
增添数据库纪录用到rs.addnew,rs.update两个函数
< !--#includefile=conn.asp-->(包括conn.asp用来翻开bbsdb1目次下的user.mdb数据
库)
<%
setrs=server.CreateObject("adodb.recordset")(创建recordset工具)
sqlstr="select*frommessage"---->(message为数据库中的一个数据表,即你要显现的
数据所寄存的数据表)
rs.opensqlstr,conn,1,3---->(暗示翻开数据库的体例)
rs.addnew新增添一笔记录
rs("name")="xx"将xx的值传给name字段
rs.update革新数据库
------------------------------------------------------
rs.close
conn.close这几句是用来封闭数据库
setrs=nothing
setconn=nothing
-------------------------------------------------------
%>
.<4>删除一笔记录
删除数据库纪录次要用到rs.delete,rs.update
< !--#includefile=conn.asp-->(包括conn.asp用来翻开bbsdb1目次下的user.mdb数据
库)
< %
dimname
name="xx"
setrs=server.CreateObject("adodb.recordset")(创建recordset工具)
sqlstr="select*frommessage"---->(message为数据库中的一个数据表,即你要显现的数据所寄存的数据表)
rs.opensqlstr,conn,1,3---->(暗示翻开数据库的体例)
-------------------------------------------------------
whilenotrs.eof
ifrs.("name")=namethen
rs.delete
rs.update查询数据表中的name字段的值是不是即是变量name的值"xx",假如切合就实行删
除,
else不然持续查询,直到指针到开端为止
rs.movenext
emdif
wend
------------------------------------------------------
------------------------------------------------------
rs.close
conn.close这几句是用来封闭数据库
setrs=nothing
setconn=nothing
-------------------------------------------------------
%>
<5>关于数据库的查询
(a)查询字段为字符型
<%
dimuser,pass,qq,mail,message
user=request.form("user")
pass=request.form("pass")
qq=request.form("qq")
mail=request.form("mail")
message=request.form("message")
iftrim(user)&"x"="x"ortrim(pass)&"x"="x"then(检测user值和pass值是不是为空,能够检测
到空格)
response.write("注册信息不克不及为空")
else
setrs=server.CreateObject("adodb.recordset")
sqlstr="select*fromuserwhereuser="&user&""(查询user数据表中的user字段个中user
字段为字符型)
rs.opensqlstr,conn,1,3
ifrs.eofthen
rs.addnew
rs("user")=user
rs("pass")=pass
rs("qq")=qq
rs("mail")=mail
rs("message")=message
rs.update
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write("注册乐成")
endif
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write("注册重名")
%>
(b)查询字段为数字型
<%
dimnum
num=request.form("num")
setrs=server.CreateObject("adodb.recordset")
sqlstr="select*frommessagewhereid="&num(查询message数据表中id字段的值是不是与
num相称,个中id为数字型)
rs.opensqlstr,conn,1,3
ifnotrs.eofthen
rs.delete
rs.update
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write("删除乐成")
endif
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write("删除失利")
%>
%>由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|