www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\link\const.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../common/const.asp"-->
<!--#include file="../inc/template.inc"-->
<%
Dim ErrMsg
FoundErr = False
Set TPL_XmlDom=NewAsp.CreateXmlDoc("msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
If Not TPL_XmlDom.load(NewAsp.TemplatePath&"link\config.xml") Then
	Response.Write "载入模板配置文件出错!"&NewAsp.TemplatePathh&"link\config.xml"
	Response.End
End If

Sub AlertScript(str,history)
	Response.Write "<script>alert('"&Replace(str, "'", "\'")&"');"
	If history=0 Then Response.Write "history.go(-1);"
	Response.Write "</script>"
	Response.End
End Sub
%>