[點晴永久免費OA]asp實現防止站外提交內容的兩個方法
當前位置:點晴教程→點晴OA辦公管理信息系統
→『 經驗分享&問題答疑 』
方式一:
代碼如下: <%
Function IsSelfRefer() Dim formUrl,relUrl formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER"))) If formUrl="" Then IsSelfRefer = False Else relUrl="http://" & Trim(Request.ServerVariables("SERVER_NAME")) If (formUrl<>relUrl) Then IsSelfRefer = False Else IsSelfRefer = True End If End If End Function %> 方式二: 代碼如下: <%
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 %> 該文章在 2022/7/4 11:29:22 編輯過 |
關鍵字查詢
相關文章
正在查詢... |