关于ASP操作数据库的问题!!!

来源:百度知道 编辑:UC知道 时间:2024/09/22 11:20:33
我想让管理员用户可以输入用户名来实现修改和删除用户!~大家帮帮忙!~
conn.asp文件代码
<%
set conn=server.CreateObject("adodb.connection")
conn.open"DRIVER=Driver do Microsoft Access (*.mdb);dbq="&server.MapPath("abcd.mdb")
%>
pan1.asp这个是判定页面
<!--#include file="conn.asp"-->
<%
dim a,b
a=request.Form("f_user")
b=request.Form("f_pass")
set rs4=conn.Execute("select * from user2 where i_user='"&a&"'and i_pass='"&b&"'")
if rs4.eof then
response.Write("账号或密码错误!")
else
set rs2=conn.Execute("select * from user ")
response.Write"<table width=200 border=1>"
response.Write"<tr>"
response.Write"<td>账号</td>"
response.Write"<td>密码</td>"
response.Write"</tr>"
response.Write"</table>"

user 是关键词,用作表名或字段名是要用[ ]括起来。
pan1.asp 可改为
<!--#include file="conn.asp"-->
<%
dim a,b
a=request.Form("f_user")
b=request.Form("f_pass")
set rs4=conn.Execute("select * from user2 where i_user='"&a&"'and i_pass='"&b&"'")
if rs4.eof then
response.Write("账号或密码错误!")
else
set rs2=conn.Execute("select * from [user] ") '修改这一行
response.Write"<table width=200 border=1>"
response.Write"<tr>"
response.Write"<td>账号</td>"
response.Write"<td>密码</td>"
response.Write"</tr>"
response.Write"</table>"
if rs2.eof then
response.Write"数据库为空!"
else
do while not rs2.eof
response.Write"<table width=200 border=1>"
response.Write"<t