asp生成静态并且分页发布_第1页
asp生成静态并且分页发布_第2页
asp生成静态并且分页发布_第3页
asp生成静态并且分页发布_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、asp生成静态并且分页发布:liao | 发布时间: 2007年12月11日<!- #include file="conn.asp" -><%if request("action")="news" then call send_news()end if%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title&

2、gt;发布列表</title></head><body><table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFFFFF"> <form action="" method="post" name="form1"> <tr bgcolor="#f4f3f0"&g

3、t; <input name="types" type="hidden" value="news"> <td height="50" align="center"><input name="Submit" type="submit" class="myinput" value="提交生成文件列表"></td> </tr> </form></

4、table></body></html><%sub send_news() if request.Form("types")="news" then dim file_name,temp1,nname,topic,rssum,nummer,thepages,j,nums nummer=10 '每页显示的记录数 nums=nummer sql="select count(id) from news" set rs=server.CreateObject("adodb.Recordse

5、t") rs.open sql,conn,1,1 rssum=rs(0) if rssum mod nummer > 0 then thepages=rssumnummer+1 else thepages=rssumnummer end if 'thepages计算出总的页数 '下面从第一页到最后一页行成文件 for i=1 to thepages '有必要的时候加上这句 nums=nummer '下面是页面的内容 temp1="<html><head><title>" temp1=temp

6、1&vbcrlf&"第"&i&"页</title></head><body>" sql="select * from news" set rs1=server.CreateObject("adodb.Recordset") rs1.open sql,conn,1,1 rs1.move (i-1)*nummer if int(i*nummer)>int(rssum) then nums=nummer-(i*nummer-rssum) for j

7、=1 to nums temp1=temp1&vbcrlf&"<div>· <a href=''>"&rs1("topic")&"</a></div>" rs1.movenext next '分页开始 temp1=temp1&vbcrlf&"<div>当前共有"&rssum&"条信息， 页次："&i&"/"

8、;&thepages&" " temp1=temp1&vbcrlf&zxt_page(nummer,thepages,i,3,"#ff0000") temp1=temp1&vbcrlf&"</div>" '分页结束 temp1=temp1&vbcrlf&"</body></html>" '页面内容结束,内容都在temp1变量里 '得出文件名并赋值给file_name if thepages=1

9、 then file_name="list.html" else if i=1 then file_name="list.html" else file_name="lists"&i&".html" end if end if '开始生成html文件 call create_file(file_name,temp1) next Response.Write("<script>alert(""发布成功"");location.hre

10、f=""send_html.asp""</script>") Response.End() end ifend sub''='建文件函数，file_name文件名，filetype是文件的内容'=sub create_file(file_name,filetype) dim filetemp,fileos,filepath dim fso_sys_var fso_sys_var="script"&"ing.file"&"sys"

11、;&"tem"&"object" set fileos=createobject(fso_sys_var) filepath=server.mappath(file_name) set filetemp=fileos.createtextfile(filepath,true) filetemp.writeline( filetype ) filetemp.close set filetemp=nothing set fileos=nothingend sub''='分页函数，maxpage每页显示的页数，thepa

12、ges总页数,viewpage当前页数'pp翻页数,font_color当前页的颜色'=function zxt_page(maxpage,thepages,viewpage,pp,font_color) if int(thepages)=0 then zxt_page="<font color=" & font_color & ">1</font>" exit function end if dim pn,pi,page_num,ppp,pl,pr pi=1 ppp=pp2 if pp mod 2

13、 = 0 then ppp=ppp-1 pl=viewpage-ppp pr=pl+pp-1 if pl<1 then pr=pr-pl+1 pl=1 if pr>thepages then pr=thepages end if if pr>int(thepages) then pl=pl+thepages-pr pr=thepages if pl<1 then pl=1 end if if pl>1 then zxt_page=zxt_page&" <a href='list.html' title='第一页

14、9;>|<</a> " if pl-1=1 then zxt_page=zxt_page&" <a href='list.html' title='上一页'><</a> " else zxt_page=zxt_page&" <a href='lists"&pl-1&".html' title='上一页'><</a> " end if end if

15、for pi=pl to pr if cint(viewpage)=cint(pi) then zxt_page=zxt_page&" <font color=" & font_color & ">" & pi & "</font> " else if pi=1 then zxt_page=zxt_page&" <a href='list.html' title='第 " & pi & "

16、 页' clases=0>" & pi & "</a> " else zxt_page=zxt_page&" <a href='lists"& pi &".html' title='第 " & pi & " 页' clases=0>" & pi & "</a> " end if end if next if pr<thepages then zxt_page=zxt_page&" <a

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论