防止站外提交数据函数，搭配使用验证码可以杜绝大多数的灌水机程序的自动发布。更严格的还应该从字段格式限制等全方面考虑。
<%
dim server_v1,server_v2
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
response.write ""
response.end
end if
%>👍 点赞
⭐ 收藏
🔗 分享
💬 评论 (1)
填写邮箱验证码用于确认邮箱归你所有；验证通过后该邮箱长期免验证，评论自动快速展示。未验证邮箱的评论一律人工复审。