📄 map.asp
字号:
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- saved from url=(0014)about:internet -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>网站地图 - WebMap</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
td img {display: block;}body,td,th {
font-size: 14px;
}
body {
background-color: #FFFFFF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url();
}
a {
font-size: 13px;
color: #0000CC;
}
a:visited {
color: #0066FF;
}
a:hover {
color: #009966;
}
a:active {
color: #0099CC;
}
.dixian {
border-bottom-width: 1px;
border-bottom-style: solid;
border-bottom-color: #62BBE5;
}
</style>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD ALIGN="CENTER" COLSPAN="4"><TABLE BORDER="0" WIDTH="100%" ALIGN="center" >
<%
dim sort
sort="暴笑网文"
set rs=server.createobject("adodb.recordset")
sql="select articleid,title,hits,syxs,sort from learning where syxs<>0 and sort<>'"&sort&"' order by dateandtime desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
%>
<TR>
<TD width="33%" align="left"><font color="#000000">· <A HREF=show.asp?id=<%=rs("articleid")%> TARGET=_blank><%=rs("title")%></A> </font> </TD>
<% rs.movenext%>
<TD width="33%" align="left"><font color="#000000">· <A HREF="show.asp?id=<%=rs("articleid")%>" TARGET=_blank><%=rs("title")%></A> </font> </TD>
<% rs.movenext%>
<TD width="33%" align="left">· <font color="#000000"><A HREF="show.asp?id=<%=rs("articleid")%>" TARGET=_blank><%=rs("title")%></A> </font> </TD>
</TR>
<%
n=n+0.02
rs.movenext
if n>=9 then exit do
loop
rs.close
set rs=nothing
%>
</TABLE></TD>
</TR>
</TABLE>
<table border="0" cellpadding="0" cellspacing="1" width="100%" align="center" >
<%
action=request("action")
picsort=request("picsort")
if picsort="" then
if action="" or action="newsday" then
sql="select picid,picname,pichits,tohit from pic where picsy<>0 order by adate desc"
elseif action="sumhits" then
sql="select picid,picname,pichits,tohit from pic where picsy<>0 order by pichits desc"
elseif action="dayhits" then
sql="select picid,picname,pichits,tohit from pic where picsy<>0 order by tohit desc"
end if
else
if action="" or action="newsday" then
sql="select picid,picname,pichits,tohit from pic where picsy<>0 and picsort='" & picsort & "' order by adate desc"
elseif action="sumhits" then
sql="select picid,picname,pichits,tohit from pic where picsy<>0 and picsort='" & picsort & "' order by pichits desc"
elseif action="dayhits" then
sql="select picid,picname,pichits,tohit from pic where picsy<>0 and picsort='" & picsort & "' order by tohit desc"
end if
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
n=0
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=16
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<tr>
<td width="50%" height="27" valign="middle"><table width="100%" border="0">
<tr>·<a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank"><%=rs("picname")%></a></tr>
</table></td>
<% n=n+0.0001
rs.movenext
if rs.eof or rs.bof then
response.write "<td width='50%'></td>"
exit do
end if
%>
<td width="50%" height="27" valign="middle"><table width="100%" border="0">
<tr>·<a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank"><%=rs("picname")%></a></tr>
</table></td>
<%
n=n+0.0001
rs.movenext
if n>=rs.pagesize then exit do
loop
%>
</tr>
</table>
<p> </p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -