ASP

我們儲存在資料庫中的內容是HTML格式的，但是有時候我們需要無格式的顯示這內容，這是用Regex實現的過濾。複製代碼 代碼如下:<% function nohtml(str)  dim re  Set re=new RegExp  re.IgnoreCase =true  re.Global=True  re.Pattern="(\<.[^\<]*\>)" 

複製代碼 代碼如下:<form method="post" name="lForm" action="/bbs/logging.php?action=login"> <input type="hidden" name="formhash" value="6a49b97f">

1，首先要明確刪除哪條記錄無非還就是SQL語句了，比如對應到特定的某ID上。id = request.form("id")sql = "Select * from cnarticle where cn_id="&idSet rs = Server.CreateObject ("ADODB.Recordset")rs.Open sql,conn,2,32，很簡單的一條語句：刪除rs.delete3，最好能在修改之前徵求確認刪除<script language="JavaScript">

前些日子在群裡頭有位朋友問到怎麼實現在網頁上的郵箱訪問功能現在將從網上看到的網站載了下來，便人便已。  這個是html的代碼您在訪問網站時是否會在有些頁面上見到這種功能---您在可以訪問此網站的同時，還可以查看您免費郵箱中是否有新郵件。這個功能是不是讓您覺得很心動、很神秘呢？下面，我就用ASP來舉個例子讓您知道是如何?這一功能的。 

操作完磁碟機，接著就是來操作檔案夾了。其中包括：提取檔案夾資訊、建立檔案夾、刪除檔案夾、複製檔案夾、移動檔案夾等。下面就具體來看。一、fso.GetFolder一看就明白，是提取檔案夾了。那具體是提取哪個檔案夾呢？後面肯定要跟一個檔案夾的路徑。提取出來了再來顯示該檔案夾相關資訊呢？是不是有要具體提取下去。所以，看程式：1，getfldr.asp<%Set fso = CreateObject("Scripting.FileSystemObject")Set fldr =

一、On Error 語句該語句的作用是：啟用或禁用錯誤處理程式。一般用法如下：On Error Resume NextOn Error GoTo 0如果在您的代碼中未使用On Error Resume Next語句，所發生的執行階段錯誤將顯示錯誤資訊，同時，代碼的執行也隨之終止。但當你採用它時，就會使程式按照產生錯誤的語句之後的語句繼續執行，或是按照最近一次所調用的過程（該過程含有 On Error Resume Next

我們已經知道Application和Session對象的OnStart、OnEnd事件的指令碼，都必須是在 Global.asa 檔案中聲明的。那究竟Global.asa是什麼樣的一個檔案？它的作用有何？又該如何運用呢？且聽我慢慢道來。首先.asa是檔案尾碼名，它是Active Server

首先感謝V37斑竹對我的協助，這個方案解決了顯示“上一篇下一篇”和相關文章的問題，貼出來讓大家分享。 以前看到一個文章講用ID+1和ID-1的辦法判斷“上一篇下一篇”，在用的過程中發現一個問題：當刪除資料庫中的一篇文章時，就會造成ID不連續，如果用ID+1和ID-1來判斷就會出現找不到記錄的問題，在這個程式裡，通過查詢大於當前ID的第一條記錄來找出下一篇的ID，查詢小於當前ID的第一條記錄來找出上一篇的ID，這樣就算ID不連續也可以正常顯示了。

核心代碼:複製代碼 代碼如下: set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile(server.mappath("log.txt")) temp=fin.readall fin.close set fin=nothing end if set

問題：我想上傳檔案時後改名，下載時又將名改回來。 如：我上傳一張“我的照片.jpg”上傳後改為系統數名“20040302001.jpg”下載時又改回“我的照片.jpg” 其中的儲存新舊檔案名稱都用資料庫（已做） 就是下載時的改名做不出來。 代碼： 複製代碼 代碼如下: <% function dl(f,n) on error resume next Set S=CreateObject( "Adodb.Stream ") S.Mode=3 S.Type=1 S.Open

批量錄入在資料庫的應用中比較廣泛的，關於批量錄入的方法也有好多種。下面我就結合我實際中的應用，談一下兒我是怎麼實現的。主要用到的是form的集合的概念，通過迴圈取的所有的集合內資料。考慮到大家看著方便，我把它整合到了一個頁面。  下面是具體的代碼：   batchInput.asp  <%  '##################################### 

複製代碼 代碼如下: <% Dim CC_Info(4),strInfo,strTemp If Session("CC_Info") = "" Then CC_Info(0) = "cclog.txt" '記錄檔名 CC_Info(1) = Request.ServerVariables("HTTP_X_FORWARDED_FOR") CC_Info(2) = Request.ServerVariables("REMOTE_ADDR") CC_Info(3) = 10

複製代碼 代碼如下:<% db="market.asp" '這裡改成您的資料庫地址 set conn=server.createobject("Adodb.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db) conn.open connstr

1. 支援參數純漢字 ?a=深山老熊 2. 支援參數gb2312 Urlencode編碼： ?a=%C9%EE%C9%BD%C0%CF%D0%DC 3. 支援參數UTF-8 Urlencode編碼: ?a=%E6%B7%B1%E5%B1%B1%E8%80%81%E7%86%8A 複製代碼 代碼如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit Const YXCMS_CHARSET = "UTF-8"

看代碼： 複製代碼 代碼如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim conn,rs,excelFileName excelFileName=Server.MapPath("Data/test.xls") set conn = Server.CreateObject("ADODB.Connection")

代碼如下： 複製代碼 代碼如下: Function ReplaceEx(strOri,replStr) Set regEx=New RegExp regEx.Global=True regEx.MultiLine=True regEx.Pattern="\r\n" regEx.IgnoreCase=True ReplaceEx=regEx.Replace(strOri,replStr) End Function shuoming=replace(rs("shuoming"),"

使用說明 1.在要保護的頁面頂部加如對AntiRefresh.asp檔案的引用如： <!--#include virtual="AntiRefresh.asp" --> 2.接著添加調用代碼 複製代碼 代碼如下: <% Const VarNameDateArr="www_domai_net_App_DataArr" '隊列名稱 Const VarNameIPArr="www_domai_net_App_IPArr" '隊列名稱 Dim objAntiRefresh Set

作者: 純屬·印象 Q  Q: 442398600       2006年8月8日 前兩天在做一個站內版的企搜引擎，發現某些網站可以連結網站內容。。 奇怪之下看了看，原來是按照資料庫ID的自動編號規律進行連結的~~ 閑暇之餘弄了下面這個東東，希望對大家在以後的編寫ASP程式中有所協助！ <% '//產生指定位元的隨機數字

ASP產生靜態網頁的方法 　　隨著網站訪問量的加大，每次從資料庫讀取都是以效率作為代價的，很多用ACCESS作資料庫的更會深有體會，靜態頁加在搜尋時，也會被優先考慮。互連網上流行的做法是將資料來源代碼寫入資料庫再從資料庫讀取產生靜態面，這樣無形間就加大了資料庫。將現有的ASP頁直接產生靜態頁，將會節省很多。 　　下面的例子是將、index.asp?id=1/index.asp?id=2/index.asp?id=3/這三個動態網頁面，分別產生ndex1.htm,index2.htm,index3

複製代碼 代碼如下:    rs.open sql,conn,1,1     if rs.eof and rs.bof then      response.write "<p align='center'>還沒找到文章</p>"   else