cf_reg_pre.asp

1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建

<%
'乘风多用户计数器
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
If Request("Action")="userchecksave" Then

 Response.Charset= "gb2312"

 UserName=ChkStr(Request("UserName"),1)
 If UserName="" Then
  Response.Write "请输入要检测的用户名"
  Response.End
 End if

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Count(*) From CFCount_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs(0)=0 Then
  Response.Write "恭喜，此用户还没有被注册!"
 Else
  Response.Write "对不起，此用户名已经被别人注册了!"
 End if  

 Response.End
End if

If Request("Action")="regsave" Then

 If RsSet("RegState")=0 Then Call AlertBack("此计数器系统已经暂停新用户注册!",1)

 UserName=GoBack(ChkStr(Trim(Request("UserName")),1),"请填入注册用户名!")
 Call CheckInput_Letter(UserName)
 Pwd=GoBack(ChkStr(Request("Pwd"),1),"请填入密码!")
 Pwd2=GoBack(ChkStr(Request("Pwd2"),1),"请再次填入密码!")

 PasswordAsk=ChkStr(Request("PasswordAsk"),1)
 PasswordAnswer=ChkStr(Request("PasswordAnswer"),1)
 
 Email=GoBack(ChkStr(Request("Email"),1),"请输入E-mail!")
 
 QQ=ChkStr(Request("QQ"),1)
 PageName=GoBack(ChkStr(Request("PageName"),1),"请填入主页名称!")
 PageUrl=GoBack(ChkStr(Request("PageUrl"),1),"请填入主页网址!")
 
 QuickStyle=CInt(ChkStr(Request("QuickStyle"),2))
 TjOpen=ChkStr(Request("TjOpen"),2)
 ShowTotal=CLng(ChkStr(Request("ShowTotal"),2))
 
 If TjOpen="" Then TjOpen=0

 
 CheckCode=Trim(Request("CheckCode"))
 
 If Session("ValidCode")<>CheckCode Then Call AlertUrl("四位数字的验证码输入错误!","?Reg.asp")
 
 If Pwd<>Pwd2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)

 If PasswordAsk="" Then PasswordAsk="-"
 If PasswordAnswer="" Then PasswordAnswer="-"
 If QQ="" Then QQ="-"

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select Count(*) From CFCount_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs(0)>0 Then Call AlertBack("此用户名已经被别人注册,请换名!",1)

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From CFCount_User"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("UserName")=UserName
 Rs("Pwd")=Md5(Pwd,1)
 Rs("Pwd_View")=Md5(Pwd,1)
 Rs("PasswordAsk")=PasswordAsk
 Rs("PasswordAnswer")=Md5(PasswordAnswer,1)
 Rs("Email")=Email
 Rs("QQ")=QQ
 Rs("PageName")=PageName
 Rs("PageUrl")=PageUrl
 Rs("ShowTotal")=ShowTotal
 Rs("TjOpen")=TjOpen
 Rs("Cookies")=Md5(1&UserName&Pwd&GetMySet("SysCode"),1)
 
 Rs.Update

 If QuickStyle=1 Or QuickStyle=4 Then
  CounterShow=-1
  ShowType=1
  CounterHiddenPic=2
  CounterSite=3
 End if

 If QuickStyle=2 Or QuickStyle=5 Then
  CounterShow=0
  ShowType=1
  CounterHiddenPic=2
  CounterSite=3
 End if
 
 If QuickStyle=3 Or QuickStyle=6 Then
  CounterShow=0
  ShowType=2
  CounterHiddenPic=1
  CounterSite=3
 End if

 If QuickStyle=4 Or QuickStyle=5 Or QuickStyle=6 Then
  TjOpen=-1
  TjOpen_2=-1
 Else
  TjOpen_2=0
 End If
 
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
  Rs.Open Sql,Conn,3,2
  Rs("CounterShow")=CounterShow
  Rs("ShowType")=ShowType
  Rs("CounterHiddenPic")=CounterHiddenPic
  Rs("CounterSite")=CounterSite
  Rs("OnlineShow")=TjOpen_2
  Rs("TodayShow")=TjOpen_2
  Rs("TodayIpShow")=TjOpen_2
  Rs("IpShow")=TjOpen_2
  Rs("VisitShow")=TjOpen_2
  Rs("TjOpen")=TjOpen
  Rs("SurveyOpen")=TjOpen
  Rs("TodayLyOpen")=TjOpen
  Rs("OnlineOpen")=TjOpen
  Rs("TodayHourOpen")=TjOpen
  Rs("EveryDayOpen")=TjOpen
  Rs.Update

 Cookies_Time=Dateadd("d",365,Now())
 Response.Cookies("CFCountGGCookie")="yes"
 Response.Cookies("CFCountGGCookie").expires=Cookies_Time

 Session("CFCountUser")=UserName

Call AlertUrl("注册成功,转到计数器代码获取页!","Manage.asp?Action=getcode")

End If%>