禁止站外提交表单

'函数名：ChkPost
'作 用：禁止站外提交表单
'返回值：true站内提交，flase站外提交
'参数:链接串
function ChkPost()
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=False
else
chkpost=True
end If
end Function

'使用方法
If Not ChkPost() Then
showErrorImg = true
End If