📄 makesortjs.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<%
if session("admin")="" then
response.redirect "login.asp"
else
if session("flag")>2 then
response.write"<SCRIPT language=JavaScript>alert('您没有操作的权限！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
end if
%>
<head>
<style type=text/css>
body { margin:0px; font:9pt "宋体"; SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #d6d6d6; SCROLLBAR-SHADOW-COLOR: #d6d6d6; SCROLLBAR-3DLIGHT-COLOR: #135184; SCROLLBAR-ARROW-COLOR: white; SCROLLBAR-TRACK-COLOR: #d6d6d6; SCROLLBAR-DARKSHADOW-COLOR: #135184}
td { font-size: 12px; color: #006600}
</style>
</head>
<TABLE WIDTH="95%" BGCOLOR=#999999 CELLSPACING="1" CELLPADDING="5" ALIGN=center>
<TR BGCOLOR=#cccccc><TD COLSPAN=2>☆ 笑话分类 ☆</TD></TR> <%
nj=1
set rs_s = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("..\js\jokesort.js"),true)
str="document.write('<TABLE BORDER=0 WIDTH=99% ><TR><DIV ID=""Layer1"" STYLE=""position:absolute; width:50px; height:10px; z-index:1; visibility:hidden""></DIV>"
sql_s = "select sortid,sort from sort order by sortid desc"
rs_s.Open sql_s,conn,1,2
if rs_s.eof then
response.write "<td align=right width='30%' >☆ 笑话分类 ☆</td><td><font color=red>暂时还没有☆ 笑话分类 ☆！</font></td>"
str=str & "</table>')"
else
do while not rs_s.EOF
str = str & "<TD WIDTH=50% ALIGN=center VALIGN=middle><a href=class.asp?sort="& rs_s("sort")& " target=_blank>"& rs_s("sort")& "</a></TD>"
ka=ka+1
if ka=2 then
ka=0
str = str & "</tr><tr>"
end if
rs_s.movenext
if rs_s.eof then exit do
loop
str=str & "</TR></TABLE>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>☆ 笑话分类 ☆</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_s.close
set rs_s=nothing
fd.write str
fd.close
%> </TABLE><DIV ALIGN="CENTER"><BR><BR><BR><SCRIPT LANGUAGE="javascript" SRC="../js/jokesort.js"></SCRIPT><BR> <BR><BR></DIV><HR SIZE="1"><BR><BR>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -