asp實現(xiàn)防止從外部提交數(shù)據(jù)的三種方法腳本之家補充
更新時間：2023年05月12日 01:24:08 投稿：mdxy-dxy
這篇文章主要介紹了asp實現(xiàn)防止從外部提交數(shù)據(jù)的三種方法,需要的朋友可以參考下
防止從外部提交數(shù)據(jù)的方法
第一種
只支持http不支持https
Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function支持https但不支持http的，簡單修改一下
Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 9, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function腳本之家小編修改的
Function IsSelfRefer()
Dim sHTTP_REFERER,sSERVER_NAME,sSERVER_NAME_Refer
sHTTP_REFERER = Cstr(trim(Request.ServerVariables("HTTP_REFERER")))
sSERVER_NAME = Cstr(trim(Request.ServerVariables("SERVER_NAME")))
'sSERVER_NAME_Refer = Mid(sHTTP_REFERER, 9, Len(sSERVER_NAME)) https 8針對http
If sHTTP_REFERER<>"" then
sSERVER_NAME_Refer = split(sHTTP_REFERER,"/")(2)
if sSERVER_NAME = sSERVER_NAME_Refer then
IsSelfRefer = True
else
IsSelfRefer = false
End if
Else
IsSelfRefer = false
End if
End Function調(diào)用方法
if isSelfRefer() then response.write "ok!" else response.write "去你的!" end if
把以上代碼放到aa.asp,如果是直接輸入網(wǎng)址或者是從外部網(wǎng)部鏈接到本站,http://doamain/aa.asp 就會顯示"去你的",
如果系從本站鏈接到aa.asp,或通過表單提交到aa.asp,將會顯示ok
可以防止一些偽造表單向站內(nèi)提交數(shù)據(jù)
check_out_post.asp
<!--使用該頁進行表單的驗證，只需在需驗證頁包含該頁即可.-->
<%
Function check_addr()
Dim server_v1,server_v2
check_addr=False
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Cstr(Mid(server_v1,8,Len(server_v2)))<>Cstr(server_v2) Then
check_addr=False
Else
check_addr=True
End If
End function
Function check_post()
Dim val
val="post" '指定提交方式
check_post=False
If Lcase(Request.ServerVariables("Request_Method"))=val Then
check_post=True
Else
check_post=False
End if
End Function
'以下是調(diào)用函數(shù)進行檢測，如果不滿足條件則不執(zhí)行該網(wǎng)頁，否則為通過。
If check_addr()=False Then
response.write "請不要使用外部表單提交數(shù)據(jù)."
response.End
End If
If check_post()=False Then
response.write "請使用POST方式提交表單數(shù)據(jù)"
response.End
End If
%>第二種
<%
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 "警告！你正在從外部提交數(shù)據(jù)?。≌埩⒓唇K止??！"
Response.End
End if
%>PHP防止站外提交數(shù)據(jù)的方法
<?
$servername=$HTTP_SERVER_VARS['SERVER_NAME'];
$sub_from=$HTTP_SERVER_VARS["HTTP_REFERER"];
$sub_len=strlen($servername);
$checkfrom=substr($sub_from,7,$sub_len);
if($checkfrom!=$servername){
echo("警告！你正在從外部提交數(shù)據(jù)??！請立即終止?。?);
exit;
}
?>下面是幾種補充看看就可以了
第三種
做法，屏蔽特殊字符和關(guān)鍵字
fqys=request.servervariables("query_string")?
dim?nothis(18)?
nothis(0)="net?user"?
nothis(1)="xp_cmdshell"?
nothis(2)="/add"?
nothis(3)="exec%20master.dbo.xp_cmdshell"?
nothis(4)="net?localgroup?administrators"?
nothis(5)="select"?
nothis(6)="count"?
nothis(7)="asc"?
nothis(8)="char"?
nothis(9)="mid"?
nothis(10)="'"?
nothis(11)=":"?
nothis(12)=""""?
nothis(13)="insert"?
nothis(14)="delete"?
nothis(15)="drop"?
nothis(16)="truncate"?
nothis(17)="from"?
nothis(18)="%"?
errc=false?
for?i=?0?to?ubound(nothis)?
if?instr(FQYs,nothis(i))<>0?then?
errc=true?
end?if?
next?
if?errc?then?
response.write?"<script?language=""javascript"">"?
response.write?"parent.alert('很抱歉!你正在試圖攻擊本服務(wù)器或者想取得本服務(wù)器最高管理權(quán)!將直接轉(zhuǎn)向首頁..');"?
response.write?"self.location.href='default.asp';"?
response.write?"</script>"?
response.end?
end?if?第四種
可以防止客戶從本地提交到網(wǎng)站上
<%?
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?"你提交的路徑有誤，禁止從站點外部提交數(shù)據(jù)請不要亂該參數(shù)！"?
response.write?"</td></tr></table></center>"?
response.end?
end?if?
%>第五種
這樣可以防止在輸入框上打上or 1=1 的字樣
If?Instr(request("username"),"=")>0?or?
Instr(request("username"),"%")>0?or?
Instr(request("username"),chr(32))>0?or?
Instr(request("username"),"?")>0?or?
Instr(request("username"),"&")>0?or?
Instr(request("username"),";")>0?or?
Instr(request("username"),",")>0?or?
Instr(request("username"),"'")>0?or?
Instr(request("username"),"?")>0?or?
Instr(request("username"),chr(34))>0?or?
Instr(request("username"),chr(9))>0?or?
Instr(request("username")," ")>0?or?
Instr(request("username"),"$")>0?or?
Instr(request("username"),">")>0?or?
Instr(request("username"),"<")>0?or?
Instr(request("username"),"""")>0?then?
response.write?"<script?language=""javascript"">"?
response.write?"parent.alert('很抱歉!你正在試圖攻擊本服務(wù)器或者想取得本服務(wù)器最高管理權(quán)!將直接轉(zhuǎn)向首頁..');"?
response.write?"self.location.href='default.asp';"?
response.write?"</script>"?
response.end?
end if到此這篇關(guān)于asp實現(xiàn)防止從外部提交數(shù)據(jù)的三種方法的文章就介紹到這了,更多相關(guān)asp判斷外部提交數(shù)據(jù)內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！
相關(guān)文章
面向小白visual studio 2019 添加第三方庫教程(入門)
這篇文章主要介紹了面向小白visual studio 2019 添加第三方庫教程，文中通過圖文介紹的非常詳細，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
ASPJPEG學(xué)習(xí)手記...2006-08-08
ASP保存遠程圖片到本地 同時取得第一張圖片并創(chuàng)建縮略圖的代碼
采集中 或者 在線添加文章中 都可以用到此功能2008-10-10
這篇文章主要介紹了ASP的chr(0)文件上傳漏洞原理和解決方法介紹,chr(0)漏洞在上傳文件時可以繞過擴展名驗證,是一個危害非常大的漏洞,需要的朋友可以參考下2014-06-06
全面優(yōu)化ASP應(yīng)用程序的性能的方法...2007-03-03
關(guān)于無限分級(ASP+數(shù)據(jù)庫+JS)的實現(xiàn)代碼
關(guān)于無限分級(ASP+數(shù)據(jù)庫+JS)的實現(xiàn)代碼...2007-05-05
ASP將Excel數(shù)據(jù)導(dǎo)入到SQLServer的實現(xiàn)代碼
ASP將Excel數(shù)據(jù)導(dǎo)入到SQLServer的代碼,有點亂，大家根據(jù)需要自己查找下。2010-04-04
使用ASP實現(xiàn)網(wǎng)站的“目錄樹”管理的代碼
使用ASP實現(xiàn)網(wǎng)站的“目錄樹”管理的代碼...2007-09-09
asp+Access通用的自動替換數(shù)據(jù)庫中的字符串
幾年前寫的一個腳本，可以自動進行整庫的數(shù)據(jù)替換。2008-06-06
asp實現(xiàn)過濾關(guān)鍵字的函數(shù)
asp實現(xiàn)過濾關(guān)鍵字的函數(shù)...2007-08-08