征集网锐志网络淘途找素材上91123RF图片库
创意在线首页
官方微博:腾讯
平面设计交互设计CG动漫工业设计建筑环境数码影像创意搜
 首页大赛征集资讯教程画廊访谈作品集创企同盟设计招聘人才专区竞赛台专题论吧 找素材看酷站设计网址库
教程网 Illustrator、Photoshop、CoreaDreaw、AI教程、PS教程
当前位置:首页 > 教程 > 程序相关 > 正文
ASP生成静态分页页面的代码
作者: 来源: 发表时间:2010-7-1 12:38:22 浏览:

将分页生成静态页面的ASP代码

一、
<% if request.Cookies("uid")="" then%>
<!--#include file="conn.asp"-->
<script>window.status="HTML文件生成中……"</script>
<%dim starttime,endtime
starttime=Timer%>
<%
Set cmd = Server.CreateObject("ADODB.Command")
With cmd
    .ActiveConnection=conn
    .CommandType=&H0004 ’存储过程
    .CommandText="guestbookpro"
End With
Dim resultRS, resultArray
Set resultRS = cmd.Execute(, Null)
endtime=Timer
session("timeit")=endtime-starttime
If Not resultRS.EOF Then
    resultArray = resultRS.GetRows()
End If
Set resultRS = Nothing
Set cmd = Nothing

session("select")="fso"

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Filestart="bodyhtml"
folders=server.mappath("./bodyhtml")
if (fs.FolderExists(folders)) then’判断文件夹是否存在
else
fs.CreateFolder(folders)’不存在则创建文件夹
end if

user=session("uid")


htmtext="<script>function doo(){window.open(’help.htm’,’newwin’,’toolbar=no,scrollbars=yes’)}</script><div align=left>  <table border=0><tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=add.asp><img src=img/editnew.gif border=0></a>&nbsp;&nbsp;&nbsp;</td><td><div id=pagebar2></div><td></table></div>"
  

n=UBound(resultArray,2)+1
pagesize=8
yushu=n mod pagesize
if yushu=0 then
totalpage=fix(n/pagesize)
else
totalpage=fix(n/pagesize)+1
End If

on error resume next
for q=1 to totalpage
files=server.mappath("bodyhtml/bodyhtml"&q&".htm")
fs.deleteFILE files
next


for p=1 to totalpage

frompage=(p-1)*pagesize
topage=frompage+pagesize-1
if yushu=0 then
frompage=(p-1)*pagesize
topage=frompage+pagesize-1
else
frompage=(p-1)*pagesize
topage=frompage+pagesize-1
If p=totalpage Then
frompage=(p-1)*pagesize
topage=frompage+yushu-1
End if
end If

printHTML="<font color=white>从第"&frompage+1&"条----到-----第"&topage+1&"条----余数:"&yushu&"---页数总"&totalpage&"---总记录数:"&n&"&nbsp;&nbsp;耗时:0"&left(session("timeit"),4)&"秒</font>"
For i = frompage To topage
if user=resultArray(1,i) or user="fishbone" then
edit=" <a href=editgb.asp?newsid="&resultArray(0,i)&"><img src=img/edit.gif border=0 alt=修改></a>&nbsp;&nbsp;<img src=img/dellit.gif border=0 onclick=javascript:if(confirm(’删除[确定]?/隐藏[取消]?’)){window.location=’delgb.asp?del=sure&newsid="&resultArray(0,i)&"’}else{window.location=’delgb.asp?newsid="&resultArray(0,i)&"’} alt=删除 style=’cursor:hand’>"
else
edit=""
end if
printHTML=printHTML&"<table width=500 border=0 bgcolor=#999999 align=center cellspacing=1 celalpadding=4>"
printHTML=printHTML&"<tr bgcolor=#90b0d0>"
if resultArray(1,i)="系统消息" or resultArray(1,i)="master" then
printHTML=printHTML&"<td width=150 class=my1 align=center><font color=#000000>系统消息</font>"
else
printHTML=printHTML&"<td width=150 class=my1 align=center>" & "<a target=_blank href=theinfo.asp?name=" &resultArray(1,i)& " title="&resultArray(15,i)&">" &resultArray(1,i)& "</a>"
end if
printHTML=printHTML&"<td rowspan=3 width=350 class=my1>" &resultArray(2,i)
printHTML=printHTML&"<tr bgcolor=#90b0d0>"
printHTML=printHTML&"<td width=150 class=my1 align=center>" &resultArray(3,i)&"<br>"
if resultArray(11,i)="无法得到所在地" then
if resultArray(9,i)<>"" then
printHTML=printHTML&"<font color=red>"&resultArray(9,i)&"</font><br>"
printHTML=printHTML&"<font color=red>未能确定位置</font>"
else
printHTML=printHTML&"<font color=red>无法得到IP</font>"
end if
else
printHTML=printHTML&"<font color=green>"&resultArray(9,i)&"</font><br>"
printHTML=printHTML&"<font color=green>"&resultArray(11,i)&"</font>"
end if
printHTML=printHTML&"<tr bgcolor=#90b0d0>"
printHTML=printHTML&"<td width=150 class=my1 align=center>" & edit
printHTML=printHTML&"</table>"
printHTML=printHTML&"<br>"

next


htmtext2="<table border=0 align=center><tr><td align=center valign=middle><div id=pagebar><p align=center><a href=index.asp?page=1>首页</a>&nbsp;&nbsp;<a href=index.asp?page="&p-1&">上一页</a>&nbsp;&nbsp;<a href=index.asp?page="&p+1&">下一页</a>&nbsp;&nbsp;<a href=index.asp?page="&totalpage&">尾页</a>&nbsp;&nbsp;总页数:"&p&"/"&totalpage&"</div></td></tr></table><script>document.all.pagebar2.innerHTML=document.all.pagebar.innerHTML</script>"



files=Filestart&p&".txt"’本文件名称
filez=folders&""&files’文本文件路径
checkfile=server.mappath("bodyhtml"&Filestart&p&".htm")’检查htm文件是否已经存在,是则删除
Set f2 = fso.GetFile(checkfile)
if (fs.FileExists(checkfile)) then’检查htm文件是否已经存在,是则删除
f2.delete’册除文件
end if’判断结束
Dim ts’定义写入文件对象
set ts = fs.createtextfile(filez,true) ’开启写入文件内容****
ts.write(htmtext&printHTML&htmtext2)

ts.close
set ts=nothing ’释放对象
Dim EditFile’定义改写文件变量
Set EditFile = fs.GetFile(filez)’设置改写文件对象
EditFile.name= left(EditFile.name,len(EditFile.name)-4)&".htm" ’

next
response.write "ok"
set EditFile=nothing ’释放对象
set fs=nothing’释放对象

conn.close
set conn=Nothing




%>
<%else
session("select")="fso"
end if%>




在线编辑:52design
本文链接:


推荐阅读:
·年度出版物《中国创意设计年鉴·2016/2017》征集公告
·HAZZYS哈吉斯第二届原创插画设计大赛
·青春唯美插画培训网络远程班正在招生
·创企同盟VIP:网络品牌建设提供商-木兰设计
·2017大艺时代全国原创插画设计大赛征稿
·二十四节气标识系统设计征集函
·39800元 奉节县征集“三峡之巅”LOGO
·10000元 2017第三届“海上丝绸之路”创意设计大赛
免责声明:本站刊载此文不代表同意其说法或描述,仅为提供更多信息。对本文有异议,请联络本站!
转载要求:文章作者及来源信息必需保留。转载之图片、文件请不要盗链本站地址,且不准打上各自站点的水印!

创意素材推荐 矢量 | PSD | 模板 | 高清 | PNG | 网页背景
2009-02-06
韩国站点 素材资源 艺术摄影 游戏娱乐 影视网站 建筑家居 FLASH站 旅游购物 明星网站
设计门户 优秀企业 时尚品牌 象素站点 数码通信 设计公司 汽车网站 国外优秀 儿童网站
个性展示 网站教学 工 作 室 学校教育 卡通漫画 文化艺术 体育运动 美容健身 食品饮料
近期推荐报道 返回首页更多精彩等着你!

Photoshop| Photoshop快速调出情侣图片柔美的插画艺术| 绝望的小熊—美国插画师Luke
网页设计| 波兰Tiquet网站设计作品欣赏插画艺术| Nanami Cowdroy灵动黑白插画
Photoshop| Photoshop调出美女图片绚丽的橙红HTML/CSS| 实现DIV透明而里面的文字不透明
平面设计| 世界杯之平面广告欣赏插画艺术| Alberto Cerrite&ntil
平面设计| Havaianas人字拖最新平面广告系列网页设计| 英国madefavourite简洁细腻型
韩国站点 素材资源 艺术摄影 游戏娱乐 影视网站 建筑家居 FLASH站 旅游购物 明星网站 个性展示 网站教学 工 作 室 学校教育
设计门户 优秀企业 时尚品牌 象素站点 数码通信 设计公司 汽车网站 国外优秀 儿童网站 文化艺术 体育运动 美容健身 食品饮料
网站名称:whaternet
网站地址:http://whaternet.com/
加入时间:2014-8-5 13:59:20
网站名称:mnnaite
网站地址:http://www.mnnaite.com/static/
加入时间:2014-8-5 13:58:07
网站名称:tijuanaflats
网站地址:http://tijuanaflats.com/
加入时间:2014-8-5 13:55:32
网站名称:digital
网站地址:http://production-digital.com/
加入时间:2014-8-5 13:54:45
网站名称:deutschesee
网站地址:http://www.deutschesee.de/
加入时间:2014-8-5 13:51:54
网站名称:kennedy
网站地址:http://www.kennedyandoswald.com/
加入时间:2014-8-5 13:50:57
关于本站 | 联系方式 | 商业服务 | 合作伙伴 | 站点地图 | 免责声明 | 版权声明 | 在线投稿