第10页
信息技术系毕业设计任务书
3、用户注册界面,它与登录所呈现界面的代码相似:
将所填信息记录到数据库,需与数据库建立链接代码如下: 〈% Option Explicit %> <%
’如果上面的信息全了,就添加记录,否则给出错误信息 If Request。Form(”name1”)<〉\"” And Request.Form(”mima1”)〈〉”\" And Request。Form(”dianhua”)〈>\"” Then
’以下连上数据库,建立一个Connection对象示例db Dim db
Set db=Server。CreateObject(”ADODB.Connection\") db。Open ”Dbq=\" & Server.MapPath(”。。/data/www_link”) & ”;Driver={Microsoft Access Driver (*。mdb)};” ’以下添加记录
Dim strSql,varname1,varmima1,vardianhua varname1=Request.form(”name1”) varmima1=Request.form(\"mima1\") vardianhua=Request。Form(”dianhua”)
strSql=”Insert Into link(name1,mima1,dianhua) Values(’” &
varname1 & ”’,’\" & varmima1 & \"’,'” & vardianhua & \"')” db。Execute(strSql)
Response.Redirect \".。/index1。asp\" Else
第11页
信息技术系毕业设计任务书
Response。Write \"请将所有信息填写完整,”
Response。Write ”〈a href='Regedit—zhuce。asp’〉重新添加〈/a>” end if %>
然而,登录信息与注册所需的代码就不同了: Conn。asp文件的内容:〈%db=”。。/data/www_link。mdb” connstr=”Provider=Microsoft。Jet。OLEDB。4。0;Data Source=” & Server。MapPath(db)
Set conn = Server。CreateObject(”ADODB。Connection”) conn.open connstr
set rs=server。createobject(\"Adodb。Recordset”) %〉
引用conn.Asp文件 <!-—#include file=\"Conn。asp”——> <%dim name1,mima1
name1=replace(trim(request(”name1”)),\"’\) mima1=replace(trim(request(\"mima1\")),”'”,”\") if name1=”” or mima1=”” then
response。Write \"〈center〉〈a href=denglu。asp>〈font color=red size=2〉对不起,登陆失败,请检查您的登陆名和密码〈/font〉〈/a〉〈/center〉\" response。end end if
set rs=server。CreateObject(\"adodb。recordset”)
rs。Open ”select * from link where name1=’”&name1&”' and mima1=’”&mima1&\"’ ” ,conn,1,1
第12页
信息技术系毕业设计任务书
if not(rs。bof and rs。eof) then 'rs(\"super\")=1
if mima1=rs(”mima1\") then session(”name1\")=trim(rs(”name1”)) session.Timeout=200 rs。Close set rs=nothing
response。Redirect ”。./index1.asp” else
session(”name1”)=”\"
response。write \"三、 管理员管理,包括登录、添加、删除、修改. 1、管理员的登录与上面所介绍的用户登录类似,只将所连接的表名和字段名改为admin、password即可。
2、管理用户界面:
代码如下:
第13页
信息技术系毕业设计任务书
<% Option Explicit %〉
〈%if session(\"admin\")=\"” then response。Redirect ”login.asp” end if %〉
strSql=\"Select * from link Order By id Desc” Set rs=db。Execute(strSql) %> 〈center〉
〈a href=”add_form。asp”>添加标记〈/a〉
| \"〉rs。MoveNext loop %〉 除 修改〈/td〉 〈/table〉 〈/center〉 〈/body〉 |