d1.asp

静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Classmake.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
  page=request.querystring("page")
  if page="" or page<1 then
  page=1
  end if
  if not(isnumeric(page)) then 
  page=1
  end if
  page=int(page)
  
  
  
  set rs=server.createobject("adodb.recordset")
  sql="select * from download  order by id desc"
			rs.open sql,conn,1,1
			if rs.eof then
			new1="<br><br><div align=center>暂时没有相关下载</div><br><br>"

    filename3="../lmmb.htm"
    set fso = Server.CreateObject("Scripting.FileSystemObject")
    set f2= fso.OpenTextFile(server.mappath(""&filename3&""))
    mb1=f2.ReadAll
   f2.close
    set f2=nothing
    set fso=nothing
	
	mb1=replace(mb1,"[title]","文件下载")
	mb1=replace(mb1,"[biaozhi]",new1)
	call makeclass
	call makeinfo
	mb1=replace(mb1,"[bottom]",bottom)	
	
	filename1="../xiazai1.htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	response.Redirect "download.asp"
	response.end
			else
			rs.pagesize=10
	  totalrec=rs.recordcount
	  totalpage=rs.pagecount
	  if page>totalpage then
      page=totalpage
	  end if
      rs.absolutepage=page
      i=0
	   dim id(),soft(),url(),sm(),kb()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve id(i),soft(i),url(i),sm(i),kb(i)
	  id(i)=rs("id")
      soft(i)=rs("soft")
      url(i)=rs("url")
      sm(i)=rs("sm")
	  kb(i)=rs("kb")
      rs.movenext
      loop
  rs.close
   for i=1 to ubound(id)
  new2=new2&"<table  style=BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid  height=100 cellspacing=0 cellpadding=5 width=511 align=center border=0><tr bgcolor=#eeeeee><td bgcolor=#f7f8f9> <table cellspacing=1 cellpadding=3 width=98% align=center bgcolor=#cccccc border=0><tr bgcolor=#eeeeee><td align=middle>名称：</td><td width=267><div align=left>"&soft(i)&"</div></td><td width=37><p align=center>大小</td><td width=90>"&kb(i)&"KB</td></tr><tr> <td align=middle width=66 bgcolor=#FFFFFF height=1> 说明：</td><td height=1 colspan=3 align=left bgcolor=#FFFFFF>"&sm(i)&"</td></tr><tr><td align=middle width=66 bgcolor=#EEEEEE height=2>立即下载：</td><td align=left bgcolor=#EEEEEE height=2 colspan=3><a href="&url(i)&"> <img height=19 src=images/button_download.gif width=79 border=0></a></td></tr></table></td></tr></table><br>"
	next
	new2=new2&"<table border=0 width=507 cellspacing=0 height=10 align=center><tr><td><p align=center>共<font color=red>"&totalpage&"</font>页&nbsp;&nbsp;&nbsp;&nbsp;第"&page&"页&nbsp;&nbsp;&nbsp;&nbsp;<a href=xiazai1.htm>首页</a>&nbsp;&nbsp;&nbsp;&nbsp;"
    if page-1>0 then
	new2=new2&"<a href=xiazai"&page-1&".htm>上一页</a>&nbsp;&nbsp;&nbsp;&nbsp;"
	else
	new2=new2&"<font color=666666>上一页</font>&nbsp;&nbsp;&nbsp;&nbsp;"
	end if
	if page+1<=totalpage then
	new2=new2&"<a href=xiazai"&page+1&".htm>下一页</a>&nbsp;&nbsp;&nbsp;&nbsp;"
	else
	new2=new2&"<font color=666666>下一页</font>&nbsp;&nbsp;&nbsp;&nbsp;"
	end if	
    new2=new2&"<a href=xiazai"&totalpage&".htm>尾页</a>&nbsp;&nbsp;&nbsp;&nbsp;共<font color=red>"&totalrec&"</font>条</font></p></td></tr></table>"
	end if
	filename1="../xiazai"&page&".htm"
	filename3="../lmmb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename3&""))
mb1=f2.ReadAll
f2.close
set f2=nothing
set fso=nothing

set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	mb1=replace(mb1,"[biaozhi]",new2)	
	mb1=replace(mb1,"[title]","文件下载")
	mb1=replace(mb1,"[keywords]","文件下载")
	mb1=replace(mb1,"[description]","文件下载")
	call makeclass
	call makeinfo
	mb1=replace(mb1,"[bottom]",bottom)
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	if page<>totalpage then
	response.redirect "d1.asp?page="&page+1
	else
	response.Redirect "download.asp"
    end if
		%>