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 = &quot;显示 
              <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>
              条信息&quot;<br>
              <br>
            <input type="submit" name="Submit" value="开始生成" class="buttonface">
          </TD>
</TR>
</TABLE>
</form>
<!--#include file="copy.asp" -->