?? adminjs.asp
字號:
<!--#include file="head.asp" -->
<br><br><br>
<%
if request("action")="js" then
dim foolcat,title
dim rs,strsql
listinfo = Request("listinfo")
topnum = Request("topnum")
Select Case listinfo
Case 1
strSql="select top "&topnum&" article.articleid,article.title,article.dateandtime,article.hits,article.classid,article.Nclassid,ANclass.Nclass from article,ANclass where article.Nclassid=ANclass.Nclassid order by article.articleid desc"
Case 2
strSql="select top "&topnum&" article.articleid,article.title,article.dateandtime,article.hits,article.classid,article.Nclassid,ANclass.Nclass from article,ANclass where article.Nclassid=ANclass.Nclassid order by article.hits desc"
End Select
set rs = conn.Execute (StrSql)
do until rs.eof
if len(rs("title"))>16 then
title=left(rs("title"),16)+"..."
else
title=rs("title")
end if
foolcat = foolcat + "☉[<a href=index.asp?classid="&rs("classid")&"&Nclassid="&rs("Nclassid")&">"&rs("Nclass")&"</a>]<a href=list.asp?id="&rs("articleid")&" title="&rs("title")&">" & title & "</a><span class=b2>("&rs("dateandtime")&")</span><br>"
rs.MoveNext
loop
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout=fso.CreateTextFile(Server.MapPath("news.js"),True)
fout.WriteLine foolcat
'關閉連接
fout.close
set fout = nothing
rs.close
set rs = nothing
conn.close
set conn=nothing
response.write "<br><br><p align=center>生成JS文件成功!</p>"
response.end
end if
%>
<form name="form1" method="post" action="adminjs.asp?action=js">
<TABLE width="100%" border="0" cellpadding="3" cellspacing="3">
<TR>
<TD align="center">點擊開始生成按鈕開始生成JS文件,當看到成功信息時,gl文件夾中的new.js文件便會刷新!<br>
<br>
SQL = "顯示
<select name="listinfo">
<option value="1" selected>最新信息</option>
<option value="2">瀏覽排行</option>
</select>
最新
<select name="topnum">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10" selected>10</option>
</select>
條信息"<br>
<br>
<input type="submit" name="Submit" value="開始生成" class="buttonface">
</TD>
</TR>
</TABLE>
</form>
<!--#include file="copy.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -