複製代碼 代碼如下:'===================================== '獲得檔案尾碼 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)<2 Or Instr(t0,".")=0 Then Get_Filetxt=False:Exit Function t1=Split(t0,".")
複製代碼 代碼如下:'============================== '格式化HTML,SDCMS加強版 '============================== Function Nohtml(ByVal t0) IF Len(t0)=0 Or IsNull(t0) Then Nohtml="" Exit Function End IF Dim Regs,Matches,Match Set Regs=New Regexp Regs.Ignorecase=True Regs.
複製代碼 代碼如下:'===================================== '擷取內容中所有圖片 '===================================== Function Get_ImgSrc(ByVal t0) Dim t1,Regs,Matches,Match t1="" IF Not(IsNull(t0) Or Len(t0)=0) Then Set Regs=New RegExp
複製代碼 代碼如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & Request.ServerVariables("SERVER_NAME") If
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