new.asp

教育管理系统

<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%
dim openfile,fd,ii,string
 Set openfile = Server.CreateObject("Scripting.FileSystemObject")
 set fd=openfile.createtextfile(server.MapPath("news.js"),1)
 string="document.write('" 
dim zhuinew,strSQL,news
strSQL ="SELECT * FROM learning ORDER BY dateandtime DESC"
Set zhuinew = Server.CreateObject("ADODB.Recordset")
zhuinew.open strSQL,Conn,0,1
news=1
if zhuinew.eof then
response.write "<font color='#0080C0' class='3dfont'>没有软件提供下载</font>"
else
do while not zhuinew.eof
if not zhuinew.eof then
string = string & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""3""><tr>      <td><img src=""IMAGES/88.gif""><a href="
string = string & rs1("urls")
string = string & "soft.asp?id="
string = string & zhuinew("articleid")
string = string & "&typeid="
string = string & zhuinew("typeid")
string = string & "&zhuid="
string = string & zhuinew("zhuid")
string = string & " target=""_blank"">"
string = string & zhuinew("title")
string = string & "</a>&nbsp;<font color=""#CCCCCC"" size=""1"">["
string = string & zhuinew("dateandtime")
string = string & "]</font></td></tr></table>"
zhuinew.movenext
  end if   
news=news+1
  if zhuinew.eof or news>rs1("sou") then    
    exit do    
    end if    
loop 
zhuinew.close
set zhuinew=nothing
end if
string=string & "')"
fd.write string
fd.close 
response.write "Ok!最新更新以生成静态脚本引入首页"
Conn.Close
Set Conn = nothing%>