📄 qqcf_admin_manage_2.asp
字号:
rs.movenext
Wend
%>
<tr bgcolor="#FFFFFF">
<td colspan="8"><table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a>
页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td> <Select name="page" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?Action="&Action&"&ClassID="&ClassID&"&Title="&Title&"&State="&State&"&PageSizeNum="&PageSizeNum&"&Px="&Px&"&Page="& i
if page=i then
response.write " selected"
end if
response.write ">转到第"& i &"页</option>"
next
%>
</select> </td>
</form>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<form name="form2" method="post" action="?Action=wzsearch">
<tr>
<td><div align="center"><strong>搜 索</strong></div></td>
<td><div align="center">网址类别:</div></td>
<td> <div align="center">
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from WWW_QQCF_COM_CFWZ_Class order by Classid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
else
%>
<select name="ClassID">
<option selected value="">全部类别</option>
<%
do while not rs.eof
%>
<option value="<%=trim(rs("Classid"))%>"><%=trim(rs("ClassName"))%>[<%=trim(rs("Classid"))%>]</option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
</div></td>
<td><div align="center">网址名称:</div></td>
<td><div align="center">
<input name="Title" type="text" id="Title3" size="10">
</div></td>
<td><div align="center">是否有效:</div></td>
<td><div align="center">
<select name="State">
<option value="null" selected>全部</option>
<option value="-1">有效</option>
<option value="0">无效</option>
</select>
</div></td>
<td><div align="center">每页显示:</div></td>
<td><div align="center">
<input name="PageSizeNum" type="text" id="PageSizeNum3" size="5">
条</div></td>
<td><div align="center">
<input type="submit" name="Submit3322" value="搜索">
</div></td>
</form>
<tr>
<td colspan="10"> </tr>
</table></td>
</tr>
</table>
<%End If%>
<%If Action="wzadd" Then%>
<script language="JavaScript">
function check2()
{
if ((document.form2.title.value)=="")
{
window.alert ('网站名称必须填写');
document.form2.title.select();
document.form2.title.focus();
return false;
}
else if ((document.form2.url.value)=="")
{
window.alert ('网址必须填写');
document.form2.url.select();
document.form2.url.focus();
return false;
}
else if ((document.form2.classid.value)=="")
{
window.alert ('类别必须选择');
document.form2.url.select();
document.form2.url.focus();
return false;
}
else
return true;
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?Action=wzaddsave" onsubmit="javascript:return check2()">
<tr bgcolor="D6DFF5">
<td colspan="2"><div align="center"><strong>增加网址</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%"><div align="right">网站名称：</div></td>
<td><input name="title" type="text" id="name2" size="30">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">网站网址：</div></td>
<td><input name="url" type="text" id="password3" size="45">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="top"><div align="right">网站说明：</div></td>
<td><input name="Memo" id="Memo" size="30" rows="5">
100字以内</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">网站浏览次数：</div></td>
<td><input name="Total" type="text" id="Total" value="0" size="10">(数字)
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">排序数字：</div></td>
<td><input name="ListID" type="text" id="ListID" value="0" size="10">(数字)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">网站类别：</div></td>
<td>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CFWZ_Class Order By ClassID Desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.Bof Then
Response.Write "请先添加栏目。"
Else
%>
<select name="classid" id="ClassID">
<option selected value="">请选择栏目</option>
<%
Do While Not Rs.Eof
%>
<option value="<%=Trim(Rs("ClassID"))%>"><%=Trim(rs("ClassName"))%>[<%=trim(rs("Classid"))%>]</option>
<%
Rs.MoveNext
Loop
End If
%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">有效:</div></td>
<td><select name="State">
<option value="-1" selected>有效</option>
<option value="0">无效</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"> </td>
<td>
<input type="submit" name="Submit" value="加入">
<input type="reset" name="Submit523" value="取消"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="wzmodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From WWW_QQCF_COM_CFWZ_WebSite Where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td colspan="2"><div align="center"><strong>修改网址</strong></div></td>
</tr>
<form name="form1" method="post" action="?Action=wzmodifysave&id=<%=ID%>"><tr bgcolor="#FFFFFF">
<td width="23%"><div align="right">网站名称：</div></td>
<td><input name="Title" type="text" id="Title2" value="<%=Rs("Title")%>" size="30">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">网站网址：</div></td>
<td><input name="Url" type="text" id="Url" value="<%=Rs("Url")%>" size="45">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="top"><div align="right">网站说明：</div></td>
<td><input name="Memo" id="Memo2" value="<%=Rs("Memo")%>" size="30" rows="5">
100字以内</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">网站浏览次数：</div></td>
<td><input name="Total" type="text" id="Total" value="<%=Rs("Total")%>" size="10">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">排序数字：</div></td>
<td><input name="ListID" type="text" id="ListID" value="<%=Rs("ListID")%>" size="10"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">网站类别：</div></td>
<td>
<%
Set Rs1=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CFWZ_Class Order By ClassID Desc"
Rs1.Open Sql,Conn,1,1
If Rs1.Eof And Rs1.Bof Then
Response.Write "请先添加栏目。"
Else
%>
<select name="ClassID" id="select">
<option selected value="">请选择栏目</option>
<%
While Not Rs1.Eof
%>
<option value="<%=Trim(Rs1("ClassID"))%>"<%If Rs1("ClassID")=Rs("ClassID") Then Response.Write " Selected"%>><%=Trim(Rs1("ClassName"))%>[<%=trim(rs1("Classid"))%>]</option>
<%
Rs1.MoveNext
Wend
End If
Rs1.Close
%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"><div align="right">有效:</div></td>
<td><select name="State">
<option value="-1"<%If Rs("State")=-1 Then Response.Write " selected"%>>有效</option>
<option value="0"<%If Rs("State")=0 Then Response.Write " selected"%>>无效</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21"> </td>
<td>
<input type="submit" name="Submit3" value="修改">
<input type="reset" name="Submit5232" value="取消" onClick="javascript:history.go(-1)">
<input name="ClassID_Old" type="hidden" id="ClassID_Old" value="<%=Rs("ClassID")%>"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="tjlist" Then%>
<%
Action = ChkStr(Request("Action"),1)
Px = ChkStr(Request("Px"),1)
If Px="" Then Px="ID"
Call PxFilter(Px,"ID,AddDate,Counter")
Sql="Select Sum(Counter) From WWW_QQCF_COM_CFWZ_Counter"
Set Rs=Conn.Execute(Sql)
TotalCount=Rs(0)
Sql="Select * From WWW_QQCF_COM_CFWZ_Counter Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not rs.eof then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CInt(ChkStr(Request("Page"),2))
End If
Rs.PageSize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.pageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td colspan="2"><div align="center"><strong>每日点击网址报表</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="60"><div align="center"><strong><a href="?Action=<%=Action%>&Px=AddDate">日 期</a></strong></div></td>
<td><div align="center"></div>
<strong><a href="?Action=<%=Action%>&Px=Counter">点击数量</a></strong></td>
</tr>
<%
While not rs.eof and mypagesize>0
%>
<tr
<%if mypagesize mod 2=0 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>>
<td><div align="center"><%=Rs("AddDate")%></div></td>
<td><%=Rs("Counter")%></td>
</tr>
<%
mypagesize=mypagesize-1
rs.movenext
Wend
%>
<tr>
<td> </td>
<td><strong>总计点击</strong>:<%=TotalCount%>次</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td>
<Select name="page" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?Action="&action&"&Px="&px&"&Page="&i
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -