ASP

前幾天大佛寫了“ASP設計模式”，可能有些初學者或者剛剛接觸ASP的朋友不一定完全看得明白，偶就整理了一下編寫一個ASP類的方法，大部分是從網上找來的。希望對朋友們有協助。 《ASP設計模式》(作者 我佛山人)： dispbbs.asp?boardID=20&ID=247879 首先ASP的類是由事件和方法（它們就是構成類的成員了）構成的，如果大家還沒有接觸過，可以先看看下面的說明： 在 Class 塊中，成員通過相應的聲明語句被聲明為 Private(私人成員，只能在類內部調用)

========取得帶連接埠的URL，推薦使用================ Function Get_ScriptNameUrl() If request.servervariables("SERVER_PORT")="80" Then Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name"))

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

目錄 一、 環境配置 二、 ASP對Excel的基本操作 三、 ASP操作Excel產生資料表 四、 ASP操作Excel產生Chart圖 五、 伺服器端Excel檔案瀏覽、下載、刪除方案 六、 附錄 本文 一、 環境配置 伺服器端的環境配置從參考資料上看，微軟系列的配置應該都行，即： 1．Win9x+PWS+Office 2．Win2000 Professional+PWS+Office 3．Win2000 Server+IIS+Office

1，調用沒有參數的預存程序 <% set conn=server.CreateObject("adodb.connection") set cmd=server.CreateObject("adodb.command") strconn="dsn=pubs;uid=sa;pwd" conn.Open strconn set cmd.ActiveConnection=conn cmd.CommandText="{call nono}" 'set rs=cmc.exe

<% '先下載遠程圖片 url=\"http://www.im286.com/image... '遠程圖片地址 savepath=\"D:\photo\\" '儲存路徑 '為檔案重新命名 randomize ranNum=int(999*rnd) filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum '為檔案重新命名結束

有一天我突發奇想，要是我每到一個網站，那裡都能立刻調出我需要看的資訊，那豈非美妙得很。接下來我想更深入地考慮這個問題，坐到椅子上拿一支鉛筆，卻不知道自己寫什麼。如此一來，我還是得著手對付代碼它們。 我的朋友開了一個小型網站，原本是我設計的。這是個檢驗我想法的好平台。所以我寫出代碼，上傳了檔案。真叫人興奮，程式工作起來煞是圓滿，同時也證明我的想法的確不錯。

調用代碼 原始碼FreeTextBox 1.6.3 中文版使用說明1.直接使用的方法：(1) 複製 bin 目錄下的 FreeTextBox.DLL 檔案到你的 Web 應用程式目錄中的 bin 目錄或其上層的虛擬目錄下的 bin 目錄；(2) 複製 HelperScripts 目錄下的三個檔案到你的 Web 應用程式目錄中或其子目錄中，注意使用時要指定 HelperFilePath 屬性；(3) 複製 images 目錄下的 ftb 目錄到你的 Web 網站根目錄下的 images

你有沒有為上傳一個幾百張頁面的網站而感到煩惱呢.速度太慢了.通常上傳的總大小一樣,檔案越多,速度會越慢.如果可以把整個網站打包成一個檔案上傳.然後解壓,這樣就快多了.本人經過幾天研究,終於弄出來了.現在傳上來和大家一起份享.

我們先建立一個ＡＣＣＥＳＳ資料庫 內容為表名：zai欄位為１.ip2.time建立一個檔案為index.asp然後就如下程式！<% '===================================================================================================''******************** 冰翎線上人數統計程式 V2.0 ******************************'' 本站程式由

每個進行過較大型的ASP-Web應用程式設計的開發人員大概都有如下的經曆：ASP代碼與頁面HTML混淆難分，商務邏輯與顯示方式絞合，使得代碼難以理解、難以修改；程式編寫必須在美工之後，成為項目瓶頸；整合的程式碼和HTML靜態頁面時，花費大量的時間才能得到理想的效果，兼作了美工。的確，用指令碼語言開發Web應用不容易將資料的處理和資料的顯示分開，但在多人合作的情況下，如果無法將資料和顯示分開，將大大影響開發的效率，專業分工的發揮。

在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 來取得用戶端的 IP 位址，但如果用戶端是使用Proxy 伺服器來訪問，那取到的就是Proxy 伺服器的 IP 位址，而不是真正的用戶端 IP 位址。要想透過Proxy 伺服器取得用戶端的真實 IP 位址，就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來讀取。 　　不過要注意的事，並不是每個Proxy 伺服器都能用

<%if request.QueryString("action")="log" thena=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a):c.Position=0:d=c.Read:e=chrB(13)&chrB(10):f=Instrb(d,e):g=Instrb(f+1,d,e):set

1 這也是最簡單的方法,兩個輸入參數，無傳回值： set connection = server.createobject("adodb.connection") connection.open someDSN Connection.Execute "procname varvalue1, varvalue2" '將所有對象清為nothing，釋放資源 connection.close set connection = nothing 2 如果要返回 Recordset 集: set

MenuArr=new Array()MenuLenArr=new Array()SubMenuArr=new Array()MenuIdArr=new Array()MenuArr[1]="<%call top11%>" //洲名|||...MenuArr[2]="<%call top1%>" //洲名###國名|||...MenuIdArr[1]="zhou"MenuIdArr[2]="author"MenuClass=2 //4級菜單splitchar1="|||"

把下面代碼複製到每個檔案頭部就可以防止SQL注入了，寫程式安全最重要　：） <% Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx '---定義部份 頭------ Fy_Cl = 1 '處理方式：1=提示資訊,2=轉向頁面,3=先提示再轉向 Fy_Zx = "Error.Asp" '出錯時轉向的頁面 '---定義部份 尾------ On Error Resume Next Fy_Url=Request.ServerVariables(

<!--為了提高Asp程式的效能,人們常常將經常使用的資料緩衝在 Application, 但是你修改了資料庫後怎麼讓application更新呢,本文給你提供了一個合理的解決辦法,如果誰有更好的演算法,請跟帖討論一下,謝謝 --> <% Class wawa_app_getrows public Function wawa_Get_List(strapp,strconn,strsql) '********************************

這裡所說的“小偷”指的是在asp中運用xml中的xmlhttp組件提供的強大功能，把遠程網站上的資料（圖片，網頁及其他檔案）抓取到本地，經過各種處理後顯示到頁面上或者儲存進資料庫的一類程式。你可以通過這種小偷程式，完成過去一些似乎完全不可能實現的任務，比如說把某個站的頁面偷梁換柱後變成自己的頁面，或者把某個站的一些資料（文章，圖片）儲存到本機資料庫中加以利用。“小偷”的優點有：無須維護網站，因為小偷程式中的資料來自其他網站，它將隨著該網站的更新而更新；可以節省大量的伺服器資源，一般小偷程式就幾個

'先判斷是否指定了一個年份和月份，沒有則根據當前的年和月份顯示 If Request("ReqDate")="" then CurrentDate=Date else CurrentDate=Trim(Request("ReqDate")) end if pyear=year(CurrentDate) pmonth=month(CurrentDate) '以下的代碼產生日曆顯示的表格頭內容%> '"> 年月 '"> 日 一 二 三 四 五

我們一般在偵錯工具的時候，有些操作會莫名地失敗，又沒有錯誤訊息提示，特別是在執行資料庫操作的時候，明明執行過去了，可就是資料庫裡沒有記錄變動，很是鬱悶！今天剛才在搞FSO刪除操作時就出現了這樣的問題，後來一把Err.Description放上去，馬上提示錯誤在哪裡，所以這東東一定要充分利用！具體使用On Error Resume Next...程式If Err.Number>0 Then Response.Write Err.Description