Time of Update: 2017-01-13
建立一《SERV-U》FTP伺服器,在ASP中修改指定帳戶的密碼,寫了一ASP組件來修改《SERV—U》 FTP密碼。啟動《Vb6.0》,選擇建立ActiveX DLL,更改工程屬性中的工程名稱為“Ftpcommand”,將CLASS名改為XJNFTP,來源程式如下:Private Const scUserAgent = "vb wininet"Private Const INTERNET_OPEN_TYPE_PRECONFIG
Time of Update: 2017-01-13
四、是否應該通過包含引用ADOVBS.inc? Microsoft提供的ADOVBS.inc包含了270行代碼,這些代碼定義了大多數的ADO屬性常量。我們這個樣本只從ADOVBS.inc引用了2個常量。因此本次測試(ADO__02.asp)中我們刪除了包含檔案引用,設定屬性時直接使用相應的數值。objRS.CursorType = 0 ' adOpenForwardOnlyobjRS.LockType = 1 &
Time of Update: 2017-01-13
如何增強ASP程式效能(2) 2000-08-11·
Time of Update: 2017-01-13
<% ''#######以下是一個類檔案,下面的註解是調用類的方法################################################ ''# 注意:如果系統不支援建立Scripting.FileSystemObject對象,那麼資料庫壓縮功能將無法使用 ''# Access 資料庫類 ''# CreateDbFile 建立一個Access 資料庫檔案 ''# CompactDatabase 壓縮一個Access 資料庫檔案 ''# 建立對象方法: ''#
Time of Update: 2017-01-13
六、哪種遊標類型和記錄鎖定方式效率最高? 迄今為止的所有測試中我們只使用了“只能向前”的遊標來訪問記錄集。ADO為記錄集提供的遊標還有三種類型:靜態可滾動的遊標,動態可滾動的遊標,鍵集遊標。每種遊標都提供不同的功能,比如訪問前一記錄和後一記錄、是否可以看到其他程式對資料的修改等。不過,具體討論每一種遊標類型的功用已經超出了本文的範圍,下表是各種遊標類型的一個比較性的分析。
Time of Update: 2017-01-13
三、第一次測試 在第一次測試中,我們類比Microsoft ASP ADO樣本中可找到的典型情形提取一個記錄集。在這個例子(ADO__01.asp)中,我們首先開啟一個串連,然後建立記錄集對象。當然,這裡的指令碼按照本文第一部分所總結的編碼規則作了最佳化。< % Option Explicit % >< !-- #Include file="ADOVBS.INC" -- >< % Dim objConnDim
Time of Update: 2017-01-13
技巧 19: 利用瀏覽器的驗證功能 現今的瀏覽器對一些進階功能如 XML、DHTML、Java Applet和遠端資料服務提供支援。儘可能使用這些功能。所有這些技術都可以執行客戶機端驗證和資料緩衝,免去了到 Web 服務器的往返。如果您在運行一個智能瀏覽器,那麼瀏覽器就能為您進行一些驗證(例如,在執行 POST 之前,檢查信用卡校正和是否有效)。儘可能使用這一功能。通過減少客戶-伺服器之間的往返,可降低 Web
Time of Update: 2017-01-13
< !-- #include virtual='Include/database.asp' --> < % set rs=Server.CreateObject("ADODB.RecordSet") sql="SELECT menu_name, menu_link, menu_bgcolor, menu_color,id FROM enter_individual WHERE (parent_id = (SELECT id FROM
Time of Update: 2017-01-13
、ASP動態產生的內容以什麼方式輸出效率最高?作 者 : 仙人掌工作室 本文點擊次數:123
Time of Update: 2017-01-13
四、ASP代碼中注釋對執行效率有何影響? 許多HTML開發人員知道,加入HTML注釋是一種壞習慣。這是因為:首先,注釋增加了資料轉送量;其次,HTML注釋為其它開發人員提供了有關頁面組織的資訊。那麼,ASP頁面中的注釋又怎樣?ASP中的注釋永遠不會被瀏覽器看到,但是它們增加了ASP引擎所解析的指令碼的大小。 在這個測試中,我們加入了20行注釋,每行80個字元,總共16000個字元。< % OPTION EXPLICIT '------------------------------
Time of Update: 2017-01-13
1.如何 最小化、最大化、關閉視窗答:<objectid=hh1classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"><paramname="command"value="minimize"></object><objectid=hh2classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a1
Time of Update: 2017-01-13
1. oncontextmenu="window.event.returnvalue=false" 將徹底屏蔽滑鼠右鍵<table border oncontextmenu=return(false)><td>no</table> 可用於Table2. <body onselectstart="return false"> 取消選取、防止複製3. onpaste="return
Time of Update: 2017-01-13
1.圖片顯示控制:<script language="JavaScript"><!--var flag=false;function DrawImage(ImgD){ var image=new Image(); image.src=ImgD.src; if(image.width>0 && image.height>0){ flag=true;
Time of Update: 2017-01-13
作者:青苹果工作室編譯 是否應該開啟緩衝器? 通過指令碼程式啟動緩衝器 在ASP指令碼的頂部包含Response.Buffer=True ,IIS就會將頁面的內容緩衝。 < % OPTION EXPLICIT Response.Buffer = true Dim FirstName … /app1/buffer__1.asp的片段 以前的最佳(反應時間)= 7.05 msec/page 反應時間 = 6.08 msec/page 差= -0.97
Time of Update: 2017-01-13
1.取當前網頁的地址全名,以便返回用<%Function GetUrl() On Error Resume Next Dim strTempIf LCase(Request.ServerVariables("HTTPS")) = "off" ThenstrTemp = "http://"ElsestrTemp = "https://" End If strTemp = strTemp &
Time of Update: 2017-01-13
1.'功能: 過慮HTML字元'輸入:字串'輸出:經格式化後的字串function HTMLEncode(fString)if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(
Time of Update: 2017-01-13
Memory and Speed Optimization with ASP - Part I It is an all to familiar problem: optimizing the memory and speed of your web sites. Maybe you have been, more than once a week, in the situation where your web server stopped giving you any ASP page,
Time of Update: 2017-01-13
1.防止使用者直接存取頁面(防止自製表單提交,直接通過連結訪問)function checkPrePage()url=request.ServerVariables("HTTP_REFERER")url=trim(replace(url,"http://",""))url=trim(left(url,len(request.ServerVariables("SERVER_NAME"))))if url<>
Time of Update: 2017-01-13
1.分 類:文法應用問題描述:尋找兩個字串間的字元出現次數解決辦法:function FindStringTimes(strContent,start_string,end_string) 'start_string 與 end_string 之間字元出次的數'written by JaronFindStringTimes = ubound(split(strContent,start_string))end function樣本: 尋找以下字串有多少張圖片response.write
Time of Update: 2017-01-13
十二、總結下面是我們在這第二部分中得到的規則: