📄 inc.asp

📁 1
💻 ASP
字号:
<%
'****************************************************
'过程名：WriteErrMsg
'作  用：显示错误提示信息
'参  数：无
'****************************************************
sub WriteErrMsg(errmsg)
	dim strErr
	strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
	strErr=strErr & "<link href='"&InstallDir&"Images/Admin/admin.css' rel='stylesheet' type='text/css'><meta http-equiv=refresh content=5;url=""javascript:history.go(-1)""></head><body>" & vbcrlf
	strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=600 class='KenQiao_Net_bk' align=center>" & vbcrlf
	strErr=strErr & "  <tr align='center' class='KenQiao_Net_ss'><td height='22'><strong>错误信息</strong></td></tr>" & vbcrlf
	strErr=strErr & "  <tr class='KenQiao_Net_ds'><td height='100' valign='top'><b>产生错误的可能原因：</b><br>" & errmsg &"</td></tr>" & vbcrlf
	strErr=strErr & "  <tr align='center' class='KenQiao_Net_qs'><td>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]   " & vbcrlf
	strErr=strErr & "  <a href=""Http://"&FY_Config(3)&"/"&InstallDir&"/Admin_Login.Asp"" target=""_top"">&lt;&lt; 返回登录页面</a></td></tr>" & vbcrlf
	strErr=strErr & "</table>" & vbcrlf
	strErr=strErr & "</body></html>" & vbcrlf
	response.write strErr
end sub
'**************************************************
'过程名：WriteSuccessMsg
'作  用：显示成功提示信息
'参  数：无
'**************************************************
Sub WriteSuccessMsg(sSuccessMsg, sComeUrl)
    If sComeUrl="" Then
    sComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
    End if
    Response.Write "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    Response.Write "<link href='"&InstallDir&"Images/Admin/admin.css' rel='stylesheet' type='text/css'><meta http-equiv=refresh content=5;url="""&sComeUrl&"""></head><body><br><br>" & vbCrLf
    Response.Write "<table cellpadding=2 cellspacing=1 border=0 width=400 class='KenQiao_Net_bk' align=center>" & vbCrLf
    Response.Write "  <tr align='center' class='KenQiao_Net_ss'><td height='22'><strong>恭喜你！</strong></td></tr>" & vbCrLf
    Response.Write "  <tr class='KenQiao_Net_ds'><td height='100' valign='top'><br>" & sSuccessMsg & "</td></tr>" & vbCrLf
    Response.Write "  <tr align='center' class='KenQiao_Net_qs'><td>"
    Response.Write "<a href='" & sComeUrl & "'>&lt;&lt; 进入目标页</a>"
    Response.Write "  [<a href=# onclick=history.go(-1)> 返回上一页 </a>] "
    Response.Write "<a href='javascript:window.close();'>【关闭】</a>"
    Response.Write "</td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</body></html>" & vbCrLf
End Sub

'==============================
'名称：网站开放验证
'==============================
Sub SiteCheck()
If FY_Config(13)=1 Then
    Response.Write FY_Config(14)
End if
End Sub
'==============================
'名称：来源验证
'==============================
Sub CheckUrl()
    Dim From_url,Serv_url
	From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) 
	Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) 
	If Mid(From_url,8,Len(Serv_url)) <> Serv_url Then 
    Response.Write "<html><head><title>来源验证错误！</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    Response.Write "<link href='"&InstallDir&"Images/Admin/admin.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbCrLf
    Response.Write "<table cellpadding=2 cellspacing=1 border=0 width=400 class='KenQiao_Net_bk' align=center>" & vbCrLf
    Response.Write "  <tr align='center' class='KenQiao_Net_ss'><td height='22'><strong>来源验证错误！</strong></td></tr>" & vbCrLf
    Response.Write "  <tr class='KenQiao_Net_ds'><td height='100' valign='top'><br><br><li>您所操作的页面不允许从外界提交数据，请进行正常提交的操作......</li></td></tr>" & vbCrLf
    Response.Write "  <tr align='center' class='KenQiao_Net_qs'><td>"
    Response.Write "  <a href=""/"&InstallDir&"/"" target=""_top"">&lt;&lt; 返回首页页面</a>  [<a href=# onclick=history.go(-1)> 返回上一页 </a>] "
    Response.Write "<a href='javascript:window.close();'>【关闭】</a>"
    Response.Write "</td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</body></html>" & vbCrLf
	Call CloseConn()
	Response.End
	End If
End Sub
'==============================
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -