首先,必須有錯誤繼續進行的聲明On Error Resume Next 然後嘗試簡曆jmail執行個體: Dim JMail Set JMail=Server.CreateObject("JMail.Message") 對執行個體做出判斷,如果組件沒有安裝成功,則沒有建立執行個體: If JMail Is Nothing Then Response.Write "不支援" Else Response.Write "支援" End If 其他組件同樣處理,非常簡單了。
判斷伺服器是否安裝了某種asp組件,比較常用的代碼如下:複製代碼 代碼如下: <% '功能:檢查是否存在系統組件或組件是否安裝成功 '參數:組件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then
複製代碼 代碼如下: 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 複製代碼 代碼如下:
asp函數代碼 複製代碼 代碼如下: <% Function RemoveHTML(str) Dim objRegExp, Match,strHTML if isnull(str) then str="" end if strHTML=str strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"") Set objRegExp = New Regexp objRegExp.IgnoreCase = True
方法一: 複製代碼 代碼如下: id=request.form("checkbox") id=Split(id,",") shu=0 for i=0 to UBound(id) sql="select * from jiang_fname where id="&id(i) set rs=conn.execute(sql) if not rs.eof then delete_file(rs("fname")) end if rs.close set rs=nothing sql="delete
ASP木馬防禦: 複製代碼 代碼如下: const adTypeBinary=1 dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8) dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D) dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47) dim gif(5):gif(0)=CByte(
複製代碼 代碼如下: <% '判斷是否要產生新的HTML if Application("cache_asptohtml_date")="" then Application.Lock Application("cache_asptohtml_date")=now() Application.Unlock Call aspTohtml Response.Redirect("index.html") end if if DateDiff("s",