ASP

WEB開發經常用到各個主流瀏覽器的userAgent資訊，我們來看看asp如何來擷取呢使用範例一<%dim aa = Browsrif InStr( a, "MSIE" ) then ' browser is Internet Explorerelse ' browser is some other type...end if%>ASP Source Code:<%Private Function Browsr() Browsr =

將以下代碼放到一個單獨的頁面checkcode.asp <%Option ExplicitResponse.buffer=trueCall Com_CreatValidCode("validateCode") Sub Com_CreatValidCode(pSN)' 禁止緩衝Response.Expires = -9999Response.AddHeader "Pragma","no-cache"Response.AddHeader

ASPResponse.Buffer = TrueResponse.ExpiresAbsolute = Now() - 1Response.Expires = 0Response.CacheControl = "no-cache"Response.AddHeader "Pragma", "No-Cache" HTML<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><meta

這段代碼可以控制常用的搜尋引擎無法訪問asp頁面，需要在每個asp頁麵包含這段代碼。<%function isspider()dim i,agent,searrayagent="agent:"&LCase(request.servervariables("http_user_agent"))searray=array("googlebot","baiduspider","sogouspider","yahoo","Sosospider")isspider= falsefor i=0 to

OpenTextFile是asp語言中的一個方法開啟指定的檔案並返回一個 TextStream 對象，可以通過這個對象對檔案進行讀、寫或追加。object.OpenTextFile(filename[, iomode[, create[, format]]])1、方法編輯開啟指定的檔案並返回一個 TextStream 對象，可以通過這個對象對檔案進行讀、寫或追加。object.OpenTextFile(filename[, iomode[, create[,

作為指令碼漏洞的頭號殺手鐧——資料庫下載漏洞，現在已經被越來越多的人所熟知。在這個資訊化技術更新飛快的時代，漏洞產生後隨之而來的就是各種應對 的招數，比如改資料庫的尾碼、修改資料庫的名字等等。很多人以為只要這麼做就可以解決問題了，但事實往往不如你我所願，即使你這麼做了也難逃被高手攻擊的

如果標題過長，因為頁面配置的限制，只能列表10個字元，這個函數會幫你實現的複製代碼 代碼如下:'截取字串 strvalue(標題,字數)function strvalue(str,lennum)    dim p_num    dim i    if strlen(str)<=lennum then        strvalue=

這個函數是必需要的，很多駭客來搗亂，黑掉資料庫，會注入大量的病毒js，在儲存和展示文本資料的時候，使用此函數過濾一下，可避免不少麻煩clearhtml代碼'清除HTML代碼function clearhtml(content) content=replacehtml("&#[^>]*;","",content) content=replacehtml("</?marquee[^>]*>","",content)

複製代碼 代碼如下:'資料庫表行數函數，這是取表的行數Function GetTblRows(TblName)    '如果TblName表名值為空白，則    if TblName="" Then       GetTblRows="未知TblName"    exit Function    Else &

複製代碼 代碼如下:Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)'Author : nigou'使用方法 : Response.Write GetTable(Table表名,Where條件,Order主鍵(必須),OrderSort(asc,desc),curpage當前頁, pagesize每頁條數,MiniJson是否輸出為miniUI格式)'    dim

使用REPLACE來將資料庫裡讀出來的資料替換,如果欄位不為空白是正常,但如果為空白時就出現以下提示:Microsoft VBScript 執行階段錯誤 錯誤 '800a005e'無效使用 Null: 'Replace'主要問題就是sqlserver的欄位為null，所以不能簡單的為空白判斷，只能使用isnull可以先判斷if isnull(rs("coutent"))=false thenresponse.write("null") elseresponse.write replace(rs(

分析可能是： asp的一些保留欄位導致，具體的大家可以參考這篇文章：ASP常見的保留字整理正常來說 代碼沒問題```ID也有值 但是庫改成了SQL SERVER庫 因不長用所以請教各位這個錯誤是哪裡問題Microsoft VBScript 執行階段錯誤 錯誤 '800a01f5'非法賦值: 'SqlStr'/admin/list/savedate.asp，行60錯誤行代碼  SQLstr="delete d_31 where id="&id&""複製代碼

ASP開發中可能有時候會用大段的if... else 的判斷，不過如果是動態Response.write的內容，你想更方便閱讀代碼，可以用Response.End()來終端ASP的執行，也就類似於Break的用法，舉個例子：複製代碼 代碼如下:if (userid="")or(password="") then Response.Write("<script lanuage=javascript>alert('UserName or Password is

1.停止IIS；2.在運行中輸入反註冊命令 regsvr32 /u vbscript.dll，提示成功後進入第3步3.在運行中輸入反註冊命令 regsvr32 /u %windir%\system32\Inetsrv\Asp.dll4.啟動IIS；5.訪問ASP網站，注意看工具提示，如果出現：錯誤 ‘8002801d' 的話，執行第6步；否則執行第8步；6.在運行中輸入註冊命令 regsvr32

我們一般產生HTML靜態頁時，常常會事先做好一個模板，然後產生時調用模板檔案。那麼有沒有辦法不用模板，如一個正常的htmer.asp頁面，直接產生為htmer.html頁面呢？當然是可以的，而且非常簡單，今天就教大家在ASP中不用模板產生HTML靜態頁的方法。這裡假設有一個htmer.asp動態網頁面，你想把它產生為HTML靜態頁面htmer.html，那麼我們首先建立一個ASP程式檔案htmer_to_html.asp（該檔案就是用來將htmer.asp動態網頁面產生為靜態頁面htmer.ht

本文介紹在ASP中，NULL,Empty,Nothing這幾種空值的來源和判斷方法。Dim   A   Dim   B   As   String   Dim   C   As   Integer   Dim   D   As  

asp中REDIM的功能是動態定義數組長度　　動態數組裡面的一個語句，只能出現在過程裡面，可以多次使用。可以改變數組大小，和維數。格式：REDIM [Preserve] 數組名（下標1[下標2....]）Preserve 保留動態數組的內容（不用的話，每次執行REDIM語句，當前儲存的語句會全部丟失）例如：複製代碼 代碼如下:Dim DynArray() '定義數組DynArray()為動態數組REDIM Preserve

asp使用MSXML2.ServerXMLHTTP非同步發送請求時，需要注意判斷MSXML2.ServerXMLHTTP對象的readyState是否為4，如果不判斷直接擷取對象的屬性，如responseText會出現如下錯誤：複製代碼 代碼如下:msxml3.dll 錯誤 '8000000a'完成該操作所需的資料還不可使用。/a.asp，行 18asp使用MSXML2.ServerXMLHTTP非同步發送請求原始碼：複製代碼 代碼如下:<%if request.QueryString("

vbscript的Scripting.Dictionary建立了類似於Key索引對應Value值的字典對象，通過Key直接索引到指定的Value。VBScript中Scripting.Dictionary使用樣本如下:複製代碼 代碼如下:Dim objDictSet objDict = WSH.CreateObject("Scripting.Dictionary")  ' .Add(key, value)      objDict.Add "a"

測試代碼如下，請使用IE運行本樣本複製代碼 代碼如下:<script language="vbscript">d=nowxqj=weekday(d)msgbox xqj'輸出數字，星期日為1，星期一為2...依次類推，星期六為7msgbox weekdayname(xqj)</script>WEEKDAY 用途：返回某日期的星期數。在預設情況下，它的值為1(星期天)到7(星期六)之間的一個整數。Weekday是Visual