📄 gennews.asp
字号:
<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<%
oConn_Start
strInterTicket = GetInterTicket()
'创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
sql = "select * from Sm_Content Where 1=1"
Set oRs = oConn.Execute(sql)
While Not oRs.Eof
NewsId = oRs("NewsId")
NewsType = oRs("NewsType")
Title = oRs("Title")
Addtime = oRs("DateCreated")
ClickStat = oRs("ClickStat")
Content = oRs("Content")
strOut = ""
strOut = strOut + "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""& vbCrLf
strOut = strOut + """http://www.w3.org/TR/html4/loose.dtd"">"& vbCrLf
strOut = strOut + "<html>"& vbCrLf
strOut = strOut + "<head>"& vbCrLf
strOut = strOut + "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"& vbCrLf
strOut = strOut + "<title>"&Title&"|上海神马航空票务中心021-51099919</title>"& vbCrLf
strOut = strOut + "<link href=""../style.css"" rel=""stylesheet"" type=""text/css"">"& vbCrLf
strOut = strOut + "<style type=""text/css"">"& vbCrLf
strOut = strOut + "<!--"& vbCrLf
strOut = strOut + ".style1 {"& vbCrLf
strOut = strOut + " font-size: 16px;"& vbCrLf
strOut = strOut + " font-weight: bold;"& vbCrLf
strOut = strOut + " color: #000000;"& vbCrLf
strOut = strOut + "}"& vbCrLf
strOut = strOut + ".style4 {"& vbCrLf
strOut = strOut + " color: #0066CC;"& vbCrLf
strOut = strOut + " font-size: 18px;"& vbCrLf
strOut = strOut + " font-weight: bold;"& vbCrLf
strOut = strOut + "}"& vbCrLf
strOut = strOut + "-->"& vbCrLf
strOut = strOut + "</style>"& vbCrLf
strOut = strOut + "</head>"& vbCrLf
strOut = strOut + "<body>"& vbCrLf
strOut = strOut + GetWebTop("3")
strOut = strOut + "<table width=""780"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " "& vbCrLf
strOut = strOut + " <td valign=""top"" width=""780"">"& vbCrLf
strOut = strOut + " <table width=""780"" border=""0"" cellspacing=""0"" cellpadding=""0""> "& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td><img src="""&strSite&"images/5.gif"" width=""1"" height=""5""></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td class=""orgborder""><table width=""100%"" height=""355"" border=""0"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td valign=""top""><table width=""99%"" align=""center"" cellpadding=""5"" cellspacing=""2"">"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td width=""660""><div align=""center"" class=""style4"">"&Title&"<hr width=""550"">"& vbCrLf
strOut = strOut + " </div>"& vbCrLf
strOut = strOut + " <div align=""center""><a href=""http://"&WebSite&""">http://"&WebSite&"</a> 时间："&Addtime&" </div></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td><p> "&Content&" </p></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td><div align=""right""> 阅读次数：<script src="""&strSite&"html/DisplayHitNum.asp?NewsId="&NewsId&""" language=""javascript""></script> </div></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td><div align=""right""><a href="""&strSite&"html/gongao.asp?NewsType="&NewsType&"""><img src="""&strSite&"images/tree.gif"" width=""65"" height=""22"" border=""0""></a> </div></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " </table></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td><img src="""&strSite&"images/5.gif"" width=""1"" height=""5""></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " </table></td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " </table></td>"& vbCrLf
strOut = strOut + " <td valign=""top"" width=""180""><table cellpadding=""3"">"& vbCrLf
strOut = strOut + " <tr><td>"& vbCrLf
'strOut = strOut + " <table width=""168"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""greyborder"">"& vbCrLf
'strOut = strOut + " <tr>"& vbCrLf
'strOut = strOut + " <td height=""25"" background="""&strSite&"images/grey_bk.gif""> <strong>上海国际机票特别推荐</strong></td>"& vbCrLf
'strOut = strOut + " </tr>"& vbCrLf
'strOut = strOut + " <tr>"& vbCrLf
'strOut = strOut + " <td>"&strInterTicket&"</td>"& vbCrLf
'strOut = strOut + " </tr>"& vbCrLf
'strOut = strOut + " </table>"& vbCrLf
strOut = strOut + " </td></tr></table></td>"& vbCrLf
strOut = strOut + " "& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td valign=""top""> </td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + " <tr>"& vbCrLf
strOut = strOut + " <td valign=""top"" colspan=""2""> </td>"& vbCrLf
strOut = strOut + " </tr>"& vbCrLf
strOut = strOut + "</table>"& vbCrLf
strOut = strOut + GetWebBottom()
strOut = strOut + "</body></html>"
'创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath("../kgNews/"&NewsId&".htm"),true)
'写入网页内容
f.WriteLine strOut
f.close
set f=Nothing
Response.Write "生成"&NewsId&".htm静态页成功！<br>"
Response.Flush()
oRs.MoveNext
Wend
set fso=Nothing
oRs.Close
Set oRs = Nothing
oConn_Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -