高考问答热血传奇龙人在哪里:ASP怎样自动检测修改数据库中的字段?
来源：百度文库 编辑：高考问答 时间：2024/05/04 07:11:55
我不懂ASP,想写一个asp页面(1):
<!--#include file="connn.asp"-->
<%
temuser=request("user")
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where username ='"&temuser&"'"
rs.open sql,conn,3,2
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该用户不存在，请检查输入是否正确！');"
response.write "</script>"
response.redirect"index.asp?user="&webname&""
response.end后面接:
如果如果表USER中的key1等于1,不做任何修改
如果表USER中的KEY1不等于1,则将其修改为1
另一个页面(2)
也就是说当打开此页面以后,如果检测到表user中的key1为0则进行修改
不为0则不修改,修改的后的值为3
<!--#include file="connn.asp"-->
<%
temuser=request("user")
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where username ='"&temuser&"'"
rs.open sql,conn,3,2
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该用户不存在，请检查输入是否正确！');"
response.write "</script>"
response.redirect"index.asp?user="&webname&""
response.end后面接:
如果如果表USER中的key1等于1,不做任何修改
如果表USER中的KEY1不等于1,则将其修改为1
另一个页面(2)
也就是说当打开此页面以后,如果检测到表user中的key1为0则进行修改
不为0则不修改,修改的后的值为3
<%
..........
response.redirect"index.asp?user="&webname&""
接：
key=rs("key1")
if key<>1 then
rs("key1")=1
rs.update
rs.close
set rs=nothing
else
rs.close
set rs=nothing
end if
%>
另一个页面：
<!--#include file="connn.asp"-->
<%
webname=request("user")
set rs=conn.execute("select * from user where username='"&webname&"'")
key=rs("key1")
if key=0 then
rs("key1")=3
rs.update
rs.close
set rs=nothing
else
rs.close
set rs=nothing
%>