〈/html〉
3、用户注册界面,它与登录所呈现界面的代码相似:
将所填信息记录到数据库,需与数据库建立链接代码如下:
〈%OptionExplicit%>
<%
’如果上面的信息全了,就添加记录,否则给出错误信息
IfRequest。
Form(”name1”)<〉"”AndRequest.Form(”mima1”)〈〉”"AndRequest。
Form(”dianhua”)〈>"”Then
’以下连上数据库,建立一个Connection对象示例db
Dimdb
Setdb=Server。
CreateObject(”ADODB.Connection")
db。
Open”Dbq="&Server.MapPath(”。
。
/data/www_link”)&”;Driver={MicrosoftAccessDriver(*。
mdb)};”
’以下添加记录
DimstrSql,varname1,varmima1,vardianhua
varname1=Request.form(”name1”)
varmima1=Request.form("mima1")
vardianhua=Request。
Form(”dianhua”)
strSql=”InsertIntolink(name1,mima1,dianhua)Values(’”&varname1&”’,’"&varmima1&"’,'”&vardianhua&"')”
db。
Execute(strSql)
Response.Redirect".。
/index1。
asp"
Else
Response。
Write"请将所有信息填写完整,”
Response。
Write”〈ahref='Regedit—zhuce。
asp’〉重新添加〈/a>”
endif
%>
然而,登录信息与注册所需的代码就不同了:
Conn。
asp文件的内容:
〈%db=”。
。
/data/www_link。
mdb”
connstr=”Provider=Microsoft。
Jet。
OLEDB。
4。
0;DataSource=”&Server。
MapPath(db)
Setconn=Server。
CreateObject(”ADODB。
Connection”)
conn.openconnstr
setrs=server。
createobject("Adodb。
Recordset”)
%〉
<!
-—#includefile="Conn。
asp”——>
<%dimname1,mima1
name1=replace(trim(request(”name1”)),"’",””)
mima1=replace(trim(request("mima1")),”'”,”")
ifname1=””ormima1=””then
response。
Write"〈center〉〈ahref=denglu。
asp>〈fontcolor=redsize=2〉对不起,登陆失败,请检查您的登陆名和密码〈/font〉〈/a〉〈/center〉"
response。
end
endif
setrs=server。
CreateObject("adodb。
recordset”)
rs。
Open”select*fromlinkwherename1=’”&name1&”'andmima1=’”&mima1&"’”,conn,1,1
ifnot(rs。
bofandrs。
eof)then
'rs("super")=1
ifmima1=rs(”mima1")then
session(”name1")=trim(rs(”name1”))
session.Timeout=200
rs。
Close
setrs=nothing
response。
Redirect”。
./index1.asp”
else
session(”name1”)=”"
response。
write" ’);history。 go(-1);〈/script>" endif else response.write”〈scriptLANGUAGE=’javascript'>alert(’对不起,登陆失败! ');history。 go(—1); endif %〉 三、管理员管理,包括登录、添加、删除、修改. 1、管理员的登录与上面所介绍的用户登录类似,只将所连接的表名和字段名改为admin、password即可。 2、管理用户界面: 代码如下: <%OptionExplicit%〉 〈%ifsession("admin")="”then response。 Redirect”login.asp” endif %〉 〈head〉
〈body〉
〈H2align=”center”〉用户查询管理
〈%
Dimdb
Setdb=Server。
CreateObject("ADODB。
Connection")
db。
Open"Dbq="&Server。
Mappath(”。
./data/www_link。
mdb")&”;Driver={MicrosoftAccessDriver(*。
mdb)}”
DimstrSql,rs
strSql="Select*fromlinkOrderByidDesc”
Setrs=db。
Execute(strSql)
%>
〈center〉
〈ahref=”add_form。
asp”>添加标记〈/a〉
〈trbgcolor=”#eoeoeo"> 〈td>用户名〈/td〉 〈td〉密码 〈td>电话 〈/tr> 〈% DoWhileNotrs.eof %> 〈tr〉 〈td〉〈%=rs("name1”)%〉〈/td〉 〈td>〈%=rs("mima1")%>〈/td〉 〈td〉〈%=rs(”dianhua”)%〉〈/td> 〈td〉 id=〈%=rs(”id”)%〉”>删除 asp? id=〈%=rs(”id”)%>"〉修改〈/td〉 〈% rs。 MoveNext loop %〉 〈/table〉 〈/center〉 〈/body〉