reg.asp

物流管理系统

<%
'==================================
' 乘风多用户计数器v3.8
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风多用户计数器特有的功能：
' 1.计数器数字图片和统计图标两种机制共存，众多设置可调。
' 2.Script脚本和Img非脚本两种方式调用计数器，Img非脚本方式计数器可以在任何能插入图片的地方使用。
' 3.独有的错误自动修复机制，能在计数器发生错误后自动修复。
' 4.完全杜绝并发线程容易对数据库造成的损坏，在流量大的网站上使用表现很稳定。
' 5.缓存机制，在缓存中保存数据，操作常见动作，大量减少对数据库的增加，删除频繁的操作。
' 6.稳定性、安全性、速度上表现都很优秀，功能齐全，代码集成程度高、完全公开，专业制作，完全免费。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年7月19日									
'===================================
%>
<!--#include file="QQCF_Conn.asp"-->
<!--#include file="QQCF_Chkstr.asp"-->
<!--#include file="QQCF_Myfunction.asp"-->
<!--#include file="QQCF_Md5.asp"-->

<script>
function checkssn(gotoURL)
{
 var ssn=form2.user_name.value.toLowerCase();
 var open_url = gotoURL + "?action=checkuser&user_name=" + ssn;
 window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=1,height=1');
}
</script>
<%
If request("action")="checkuser" Then
 User_Name=Request("User_Name")
 If User_Name="" Then
  Response.Write "<script language='javascript'>" & VbCRlf
  Response.Write "alert('请输入要检测的用户名');" & VbCrlf
  Response.Write "window.close();" & vbCrlf
  Response.Write "</script>" & VbCRLF
  Response.End
 End if

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

 Response.Write "<script language='javascript'>" & VbCRlf
 Response.Write "alert('"&ShowText&"');" & VbCrlf
 Response.Write "window.close();" & vbCrlf
 Response.Write "</script>" & VbCRLF
 Response.End
End if%>

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

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

 User_Name=GoBack(Server.HtmlEncode(Trim(Request("User_Name"))),"请填入注册用户名!")
 Call CheckInput_Letter(User_Name)
 PassWord=GoBack(Server.HtmlEncode(Trim(Request("PassWord"))),"请填入密码!")
 PassWord2=GoBack(Server.HtmlEncode(Trim(Request("PassWord2"))),"请再次填入密码!")
 PasswordAsk=Server.HtmlEncode(Trim(Request("PasswordAsk")))
 PasswordAnswer=Server.HtmlEncode(Trim(Request("PasswordAnswer")))
 Email=GoBack(Server.HtmlEncode(Trim(Request("Email"))),"请输入E-mail!")
 QQ=Server.HtmlEncode(Trim(Request("QQ")))
 PageName=GoBack(Server.HtmlEncode(Trim(Request("PageName"))),"请填入主页名称!")
 PageUrl=GoBack(Server.HtmlEncode(Trim(Request("PageUrl"))),"请填入主页网址!")
 QuickStyle=Int(Request("QuickStyle"))
 TjOpen=Int(Request("TjOpen"))
 CheckCode=Trim(Request("CheckCode"))
 
 If PassWord<>PassWord2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)

 If Session("ValidCode")<>CheckCode Then Call AlertUrl("四位数字的验证码输入错误!","?Reg.Asp")

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


 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select Count(*) From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
 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 WWW_QQCF_COM_CfCount_RegUser"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("User_Name")=User_Name
 Rs("PassWord")=Md5(PassWord)
 Rs("PasswordAsk")=PasswordAsk
 Rs("PasswordAnswer")=Md5(PasswordAnswer)
 Rs("Email")=Email
 Rs("QQ")=QQ
 Rs("PageName")=PageName
 Rs("PageUrl")=PageUrl
 Rs("TjOpen")=TjOpen
 Rs("CounterShow")=CounterShow
 Rs("OnlineShow")=OnlineShow
 Rs("TodayShow")=TodayShow
 Rs("TodayIpShow")=TodayIpShow
 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 WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
  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")=User_Name

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

<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1400" name=GENERATOR>

<script language="JavaScript">
function chkname(String)
{ 
var Letters = "abcdefghijklmnopqrstuvwxyz1234567890_"; //可以自己增加可输入值
var i;
var c;
if(String.charAt( 0 )=='-')
return false;
if( String.charAt( String.length - 1 ) == '-' )
return false;
for( i = 0; i < String.length; i ++ )
{
c = String.charAt( i );
if (Letters.indexOf( c ) < 0)
return false;
}
return true;
}

function regedit(){
if ((document.form2.user_name.value)==""){
 window.alert ('用户名必须填写!');
 document.form2.user_name.focus();
 return false;
}
if(!chkname(document.form2.user_name.value)){
 window.alert ('用户名不规则!');
 document.form2.user_name.focus();
 return false;
}
if ((document.form2.password.value)==""){
 window.alert ('密码必须填写!');
 document.form2.password.focus();
 return false;
}
if ((document.form2.password2.value)==""){
 window.alert ('重复密码必须填写!');
 document.form2.password2.focus();
 return false;
}
if ((document.form2.password.value)!==(document.form2.password2.value)){
 window.alert ('两次填写的密码不一样，请重写填写!');
 document.form2.password2.focus();
 return false;
}
if (form2.password.value!==form2.password2.value){
 window.alert ('两次输入的密码不一致!');
 document.form2.password2.focus();
 return false;
}
if ((document.form2.email.value)==""){
 window.alert ('email必须填写!');
 document.form2.email.focus();
 return false;
}
if (!isValidEmail(document.form2.email.value)){
 window.alert ('email的格式不正确!');
 document.form2.email.focus();
 return false;
}
if ((document.form2.pagename.value)==""){
 window.alert ('主页名称必须填写!');
 document.form2.pagename.focus();
 return false;