|

- 帖子
- 11
- 威望
- 15 点
- 广潮币
- 60 元
|
我的網頁asp碼
請高手幫我分析一下 謝謝
<[email=%@LANGUAGE=]%@LANGUAGE="VBSCRIPT[/email]" CODEPAGE="950"%>
<% Option Explicit
dim time1
time1=timer
Response.Buffer = True
Private m_lOnBits(30)
Private m_l2Power(30)
indexfilename=Request.ServerVariables("PATH_TRANSLATED")
indexfilename=right(indexfilename,(len(indexfilename)-instrRev(indexfilename,"\")))
%>
<!--#include file="CONN.ASP"-->
<%
dim action,action_e,forumid
forumid = reStr(Request("forumid"))
action = reStr(Request.QueryString("action"))
action_e = reStr(Request.Form("action_e"))
if not IsNumeric(forumid) or forumid="" then
set rs=conn.execute("select id from forum order by jd_order asc",0,1)
if not rs.eof then forumid=rs(0)
rs.close
set rs=nothing
else
forumid =reSZ(forumid)
end if
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
call msg_List("非法操作","禁止從站點外部提交資料!",3,indexfilename)
end if
end if |
|