<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/ConnDatabase.asp"-->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方网站http://www.ip126.com
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<%Response.Charset="utf-8"%>
<%call SiteInfo
if DateDiff("s",session("time"),now())<Refresh then
response.Write(3)
response.end
else
   session("time")=now()
end if
dim mMemName,mRealName,mSex,mPassword,mpayPassword,mQuestion,mAnswer,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mUserqq,mEmail,mHomePage,mmaillist
dim vPassword
dim rs,sql
mMemName=trim(request.form("MemName"))
mRealName=trim(request.form("RealName"))
mSex=trim(request.form("Sex"))
mPassword=trim(request.form("Password"))
mpayPassword=trim(request.form("payPassword"))
mQuestion=trim(request.form("Question"))
mAnswer=trim(request.form("Answer"))
mCompany=trim(request.form("Company"))
mAddress=trim(request.form("Address"))
mZipCode=trim(request.form("ZipCode"))
mTelephone=trim(request.form("Telephone"))
mFax=trim(request.form("Fax"))
mMobile=trim(request.form("Mobile"))
mUserqq=trim(request.form("Userqq"))
mEmail=trim(request.form("Email"))
mmaillist=trim(request.form("maillist"))
mHomePage=trim(request.form("HomePage"))

set rs = server.createobject("adodb.recordset")
sql="select * from TianTianCMS_Members"
rs.open sql,conn,1,3
rs.addnew
rs("MemName")=mMemName
rs("RealName")=StrReplace(mRealName)
rs("Sex")=mSex
rs("Password")=Md5(mPassword)
rs("payPassword")=Md5(mpayPassword)
rs("Question")=StrReplace(mQuestion)
rs("Answer")=Md5(mAnswer)
rs("Company")=StrReplace(mCompany)
rs("Address")=StrReplace(mAddress)
rs("ZipCode")=StrReplace(mZipCode)
rs("Telephone")=StrReplace(mTelephone)
rs("Fax")=StrReplace(mFax)
rs("Mobile")=StrReplace(mMobile)
rs("Userqq")=mUserqq
rs("Email")=mEmail
rs("maillist")=mmaillist
rs("HomePage")=StrReplace(mHomePage)
rs("GroupID")="2011721738397168"
rs("GroupName")=GroupName("2011721738397168")
If usersh =True Then
rs("Working")=0
Else
rs("Working")=1
End If
rs("AddTime")=now()
rs.update
	conn.execute(sql)
	if err then 
	response.Write(0)
	Else
	response.Write(1)	
	end If
Session("GetCode")=""'清除验证码以防止表单的重复提交
rs.close
Set rs=Nothing

function GroupName(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from TianTianCMS_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  GroupName=rs("GroupNameCH")
  rs.close
  set rs=nothing
end function
%>