admin_manage.asp

WEB后台:/Admin_Login.asp WAP后台:/Admin_WapLogin.asp 用户名：admin 密码:admin 在conn.asp文件修改数据库

if PageNo="" or not Isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if

'普通sql语句
sql=sql & condition &" ORDER BY "&pl&" "&ob

%> 
<div style="text-align:center;">
        <form method="post" action="?action=ListSite">
          <p>关键字： 
                <input name="Find" type="text" id="Find" value="<%=Find%>" size="15" maxlength="20">
                网站分类： 
                <select name="webtype" size="1">
                  <option value="">全部</option>
                  <%Wap.listwebtype webtype,0%>
                </select>
                排序： 
                <select name="pl" size="1">
                  <option value="inc"<%if pl="inc" then%> selected<%end if%>>总计点入</option>
                  <option value="inj"<%if pl="inj" then%> selected<%end if%>>今天点入</option>
                  <option value="inru"<%if pl="inj" then%> selected<%end if%>>昨天点入</option>
                  <option value="inp"<%if pl="inp" then%> selected<%end if%>>平均点入</option>
                  <option value="outc"<%if pl="outc" then%> selected<%end if%>>总计点出</option>
                  <option value="outj"<%if pl="outj" then%> selected<%end if%>>今天点出</option>
                  <option value="outj"<%if pl="outchu" then%> selected<%end if%>>昨天点出</option>
                  <option value="outp"<%if pl="outp" then%> selected<%end if%>>平均点出</option>
                  <option value="indate"<%if pl="indate" then%> selected<%end if%>>点入时间</option>
                  <option value="outdate"<%if pl="outdate" then%> selected<%end if%>>点出时间</option>
                  <option value="fromdate"<%if pl="fromdate" then%> selected<%end if%>>统计时间</option>
                  <option value="dateandtime"<%if pl="dateandtime" then%> selected<%end if%>>加入时间</option>
                </select>
                <select name="ob" size="1">
                	<option value="asc"<%if ob="asc" then Response.write " selected"%>>顺序</option>
                	<option value="desc"<%if ob="desc" then Response.write " selected"%>>倒序</option>
                </select>   
                <select name="isverify" size="1">
                	<option value=""<%if isverify="" then Response.write " selected"%>>所有站点</option>             
                	<option value="0"<%if isverify="0" then Response.write " selected"%>>未审站点</option>
                	<option value="1"<%if isverify="1" then Response.write " selected"%>>已审站点</option>
                    
                    <option value="3"<%if isverify="3" then Response.write " selected"%>>固链站点</option>
                    <option value="4"<%if isverify="4" then Response.write " selected"%>>无效链入</option>
                </select>           
                
                <select name="intt" size="1">
                	<option value=""<%if intt="" then Response.write " selected"%>>点入情况</option>
                    <option value="3"<%if intt="10" then Response.write " selected"%>>3天未点入</option> 
                    <option value="5"<%if intt="10" then Response.write " selected"%>>5天未点入</option> 
                    <option value="7"<%if intt="10" then Response.write " selected"%>>7天未点入</option>           
                	<option value="10"<%if intt="10" then Response.write " selected"%>>10天未点入</option>
                	<option value="30"<%if intt="30" then Response.write " selected"%>>30天未点入</option>
                	<option value="90"<%if intt="90" then Response.write " selected"%>>90天未点入</option>
                </select>                                                   
                <input name="submit" type="submit" value="查 询">
           </form>
<div class="cutpage">      
<%Wap.showPageInfo "link","username",condition,PageNo,MaxPageSize,linkstr%>
</div>
</div>
<%

set rs=server.createobject("adodb.recordset")
rs.open sql,Conn,1,1

if not rs.eof then
	rs.PageSize = MaxPageSize
	rs.AbsolutePage = PageNo 
	dim i
	i=0   
%>
<table border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
  <tr align="center" class="main_title1"> 
    <td width="100">简　称</td>
    <td width="120">网站名称</td>
    <td width="80">类别</td>
    <td width="110">网站登记时间</td>
    <td width="110">开始统计时间</td>
    <td width="110">最后点入时间</td>
    <td width="110">最后点出时间</td>
  </tr>
  <%Do While Not rs.EOF and i<MaxPageSize%>
  <tr align="center"> 
    <td>
    <%if rs("IsVerify")=0 then%>
	     <font color="#FF0000"><%=rs("siteName")%></font>
    <%else%>
         <%=rs("siteName")%>
    <%end if%>    </td>
    <td>
	<%if rs("IsVerify")=0 then%>
         <font color="#FF0000"><%=rs("siteTitle")%></font>
	<%else%>
	     <%=rs("siteTitle")%>
	<%end if%>    </td>
    <td><%=Wap.showwebtype(rs("webtype"))%></td>
    <td><%=rs("dateandtime")%></td>
    <td><%=rs("fromdate")%></td>
    <td><%=rs("indate")%></td>
    <td><%=rs("outdate")%></td>
  </tr>
  <tr> 
    <td align="center">网　址</td>
    <td colspan="6"><%=Wap.htmlencode2(rs("siteurl"))%></td>
  </tr>
  <tr> 
    <td align="center">简　介</td>
    <td colspan="6"><%=Wap.htmlencode2(rs("siteintro"))%></td>
  </tr>
  <tr> 
    <td align="center">贡献统计</td>
    <td colspan="6">
    链入总计 <%=rs("inc")%> 今天 <%=rs("inj")%> 昨天 <%=rs("inru")%> 平均 <font color="#00009F"><%=formatnumber(rs("inp"),2,-1)%></font> 链出总计 <%=rs("outc")%> 今天 <%=rs("outj")%> 昨天 <%=rs("outchu")%> 平均 <font color="#00009F"><%=formatnumber(rs("outp"),2,-1)%></font>
    　　图刷链入
  <%if rs("wuxiao")<50 or rs("wuxiao")<-50 then
	Response.write rs("wuxiao")
    else
    Response.write "<font color=""#FF0000"">"&rs("wuxiao")&"</font></td>"
	end if%>  </tr>
  <tr> 
    <td bgcolor="#FDF0F9"><div align="center">管理选项</div></td>
    <td colspan=6 bgcolor="#FDF0F9">
       <%if rs("IsVerify")=strTrue then 
	        Response.write "<font color='#0000ff'><a href=admin_manage.asp?action=edit1&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&">取消审核</a></font>"           
		else   
		    Response.write "<a href=admin_manage.asp?action=edit&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&" class=""t"">确定审核</a>"
        end if%>
    
    <%if rs("GuLian")=1 then 
   Response.write " <a href=""Admin_Manage.asp?action=GuLian0&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&""" onClick=""return confirm('你确认要取消推荐吗？')"">取消推荐</a> "
   else   
  Response.write " <a href=""Admin_Manage.asp?action=GuLian1&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&""" onClick=""return confirm('你确认要加入推荐吗？')"" class=""t"">加入推荐</a> " 
   end if%>
   
   <%
   if WapZhenghe=1 then 
   if rs("ShouXian")=0 then 
      Response.write "<a href=""Admin_Manage.asp?action=ShouXian1&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&""" onClick=""return confirm('你确认要还原首页显示吗？')"" class=""t"">还原首页显示</a>"
   else
   Response.write "<a href=""Admin_Manage.asp?action=ShouXian0&id="&rs("id")&"&PageNo="&cstr(PageNo)&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&""" onClick=""return confirm('你确认要取消首页显示吗？')"">取消首页显示</a>"
   end if
   end if%>
    <a href="Admin_Editlink.asp?username=<%=rs("username")%>">修改站点</a>
    <a href="Admin_Manage.asp?Action=del&username=<%=rs("username")%>&Find=<%=Request("Find")%>&webtype=<%=Request("webtype")%>&pl=<%=Request("pl")%>&IsVerify=<%=Request("IsVerify")%>&intt=<%=request("intt")%>&ob=<%=Request("ob")%>" onClick="return confirm('确定要删除吗？')">删除</a>
    <a href="?action=init&username=<%=rs("username")%>&Find=<%=Request("Find")%>&webtype=<%=Request("webtype")%>&pl=<%=Request("pl")%>&IsVerify=<%=Request("IsVerify")%>&intt=<%=request("intt")%>&ob=<%=Request("ob")%>" onClick="return confirm('初始化后，此网站数据将清零，你确认要初始化吗？')">初始化统计</a> 
    <a href="?action=ShowLog&username=<%=rs("username")%>&inout=0">查看点入记录</a> 
    <a href="?action=ShowLog&username=<%=rs("username")%>&inout=1">查看点出记录</a>   
    <a href="#" ONCLICK="window.open('admin_code.asp?username=<%=rs("username")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=600,height=550,left=100,top=100')">链接代码</a>
    <br/>    </td>
  </tr>
  <tr> 
    <td height="5" colspan="7" bgcolor="#8cc3de"></td>
  </tr>
  <%  
i=i+1  
rs.MoveNext  
Loop  
else
%>
  <tr> 
    <td height="80" colspan="7" align="center"><B>没有找到你所查询的网站</B></td>
  </tr>
  <%
end if  
rs.close
set rs=nothing

%>
</table>
<%end sub%>
<%sub BatchDelform%>
<form name="form1" method="post" action="?action=BatchDelWeb">
        删除初始化后 
        <input name="daynum" type="text" value="30" size="3" maxlength="4">
        天内总点击进入数小于 
        <input name="hitsnum" type="text" id="hitsnum" value="1" size="3" maxlength="4">
        的站点 
        <input type="submit" name="Submit" value="删除">
      </form>
 <%
 If WapFromDelete = 0 Then
 %>     
<form name="form1" method="post" action="?action=BatchDelLog">
        删除 
        <input name="daynum" type="text" value="15" size="3" maxlength="4">
        天前的点击记录(用户3天内的点入点出记录不会被删除) 
        <input type="submit" name="Submit" value="删除">
      </form>
<%
End If
%>     
<form name="form1" method="post" action="?action=BatchDelOnline">
        初始网站访问量统计
        <input type="submit" name="Submit" value="删除">
      </form>
<%
Call GoBack
end sub

sub GuLian0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&request.querystring("id"),Conn,1,3
rs("GuLian")=0
rs.update
Response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&"'" & "</script>"  	

rs.close
set rs=nothing
end sub

sub GuLian1
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&request.querystring("id"),Conn,1,3
rs("GuLian")=1
rs.update
 Response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&"'" & "</script>"

rs.close
set rs=nothing
end sub

sub ShouXian1
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&request.querystring("id"),Conn,1,3
rs("ShouXian")=1
rs.update
 Response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&"'" & "</script>"
rs.close
set rs=nothing
end sub

sub ShouXian0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&request.querystring("id"),Conn,1,3
rs("ShouXian")=0
rs.update
 Response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&"'" & "</script>"
rs.close
set rs=nothing
end sub

sub edit
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&Request.Querystring("id"),Conn,1,3
rs("IsVerify")=strTrue
rs("inp")=inpc
rs("indate")=Now()
Response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&"'" & "</script>"
rs.update
rs.close
set rs=nothing
end sub

sub edit1
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from link where id="&Request.querystring("id"),Conn,1,3
rs("IsVerify")=strFalse
Response.write "<script language=JavaScript>" & chr(13) & "alert('操作成功！');" &"window.location='admin_manage.asp?action=ListSite&PageNo="&Request("PageNo")&"&Find="&Request("Find")&"&webtype="&Request("webtype")&"&pl="&Request("pl")&"&IsVerify="&Request("IsVerify")&"&intt="&request("intt")&"&ob="&Request("ob")&"'" & "</script>"