六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)！

ASP+FSO+框架完成ASP生成htm并分頁的方法(大局部)

發(fā)表時(shí)間：2024-02-03 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]還是第一次在CSDN寫文章,本人文采和理論知識(shí)有限,寫得不正確的地方歡迎指正。其實(shí)網(wǎng)上已經(jīng)有很多ASP生成htm的文章了，有一種方法是ASP+XML的生成方法，雖然有一種好處就是不用程序?qū)懩０婢涂梢灾苯右迷瓉淼囊身撁嬖创a使用，但本人進(jìn)行此方法測(cè)試時(shí)，發(fā)現(xiàn)其穩(wěn)定性差和網(wǎng)速要求高(當(dāng)然不是在服務(wù)...

還是第一次在CSDN寫文章,本人文采和理論知識(shí)有限,寫得不正確的地方歡迎指正。其實(shí)網(wǎng)上已經(jīng)有很多ASP生成htm的文章了
，有一種方法是ASP+XML的生成方法，雖然有一種好處就是不用程序?qū)懩０婢涂梢灾苯右迷瓉淼囊身撁嬖创a使用，但
本人進(jìn)行此方法測(cè)試時(shí)，發(fā)現(xiàn)其穩(wěn)定性差和網(wǎng)速要求高(當(dāng)然不是在服務(wù)器上了)。特別是虛擬空間上經(jīng)常報(bào)錯(cuò)，有可能在本
人在此方法上代碼處理不足的原因吧。長(zhǎng)話短說，這篇文章使用大家常用的另一種方法ASP+FSO，這里還應(yīng)用了框架就是為
了處理大量分頁時(shí)減少生成時(shí)間使用的，這種方法是針對(duì)一些頁面量較大的ASP文件。

這里我引用一個(gè)簡(jiǎn)單實(shí)例：（旅游電子商務(wù)）全國各大城市酒店應(yīng)用靜態(tài)頁(htm)分頁顯示

1.應(yīng)用系統(tǒng)環(huán)境:win2000+ASP+MSSQL/ACCESS(數(shù)據(jù)庫基本沒有關(guān)系了通用的)+iis5.0

2.1個(gè)城市列表(CityHtml):包括定義靜態(tài)htm名稱共三個(gè)字段(城市ID（自動(dòng)編號(hào)）,城市名稱(CityName例如北京),生成htm前綴名(HtmlStartName例如beijing))

3.1個(gè)全國酒店列表(Hotel):這里我只建立三個(gè)字段（酒店ID(自動(dòng)編號(hào))，城市名稱(City),酒店名稱(HotelName)）方便來引用實(shí)例。

4.1個(gè)ASP頁面(ToHtm.asp)(生成htm使用)

5.1個(gè)循環(huán)框架頁面(IframeToHtm.asp)，應(yīng)用框架批量生成htm

以下給出兩個(gè)頁面的源碼

循環(huán)框架進(jìn)行批量生成的頁面:IFrameToHtm.asp

<!--#include file="conn.asp"-->'連接數(shù)據(jù)庫
<%
dim rs,sql,j
set rs=Server.CreateObject("adodb.recordset")
sql="select * from CityHtml"'打開全國城市列表
rs.open sql,conn,1,1
do until rs.eof'循環(huán)各大城市%>
<!--以下應(yīng)用框架打開ToHtml生成頁面-->
<IFRame name="LoadRcHtm<%=j%>" frameborder=0 width=100% height=30 scrolling=no src="ToHtml.asp?City=<%=cstr(rs("city"))%>&HtmlStartName=<%=rs("HtmlStart")%>"></IFrame>

<%rs.movenext
loop%>

生成程序頁面:ToHtm.asp 我在源碼大概寫上注釋**

<!--#include file="conn.asp"-->'數(shù)據(jù)連接文件
<%
On Error Resume Next'容錯(cuò)處理
Dim City'定義取得要生成頁面的城市
City=Request.Querystring("City")'獲取生成的城市酒店值從框架傳過來的在后面將介紹
HtmlStartName=Request.Querystring("HtmlStartName")'獲得生成htm文件名前綴
Dim sql'搜索字符串,這里我就直接打開表不用搜索變量了，搜索條件按自己寫就可以
sql="select * from Hotel where [City] = '" & City & "' "
Dim oRs'數(shù)據(jù)操作對(duì)象
Dim PageCounts'實(shí)現(xiàn)分頁生成必須得知呀有多少頁
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open Sql,oConn,1,1'找開酒店等于City變量的表
oRs.pagesize=10'十個(gè)記錄為一頁
PageCounts=oRs.pagecount'得出要生成多少個(gè)頁面，循環(huán)生成使用
Dim fs'定義fso文件對(duì)象
Dim folders'存放生成靜態(tài)頁的文件夾名稱
Dim Filestart'定義生成htm文件前綴
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Dim i
for i=1 to PageCounts'開始循環(huán)生成頁面,也就是分頁生成了
page=i
oRs.absolutepage=i'頁碼
rowcount=oRs.pagesize'當(dāng)頁記錄數(shù)
folders=server.mappath("CityHtml")
if (fs.FolderExists(folders)) then'判斷文件夾是否存在
else
fs.CreateFolder(folders)'不存在則創(chuàng)建CityHtml文件夾
end if
if i=1 then
Filestart=HtmlStartName'如果為第一頁則定義文件名為傳值名.例如beijing則為beijing.htm
else
Filestart=HtmlStartName&i'如果第二頁則為beijing+1例如有兩頁也就是i等于2則為 beijing2.htm如此類推...(.htm后綴就在后面加上)
end if
Dim files'定義生成文本文件名稱變量
Dim filez'定義文件路徑名稱變量
files=Filestart&".txt"'本文件名稱
filez=folders&"\"&"files'文本文件路徑
'冊(cè)除文件
Dim checkfile'檢查文本文件是否已經(jīng)存在,是則刪除
checkfile=server.mappath("CityHtml\"&Filestart&".htm")'檢查htm文件是否已經(jīng)存在,是則刪除
if (fs.FileExists(checkfile)) then'檢查htm文件是否已經(jīng)存在,是則刪除
Dim df'定義文件對(duì)象*刪除文件使用*
Set df=fs.GetFile(checkfile)'定義要冊(cè)除的文件
df.delete'冊(cè)除文件
end if'判斷結(jié)束
Dim ts'定義寫入文件對(duì)象
set ts = fs.createtextfile(filez,true) '開啟寫入文件內(nèi)容**我在正文只簡(jiǎn)單寫入酒店名稱和靜態(tài)數(shù)字分頁顯示**
ts.write("<Html><Head><Title>生成"&City&"城市酒店</Title>"&vbcrlf)'之后就是要生成的正文件內(nèi)容了跟使用Response.write
ts.write("<META http-equiv=Content-Type content=text/html; charset=gb2312>"&vbcrlf)
ts.write("<meta name=keywords content="&city&"酒店>"&vbcrlf)
ts.write("<link href='/Style/style.css' rel='stylesheet' type='text/css'></head><body topmargin=0>"&vbcrlf)
ts.Write("<TABLE WIDTH=760 cellspacing=0 cellpadding=0 align=center>"&vbcrlf&_
"<TR><TD width='100%'>"&vbcrlf)
'分頁輸出開始
'數(shù)字分頁程序原理在這我就不多說了,不懂的朋友可在網(wǎng)上搜索一下
Dim page'當(dāng)前頁
Dim Page2'數(shù)字分頁變量
Dim s'數(shù)字分頁變量
if page=1 then
ts.write (" [首 頁]  [前一頁] ")
else
ts.write (" <a href="&HtmlStartName&".htm"&" class=blue>[首 頁]</a>  <a href="&HtmlStartName&Replace(page-1,1,"")&".htm"&" class=blue>前一頁</a> ")
end if
page2=(page-(page mod 10))/10
if page2<1 then page2=0
for s=page2*10-1 to page2*10+10
if s>0 then
if s=cint(page) then
ts.write (" <font color='#000000'>["& s & "]</font>")
else
if s=1 then
ts.write (" <a href="&HtmlStartName&replace(s,1,"")&".htm"&" class=blue>["& s &"]</a>")
else
ts.write (" <a href="&HtmlStartName&s&".htm"&" class=blue>["& s &"]</a>")
end if
end if
if s=ors.pagecount then
exit for
end if
end if
next
if cint(page)=ors.pagecount then
ts.write (" [后一頁]  [尾 頁]")
else
ts.write (" <a href="&HtmlStartName&page+1&".htm"&" class=blue>[后一頁]</a> <a href="&HtmlStartName&ors.pagecount&".htm"&" class=blue>[尾 頁]</a>")
end if
ts.write("</TD></TR>")
'分頁輸出結(jié)束
do while not ors.eof and rowcount>0 '輸出酒店名稱
ts.write("<TR><TD width='100%'>"&oRs.Fields("Chinese_Name")&"</TD></TR>"&vbcrlf)
oRs.movenext
rowcount=rowcount-1'當(dāng)頁記錄數(shù)-1 loop
ts.write("</Table></body></html>"&vbcrlf)
ts.close
set ts=nothing '釋放對(duì)象
Dim EditFile'定義改寫文件變量
Set EditFile = fs.GetFile(filez)'設(shè)置改寫文件對(duì)象
EditFile.name= left(EditFile.name,len(EditFile.name)-4)&".htm" '改寫文本文件成htm
next'循環(huán)生成結(jié)束(分頁生成)
set EditFile=nothing '釋放對(duì)象
set fs=nothing'釋放對(duì)象
if err.number<>0 then '處理生成錯(cuò)誤
Response.write(City&"更新時(shí)發(fā)生未知錯(cuò)誤<A href=ToHtml.asp?City="&City&"&HtmlName="&HtmlStartName&">重新更新</A>")
else
Response.Write(City&"酒店更新已完成 "&Now())
end if
%>
主站蜘蛛池模板： 亚洲精品乱码久久久久久 | 亚洲黄色成人 | 色综合久久88色综合天天小说 | 午夜免费在线观看 | 青青草免费观看视频 | 伊人院 | 欧美性猛交ⅹxxx乱大交免费 | 欧美最猛性 | 手机av在线播放 | 亚洲精品另类有吗中文字幕 | 欧美性大战久久久久久 | 日韩美女在线看免费观看 | 亚洲国产日韩综合久久精品 | 青青青国产成人久久111网站 | 色综网 | 天天综合网天天综合色 | 日韩欧美中文字幕一区 | 伊人久久大香线蕉免费视频 | 深夜视频在线播放视频在线观看免费观看 | 思思99思思久久精品 | 在线天堂最新版资源 | 亚洲福利在线播放 | 日本男人的天堂 | 亚洲高清视频免费 | 午夜老司机在线观看 | 夭天干天天做天天免费看 | 四虎在线最新永久免费 | 天天影视综合色区 | 中文字幕 一区 婷婷 在线 | 日本特黄特色aaa大片免费欧 | 日本精品a在线 | 亚洲91在线视频 | 亚洲福利一区二区精品秒拍 | 伊人久久大香线蕉观看 | 日本免费网址 | 奇米网久久 | 日韩私人影院 | 日韩大片免费观看视频播放 | 天堂伦理片| 速度与激情9在线观看 | 欧美一级欧美三级 |