Time of Update: 2017-01-13
用ASP串連DBF、DBC、MDB、Excel、SQL Server型資料庫的方法:一、ASP的對象存取資料庫方法 在ASP中,用來存取資料庫的對象統稱ADO(Active Data Objects),主要含有三種對象:Connection、Recordset 、CommandConnection:負責開啟或串連資料Recordset:負責存取資料表Command:負責對資料庫執行行動查詢命令二、串連各資料庫的驅動程式
Time of Update: 2017-01-13
1.建立Recordset對象Dim objMyRstSet objMyRst=Server.CreateObject(“ADODB.Recordset”)objMyRst.CursorLocation=adUseClientBatch '用戶端可批量處理objMyRst.CursorType=adOpenStatic’游標類型為靜態類型注意:Recordset對象不能用Set objMyRst=Connection.Excute
Time of Update: 2017-01-13
作者:Loster(OICQ:181306)
Time of Update: 2017-01-13
(中國大陸移動134,135,136,137,138,139,150,151,157,158,159號碼段、中國聯通的130,131,132,133,153,155,156號碼段和中國電信3G手機號碼段188,中國網通3G手機號碼189號碼段)1、 前3位號碼必須是130、131、132、133、134、135、136、137、138、139、150、151、153、156、157、158、159、188、189其中之一,否則提示“不合法的手機號碼” ;2、
Time of Update: 2017-01-13
RegExp對象提供簡單的Regex支援功能。RegExp對象的用法: 代碼如下複製代碼 Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立變數。 Set regEx = New RegExp ' 建立Regex。 regEx.Pattern = patrn ' 設定模式。 regEx.IgnoreCase = True ' 設定是否區分字元大小寫。 regEx.Global = True '
Time of Update: 2017-01-13
代碼如下複製代碼 <%Option ExplicitFunction stripHTML(strHTML)'Strips the HTML tags from strHTMLDim objRegExp, strOutputSet objRegExp = New RegexpobjRegExp.IgnoreCase = TrueobjRegExp.Global = TrueobjRegExp.Pattern =
Time of Update: 2017-01-13
regexp 對象的屬性 ◎ global屬性 global屬性設定或返回一個 boolean 值,該值指明在整個搜尋字串時模式是全部匹配還是只匹配第一個。 文法 object.global [= true | false ] object 參數總是 regexp 對象。如果搜尋應用於整個字串,global 屬性的值為 true,否則其值為 false。預設的設定為 true。 function regexptest(patrn, strng) dim regex, match,
Time of Update: 2017-01-13
regexp對象的用法: 複製代碼 代碼如下:function regexptest(patrn, strng) dim regex, match, matches ' 建立變數。 set regex = new regexp ' 建立Regex。 regex.pattern = patrn ' 設定模式。 regex.ignorecase = true ' 設定是否區分字元大小寫。 regex.global = true ' 設定全域可用性。 set matches =
Time of Update: 2017-01-13
function repnum(strng) '以數組返回 i = 0 set regex = new regexp regex.pattern = "(d+)" '"[0-9]" regex.ignorecase = true regex.global =
Time of Update: 2017-01-13
Public Function IsEmail(ByVal PString) Dim Plt,Pgt : Plt = False : Pgt = False For x = 2 To Len(PString) - 1 If Mid(PString,x,1) = "@" Then Plt = True If Mid(PString,x,1) = "." And Plt = True Then Pgt = True Next If Plt = True
Time of Update: 2017-01-13
方法一Public Function ChkMail(ByVal Email) Dim Rep,Pmail : ChkMail = True : Set Rep = New RegExp Rep.Pattern = "([.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(.([a-zA-Z0-9]){2,}){1,4}$" Pmail = Rep.Test(Email) : Set Rep = Nothing If Not Pmail
Time of Update: 2017-01-13
Public Function CheckRegExp(sources,para) If para="[username]" Then para="^[.A-Za-z0-9u4e00-u9fa5]+$" End If If para="[password]" Then para="^[a-z0-
Time of Update: 2017-01-13
Function GetZhanzhanList(Codes) Codes=RegExpTest("<td>.*?</td>",
Time of Update: 2017-01-13
asp 電話號碼Regex,在驗證對方電話號碼時我們為了能更準確的收集使用者資訊或為系統的安全性著想,大多程式員都會對使用者提交的資料進行過濾,而電話號碼驗證也只是其它的一種.<%'' 判斷電話號碼是否正確Function IsValidTel(para) Dim Str Dim l, i If IsNull(para) Then IsValidTel = false Exit Function End
Time of Update: 2017-01-13
對於ASP程式,用到的變數有全域變數,以及一些建立的對象。良好的ASP程式員都有釋放它們的習慣,但釋放與不釋放之間到底有多少差別呢?所以今天特地對它們進行了一翻測試。 測試內容:測試的全域變數有一個,對象是採用串連SQL的connection對象。 第一次測試:不釋放全域變數而結束程式執行。 第二次測試:釋放全域變數而結束程式執行。 測試前準備:在運行測試前等待伺服器休息5分鐘,保證內容及CPU已經穩定下來。 測試軟硬體:伺服器為平常的PIII550,記憶體256M。裝有Win20
Time of Update: 2017-01-13
最大限度最佳化你的Asp效能 ASP 能快速執行你的動態網頁,但你還可以通過緊縮代碼和資料庫連接以使它們執行更快。這是一篇關於怎樣精簡代碼和Asp
Time of Update: 2017-01-13
在本篇檔案中,我們將討論編程人員在使用ASP.NET開發應用程式時需要注意的10個技巧,這些技巧涉及從預設的控制項、表單名的改變到StringBuilder類的使用,有助於編程人員能夠儘快地適應.NET環境。?? ? 1、在使用Visual Studio .NET時,除直接或非引用的對象外,不要使用預設的名字。?? ? .NET帶來的好處之一是所有的原始碼和設定檔都是純文字檔案,能夠使用Notepad或WordPad等任意的文字編輯器進行編輯。如果不願意,我們並非一定要使用Visual
Time of Update: 2017-01-13
IIS預設處理VBScript,然而我們可以看到許多通過< %@LANGUAGE=VBSCRIPT% >語句顯式設定指令碼語言類型的例子。下面的測試分析這個語句對效能的影響。< %@ LANGUAGE=VBSCRIPT % >< % OPTION EXPLICIT Dim FirstName.../app2/language1.asp片斷基 准 = 5.57 毫秒/頁回應時間 = 5.64 毫秒/頁差 額 = +0.07 毫秒 (增加 1.2%) 可以看到,
Time of Update: 2017-01-13
1.如何用Asp判斷你的網站的虛擬實體路徑? 答 使用Mappath方法 <p align="center"><font size="4" face="Arial"><b> The Physical path to this virtual website is: </b></font> <font color="#FF0000"
Time of Update: 2017-01-13
結論 本文第一部分的重要之處在於許多小事情的累積。為了強調這個問題,我設定了最後一個測試,在其中進行了我們以前曾經測試過的看來無所謂但實際上有壞影響的所有操作。我包含了許多Response.Write 聲明、關閉了緩衝器、設定了預設語言、去掉了Option Explicit 引用並初始化了錯誤控制代碼。 < %@ LANGUAGE=VBSCRIPT % > < % On Error Resume Next FirstName =