一、說明 大家好，現將51AJAX的留言板源碼放出，有PHP和ASP兩個版本。 PHP版基於AJAX+PHP4.3+MySql 4.1+Dojo 0.3，ASP版基於AJAX+ASP+Access+Dojo 0.3。 壓縮包中已包含了Dojo架構的主檔案dojo.js，無需再下載Dojo包； 要下載完整的Dojo架構，請點擊這裡下載：http://download.dojotoolkit.org/release-0.3.1/dojo-0.3.1-ajax.zip。
'================================================== '函數名：ScriptHtml '作 用：過濾html標記 '參 數：ConStr ------ 要過濾的字串 '================================================== Function ScriptHtml(Byval ConStr,TagName,FType) Dim Re Set Re=new RegExp Re.
<%dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fsoMlpath="E:\page\mian\" '存放RAR.EXE和CMD.EXE的路徑ylj=Server.mappath("mian")&"\" '解壓檔案後所放的路徑ywj=Server.mappath("mian\apathy.rar") '要解壓的RAR檔案Set Shell =
'================================================== '函數名：GetArray '作 用：提取連結地址，以$Array$分隔 '參 數：ConStr ------提取地址的原字元 '參 數：StartStr ------開始字串 '參 數：OverStr ------結束字串 '參 數：IncluL ------是否包含StartStr '參 數：IncluR ------是否包含OverStr '=================
'================================================== '函數名：GetPaing '作 用：擷取分頁 '================================================== Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$False$" or ConStr="" Or StartStr="" Or
'================================================== '函數名：UrlEncoding '作 用：轉換編碼 '================================================== Function UrlEncoding(DataStr) Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8 StrReturn = "" For Si = 1 To
'================================================== '過程名：SaveRemoteFile '作 用：儲存遠端檔案到本地 '參 數：LocalFileName ------ 本地檔案名稱 '參 數：RemoteFileUrl ------ 遠程檔案URL '================================================== Function
'================================================== '函數名：PostHttpPage '作 用：登入 '================================================== Function PostHttpPage(RefererUrl,PostUrl,PostData) Dim xmlHttp Dim RetStr Set xmlHttp =
用ASP實現分級許可權控制 本文實現的是一個帳務管理系統中分級許可權的控制，程式使用ASP和avascript編寫，在裝有IIS4.0的win
'================================================== '函數名: CheckFile '作 用：檢查某一檔案是否存在 '參 數：FileName ------ 檔案地址 如:/swf/1.swf '傳回值：False ---- True '================================================== Public Function CheckFile(FileName)
附件是破解的ASP原始碼，如果你的空間支援ASP，那麼直接傳到你空間去就可以了，當然，這裡我們為了方便會員，給大家一個統一的就行了！ QUOTE: 眾所周知，163相簿速度是非常快的。簡直是QQ相簿的好幾倍。現在還有個上傳工具，可以一次性上傳很多張圖片。 但是有個很大缺點，就是不能別的地方連結相簿裡的圖片(這個就稱為防盜鏈系統)，這個當然是163考慮到自己利益所以才防盜鏈的。 不過，現在我便要把相簿裡的圖片在論壇顯示出來 嘿 下面這張圖片，就是我的一張相片，放在163的相簿裡 QUOTE:
'************************************************** '函數名：CreateKeyWord '作 用：由給定的字串產生關鍵字 '參 數：Constr---要產生關鍵字的原字串 '傳回值：產生的關鍵字 '************************************************** Function CreateKeyWord(byval Constr,Num) If Constr="" or
<%pagenum=55'指定列印行數%><HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><TITLE>銷售利潤明細報表列印</TITLE><style type="text/css">td {font-size:9pt;
一、無組件上傳的原理我還是一點一點用一個執行個體來說明的吧，用戶端HTML如下。要瀏覽上傳附件，我們通過<input type="file">元素，但是一定要注意必須設定form的enctype屬性為"multipart/form-data"： <form method="post" action="upload.asp" enctype="multipart/form-data"><label> <input type="file"
在Asp中如何得到所有表單的名稱跟對應的值。其實，這個問題很簡單，但是可能還是有很多人不知道該怎麼做，所以特地寫下來，僅供參考。在Asp程式中，用來獲得用戶端資料的對象是 Request，這個對象給我們提供了很多的方法以及屬性。比如，有這樣一個Form，<FORM METHOD=POST name=cqq ACTION=""> <INPUT TYPE="text" NAME="username"> <INPUT TYPE="text" NAME="password"
錨點是“top”，可以放在頁面的任何位置，一般是頁首。程式紅色部分是關鍵，就是對錨點出現的判斷，我設定的數值是4，意思是出現4個動態資料就出現一個錨點，少於4個時因為還在同一個頁面，就不需要有錨點出現，這個數值可以根據實際情況進行修改。為了對頁面進行進行美化，可以把錨點的文字用圖形替換把top替換成<img src=top.gif>。<a name="top"></a>…...(具體內容省略)<% While ((Repeat2__numRows
'================================================ '函數名：ReSaveRemoteFile '作 用：尋找檔案儲存替換 '參 數：Str ----原字串 '參 數：url ----當然網站URL '參 數：Dir -----儲存目錄 '參 數：InSave ------是否儲存,True,False '傳回值：格式化取後的字串 '=================
＜% @LANGUAGE = VBSCRIPT %＞＜%Option Explicit%＞＜%'以下程式批量改名檔案夾中的檔案名稱，並將所有檔案移動到新的檔案夾；Response.Write "＜html＞" & VbCrLf & "＜head＞" & VbCrLfResponse.Write "＜title＞批量檔案改名＜/title＞" & VbCrLfResponse.Write "＜/head＞" & VbCrLf & "＜body＞" &
asp之日期和時間函數樣本可以使用日期和時間函數來得到各種格式的日期和時間函數文法說明樣本NowNow()取得系統當前的日期和時間Dim MyVar MyVar = Now' MyVar 包含當前的日期和時間。DateDate()取得系統當前的日期Dim MyDate MyDate = Date' MyDate 包含當前系統日期。TimeTime()取得系統當前的時間Dim MyTime MyTime = Time ' 返回當前系統時間。YearYear(Date)取得給定日期的年份Dim
複製代碼 代碼如下:<% '************************************************************* '轉寄時請保留此聲明資訊,這段聲明不並會影響你的速度! '************************************************************* '************************************************************* '@author:
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
