gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\WebEdit\UploadFile\CreateJS2.asp
<!--#include file=conn.asp --> <!--#include file=session.asp--> <% NewsNum=Request.Form("NewsNum") NewsLength=Request.Form("NewsLength") BigClassID=Request.Form("BigClassID") FileType=Request.Form ("FileType") if trim(NewsNum)="" or not IsNumeric(trim(NewsNum)) then %> <script language=javascript> history.back() alert("请输入需要显示的新闻条数!") </script> <% Response.End end if if trim(NewsLength)="" or not IsNumeric(trim(NewsLength)) then %> <script language=javascript> history.back() alert("请输入需要显示的新闻长度!") </script> <% Response.End end if if BigClassID=0 or trim(BigClassID)="" then %> <script language=javascript> history.back() alert("请选择新闻大类,如果没有新闻大类,将不能添加新闻,请在类别管理里添加您所需要的新闻大类的名称!") </script> <% Response.End end if set rs=server.CreateObject("adodb.recordset") rs.Source="select top " & NewsNum &" NewsID,Title,BigClassID,SmallClassID,UpdateTime from News where (BigClassID=" & BigClassID & ") order by NewsID DESC" rs.Open rs.Source,conn,1,1 set fs=server.CreateObject("Scripting.FileSystemObject") if FileType="ASP" then FilePath=server.MapPath("update/NewsLastUpdate"&"-"& BigClassID &".asp") set JSFile=fs.CreateTextFile(FilePath) JSFile.writeline("<table cellpadding=2 cellspacing=0 border=0 >") while not rs.EOF Title=trim(rs("Title")) JSFile.writeline(" <tr>") JSFile.writeline(" <td width=100% >") Title=mid(Title,1,NewsLength) StrNews=" <a title=" & trim(rs("Title")) & " href=ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassID=" & rs("BigClassId") & "&SmallClassID=" & rs("SmallClassID") & " target=_blank><img src='../pic/news.gif' border=0> " & Title & "(" & YEAR(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) &"-"& Day(rs("UpdateTime")) & ")</a>" if Year(rs("UpdateTime"))=Year(Date()) and Month(rs("UpdateTime"))=Month(Date()) and Day(rs("UpdateTime"))=Day(Date()) then StrNews=StrNews+"<img src='../pic/new.gif'>" end if JSFile.writeline StrNews JSFile.writeline(" </td>") JSFile.writeline(" </tr>") rs.MoveNext wend JSFile.writeline("document.write(""</table>"")") else FilePath=server.MapPath("update/NewsLastUpdate"&"-"& BigClassID &".js") set JSFile=fs.CreateTextFile(FilePath) JSFile.writeline("document.write(""<table cellpadding=2 cellspacing=0 border=0>"")") while not rs.EOF Title=trim(rs("Title")) JSFile.writeline("document.write("" <tr>"")") JSFile.writeline("document.write("" <td width=100% >"")") Title=mid(Title,1,NewsLength) StrNews=" <a title=" & trim(rs("Title")) & " href=ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassID=" & rs("BigClassId") & "&SmallClassID=" & rs("SmallClassID") & " target=_blank><img src='../pic/news.gif' border=0> " & Title & "(" & Year(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) &"-"& Day(rs("UpdateTime")) & ")</a>" if Year(rs("UpdateTime"))=Year(Date()) and Month(rs("UpdateTime"))=Month(Date()) and Day(rs("UpdateTime"))=Day(Date()) then StrNews=StrNews+"<img src='../pic/new.gif'>" end if JSFile.writeline("document.write(""" & StrNews & """)") JSFile.writeline("document.write("" </td>"")") JSFile.writeline("document.write("" </tr>"")") rs.MoveNext wend JSFile.writeline("document.write(""</table>"")") end if rs.Close set rs=nothing conn.close set conn=nothing set JSFile=nothing set fs=nothing %> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="css/bodystyle.css" rel="stylesheet" type="text/css"> </head> <body> <p> </p> <table border="0" width="588" align=center> <tr> <td colspan="2" width="588"><b>首页调用文件生成模块</b></td> </tr> <tr> <td colspan="2" width="588"> <hr size="1"> </td> </tr> <%if FileType="JS" then %> <tr> <td width="588" colspan=2>已经生成NewsLastUpdate.JS,请在首页用调用该文件!</td> </tr> <tr> <td width="588" colspan=2> <textarea name="textarea" cols="60" rows="5"><% Response.write "<script src=admin/update/NewsLastUpdate"&"-"& BigClassID &".js></script>" %></textarea></td> </tr> <%else%> <tr> <td width="588" colspan=2>已经生成NewsLastUpdate.ASP,请在首页用调用该文件!</td> </tr> <tr> <td width="588" colspan=2> <textarea name="textarea" cols="60" rows="5"><% Response.write "<!--#include file=admin/update/NewsLastUpdate"&"-"& BigClassID &".asp-->" %></textarea></td> </tr> <%end if%> <tr> <td width="588" colspan=2><hr size=1></td> </tr> </table> </body> </html>