ASP

這次在項目中，用到了大檔案上傳，要上傳的檔案有100多m，於是研究現在國內使用的大檔案上傳的組件發現用的比較多的有兩個控制項AspnetUpload 2.0和Lion.Web.UpLoadModule，另外還有思歸在它的部落格堂中所說的辦法 http://blog.joycode.com/saucer/archive/2004/03/16/16225.aspx   兩個控制項的方法是：利用隱含的HttpWorkerRequest，用它的GetPr

 發現好多asp的系統在調用文章的時候如果不產生靜態,輸出的都是類似 http://www.xxx.com/show.asp?id=26 這種格式的. 如果可以換成  http://www.xxx.com/show/?26 這種格式,感覺清減了不少,當然對於支援偽靜態空間 還可以設定成  http://www.xxx.com/show/26  據說著楊可以增加搜尋引擎收錄的幾率. 代碼如下:

例如:我們在百度中搜尋 雲棲社區，則網址後面的參數就是http://www.baidu.com/s?cl=3&wd=%BD%C5%B1%BE%D6%AE%BC%D2如果我們想將%BD%C5%B1%BE%D6%AE%BC%D2還原為中文，使用下面的函數即可。<% response.write urldecode("http://www.baidu.com/s?cl=3&wd=%BD%C5%B1%BE%D6%AE%BC%D2") '===============================

一、URL網址重寫1、在MSDN中下載一個檔案，將ActionlessForm.dll和URLRewriter.dll放到bin目錄下。這是MSDN中關於URL重寫的一篇文章裡的地址。在 ASP.NET 中執行 URL 重寫 2、將web.config檔案中添加下面的代碼<!-- 自訂配置節 --> <configSections>    <section name="RewriterConfig"

看了這個的一些文章,學到了很多東西,現在和大家一起分享  　　flash現在只是一個顯示的功能,過程中看了一些別人的東西,覺得分頁似乎有很簡單的實現方式.基本上都是用xml傳送的.顯示用 list 組件和 datagrid 都可以,這裡我用的是動態文本,因為覺得組件用的太麻煩了.所以用了蠢辦法,沒辦法,找不到更好的~~~下面代碼中的 list[..]就是動態文本的名趁，一次顯示15條 //顯示程式如下: 

複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '設定登陸密碼，使用前務必修改此密碼 PASSWORD = "www.pifoo.com" '其他掃描設定 DimFileExt = "asp,cer,asa,cdx"  '檔案類型副檔名列表，不在此列表的將不被掃描

Ajax+ASP和Flash+ASP資料存取方法兩種資料存取方法差不多。===============================下面是一個ChatRoom的Ajax部分代碼:var ajaxHttpRequest = false;function ajaxInit() { if(window.XMLHttpRequest) { //Mozilla, Opera, ...  ajaxHttpRequest = new

複製代碼 代碼如下: <% '屏蔽主流的下載工具 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 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

複製代碼 代碼如下: <% 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

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

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

<%  '處理接收分頁得參數,顯示頁數 也就預設第一頁  'page這個參數就是讓變數pagenum去顯示第一也得值:0  if Request("page")="" then  pageNum=0  '下面就是page接參數  else  pageNum=Request("page") if not isnumeric(pageNum) then

具體特徵如下： 1、通過模板實現俄文正常。 2、通過後台資料庫產生的靜態俄文資訊，後台顯示正常， 前台亂碼。 3、英文正常。 和該主題相關的類似或不同表達 FSO寫UTF-8編碼檔案 FSO怎麼才能產生utf-8編碼的檔案 FSO產生的檔案預設是什麼編碼格式 如何轉換成UTF-8編碼 FSO產生靜態網頁的問題 ASP中用FSO組建檔案代碼如下 複製代碼 代碼如下: function createfile(sfilename,scontent) set

以下函數採用FSO對象，檔案位置在FSO.ASP。FSO對象的檔案編碼屬性只有三種，系統預設，Unicode，ASCII，並沒有我們要的utf-8，所以一般中文系統上使用FSO對象產生的檔案都是gb2312網頁編碼格式，無法產生UTF-8編碼，因此，英文等拉丁語系和中文可以正常顯示，但象俄語等非拉丁語系，頁面就會出現亂碼。 複製代碼 代碼如下: function createfile(sfilename,scontent) set

ADO對象： Connection Command Recordset Record Stream ASP支援的對象很多，可以自己編寫COM組件，下面是我們經常使用的： Server.CreateObject("scripting.filesystemobject") Server.CreateObject("scripting.dictionary")hashtable server.createxobject("word.Application")//server

複製代碼 代碼如下:<% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒內要求節流10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then Response.Cookies("AppealCount")=1 AppealCount=1 Response.Cookies("AppealCount").Expires=DateAdd("s",60,Now())