📄 urlx.asp

📁 wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn
💻 ASP
字号:
<%
if session("admin")="" then
  response.redirect "admin.asp"
end if
%>
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
<link rel="stylesheet" type="text/css" href="style.css">
<style type="text/css">
<!--
.style1 {color: #990000}
-->
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  
<table class="border" height="67" cellSpacing="1" cellPadding="0" width="801" border="1" id="table2" bordercolor="#C0C0C0">
	<tr class="tdbg" background="http://localhost:2005/admin/Images/topBar_bg.gif">
		<td colSpan="8" height="22" bgcolor="#FFFFFF">
		<div align="center">
			<font color="#990000"><strong>网址管理</strong></font></div>
		</td>
	</tr>
	<tr class="tdbg">
		<td width="23" bgColor="#FFFFFF" align="center"><strong>ID</strong></td>
		<td width="100" bgColor="#FFFFFF" align="center"><strong>分类名称</strong></td>
		<td width="131" bgColor="#FFFFFF" align="center"><strong>网址名称</strong></td>
		<td width="137" bgColor="#FFFFFF" align="center"><b>是否首页显示（<font color="#FF0000">1</font>为显示，<font color="#FF0000">0</font>为不显示）</b></td>
		<td width="297" bgColor="#FFFFFF" align="center" colspan="2"><b>排列顺序</b></td>
		<td width="51" bgColor="#FFFFFF" align="center"><strong>修改</strong></td>
		<td width="41" bgColor="#FFFFFF" align="center">
		<div align="center">
			<strong>删除</strong></div>
		</td>
	</tr>
     <%
                                  classid=trim(Request("classid"))
                                  Dim rs
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select * from urls where classid="&classid&" order by showorder asc",conn,1,1
   %>
<%
		  if rs.eof and rs.bof then
                                  response.write "没有分类,请添加!"
                                  end if
		  pageno=trim(Request("pageno"))
dim rscount
rscount=rs.recordcount
If pageno="" Then
   pageno="1"
End If
pageno=CInt(pageno)
rs.PageSize=200
rs.AbsolutePage=pageno
dim i
i=0
do while not rs.eof
%> 
	<tr class="tdbg">
		<td align="middle" width="23" bgColor="#FFFFFF"><%=rs("wid")%></td>
		<td align="middle" width="100" bgColor="#FFFFFF"><%
classid=rs("classid")
dim rs1
		  set rs1=server.CreateObject("adodb.recordset")
		  rs1.open "select * from class where classid="&classid,conn,1,1
%>
<a href="urlx.asp?classid=<%=rs1("classid")%>"><%=rs1("ClassName")%></a>
<%		    rs1.close
		    set rs1=nothing
 %></td>
		<td width="131" bgColor="#FFFFFF" align="left"><a href="gedit.asp?ids=<%=rs("classid")%>&amp;id=<%=rs("wid")%>"><%=rs("site")%></a></td>
		<td width="137" bgColor="#FFFFFF" align="left">
		<p align="center">&nbsp;<%=rs("show")%></td>
		<td width="60" bgColor="#FFFFFF" align="left">
		<%=rs("showorder")%></td>
		<td width="234" bgColor="#FFFFFF" align="left"><form action=1.asp?ids=<%=rs("classid")%>&amp;id=<%=rs("wid")%> method=post>
		<select name=showorder size=1>
		<option value=0>位置确定</option><%for i=1 to rscount%>
		<option value="<%=i%>"><%=i%></option><%next%>
		</select>&nbsp;<input type=submit name=Submit1 value=修改><input type="hidden" name="classid" value="<%=request("classid")%>"></form></td>
		<td align="middle" width="51" bgColor="#FFFFFF"><a href="gedit.asp?ids=<%=rs("classid")%>&amp;id=<%=rs("wid")%>"> 修改</a></td>
		<td align="middle" width="41" bgColor="#FFFFFF"><a href="gdel.asp?id=<%=rs("wid")%>">删除</a></td>
	</tr>
 <%
i=i+1
if i>=rs.pagesize then Exit Do
		    rs.movenext
		    loop
%>
	<tr class="tdbg">
		<td align="right" width="791" bgColor="#FFFFFF" colspan="8">
<p> <form action='urlx.asp' method='post' name='form'>共<%=rs.RecordCount%>条网址,(<%=pageno%>/<%=rs.PageCount%>)&nbsp;&nbsp;<%if pageno>1 then%><a href="urlx.asp?pageno=<%=pageno-1%>&classid=<%=classid%>">上页</a><% else response.write "上页" end if%> |  <%if pageno<rs.PageCount then%><a href="urlx.asp?pageno=<%=pageno+1%>&classid=<%=classid%>">下页</a><%else response.write "下页" end if%>&nbsp;&nbsp;<input name='pageno' type='text' id='pageno' style="font-size: 9pt; width: 30px; color: #000000; height: 17px; border: 1px solid #000000; background: #efefef"><INPUT type=hidden value="<%=classid%>" name=classid>
&nbsp;&nbsp;<input type='submit' name='Submit' style="font-size: 9pt; width: 40px; color: #000000; height: 17px; border: 1px solid #000000; background: #efefef"  value='转到'></form></p>
</td>
	</tr>
<%
		    rs.close
		    set rs=nothing
 %>
</table>
</body>
</html>
⌨️ 快捷键说明

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