⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<!--#Include File="QQCF_Conn.asp"-->
<!--#Include File="QQCF_ChkStr.asp"-->
<!--#Include File="QQCF_MyFunCtion.asp"-->
<!--#Include File="QQCF_Md5.asp"-->
<!--#Include File="QQCF_GetCookie.asp"-->
<%
If Request("Action")="login" Then
 User_Name=GoBack(Trim(Request("User_Name")),"请输入用户名称")
 Password=GoBack(Trim(Request("Password")),"请输入用户密码")
 UserType=Int(GoBack(Request("UserType"),"请选择用户类型"))
 Cookies_Time=Int(Request("Cookies_Time"))
 CheckCode=Trim(Request("CheckCode"))

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

 If UserType=1 Then
  If RsSet("RegType")=1 Then
   Set Rs = Server.CreateObject("ADODB.Recordset")
   Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
   Rs.Open Sql,Conn,1,1
   If Rs.eof And Rs.bof Then Call AlertUrl("没有此用户!","Index.asp")
   If Md5(Password,1)<>Rs("Password") Then Call AlertUrl("密码错误!","Index.asp")

  ElseIf RsSet("RegType")=2 Then
   Connstr_Rec="DBQ="+server.mappath(RsSet("AccessPath"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   Set conn_Rec= Server.CreateObject ("ADODB.Connection")
   Conn_Rec.Open Connstr_Rec
   If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "数据库连接出错，请检查连接字串。"
    Response.End
   End If
   If RsSet("PassWordType")=1 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"' And "&RsSet("SaveRegPassword")&"='"&Password&"'"
   ElseIf  RsSet("PassWordType")=2 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Password,1)&"'"
   ElseIf  RsSet("PassWordType")=3 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Password,2)&"'"
   End If   
   Set Rs=Conn_Rec.ExeCute(Sql)   
   If Rs(0)=0 Then Call AlertUrl("用户名或密码输入有误","Index.asp")
   InsertUser=1
  ElseIf RsSet("RegType")=3 Then
   Connstr_rec="DRIVER={SQL Server};SERVER="&RsSet("SqlServerIP")&";UID="&RsSet("SqlServerLinkName")&";PWD="&RsSet("SqlServerLinkPassword")&";DATABASE="&RsSet("SqlServerDbName")&""
   Set Conn_Rec= Server.CreateObject ("ADODB.Connection")
   Conn_Rec.Open Connstr_rec
   If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "数据库连接出错，请检查连接字串。"
    Response.End
   End If
   If RsSet("PassWordType")=1 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"' And "&RsSet("SaveRegPassword")&"='"&Password&"'"
   ElseIf  RsSet("PassWordType")=2 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Password,1)&"'"
   ElseIf  RsSet("PassWordType")=3 then
    Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"' And "&RsSet("SaveRegPassword")&"='"&Md5(Password,2)&"'"
   End If
   Set Rs=Conn_Rec.ExeCute(Sql)   
   If Rs(0)=0 Then Call AlertUrl("用户名或密码输入有误","Index.asp")
   InsertUser=1
  ElseIf RsSet("RegType")=4 Then
   Insertuser=1
  End If

  If InsertUser=1 Then
    Set Rs= Server.CreateObject("ADODB.Recordset")
    Sql="Select Count(ID) From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
    Rs.Open Sql,Conn,3,2
	IF Rs(0)=0 Then
	 If RsSet("UserValid")=0 Then
      Sql="Insert Into WWW_QQCF_COM_CfWztg_RegUser (User_Name,State) Values ('"&User_Name&"',-1)"
	 Else
      Sql="Insert Into WWW_QQCF_COM_CfWztg_RegUser (User_Name,State) Values ('"&User_Name&"',0)"
	 End If		
	End If
	Conn.Execute Sql'不存在此用户名插入这个用户的记录
  End if

  Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If Ip = "" Then Ip = Request.ServerVariables("REMOTE_ADDR")  

  Randomize
  RanNum=Int(90000000*Rnd)+10000000
  CfWztgUserCookie="User"&User_Name&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&RanNum
  If Cookies_Time>0 Then
   Response.Cookies("CfWztgUserCookie")=CfWztgUserCookie
   Response.Cookies("CfWztgUserCheckCookie")=Md5(CfWztgUserCookie&SysCode,1)
   Cookies_Time_2=Dateadd("n",Cookies_Time,Now())
   Response.Cookies("CfWztgUserCookie").expires=Cookies_Time_2
   Response.Cookies("CfWztgUserCheckCookie").expires=Cookies_Time_2
  End If

 
  If RsSet("RegType")=4 Then'为Myssql接口时
   Response.Redirect "qqcf_phplogin.php?user_name="&user_name&"&password="&password&"&Cookies_Time="&Cookies_Time   
  Else
   Session("CfWztgUser")=User_Name

   Sql="Update WWW_QQCF_COM_CfWztg_RegUser Set Logintotal=Logintotal+1,LastLoginTime='"&Now()&"',LastLoginIp='"&Ip&"',Cookies='"&CfWztgUserCooKie&"' Where User_Name='"&User_Name&"'"
   Conn.ExeCute Sql

   Set Rs = Server.CreateObject("ADODB.Recordset")
   Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
   Rs.Open Sql,Conn,1,1
   If Rs("State")=0 Then Call AlertUrl("账号暂停中,请浏览公告或留言联系管理员解决","Manage.asp?Action=sysinfolist")
   Response.Redirect "Manage.asp"
  End If

 ElseIf UserType=2 Then
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser where AdUser_Name='"&User_Name&"'"
  Rs.Open Sql,Conn,1,1
  If Rs.eof And Rs.bof Then Call AlertBack("没有此用户!",1)
  If Md5(Password,1)<>Rs("Password") Then Call AlertBack("密码错误!",1)
  If Rs("State")=0 Then Call AlertUrl("账号已经被暂停了,请联系管理员解决","Index.asp")

  Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If Ip = "" Then Ip = Request.ServerVariables("REMOTE_ADDR")  

  Randomize
  RanNum=Int(90000000*Rnd)+10000000
  CfWztgAdUserCookie="AdUser"&User_Name&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&RanNum

  If Cookies_Time>0 Then
   Response.Cookies("CfWztgAdUserCookie")=CfWztgAdUserCookie
   Response.Cookies("CfWztgAdUserCheckCookie")=Md5(CfWztgAdUserCookie&SysCode,1)
   Cookies_Time=Dateadd("n",Cookies_Time,Now())
   Response.Cookies("CfWztgAdUserCookie").expires=Cookies_Time
   Response.Cookies("CfWztgAdUserCheckCookie").expires=Cookies_Time
  End If

  Sql="Update WWW_QQCF_COM_CfWztg_AdUser Set Logintotal=Logintotal+1,LastLoginTime='"&Now()&"',LastLoginIp='"&Ip&"',Cookies='"&CfWztgAdUserCooKie&"' Where AdUser_Name='"&User_Name&"'"
  Conn.ExeCute Sql

  Session("CfWztgAdUser")=User_Name
  
  If Rs("State")=0 Then Call AlertUrl("账号暂停中,请浏览公告或留言联系管理员解决","AdUser_Manage.asp?Action=sysinfolist")
  Response.Redirect "AdUser_Manage.asp"
 End If

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 check()
{
  if(window.document.form1.user_name.value=="")
  {
     alert("请输入用户名!");
	 window.document.form1.user_name.focus();
	 return false;
  }
  if(window.document.form1.password.value=="")
  {
     alert("请输入密码!");
	 window.document.form1.password.focus();
	 return false;
  }
 if(window.document.form1.checkcode.value=="")
  {
     alert("请输入四位数字的验证码!");
	 window.document.form1.checkcode.focus();
	 return false;
  }
  return true;
}
</script>

</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=780 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.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>

    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer.gif"
123

⌨️ 快捷键说明

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