joinserver.asp

网吧影印系统！很详细！可直接使用！请大家指点！

<!--#include file="conn.asp"-->
<!--#include file="../MD5/md5.asp" -->
<!--#include file="../index/inc/config.asp" -->
<%
call iperror()
if Replace(request("userid"), "'", "''")="" or Replace(request("password"), "'", "''")="" or request("myemail")="" then
response.write "<script>alert('表单未填完整不能注册！');history.back();</Script>"
response.end
end if
email=request("myemail")
if instr(email,"@")=0 or right(email,1)="@" or left(email,1)="@" then
   response.write "<script>alert('email字段错误，请重新输入！');history.back();</Script>"
   response.end
end if
%>
<%
response.write "<script>alert('系统暂停注册,谢谢你的支持！有事请联系管理员');window.location='../index.html';</Script>"
   response.end
'dim  radpass
set rs=server.createobject("adodb.recordset")
sql="select userid from users where userid='"&Replace(request("userid"), "'", "''")&"' or  email='"&request("myemail")&"' "
rs.open sql,conn,1,2
if not rs.eof then
   response.write "<script>alert('您的“用户名称”已被占用，或者您的EMAIL已注册过了，请重新输入！');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")=Replace(request("userid"), "'", "''")
rs("password")=md5(Replace(request("password"), "'", "''"))
rs("name")=request("name")
rs("Province")=request("Province")
rs("city")=request("city")
rs("adress")=request("adress")
rs("homeaddress")=request("homeaddress")
rs("sex")=request("sex")
rs("phone")=request("phone")
rs("askmejoin")=request("askmejoin")
rs("lasthits")=date()
rs("email")=email
rs("oklook")=zcdj   '注册得什么会员，0游客1普通2白金3黄金4钻石！
rs("money")=now()+zcst  '注册时送的天数，now()+30表示30天。天数只对包月会员有用！
rs("baoyue")=zcms  '是否包月，1表示包月，0为计点！
rs("usercount")=zcsd  '注册即获得电影点数，不要的话只要改为0即可！
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=JavaScript>{window.alert('恭喜你，注册成功，请从首页登陆！');window.location='../index.html';}</script>"
%>