js.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Setting.asp"-->
<%
if InfoID=0 then Call Cl.OutMsg(0,"请指定评论ID！",ComeUrl)
if ChannelID=0 then Call Cl.OutMsg(0,"请指定频道ID",ComeUrl)
Cl.Get_WebSetting
Cl.ChkUserLogin
Cl.Get_ChannelSetting(ChannelID)
ModuleID=Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Call ShowCommentJs()

Sub ShowCommentJs()
	Dim JsStr,JsType,CommentNum
	JsType		= Lcase(Request("Type"))
	CommentNum	= Trim(Request("Num"))
	Select Case JsType
	Case "a"
		JsStr = ShowComment(ChannelID,InfoID,CommentNum) & "<br />" & WriteForm
	Case "w"
		JsStr = WriteForm
	Case else
		JsStr = ShowComment(ChannelID,InfoID,CommentNum)
	End Select
	JsStr = "document.write (""" & Replace(JsStr,Chr(34),"\" & Chr(34)) & """);"
	JsStr = Replace(JsStr,Vbcrlf,""");"& Vbcrlf&"document.write (""")
	response.write JsStr
	response.end
End Sub

Function WriteForm()
	Dim HTMLStr
	HTMLStr = Template.Read(TempLateJs)
	if Cl.UserID>0 then
	HTMLStr = Replace(HTMLStr,"{$username}",Cl.MemberName)
	HTMLStr = Replace(HTMLStr,"{$useremail}",Cl.User_Info(7))
	HTMLStr = Replace(HTMLStr,"{$isdisabled}"," disabled")
	else
	HTMLStr = Replace(HTMLStr,"{$username}","")
	HTMLStr = Replace(HTMLStr,"{$useremail}","")
	HTMLStr = Replace(HTMLStr,"{$isdisabled}","")
	end if
	HTMLStr = Replace(HTMLStr,"{$channelid}",ChannelID)
	HTMLStr = Replace(HTMLStr,"{$infoid}",InfoID)
	HTMLStr = Replace(HTMLStr,"{$webdir}",InstallDir)
	HTMLStr = Replace(HTMLStr,"{$usevalidcode}",UseValidCode)
	WriteForm = HTMLStr
End Function
%>