www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\html_1.asp
<!--#include file="../conn.asp"--> <!--#include file="const.asp"--> <!--#include file="../inc/template.inc"--> <% Dim ChannelID,commentid commentid=NewAsp.ChkNumeric(Request("commentid")) ChannelID=NewAsp.ChkNumeric(Request("ChannelID")) If ChannelID=0 Then ChannelID=1 NewAsp.ChannelID=ChannelID NewAsp.LoadChannel() %> <!--#include file="news/show.asp"--> <% If ChannelID>0 And commentid>0 And NewAsp.CheckPost Then If CheckIsMakeHtml Then IsNowOutputText = False CurrentPage=1 Call CreatedHtml() If Pcount>1 Then For CurrentPage=2 To Pcount Call CreatedHtml() Next End If End If End If NewAsp.PageEnd() Sub CreatedHtml() If showid=0 Then Exit Sub Call Main() HtmlFilePath=NewAsp.CheckHtmlFilePath(HtmlFileName) NewAsp.CreatPathEx HtmlFilePath NewAsp.CreatedTextFile HtmlFileName,TPL_Memory TPL_Memory="" End Sub Function CheckIsMakeHtml() CheckIsMakeHtml=False If NewAsp.IsCreateHtml=0 Then Exit Function If Session("CommentHtml")<>"1" Then Exit Function Dim Rs Set Rs=NewAsp.Execute("SELECT ChannelID,postid,postime,postip FROM NC_Comment WHERE ChannelID="&ChannelID&" And commentid="&commentid) If Rs.BOF And Rs.EOF Then showid=0 CheckIsMakeHtml=False Else If DateDiff("s", Rs(2), Now())<0 Or DateDiff("s", Rs(2), Now())>60 Then showid=0 CheckIsMakeHtml=False Else ChannelID=Rs(0) showid=Rs(1) CheckIsMakeHtml=True End If End If Rs.Close:Set Rs=Nothing Session("CommentHtml")="" End Function %>