if isEmpty(request.querystring("id")) then
response.write "error"
response.end
else
conn.Execute("delete admin where id="&request.QueryString("id"))
response.write "删除成功"
end if
这种方法效率较高,适合不需要返回记录的应用
asp的增删改查的执行代码：前台代码：文件：index.html<html><head></head><body><form name="form1" action="" method="post"><center><textarea value="请输入SQL代码。" name="command"></textarea></center><br><center><input type="button" value="增" onclick="window.location='sql.asp?rel=add'">input type="button" value="删" onclick="window.location='sql.asp?rel=del'"><input type="button" value="改" onclick="window.location='sql.asp?rel=update'"><input type="button" value="查" onclick="window.location='sql.asp?rel=select'"></center></form></body></html>后台代码：文件：sql.asp<%'数据库连接Dim sql,strconn,relSet sql=Server.createobject(“adodb.connection”) strconn=”Driver={SQL Server}Server=ServerName” “Uid=UserNamePwd=Password” “DataBase=DatabaseName” sql.Open strconn,1,1set rs=server.createobject("adodb.recordset")rel=request.Querystring("rel")comm=request.form("command")'设置分支语句判断按的哪个按钮if rel=add thenrs.open comm,sql,1,3response.write "<script>javascript:alert("添加成功")</script>"response.write "<script>javascript:history.go(-1)</script>"rs.closeset rs=nothingif rel=del thenrs.open comm,sql,1,3response.write "<script>javascript:alert("删除成功")</script>"response.write "<script>javascript:history.go(-1)</script>"rs.closeset rs=nothingif rel=update thenrs.open comm,sql,1,3response.write "<script>javascript:alert("修改成功")</script>"response.write "<script>javascript:history.go(-1)</script>"rs.closeset rs=nothingif rel=select thenrs.open comm,sql,1,3response.write "<script>javascript:alert("查找成功")</script>"response.write "<script>javascript:history.go(-1)</script>"rs.closeset rs=nothing%>
<%dim conn,db
dim connstr
db="db.mdb" ' access数据库文件路径
connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source="&server.MapPath(""&db&"")&"Persist Security Info=False"
set conn=server.createobject("ADODB.CONNECTION")
'连接数据库
conn.open connstr 'open datebase
'数据库结构
'文件名db.mdb
'表名admin
'字段id，自动编号
'字段username，文本
'字段userpass，文本
' 增
set Rs=server.createobject("adodb.recordset")
Sql="select * from admin"
Rs.open Sql,conn,1,3
Rs.addnew
Rs("username")="用户名"
Rs("userpass")="用户密码"
Rs.update
Rs.close
set Rs=nothing
response.Write "<script language='javascript'>alert('管理员增加成功!')'</script>"
' 删
s_id=1 '假设有个用户数据的id为1
Sql="delete * from admin where id="&s_id&""
set Rs=server.CreateObject("ADODB.recordset")
rs.open Sql,conn,1,3
response.Write("<script>alert('帐号删除成功！')</script>")
rs.close
set Rs=nothing
' 改
s_id=1 '假设有个用户数据的id为1
set Rs=server.createobject("adodb.recordset")
Sql="select * from admin where id="&s_id&""
Rs.open Sql,conn,1,3
if Rs.eof and Rs.bof then
Rs.close
set Rs=nothing
response.Write("<script language='javascript'>alert('此用户不存在!')history.back()</script>")
else
Rs("Password")="新密码"
Rs.update
Rs.close
set Rs=nothing
response.Write ("<script language='javascript'>alert('密码修改成功!')</script>")
End If
' 查单个
s_username="admin" '假设有个用户名为admin的用户数据
set Rs=server.createobject("adodb.recordset")
Sql="select * from admin where username='"&s_username&"'"
Rs.open Sql,conn,1,3
if Rs.eof and Rs.bof then
Rs.close
set Rs=nothing
response.Write("<script language='javascript'>alert('此用户不存在!')history.back()</script>")
else
s_name=Rs("username")
s_pass=Rs("userpass")
Rs.close
set Rs=nothing
' 输出查询到的信息
response.Write ("<script language='javascript'>alert('你查询的用户名"&s_name&"的密码为："&s_pass&"')</script>")
End If
' 查列表
set Rs=server.CreateObject("Adodb.recordset")
sql="select * from admin order by id desc"
Rs.open sql,conn,1,1
if not Rs.eof then
' 循环输出查询到的信息
do while not Rs.eof
response.Write "id："&Rs("id")&",用户名："&Rs("username")&",密码："&Rs("userpass")&"<br />"
Rs.movenext
loop
end if
Rs.close
set Rs=nothing
' 使用完数据库后要关闭连接资源
conn.close
set conn=nothing
%>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）