28,391
社区成员
发帖
与我相关
我的任务
分享
Sub illegal_post()
Dim server_v1
Dim 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 "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "o(∩_∩)o...请不要从外部提交数据噢!<br>"
response.write " <font color=red>FoxStudio(SMU)</font>提供技术支持."
response.write "</td></tr></table></center>"
response.end
end if
End Sub