<!--#include file="inc/conn.asp" -->
<%
'软件名称：MacCMS
'开发作者：MagicBlack    官方网站：http://www.maccms.com/
'--------------------------------------------------------
'适用本程序需遵循 CC BY-ND 许可协议
'这不是一个自由软件！您只能在不用于商业目的的前提下对程序代码进行修改和使用；
'不允许对程序代码以任何形式任何目的的再发布。
'--------------------------------------------------------
%>
<%
	objTemplate.html = getFileByCache("template_gbook", app_installdir & "template/" & app_templatedir & "/" & app_htmldir & "/gbook.html")
	Dim str, name, id
	id = be("get", "id"): id = chkSql(id, True)
	name = be("get", "name"): name = unescape(name): name = chkSql(name, True)
    appid=30
	str = "<div id=""maccms_gbook""><div style=""padding:5px;text-align:center;""><img src="""& app_installdir &"images/loading.gif""/> &nbsp;&nbsp;<strong>评论载入中，请稍候.....</strong></div></div>"
	str = str & "<script>getGbook('"&id&"','"&name&"');</script>"
	objTemplate.html = Replace(objTemplate.html, "{maccms:gbook}", str)
	objTemplate.mark
	objTemplate.ifEx
	objTemplate.run
	writeA objTemplate.html
	dispseObj()
%>