replayok.asp

系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助

<!--#include file=conn.inc-->
<%
user=request("user1")
id=request("id")
pass=request("pass")
tempre=request("tempre")
if user="" or pass="" or tempre="" then 
 response.write "请检查资料是否填写完整!"
else
 set rs1=Server.CreateObject("ADODB.Recordset")
 sql2="select * from user where 用户名='"& user &"'"
 rs1.open sql2,conn
 pass1=rs1("密码")
rs1.close
set rs1=nothing

if pass<>pass1 then
 response.write "密码错误!请重新输入!<script>window.history.back();</script>"
else
   set rs=Server.CreateObject("ADODB.Recordset")
   sql="select * from book where ID=" & id
   rs.open sql,conn,1,3
   rs("回复")=tempre
   rs.update
response.redirect "index.asp?user=" & user
end if
end if
%>