📄 qqcf_regedit.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'==================================
' 乘风多用户计数器v3.4
' 制　作：乘　风
' 网　站：http://www.qqcf.com
' 系统演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,但不提供服务和升级。
' 付费版提供升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风免费电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理、系统乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2005年11月27日									
'===================================
%>
<!--#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")="regeditsave" 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"))),"请填入主页网址!")
TjOpen=Int(Trim(Request("TjOpen")))
CheckCode=Trim(Request("CheckCode"))

If PassWord<>PassWord2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)

If Session("ValidCode")<>CheckCode Then Call AlertBack("四位数字的验证码输入错误!",1)

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

If TjOpen=-1 Then
 CounterShow=-1
 OnlineShow=-1
 TodayShow=-1
 TodayIpShow=1
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 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

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

Session("CfCountUser")=User_Name

Call AlertUrl("注册成功","QQCF_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 regedit()
{
var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
var pwdReg = /[a-z0-9]$/;
if ((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 ((!emailReg.test(document.form2.email.value))&&(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;
}
if ((document.form2.pageurl.value)=="")
{
window.alert ('主页网址必须填写!');
document.form2.pageurl.focus();
return false;
}
if ((document.form2.checkcode.value)=="")
{
window.alert ('请输入四位数的验证码!');
document.form2.checkcode.focus();
return false;
} 

return true;
}
</script>

</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=40><IMG height=12 src="QQCF_Pic/ok3-3_r2_c15.gif" 
      width=40></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD><a href="http://www.qqcf.com" target="_blank"><IMG src="<%=RsSet("LogoUrl")%>" width="480" height="60" border="0"></a></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
12 下一页
💿 文件大小 412 K
👤 上传用户 woainijiajia123
📂 所属分类其他数据库
🏷️ 相关标签

#1.40 #记数 #自由选择
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -