複製代碼 代碼如下:'===================================== '擷取內容中所有圖片 '===================================== Function Get_ImgSrc(ByVal t0) Dim t1,Regs,Matches,Match t1="" IF Not(IsNull(t0) Or Len(t0)=0) Then Set Regs=New RegExp
1.Default.aspx頁面 複製代碼 代碼如下:<script type="text/javascript"> function GetUser(TxtEmpID,TxtEmpName,url) { var properties = 'status:no;resizable:no;toolbar=no;menubar=no;location=no;scroll:no;dialogWidth:540px;dialogHeight:450px;' var
判斷伺服器是否安裝了某種asp組件,比較常用的代碼如下:複製代碼 代碼如下:<% '功能:檢查是否存在系統組件或組件是否安裝成功 '參數:組件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then
複製代碼 代碼如下:<% Dim oConn, ors, aRows Dim i,j Set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/newasp.resx") Set ors=oConn.Execute("Select TOP 5
本tree的資料從sql的表中提取而來,sql表的結構如下:上面的表中 parentmodeuleID是代表父ID的標誌,如果當前節點為根節點,則規定為0. 然後就是如何將上面的單表來組成樹狀結構.這時我們可以利用IList來載入資料庫models來實現,具體Tree類如下:複製代碼 代碼如下:using System; using System.Collections.Generic; using System.Linq; using System.Web; using
有一個問題就是 :表單名稱和對象的屬性名稱(我是屬性賦值 你也可以用欄位)要保持一樣,,有點不安全,不過後台用挺好的,在說填寫表單資料後台用的比較多複製代碼 代碼如下:using System; using System.Data; using System.Configuration; using System.Collections; using System.Collections.Generic; using System.Reflection; using
aspx vb.net擷取真實IP的函數如下: 複製代碼 代碼如下:<script runat="server"> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" Dim reg As Regex = New Regex(pat) if ip = "" Then CheckIp =
複製代碼 代碼如下:function checkip(checkstring)'用正則判斷IP是否合法 dim re1 set re1=new RegExp re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" re1.global=false re1.Ignorecase=false checkip=re1.test(checkstring) set re1=nothing end function 複製代碼