download_js.asp
来自「功能最强大的ASP网站」· ASP 代码 · 共 66 行
ASP
66 行
<!--#include file="conn.asp"-->
document.write("<head><meta http-equiv='Content-Language' content='zh-cn'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta name='robots' content='none'></head>");
document.write("<table border=0 cellpadding=<%=line%> cellspacing=0 width=100%>");
<%
n=request("n")
action=trim(request.QueryString("action"))
name1=trim(request.QueryString("name"))
font=trim(request.QueryString("font"))
tag=trim(request.QueryString("tag"))
xiangguan=trim(request.QueryString("xiangguan"))
hot=trim(request.QueryString("hot"))
if n="" then
n=1
end if
if action="usual" then
sql="select * from downloads order by bh desc"
set rs=conn.execute(sql)
else
if tag<>"" and xiangguan="" then
sql="select * from downloads where tag='"&tag&"'order by bh desc"
set rs=conn.execute(sql)
end if
if tag="" and xiangguan<>"" then
sql="select * from downloads where xiangguan='"&xiangguan&"'order by bh desc"
set rs=conn.execute(sql)
end if
if tag<>"" and xiangguan<>"" then
sql="select * from downloads where tag='"&tag&"' and xiangguan='"&xiangguan&"' order by bh desc"
set rs=conn.execute(sql)
end if
end if
%>
document.write("<table border=0 cellpadding=<%=line%> cellspacing=0 width=100%>");
<%
if rs.eof and rs.bof then
%>
document.write("没有相关下载信息")
<%else%>
<%
do while not rs.eof
url="downloads/"&rs("bh")&".html"
title=rs("name")
path="image/page_plugin.png"
%>
document.write("<tr><td width=1 align=left align=center></td><td>");
document.write("</td><td align=left><img src=<%=path%>>");
document.write("<a href=<%=url%> target=_blank><font color=#666666 style='font-size:<%=font%>pt'><%=title%></font></a> ");
document.write("</td>");
<%
n=n-1
if n<1 then exit do
rs.movenext
loop
%>
<%
end if
%>
document.write("</table>");⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?