edituser.asp

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

<!--#include file="top.asp" -->
<%
'******************************
'
'      飞越访客多用户统计系统
'    飞越   [e-mail] 
'        www.pwsite.net
'
'     版权所有: 动力在线
'
'******************************
%>
<% if Request.Cookies(feiyuetongji)("Username")="" then
response.Redirect("loginadmin.asp?action=error")
end if
if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if%>
<% function checkuser(fString)
     fString=replace(fString,"'","‘")
    checkuser = fString
   end function

euser=request("user")
if request.querystring("action")="add" then
dell=request("dell")
dell1=request("dell1")
dell2=request("dell2")
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")))
if dell=1 then
sql="delete * from vcount where vuser='"&euser&"'"
conn.execute(sql)
sql="delete * from fcount where fuser='"&euser&"'"
conn.execute(sql)
response.redirect("userlist.asp"&url)
response.end 
end if
if dell1=1 then
sql="delete * from fcount where fuser='"&euser&"'"
conn.execute(sql)
end if
if dell2=1 then
sql="delete * from fcount where fuser='"&euser&"'"
conn.execute(sql)
sql="update vcount set vtoday=0,vyestaday=0,vtotal=0,vtotal1=0,vnowmonth=0,vpremonth=0,vnowyear=0,vweek=0,vstarttime='"&now()&"',vdate='"&date()&"' where vuser='"&euser&"'"
end if
error1=0
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
if error1=1 then
 response.redirect(url1&"error2="&error2&"&user="&euser)
  response.end
end if
strSql = "update vcount set startcount="&startcount&",vpass='"&vpass&"',vurl='"&vurl&"',vtitle='"&vtitle&"',vemail='"&vemail&"', vcontent='"&vcontent&"',vbanzhu='"&vuser1&"'where vuser='"&euser&"' "
 conn.Execute (strsql)
error2="修改成功"
 response.redirect(url1&"error2="&error2&"&user="&euser)
 elseif request.querystring("action")="" then
 sql="select * from vcount where vuser='"&euser&"'"
 set rs=conn.execute(sql)
%>

  <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="edituser.asp<%=url1%>action=add&user=<%=request("user")%>" name="form1" >
    <tr valign="baseline"> 
      <td align="right" colspan="2" <%=hColor1%> class=tdc1> 
        <div align="center">更改资料</div>
      </td>
    </tr>
    
    <% if request.querystring("error2")<>"" or  request.querystring("edit")<>""then%>
     <tr valign="baseline"> 
      <td align="right" colspan="2" <%=hColor2%> class=tdc1> 
        <div align="center"><%=request.querystring("error2")%><%=request.querystring("edit")%></div>
      </td>
    </tr>
    <% end if%>    
    <tr valign="baseline" > 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>*用户名:</td>
      <td bgcolor=<%=tColor2%> class=tdc><%=rs("vuser")%> 　</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="<%=rs("vpass")%>" 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="<%=rs("vemail")%>" 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="<%=rs("vtitle")%>" 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="vuser1" value="<%=rs("vbanzhu")%>" size="20">
      </td>
    </tr>
  
    <tr>
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>主页简介:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <textarea rows="5" name="vcontent" cols="50"><%=rs("vcontent")%></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="<%=rs("vurl")%>" 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="<%=rs("startcount")%>">(用本系统前的统计数字)
      </td>
    </tr>
  <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>操作1:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="checkbox" name="dell1" value="1">清空该用户的详细资料</td>
    </tr>
      <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>操作2:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="checkbox" name="dell2" value="1">清空该用户的统计</td>
    </tr>
    
  <tr valign="baseline"> 
      <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc>操作3:</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="checkbox" name="dell" value="1">是否删除该用户（勾上将会删除）</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>
      </td>
    </tr>
        </form></table></center></div>
                               
             

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