replayok.asp

来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 40 行

<!--#include file=conn.asp-->
<%
        Public Function Chkrequest(Para)
                Chkrequest=False
                If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
                        Chkrequest=True
                End If
        End Function

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,1,1
 pass1=rs1("密码")
rs1.close
set rs1=nothing

   set rs=Server.CreateObject("ADODB.Recordset")
   sql="select * from [book] where ID=" & id
   rs.open sql,conn,1,3
   user1=rs("用户")
  if pass<>pass1 or user<>user1 then
    response.write "请不要回复其他用户的留言记录!或密码错误!请重新输入!"
  else
   rs("回复")=tempre
   rs.update
response.redirect "index.asp?user=" & user
end if
end if
%>