addmem_save.asp

网上流行的MOVE站点

<!--#include file="articleconn.asp"-->
<!--#include file="../md5/md5.asp"-->
<!--#include file="security.asp"-->
<%
if request("userid")="" or request("password")="" then
response.write "<script>alert('表单未填完整不能注册！');history.back();</Script>"
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select userid from users where userid='"&request("userid")&"'"
rs.open sql,conn,1,2

'ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR" ) 
'If userip = "" Then 
'ip = Request.ServerVariables("REMOTE_ADDR" )
'end if
if not rs.eof then
   response.write "<script>alert('这一“用户名称”已被占用，请重新输入！');history.back();</Script>"
   response.end
end if
dim rs
dim sql1
set rs=server.createobject("adodb.recordset")
sql1="select * from users"
rs.open sql1,conn,1,3

rs.addnew
rs("userid")=request("userid")
rs("password")=md5(request("password"))
rs("name")=request("userid")
rs("oklook")=request("oklook")
rs("Province")="no"
rs("city")="no"
rs("adress")="no"
rs("homeaddress")="no"
rs("sex")="no"
rs("phone")="no"
rs("askmejoin")="no"
rs("lasthits")=date()
rs("email")="no"
rs("money")=request("money")
rs("baoyue")=0
rs("getmoney")=0
rs("pay")=0
rs("nos")=0
rs("nlook")=0
rs("usercount")=0 
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing

Response.Redirect "user.asp"
%>

</body>
</html>