asp支援與資料庫
的互動，如microsoft sql server
、microsoft access
、mysql
和oracle
，比較流行的是asp和microsoft sql server的組合。
組織了下,寫了個靜態頁生成類
htmlmaker.asp 類檔案
<%
´/*************************
´/ janchie 2004/11/15 [email protected]
´/ 個人** http://ju1.com,http://g22.net
´/*************************
class htmlmaker
´/*************************
´/ 屬性設定說明
´/ foldename "資料夾名"
´/ 如果不設定,將自動生成[年月日]時間格式的資料夾名
´/ filename "檔名"(含前字尾)
´/ 如果不設定,將自動生成[時分秒]時間格式的檔名,字尾為.html
´/ htmlstr "生成的**內容"
´/*************************
private htmlfolder,htmlfilename,htmlcontent
public property let foldename(str)
htmlfolder=str
end property
public property let filename(str)
htmlfilename=str
end property
public property let htmlstr(str)
htmlcontent=str
end property
´/*************************
´/ 檔名轉換日期函式
´/*************************
private function datename1(timestr)
dim s_year,s_month,s_day
s_year=year(timestr)
if len(s_year)=2 then s_year="20"&s_year
s_month=month(timestr)
if s_month<10 then s_month="0"&s_month
s_day=day(timestr)
if s_day<10 then s_day="0"&s_day
datename1=s_year & s_month & s_day
end function
private function datename2(timestr)
dim s_hour,s_minute,s_ss
s_hour=hour(timestr)
if s_hour<10 then s_hour="0"&s_hour
s_minute=minute(timestr)
if s_minute<10 then s_minute="0"&s_minute
s_ss=second(timestr)
if s_ss<10 then s_ss="0"&s_ss
datename2 = s_hour & s_minute & s_ss
end function
´/*************************
´/ 初試化
´/*************************
private sub class_initialize()
htmlfolder=datename1(now)
htmlfilename=datename2(now)&".html"
htmlcontent=""
end sub
private sub class_terminate()
end sub
´/*************************
´/ html檔案生成
´/*************************
public sub htmlmake()
on error resume next
dim filepath,fso,fout
filepath = htmlfolder&"/"&htmlfilename
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(htmlfolder) then
else
end if
fout.writeline htmlcontent
fout.close
end sub
´/*************************
´/ html檔案刪除
´/*************************
public sub htmldel()
dim filepath,fso
filepath = htmlfolder&"/"&htmlfilename
set fso = createobject("scripting.filesystemobject")
set fso = nothing
end sub
end class
%>
應用示例:
test.asp
<%
set myhtml= new htmlmaker
´myhtml.foldename = "test"
´myhtml.filename = "ok.shtml"
myhtml.htmlstr = "測試測試測試測試
"myhtml.htmlmake
set myhtml=nothing
response.write("生成成功!!")
%>
ASP生成靜態頁小例子
先是index.asp檔案當然也可以用html的檔案 然後是send.asp這個就是生成靜態頁的檔案 function chan time shijian 轉換日期時間函式 s year year shijian if len s year 2 then s year 20 s year s mon...
ASP生成靜態頁（收1）
下面的例子是將 index.asp?id 1 index.asp?id 2 index.asp?id 3 這三個動態頁面，分別生成ndex1.htm,index2.htm,index3.htm存在根目錄下面 function asp2html filename dim code code repla...
如何編寫乙個ASP類
在 class 塊中，成員通過相應的宣告語句被宣告為 private 私有成員，只能在類內部呼叫 或 public 公有成員，可以在類內外部呼叫 被宣告為 private 的將只在 class 塊內是可見的。被宣告為 public 不僅在 class 塊的內部是可見的，對 class 塊之外的 也是...