|  | 
 
| <% '*************************************
 '防止外部提交
 '*************************************
 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
 
 
 
 
 
 | 
 |