function imgstr(str)dim regexset regex = new regexp '建立Regex。regex.pattern = "<a.*[s]+href=("|')?([^"<>]+){1}[^<>]*>(<img)(.[^<>]*)(src=)('|"&chr(34)&"|
'參數:目錄名(相對路徑) ,對象 Public Function ShowFolderList(folderUrl,tag,listType) Dim f,f1,fc,i,temp,disabledtf On Error Resume Next temp = Server.MapPath(folderUrl) If oFso.FolderExists(temp) Then &
function getBrowserInfo(sUserAgent){ //取得瀏覽器資訊 var r = /(Netscape|Opera|NetCaptor|MSN |MSIE|MyIE|Mozilla)[s/]{0,1}d{0,}.{0,1}d*/gim; var a = sUserAgent.match(r); return a ?
有時候我們會在頁面上顯示使用者的所在地區,這個原理是:先得到使用者的IP,然後去查詢將IP轉換成一個數值,最後去查這個數值所在的範圍,來得到使用者所在的地方。IP轉換成數值的方法:假設IP是192.168.0.1192*255*255*255+168*255*255+0*255+1結果就是要得到的數值。將ip地址轉換為長整型<% Function CLngIP(ByVal asNewIP) Dim lnResults Dim&nb
方法一:<%dim conn set conn=server.createobject("ADODB.connection") conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=db.janusgroup.cn;UID=web286418;PWD=j2z0h1v2;DATABASE=www_janusgroup_cn" Set conn =
在IE進行文檔連結時,如果遇到OLE支援的文檔,IE會自動調用相應程式開啟它,有時候這種功能並不是我們所需的,雖然我們可以提醒使用者用滑鼠右鍵-->"目標另存新檔...."命令來下載文檔,但這樣畢竟不太友好,本文描述了利用FSO及Stream方法實現IE直接下載文檔.<%@ language=vbscript codepage=65001%><% 'Filename must be inputif Request("Filename")=""