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>