下面這個是比較不錯的一個複製代碼 代碼如下:Function FormatImg2(content) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" Content=re.Replace(Content,"script") re.
<!--#include file="../Conn.asp"--> <% set rs=server.createobject("adodb.recordset") sql="select * from article where bigtypes='我愛你'order by id desc" 找出資料庫內類別為我愛你的所有資料 rs.open sql,conn,1,3 if not rs.eof then do while not rs.eof fname = rs("
<% 'code by netpatch dim dbfile,sql db="netpatch.asp" dbfile=server.MapPath(db) set ydb=server.CreateObject("ADOX.Catalog") ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile set ydb=nothing if err.number=0 then
複製代碼 代碼如下:<% '功能:在一個字串前後補全另一字串 '來源:http://jorkin.reallydo.com/article.asp?id=452 Public Function Fill(ByVal sString, ByVal sStr) Fill = RFill(LFill(sString, sStr), sStr ) End Function %> 複製代碼 代碼如下:<% '功能:在一個字串前面補全另一字串 '來源:http://
<script language="vbscript"> ' Aother: 奔騰的心 ' QQ: 7180001 ' Date: 2008-01-17 Class mShift Private m_lPower2(31) Public Function RShift(ByVal lThis, ByVal lBits) On Error Resume Next Init If (lBits <= 0)
1、使用adodb.stream實現的 一般虛擬機器主機都提供 複製代碼 代碼如下:function loadtempletfile(byval path) on error resume next dim objstream set objstream = server.createobject("adodb.stream") with objstream .type = 2 .mode = 3