ASP

在Google上搜一下，可以發現一大堆對ASP不好的評價，什麼運行速度慢、異常處理機制不好、缺乏物件導向機制、開發效率低、漏洞多等等。為了讓大家對ASP有個正確的認識，我先為它正名。一、ASP不慢，慢的是資料庫幾年前，我用動網論壇程式架了一個BBS，這套程式就是當時經典的ASP+Access架構。我也遇到了某些人所說的論壇慢，有時候卡死不動的問題。然而，自從我換上SQL

複製代碼 代碼如下: <% '屏蔽主流的下載工具 Dimxurl,xtool '擷取瀏覽器AGENT xurl=lcase(Request.ServerVariables("HTTP_USER_AGENT")) '定義禁止的AGENT，下面5個包含最新版的快車，旋風和迅雷部分版本，可以自行添加！ xtool="mozilla/4.0(compatible;msie5.00;windows98)"&_ "mozilla/4.0(compatible;msie6.0;windows+nt5.0

複製代碼 代碼如下:<% FunctIon DownloadFIle(StrFIle) StrFIlename=StrFIle Response.Buffer=True Response.Clear Set S=Server.CreateObJect("ADODB.Stream") S.Open S.Type=1 on Error Resume Next Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect") If Not

複製代碼 代碼如下: function astro(birth) astro="" if birth="" or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth<10 then birthmonth="0" & birthmonth birthday=day(birth) : if birthday<10 then birthday="0" & birthday

昨天在網上看到一個防採集軟體，說採集只訪問當前網頁，不會訪問網頁的圖片、JS等，今天突然想到，通過動態程式和Js訪問分別記錄訪問者的IP，然後進行IP判斷，由於採集過程不會訪問JS，採集的時候只會查到用動態程式記錄的IP，而不會有通過JS記錄的IP，從而實現網頁程式的防採集。

複製代碼 代碼如下: <% Randomize Do While Len(pass)<12 '隨機密碼位元 num1=CStr(Chr((57-48)*rnd+48)) '0~9 num2=CStr(Chr((90-65)*rnd+65)) 'A~Z num3=CStr(Chr((122-97)*rnd+97)) 'a~z pass=pass&num1&num2&num3 loop %> <%=pass%> 1、小於符號的作用其實是小等號的作用

複製代碼 代碼如下: <% function GetBot() '查詢蜘蛛 dim s_agent GetBot="" s_agent=Request.ServerVariables("HTTP_USER_AGENT") ‘關鍵判斷語句 if instr(1,s_agent,"googlebot",1) >0 then GetBot="google" end if if instr(1,s_agent,"msnbot",1) >0 then GetBot="MSN" end

複製代碼 代碼如下:function HTMLEncode(fString) fString=Replace(fString,";",";") fString=Replace(fString,"<","<") fString=Replace(fString,">",">") fString=Replace(fString,"\","\") fString=Replace(fString,"--","--") fString=Replace(

例子： 複製代碼 代碼如下: Response.Cookies("letwego")("visiter")="84ww" '賦值 Response.Cookies("letwego").Expires= (now() 7) '設定到期時間(7天) userName=Request.Cookies("letwego")("visiter") '取Cookies Response.Cookies("letwego").Expires= (now()-1) '刪除Cookies，設定到期時間(-1天)

方法如下： 　response.cookies(cookiesname)[(key)|.attribute]=value 　　解釋如下：cookiesname是你想要的cookies的名字，比如：test 　　參數key：選擇性參數，當然，不指定也可以了。：） 　　key用於指定詞典式cookie的了cookie的名稱。我的理解似乎與一個數組類似。 　　參數attribute可選，指定cookie本身的相關資訊，比如指定特定的網址、路徑、有效期間等。 　　可選的值有：Domain

Cookie是一種發送到客戶瀏覽器的文本串控制代碼，並儲存在客戶機硬碟上，可以用來在某個Web網站會話之間持久地保持資料。Request和Response對象都有一組Cookie。Request.cookie集合是一系列Cookie，從用戶端與HTTP Request一起發送到Web伺服器。反過來，如果你希望把Cookie發送到客戶機，就可以使用Response.cookie 1、ExpiresAbsolute屬性

複製代碼 代碼如下:<% set studentinstance = CreateStudent() if not isnull(studentinstance) then Response.write("StudentId:"&studentinstance.StudentId&"<Br/>") Response.write("StudentName:"&studentinstance.StudentName&"<Br/>") end if Function

複製代碼 代碼如下:<% '/* 函數名稱：Zxj_ReplaceHtml　ClearHtml '/* 函數語言：VBScript Language '/* 作　　用：清除檔案HTML格式函數 '/* 傳遞參數：Content (註：需要進行清除的內容) '/* 函數作者：張曉軍(古城童話)　QQ:382511147 '/* 函數說明：正則匹配(Regex)模式進行資料匹配替換 Function ClearHtml(Content) Content=Zxj_ReplaceHtml("&#[

jqGrid是一個優秀的基於jQuery的DataGrid架構，想必大伙兒也不陌生，網上基於ASP的資料很少，我提供一個，資料格式是json的： 、一個針對jqGrid的json類：這段代碼似乎是由官網論壇的一些PHP中轉化而來，我們存為json.asp，代碼貼一下： 複製代碼 代碼如下: <% response.Charset="utf-8" '--------------------------------------- ' JSONClass類 '

對於小資料量，xml檔案在檢索更新上於ACCESS有很多優勢。 我曾經測試過不用資料庫，把網站的會員資訊，商品資料資訊，交易資訊，網站定製資訊全部存放在三個xml檔案中，運行結果十分正常，感覺上比資料庫快多了，不過沒有作測試，不能確定。 下面說一下建立，查詢，修改等對xml操作的主要方法 程式碼 NO.1--建立一個XML資料庫data.xml 複製代碼 代碼如下: <?xml version="1.0"?> <records> <record>

例如：文本abcaBcabCaBCabcaBCa，關鍵字bc，在不區分大小寫情況，一共有6個匹配項。 　　則在網頁中顯示的是abcaBcabCaBCabcaBCa。 　　很多人，想到是replace函數。原型為 　　　　Replace(string,find,replacewith[,start[,count[,compare]]]) 　　　　string　　　　必選項，字串運算式，包含要替代的子字串 　　　　find　　　　　必選項，被搜尋的子字串

複製代碼 代碼如下:<% Response.Buffer = True '一般情況下，當使用者請求WEB伺服器時，伺服器把請求回複給用戶端。在用戶端，瀏覽器把緩衝作為一種加快速度的策略，就是當請求時先檢查緩衝的情況，如果有就直接調緩衝了，而不請求伺服器了。

函數getcache，會自動建立需要的緩衝。 複製代碼 代碼如下:Function getcache(funsname,isreset,isarr,timeinfo) ‘funsname — 需要緩衝的內容,這裡要輸入一個function名 ‘isreset –是否更新[值：0(根據時間或判斷緩衝為空白時自動更新)、１(主動更新)] ‘ isarr —- 所緩衝的內容是否為一個資料[0為字串，1為數組] ‘ timeinfo —- 緩衝更新時間，單位為秒,當值為0時，則只在緩衝為空白時，才更新

複製代碼 代碼如下: <title>雷鋒|優酷-專輯 採集程式</title></head> <form name="form1" method="post" action="?action=add"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"> <tr><th

複製代碼 代碼如下:Class XMLClass Private objXml Private xmlDoc Private xmlPath '//============================================================ ' Sub Class_initialize Set objXml = Server.CreateObject("MSXML2.DOMDocument") objXml.preserveWhiteSpace = true