ASP

寫法一： 複製代碼 代碼如下: <% Sub sendsms(mobile,msg) '如需要發送多個手機號，請自動迴圈，多個手機號之間用“,”分隔，最後手機號碼後不加,號 '或調用我們 HttpInterfaceMore.aspx 介面，後跟參數一樣或調用我們的webservers介面 dim userid,password,username,sms,status dim xmlObj,httpsendurl '請添寫您的帳號密碼 sms="平台" username="使用者名稱"

下面是我從網上找到三種ASP分頁時計算頁面總數的方法，此方法僅為分頁時計算頁面總數，並非整個分頁代碼： 方法一 複製代碼 代碼如下: ' HTMer_RecordCount為要計算的頁面總數 ' HTMer_RecordCount為記錄集數 ' HTMer_PageSize為每頁記錄數 If HTMer_RecordCount Mod HTMer_PageSize=0 Then HTMer_PageCount=Int(HTMer_RecordCount/HTMer_PageSize) Else

下面這段代碼，不會替換ld<sad中間的<，所以內容仍然是正常的 複製代碼 代碼如下: <% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)"

複製代碼 代碼如下: '擷取參數值 Function getForm(element,ftype) Select case ftype case "get" getForm=trim(request.QueryString(element)) case "post" getForm=trim(request.Form(element)) case "both" if isNul(request.QueryString(element)) then

最近打算嘗試一下在ASP中實現MVC架構，肯定有人問我：ASP都淘汰了，為什麼還研究？這點我也知道，自從微軟放棄ASP 3.0轉向ASP.NET後，ASP已經遠遠落後於和它幾乎同時開始的PHP和JSP，開源比閉源的好處就像PHP和ASP一樣，ASP說淘汰就淘汰，誰也救不了，但是值得注意的是ASP在中國市場還是蠻廣泛的，尤其是一些中小企業的一些應用，簡單的CMS不在話下，而且部署簡單，在一些老舊的Windows系統上，不需要安裝.NET Framework基本上就可以直接運行了，所以準備一個架構，

今天Demon 提到了這個問題，正好想到之前看到的一篇文章《Automatic file upload using IE+ADO without user interaction - VBSscript》 。這篇文章給出了本地無互動自動上傳指令碼的樣本，正好今天可以借來一用，原指令碼利用了InternetExplorer.Application組件，我改寫了一下，用WinHttp.WinHttpRequest.5.1實現了類似的功能，關於這個組件更多的用法請參考《WinHttpRequest

複製代碼 代碼如下: <% ''擷取訪問者的地址 ip=Request.ServerVariables("REMOTE_ADDR") ''允許的IP位址區段為10.0.0.0～10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.writecheckip(ip,allowip1,allowip2) functioncheckip(ip,allowip1,allowip2) dimcheck(4)

複製代碼 代碼如下:<% class SQLString '************************************ '變數定義 '************************************ 'sTableName ---- 表名 'iSQLType ----SQL語句類型：0-增加，1-更新，2-刪除,3-查詢 'sWhere ---- 條件 'sOrder ---- 排序方式 'sSQL ----值 Private sTableName,iSQLType,

今天遇到個問題，一個ASP網站產生靜態頁面時報錯： Microsoft VBScript 執行階段錯誤 錯誤 '800a01ad' ActiveX 組件不能建立對象: 'Scripting.FileSystemObject'

效果圖:複製代碼 代碼如下: <% '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

這是個批次檔，複製下來儲存為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")

代碼如下： 複製代碼 代碼如下: 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)