修改记录需要密码
说明：《网络程序设计－ASP》（蔡翠平主编、尚俊杰编著，清华大学出版社、北方交通大学出版社），第8章习题的实践题第3题：
本章所举的例子比较简单，人都可以添加、删除或修改记录，而一般情况下只有管理员才能修改和删除记录。请你想办法给删除记录和修改记录上加密码，必须输入密码才能修改或删除记录
提示：一般说来，如果有个独立的登录网页，代码编写较容易。
下面的代码是在修改表单中，加一个修改密码控件。密码输入不正确不执行修改任务！
<% Option Explicit %>
<% Response.Buffer=True %>
<html>
<head>
<title> 修改记录示例</title>
</head>
<body>
<h2 align="center">修改网站</h2>
<%
'首先根据传入的Link_ID将原有数据显示在表单内
Dim varLink_id
varLink_id=Request.QueryString("link_id")
'以下连上数据库，建立一个Connection对象实例db
dim db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("wwwlink.mdb")&";DRIVER={Microsoft
Access Driver (*.mdb)};"
'以下建立Recordset对象实例rs
Dim strSql,rs
strSql="select * from link where link_id=" & varLink_id
'varLink_id是传过来的
set rs=db.Execute(strSql)
%>
<center>
<table border="1" width="90%">
<form action="" method="post" name="form1">
<tr>
<td>网站名字</td>
<td colspan="2"><input type="text" name="name"
size=20 value="<%=rs("Name")%>"></td>
</tr>
<tr>
<td>网站网址</td>
<td colspan="2"><input type="text" name="URL"
size=60 value="<%=rs("URL")%>"></td>
</tr>
<tr>
<td>网站简介</td>
<td colspan="2"> <textarea name="Intro" rows="2"
cols="60" wrap="soft"> <%=rs("Intro")%></textarea></td>
</tr>
<tr>
<td>修改密码</td>
<td><input type="text" name="Password">
</td>
<td><input name="submit" type="submit" value="
确 定 "></td>
</tr>
</form>
</table>
</center>
<%
dim varPassword
varPassword=request.form("Password")
if varPassword="admin" then '检验修改密码是否正确。正确执行下面语句，否则下面语句均不执行
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request("name")<>"" Then
'以下修改记录
Dim varName,varUrl,varIntro
varName=Request("name") '这里也可以不定义Name变量，下面直接用Request("name")
varURL=Request("URL")
varIntro=Request("intro")
if varName<>"" then
if Request("URL")="" then
varURL=" "
end if
if Request("intro")="" then
varIntro=" "
end if
StrSql="update link set name='" & varName & "',URL='"
& varURL & "',intro='" & varIntro & "'
where link_id=" & varLink_id
db.Execute(strSql) '这里利用Execute方法，修改记录
Response.Redirect "e8-1.asp"'修改完毕，返回首页8-1.asp
Else
Response.Write "<br><div align='center'>网站名称必须填写</div>"
End If
else
response.Write "<p align='center'> 修改密码必须填写正确！</P>"
end if
end if
%>
<p><div align="center"><a href="e8-1.asp">放弃</a>
</div></body> </p>
</html>
主页
｛其它｝ |
