📄 view.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<%
w=Request.QueryString("w")'width
h=Request.QueryString("h")'height
s=Request.QueryString("s")'sort
u=Request.QueryString("u")'user
i=Request.QueryString("i")'image
l=Request.QueryString("l")'limit
p=Request.QueryString("p")'paixu
t=Request.QueryString("t")'tag
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=SiteName%></title>
</head>
<style type="text/css">
<!--
td {
font-size: 12px;
}
a {
color: #336666; text-decoration: none
}
a:hover {
color: #000000; text-decoration: none
}
-->
</style>
<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<%
row=0
if l="" then
l="10"
end if
size=w\15
sql="select top "&l&" ID,IIf(Len(Title)<"&size&",Title,Left(Title,"&size&")+'...') as Title,FromURL from zhai"
where=""
if s<>"" then
where=" where Sort='"+s+"'"
end if
if u<>"" then
if where="" then
where=" where UserID='"+u+"'"
else
where=where+" and UserID='"+u+"'"
end if
end if
if t<>"" then
if where="" then
where=" where XSort like '%"+t+"%'"
else
where=where+" and XSort like '%"+t+"%'"
end if
end if
sql=sql+where+" order by "+p+" desc"
set rszhai=conn.execute(sql)
Response.Write("<table>")
do while Not rszhai.Eof
Response.Write("<tr>")
Response.Write("<td style='line-height:18px;'>")
if i="y" then
end if
Response.Write("·<a href='goto.asp?id="&rszhai("ID")&"' target='_blank'>"&HTMLEncode(rszhai("Title"))&"</a></td>")
rszhai.movenext
row=row+1
Response.Write("</tr>")
loop
rszhai.close
if row<2 then
for i=1 to 2-row
Response.Write("<tr>")
Response.Write("<td> </td>")
Response.Write("</tr>")
next
Response.Write("</table>")
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -