Time of Update: 2017-01-18
說明:set aa=server.createobject("ddd") isnull 說明指標為空白,指標指到一個無效的位置,即對象不存在, isempty 說明指標指向一個有效位置,但是值為空白 1、Null 字元串 例: 複製代碼 代碼如下: a)Dim strTmp response.write(strTmp="") ' 返回true b)response.write(str="") ' 返回 true c)Dim strTmp strTmp=""
Time of Update: 2017-01-18
在網上找到一個用ASP開的假線程,發現和我以前做的一個程式不謀而合,只不過以前用的是VB,摘下來,儲備.1.原理實驗 原理當然都一樣,利用web伺服器支援多線程,在同一頁面裡向伺服器發多個http請求來完成我們的工作。還是先實驗一下,在一個頁面裡同時寫2個txt檔案,比較寫入時間的差異。代碼如下: <%startime=timer()''----------asp實現多線程----------''function runThread()dim Httpset
Time of Update: 2017-01-18
在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 來取得用戶端的 IP 位址,但如果用戶端是使用Proxy 伺服器來訪問,那取到的就是Proxy 伺服器的 IP 位址,而不是真正的用戶端 IP 位址。要想透過Proxy 伺服器取得用戶端的真實 IP 位址,就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來讀取。 不過要注意的事,並不是每個Proxy 伺服器都能用
Time of Update: 2017-01-18
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="|||"
Time of Update: 2017-01-18
把下面代碼複製到每個檔案頭部就可以防止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" '出錯時轉向的頁面 '---定義部份&
Time of Update: 2017-01-18
你有沒有為上傳一個幾百張頁面的網站而感到煩惱呢.速度太慢了.通常上傳的總大小一樣,檔案越多,速度會越慢.如果可以把整個網站打包成一個檔案上傳.然後解壓,這樣就快多了.本人經過幾天研究,終於弄出來了.現在傳上來和大家一起份享.
Time of Update: 2017-01-18
<!--為了提高Asp程式的效能,人們常常將經常使用的資料緩衝在 Application, 但是你修改了資料庫後怎麼讓application更新呢,本文給你提供了一個合理的解決辦法,如果誰有更好的演算法,請跟帖討論一下,謝謝 --> <% Class wawa_app_getrows public Function wawa_Get_List(strapp,strconn,strsql) '********************************
Time of Update: 2017-01-18
每個進行過較大型的ASP-Web應用程式設計的開發人員大概都有如下的經曆:ASP代碼與頁面HTML混淆難分,商務邏輯與顯示方式絞合,使得代碼難以理解、難以修改;程式編寫必須在美工之後,成為項目瓶頸;整合的程式碼和HTML靜態頁面時,花費大量的時間才能得到理想的效果,兼作了美工。的確,用指令碼語言開發Web應用不容易將資料的處理和資料的顯示分開,但在多人合作的情況下,如果無法將資料和顯示分開,將大大影響開發的效率,專業分工的發揮。
Time of Update: 2017-01-18
我們一般在偵錯工具的時候,有些操作會莫名地失敗,又沒有錯誤訊息提示,特別是在執行資料庫操作的時候,明明執行過去了,可就是資料庫裡沒有記錄變動,很是鬱悶!今天剛才在搞FSO刪除操作時就出現了這樣的問題,後來一把Err.Description放上去,馬上提示錯誤在哪裡,所以這東東一定要充分利用!具體使用On Error Resume Next...程式If Err.Number>0 Then Res
Time of Update: 2017-01-18
我們在用ASP開發檔案上傳功能的時候,為了防止使用者上傳木馬程式,常常會限制一些檔案的上傳,常用的方法是判斷一下上傳檔案的副檔名是否符合規定,可以用right字串函數取出上傳檔案的檔案名稱的後四位,這樣很容易就能判斷了,但是這裡面有一個漏洞,非常危險,就是chr(0)漏洞,詳情請接著往下看。一、首先解釋下什麼是chr(0)?在ASP中可以用chr()函數調用ASCII碼,其中chr(0)表示調用的是一個結束字元,簡單的說當一個字串中包含chr(0)字元時,只能輸出chr(0)前面的字元,chr(
Time of Update: 2017-01-18
如 t=rs.BookMark 記錄當前的標記rs.BookMark=t 把遊標移動到記錄時的位置例子: <%dim dsql="select * from cs1"set rs=server.CreateObject("ADODB.RecordSet")rs.Open sql,conn,1,1while not rs.eof if cInt(rs("id"))=10 then d=rs.Bookmark end if response.write(rs("id")&
Time of Update: 2017-01-18
我今天介紹的是在ASP中如果把時間(例如:2008-8-8 13:45:22)轉換成秒的函數,和相反的把秒轉換成時間的函數。當然時間轉換的時候。必須有一個相對的固定時間,那就是格林威治時間。大家想想因為格林威治時間是以“ 1970 年 1 月 1 日 00:00:00 ”開始的,ASP提供了一個叫 DateDiff()
Time of Update: 2017-01-18
經過多次研究寫出了如下代碼,有需要的可以參考下複製代碼 代碼如下:kd=server.HTMLEncode(request("keyword"))if kd<>"" then kd=trim(kd)'kd=replace(kd," ","") kd=replace(kd,"'","") kd=replace(kd,"%","") kd=replace(kd,"\"," ")
Time of Update: 2017-01-18
用asp實現的代碼批量修改程式,fso相關是因工作需要做的一個批量修改代碼的小東西,拿出來與大家分享目前可以處理的檔案類型:.asp .inc .htm .html 具體類型可自行修改添加程式實現的功能:將來源目錄下的檔案批量修改後存到目的目錄下用它稍做修改可以實現很多東西噢!別的不說了,代碼裡面都寫的很清楚了<%'// +---------------------------------------------------------------------------+'// |
Time of Update: 2017-01-18
複製代碼 代碼如下:<%@ CODEPAGE=65001 %><% Response.CodePage=65001%><% Response.Charset="UTF-8" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
Time of Update: 2017-01-18
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim stst=timer()'*************************************************************'*************搜尋硬碟檔案的類SearchFile *************'*************調用方法: ************* '*************Set
Time of Update: 2017-01-18
定義簡單數組有兩種方法在asp中定義和初始化數組,讓我們看看每種的例子:方法一:MyArray = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct", "Nov","Dec")數組大小由初始化元素個數決定。方法二:複製代碼 代碼如下:Dim myArray(2) '指定數組大小myArray(0)="Jan" myArray(1)="Feb"數組動態擴充複製代碼 代碼如下:DIM myArray()REDIM
Time of Update: 2017-01-18
cint與clng含義:都可以強制將一個運算式轉換成資料類型cint與clng處理資料的範圍:CInt Integer -32,768 至 32,767,小數部分四捨五入。 CLng Long -2,147,483,648 至
Time of Update: 2017-01-18
ASP常用的函數,希望能用的著。<% dim db db="dbms.mdb" '****************************************************************** '執行sql語句,不傳回值,sql語句最好是如下: 'update 表名 set 欄位名=value,欄位名=value where 欄位名=value 'delete from 表名 where 欄位名=value 'insert into 表名
Time of Update: 2017-01-18
複製代碼 代碼如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type"