<!-- #Include File="Skin.asp" -->
<!-- #Include File="Inc_Review.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

ChannelIDs=Cls.Code_ID("c_id")
Call Channel_Loader()
Dim ReID,Ruser,RuserStr,RFile,HtmlUrl,HtmlFile
ReID=Cls.Code_ID("id")
Ruser=""
tit=Trim(Request.Querystring("tit"))

call DoWebHead(0,0)
	If Cls.ChannelModuleType=3 then
		RuserStr=""
	Else
		RuserStr=",A.username"
	End If
	Sql="Select top 1 A.ID"&RuserStr&",A.HtmlFileDate, C.HtmlFileDir from "&Cls.ChannelTable&" A INNER JOIn [AsaiMHClass] C ON A.ClassID=C.C_ID WHERE A.hidden=1 And A.ChannelIDs=" & ChannelIDs & " And A.id="&ReID
	Set rs=Cls.exec(Sql,1)
	If not rs.eof Then 
		If Cls.ChannelModuleType=3 then
			Ruser=""
		Else
			Ruser=Rs("username")
		End If
	End If
	If Cls.ChannelIsCreatHtml = True then
		HtmlFile = Cls.ReadFileName(Rs("HtmlFileDate"), Rs("ID"), Cls.ChannelHtmlExtName, Cls.ChannelHtmlPrefix, Cls.ChannelHtmlForm, "")
		HtmlUrl =Cls.Web_Dir& Cls.ChannelDir &"/"& Rs("HtmlFileDir") & Cls.ShowDatePath(Rs("HtmlFileDate"), Cls.ChannelHtmlPath) & HtmlFile
	Else
		HtmlUrl=Cls.Web_Dir&Cls.ChannelDir&"/View.asp?id="&Reid
	End if
	rs.Close
	Dim ReViewStr
	ReViewStr=review_type(ChannelIDs,ReID,HtmlUrl,1,Ruser,RScore)
	ReViewStr=Replace(Replace(ReViewStr,vbCrlf,"\n"),Chr(34),"\" & Chr(34))
	Response.Write "document.write (""" & ReViewStr & """);"
Call Web_Clear(1)
%>
