error.asp

来自「一个asp写的论坛源代码,论坛所需要的功能都有」· ASP 代码 · 共 55 行

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim Message,Message1,Message2
Dim X1,X2,Fid,Tmp
Message=Request.QueryString("message")
Message1=Request.QueryString("message1")
Message2=Request.QueryString("message2")
team.Headers("信息提示页面")
X1="论坛提示信息"
X2=""
Echo team.MenuTitle
tmp = Team.ElseHtml (6)
tmp = HtmlEncode(tmp)
If Message&""="" Then
	tmp = TempCode(tmp,"hide")
Else
	tmp = BlackTmp(tmp,"hide")
End if
If Message1&""="" Then
	tmp = TempCode(tmp,"clear")
Else
	tmp = BlackTmp(tmp,"clear")
End if
If Message2&""="" Then
	tmp = TempCode(tmp,"msg")
Else
	tmp = BlackTmp(tmp,"msg")
End if
tmp = iHtmlEncode(tmp)
tmp = Replace(tmp,"{$clubname}",Team.Club_Class(1))
If Chkpost Then
	tmp = Replace(tmp,"{$message}",Message)
	tmp = Replace(tmp,"{$message1}",Message1)
	tmp = Replace(tmp,"{$message2}",Message2)
Else
	tmp = Replace(tmp,"{$message}","来源错误")
	tmp = Replace(tmp,"{$message1}","来源错误")
	tmp = Replace(tmp,"{$message2}","来源错误")
End if
Echo tmp
If Message2&"" = "" Then 
	Team.Footer
End If

Function Chkpost()
	If team.Forum_setting(49) = 1 then
		Dim server_v1,server_v2
		Chkpost=False 
		server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
		server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
		If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True
	End If
End Function
%>