ASP

效果圖:複製代碼 代碼如下: <% 'Response.Buffer = FALSE Server.ScriptTimeOut=999999999 Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"jec"&"t") %> <% sPath=replace(request("sPath"),"/","\") ShowPath="" if sPath="" then

下面給出4個函數，足夠你抵擋一切SQL注入漏洞！讀懂代碼，你就能融會貫通。 注意要對所有的request對象進行過濾：包括 request.cookie, request.ServerVariables 等等容易被忽視的對象： 程式碼 複製代碼 代碼如下: function killn(byval s1) '過濾數值型參數 if not isnumeric(s1) then　 killn=0 else if s1〈0 or s1〉2147483647 then　 killn=0 else

複製代碼 代碼如下: <% Dim CC_Info(4),strInfo,strTemp If Session("CC_Info") = "" Then CC_Info(0) = "cclog.txt" '記錄檔名 CC_Info(1) = Request.ServerVariables("HTTP_X_FORWARDED_FOR") CC_Info(2) = Request.ServerVariables("REMOTE_ADDR") CC_Info(3) = 10

1 應用程式定義的錯誤或對象定義的錯誤。 2 應用程式定義的錯誤或對象定義的錯誤。 3 此錯誤號碼已淘汰，不再使用。 5 程序呼叫或參數無效。 6 溢出。 7 記憶體不足。 9 下標超出範圍。 10 此數組被固定或臨時鎖定。 11 被零除。 13 類型不符。 14 字串空間不足。 16 運算式過於複雜。 17 無法執行請求的操作。 18 發生了使用者中斷。 20 無錯誤繼續執行。 28 堆棧空間不足。 35 未定義 Sub 或 Function。 47 DLL 應用程式用戶端太多。 48 載入

一、禁止指定IP防問網站,並執行相應操作: 複製代碼 代碼如下: <% Dim IP,IPString,VisitIP '設定IP地址，用“|”隔開 IPString="|192.168.0.42|192.168.0.43|" '擷取IP地址 IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") End If

這是個批次檔，複製下來儲存為RepairASP.bat執行即可~ echo 正在修複，這個過程可能需要幾分鐘，請稍候…… 複製代碼 代碼如下: rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\Catroot\icatalog.mdb regsvr32 /s comcat.dll

複製代碼 代碼如下:'過程：輸出字串[代替Response.Write] Sub echo(Str) response.Write(Str) End Sub '函數：擷取表單[代替Request.Form] Function reqf(Str) reqf = Request.Form(Str) End Function '過程：結束頁面並輸出字串 Sub die(Str) response.Write(Str) response.End() End Sub

asp判斷伺服器是否安裝了某個組件，也就是是否安裝了某個dll檔案，判斷某個組件是否在伺服器註冊了，asp組件很多，它的判斷可以減少很多asp錯誤，主要是用下面的函數： 複製代碼 代碼如下: <% '功能:檢查是否存在系統組件或組件是否安裝成功 '參數:組件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set

1. 支援參數純漢字 ?a=深山老熊 2. 支援參數gb2312 Urlencode編碼： ?a=%C9%EE%C9%BD%C0%CF%D0%DC 3. 支援參數UTF-8 Urlencode編碼: ?a=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A 複製代碼 代碼如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit Const YXCMS_CHARSET = "UTF-8"

看代碼： 複製代碼 代碼如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim conn,rs,excelFileName excelFileName=Server.MapPath("Data/test.xls") set conn = Server.CreateObject("ADODB.Connection")

其實這類問題就是因為緩衝問題，大家可以參考下面的方法解決:有些ASP頁面第一次開啟的時候會出現Response 對象 錯誤 'ASP 0156 : 80004005' HTTP 頭錯誤，但重新整理後又正常了，解決方案如下複製代碼 代碼如下: Response.Buffer = True '應該是這行,去掉就ok '如果還不行就把 Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0

這兩天接到通知，說公司的一個網站訪問不了，經訪問發現頁面提示如下錯誤： 複製代碼 代碼如下: msxml3.dll 錯誤 '80072ee7' The server name or address could not be resolved

代碼如下： 複製代碼 代碼如下: Function ReplaceEx(strOri,replStr) Set regEx=New RegExp regEx.Global=True regEx.MultiLine=True regEx.Pattern="\r\n" regEx.IgnoreCase=True ReplaceEx=regEx.Replace(strOri,replStr) End Function shuoming=replace(rs("shuoming"),"

Eval 計算一個運算式的值並返回結果。 文法：[result = ]eval_r(expression_r) expression_r 為任意有效 VBScript 運算式的字串 樣本： 複製代碼 代碼如下: response.Write(eval_r("3+2")) '輸出 5 "3+2" 使用引號括起來，表示是一個字串，但是在 Eval “眼裡”，把它當作一個運算式 3+2 來執行。 Execute 執行一個或多個指定的語句。多個語句間用冒號（:）隔開。 文法：Execute

複製代碼 代碼如下:<% webfolder="/" host="index_cn.asp"'前台動態地址 folder="/"'檔案夾 filename="index_cn.html"'產生靜態檔案名稱 Fso_info host,folder,filename response.write"產生網站中文首頁靜態HTML完成.<br />" '產生html Function Fso_info(host,folder,filename)

這個屬性的伺服器預設值是90，單位是秒，我們可以通過這樣的代碼輸出這個值： 複製代碼 代碼如下: <% Response.Write Server.ScriptTimeOut Response.Write " Http://www.jb51.net" %> 由於IIS預設的ScriptTimeout值是90秒（其實是在IIS Metabase中設定的），所以我們可以在我們的程式中改變這個值： 複製代碼 代碼如下: <%Server.ScriptTimeOut=100%>

複製代碼 代碼如下: <% '============================================================ ' 檔案名稱 : /Cls_Json.asp ' 檔案作用 : 系統JSON類檔案 ' 檔案版本 : VBS JSON(JavaScript Object Notation) Version 2.0.2 ' 程式修改 : Cloud.L ' 最後更新 : 2009-05-12 '===============================

文法說明： Filter 函數 返回下標從零開始的 數組，其中包含以特定過濾條件為基礎的字串數組的子集。 Filter(InputStrings, Value[, Include[, Compare]]) 參數 InputStrings 必選項。一維數組，要在其中搜尋字串。 Value 必選項。要搜尋的字串。 Include 可選項。Boolean 值，指定返回的子字串是否包含 Value。如果 Include 為 True，Filter 將返回包含子字串 Value 的數組子集。如果

複製代碼 代碼如下:'================================================ ' 函數名：ChkMapPath ' 作 用：相對路徑轉換為絕對路徑 ' 參 數：strPath ----原路徑 ' 傳回值：絕對路徑 '================================================ Function ChkMapPath(ByVal strPath) Dim fullPath strPath =

複製代碼 代碼如下: <% '//hittime 日期型：獲得上次訪問時間 '//hits 數字型：獲得總瀏覽量 '//hitsday 數字型：獲得今天瀏覽量 '//hitsweeks 數字型：獲得本周瀏覽量 '//hitmonths 數字型：獲得本月瀏覽量 '資料庫中 添加這5個欄位。 set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from qwbmnewssss where id=26",conn,1