家庭/个人应用

开发平台：

ASP/ASPX

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>
&nbsp;<br>
      <a href="user.asp">返回</a></p>
      
      <p>　
</BODY></HTML>

						