📄 addmem_save.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="../checkpost.asp"-->
<!--#include file="../md5/md5.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>3 then
response.write "<br><p align=center>您的操作权限不够！</p>"
response.end
end if
%>
<%
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("Province")="no"
rs("city")="no"
rs("adress")="no"
rs("homeaddress")="no"
rs("sex")="no"
rs("phone")="no"
rs("lasthits")=date()
rs("email")="no"
rs("oklook")=1
rs("money")=now()
rs("baoyue")=0
rs("getmoney")=0
rs("pay")=0
rs("nos")=0
rs("nlook")=0
rs("usercount")=0 '注册即获得20点电影点数，不要的话只要改为0即可！
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.59" name=GENERATOR><style type="text/css">
<!--
body,td,th {
font-size: 9pt;
}
-->
</style></HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TBODY>
<TR>
<TD class=forumrow height=100>
<p align="center"><br>
会 员 已 经 成 功 添 加<br>
<br>
<a href="user.asp">返回</a></p>
<p>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -