www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\html_5.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=5
NewAsp.ChannelID=ChannelID
NewAsp.LoadChannel()
%>
<!--#include file="flash/show.asp"-->
<%
If ChannelID>0 And commentid>0 And NewAsp.CheckPost Then
	If CheckIsMakeHtml Then
		IsNowOutputText = False
		Call CreatedHtml()
	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

%>