reg.asp

SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手

<!--#include file="inc/conn.asp"-->
<%
login_name=request.form("login_name")
login_password=request.form("passwd1")
full_name=request.form("full_name")
id_card=request.form("id_card")
phone=request.form("phone")
qq=request.form("qq")
address=request.form("address")
site_url=request.form("site_url")
payee=request.form("payee")
bank_card=request.form("bank_card")
bank_name=request.form("bank_name")
site_name=request.form("site_name")
if login_name<>"" and login_password<>"" and full_name<>"" and id_card<>"" and phone<>"" and qq<>"" and address<>"" and site_url<>"" and bank_card<>"" and payee<>"" and bank_name<>"" and site_name<>"" then 

	call ConnectionDatabase
	Set Rs=GrateRs("Select * from member where username like '"&login_name&"'",3)

if Rs.eof then 
	Rs.addnew
	Rs("username")=login_name
	Rs("passwd")=login_password
	Rs("full_name")=full_name
	Rs("id_card")=id_card
	Rs("phone")=phone
	Rs("address")=address
	Rs("payee")=payee
	Rs("site_name")=site_name
	Rs("qq_msn")=qq
	Rs("bank_card")=bank_card
	Rs("bankname")=bank_name
	Rs("site_url")=site_url
	Rs("state")=Set_Usr_State
	Rs.update
else
	response.write "<script language='JavaScript'>{window.alert('对不起,您注册的用户已经存在,请选择另外的登录用户名!');window.location='javascript:history.back();';}</script>"
end if
	call DBConnEnd
	response.write "<script language='JavaScript'>{window.alert('注册成功!请返回首页登录!');window.location='index.asp';}</script>"
end if
%>