reg.asp

一个用户访问记录程序 基本功能 就是记录客户访问情况

<!--#include file="top.asp" -->

<%
'******************************
'
'      飞越访客多用户统计系统
'    飞越   [e-mail] 
'        www.pwsite.net
'
'     版权所有: 动力在线
'
'******************************
%>
<%tmpt = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("reg.asp"))
                sqlh="select count(*) as scount1 from vcount"
    set rsh=conn.execute(sqlh)
   total3=rsh("scount1")
   set rsh=nothing
        
               %>
<% function checkuser(fString)
     fString=replace(fString,"'","‘")
    checkuser = fString
   end function
if request.querystring("action")="add" then

vuser=checkuser(trim(request.form("vuser")))
vuser1=checkuser(trim(request.form("vuser1")))
vpass=checkuser(trim(request.form("vpass")))
vtitle=checkuser(trim(request.form("vtitle")))
vurl=checkuser(trim(request.form("vurl")))
vemail=checkuser(request.form("vemail"))
vcontent=checkuser(request.form("vcontent"))
startcount=checkuser(trim(request.Form("startcount")))
error1=0
if total3>=maxcount  or sopen<>0  then
   error1=1
   error2="用户数已满，或者管理员已经关闭统计申请,有什么问题请跟管理员联系,"
end if
if vuser="" then
error1=1
error2=error2&"用户名必须填写,"
end if
if len(vuser)>12 then
error1=1
error2=error2&"用户名不要超过12位,"
end if
if vpass="" then
error1=1
error2=error2&"密码必须填写,"
end if
if len(vpass)>12 then
error1=1
error2=error2&"密码不要超过12位,"
end if
if vuser1="" then
error1=1
error2="站长名称必须填写,"
end if
if len(vuser1)>12 then
error1=1
error2=error2&"站长名称不要超过12位,"
end if
if vtitle="" then
error1=1
error2=error2&"主页名称必须填写,"
end if
if vurl="" then
error1=1
error2=error2&"主页地址必须填写,"
end if
if len(vcontent)>250 then
error1=1
error2=error2&"主页简介不要超过250位,"
end if
if startcount="" then
error1=1
error2=error2&"用本系统前的统计数字必须填写,"
end if
if not IsNumeric(startcount) then
error1=1
error2=error2&"用本系统前的统计数字必须为数字,"
end if
sql="select * from vcount where vuser='"&vuser&"'"
set rs=conn.execute(sql)
if not rs.eof then
error1=1
error2=error2&"用户名重复，请重新输入,"
set rs=nothing
end if

if error1=1 then
 response.redirect("?error2="&error2&"")
response.end
end if

strSql = "insert into vcount (vuser,vbanzhu,vpass,vurl,vtitle,vemail, startcount,vcontent) Values ('"
 strSql = StrSQl & vuser & "','"
  strSql = StrSQl & vuser1 & "','"
 strSql = StrSQl & vpass & "','"
 strSql = StrSQl & vurl & "','"
 strSql = StrSQl & vtitle & "','"
 strSql = StrSQl & vemail & "',"
  strSql = StrSQl & startcount & ",'"
 strSql = StrSQl & vcontent & "')"
 conn.Execute (strsql)
 response.redirect"reg.asp?action="&vuser&""
 response.end
 elseif request.querystring("action")="" then
         
   if total3>=maxcount  or sopen<>0  then
   errornum1=1
   errmsg=errmsg&"<BR>用户数已满，或者管理员已经关闭统计申请,有什么问题请跟管理员联系<Br>当前共有 "&total3&" 位用户申请本统计系统"
   end if
   if errornum1<>1 then 
%>

  <div align="center">
    <center>
  <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
  <form method="POST" action="reg.asp?action=add" name="form1" >
    <tr valign="baseline"> 
      <td align="right" colspan="2" <%=hColor1%> class=tdc1> 
        <div align="center">申请资料</div>
      </td>
    </tr>
    
    <% if request.querystring("error2")<>"" then%>
     <tr valign="baseline"> 
      <td align="right" colspan="2" <%=hColor2%> class=tdc1> 
        <div align="center"><%=request.querystring("error2")%></div>
      </td>
    </tr>
    <% end if%>
     <tr valign="baseline" > 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc colspan="2">
      <p align="center">注意事项：<br>
      1：申请本站统计不得用于统计一切违法站点，违者发现一律删除！<br>
      2：本站统计只供参考，若数据出现丢失或者错误，本站不负责任！</td>
    </tr>
    <tr valign="baseline" > 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>*用户名:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="vuser" value="" size="20">
      </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>*密码:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="password" name="vpass" value="" size="20">
      </td>
    </tr>
        <tr valign="baseline" > 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>*站长名称:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="vuser1" value="" size="20">
      </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>Email:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="vemail" value="" size="25">
      </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>*主页名称:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="vtitle" value="" size="25">
      </td>
    </tr>
    <tr>
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>主页简介:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <textarea rows="5" name="vcontent" cols="50"></textarea>
      </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>*主页地址:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="vurl" value="" size="50">
      </td>
    </tr>
  <tr> 
      <td width="30%"  bgcolor=<%=tColor2%> class=tdc> 
        <div align="right">用本系统前的统计数字：</div>
      </td>
      <td  bgcolor=<%=tColor2%> class=tdc> 
        <input name="startcount" class=tdc size="8" value="0">(用本系统前的统计数字)
      </td>
    </tr>
   
    <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>　</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="submit" value="提交" class=bdtj>(当前共有 <%=total3%> 位用户申请本统计系统)
      </td>
    </tr>
        </form></table></center></div>
        <%else%>
 <!--#include file="error.asp" -->
<%end if%>
             <% elseif request.querystring("action")<>"" then%>
             
             <div align="center">
    <center>
  <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
    <tr valign="baseline"> 
      <td align="right" <%=hColor1%> class=tdc1> 
        <div align="center">申请成功</div>
      </td>
    </tr>
  
 
      <tr valign="baseline"> 
            <td bgcolor=<%=tColor2%> class=tdc>
             <p align="center">你的申请已经提交成功，你只要将以下的一种代码加在你的主页上就可以实现统计了！<p align="center">
             请记住你的用户名和密码，如果以后你的站点有所变动，你可以用此来更改<br>
             效果演示:<BR>
             代码1演示<script src="http://pwsite.net/counts/count.asp?view=pwsite&fy=1"></script><br>
             代码2演示<br>
             代码2不显示图片，只是隐藏统计
　<p align="center">
               <textarea rows="8" name="S1" cols="90">连接代码1：
<script src="<%=tmpt%>count.asp?view=<%=request.querystring("action")%>&fy=1"></script>
连接代码2：
<script src="<%=tmpt%>count.asp?view=<%=request.querystring("action")%>&fy=2"></script></textarea><br>
               <br>
               请将以上代码copy并保存好！！<br>
               若你忘记了代码，请到本统计系统的[用户列表]栏目找到你站的名称，点击你站的名称即可进入查看代码。</p>
             
           
            <P>
             </td></tr></table></center></div>
                  
             

             <%end if%><!--#include file="bq.asp" -->