<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
- <%
- Rem 判断发言是否来自外部
- Public Function ChkPost()
- Dim server_v1, server_v2
- Chkpost = False
- server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
- server_v2 = CStr(Request.ServerVariables("SERVER_NAME"))
- 'sServer_v2 = CStr(Request.ServerVariables("HTTP_HOST")) 红色可区分http[s]协议
- If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then Chkpost = True
- End Function
- %>