server.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<!--#include file="main.asp" -->
<%

'****************************************************************
username=request("username")
Password=request("Password")
Email=request("Email")
addone=request("addone")
addtwo=request("addtwo")
cityscayxx=split(cityscayx,",")
'****************************************************************
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select *  from "&WebSqlType&"_member where "&WebSqlType&"_UserName='"&username&"'",conn
if not rs.EOF then
Response.Write "<script>alert('用户注册出错，下面是产生错误的可能原因：\n\n·对不起，该用户名已经存在，请重新选择');history.go(-1);</Script>"
Response.End   
end if
'****************************************************************
set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from "&WebSqlType&"_member"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_UserName")=username
rs(""&WebSqlType&"_Password")=md5(Password)
rs(""&WebSqlType&"_Email")=Email
rs(""&WebSqlType&"_ypaddone")=addone
rs(""&WebSqlType&"_ypaddtwo")=addtwo
rs(""&WebSqlType&"_Sex")=request("Sex")
rs(""&WebSqlType&"_co")="co"
rs(""&WebSqlType&"_TaoJin2008")=Chtcs(0)
rs.update
rs.close
'***************************************************************
sql="Select *  from "&WebSqlType&"_member where "&WebSqlType&"_UserName='"&username&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
   '个人主页
        Response.Cookies("UserName")=rs1(""&WebSqlType&"_UserName")
		'session("co")=rs1(""&WebSqlType&"_co")
		Response.Cookies("UserID")=rs1(""&WebSqlType&"_id")
		Response.Cookies("UserMail")=rs1(""&WebSqlType&"_Email")

rs1.close

if trim(cityscayxx(0))=1 then
title="注册成功通知邮件!" '邮件标题
book=""&cityabout&""
Set JMail = Server.CreateObject("JMail.Message") 
JMail.Charset = "gb2312"
JMail.From = ""&citymaildns&""
JMail.FromName = cityname
JMail.Subject = title 
JMail.MailServerUserName = ""&citymaillog&""
JMail.MailServerPassword = ""&citymailpass&""
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
dim mailto
mailto=Email
JMail.AddRecipient(mailto)
JMail.HTMLBody = book
JMail.Body = "你好"
on error resume next
JMail.Send(""&citymailsmtp&"")
JMail.Close()
Set JMail = Nothing
end if
Response.Redirect "register.asp?user="&username&""
%>