makeclass1.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)
  
  gid=request("mc2")
  set rs=server.createobject("adodb.recordset")
  	sql="select * from smallclass where scid="&gid
			rs.open sql,conn,1,1
			if not rs.eof then
			classname=rs("name2")
			classname1=rs("scname")
			biaoti=rs("biaoti")
			gjz=rs("gjz")
			miaoshu=rs("miaoshu")
			thebcid=rs("bcid")
			end if
			rs.close
			
	sql="select * from bigclass where bcid="&thebcid
	rs.open sql,conn,1,1
	if not rs.eof then
	bname=rs("bcname")
	burl=rs("name1")
	end if
	rs.close
	lj="<a href=../index.htm>首页</a><<<<<a href="&burl&"1.htm>"&bname&"</a>"
			
  sql="select * from news where sclassid="+cstr(gid)+" order by id desc"
			rs.open sql,conn,1,1
			if not rs.eof then
	  rs.pagesize=20
	  totalrec=rs.recordcount
	  totalpage=rs.pagecount
	  if page>totalpage then
      page=totalpage
	  end if
      rs.absolutepage=page
      i=0
	   dim id(),title(),filename()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve id(i),title(i),filename(i)
	  id(i)=rs("id")
	  title(i)=rs("title")
	  filename(i)=rs("filename")
      rs.movenext
      loop
  rs.close
  set rs=nothing
   new1="<table width=90% border=0 align=center cellpadding=0 cellspacing=0><tr><td>"
   for i=1 to ubound(id)
   new2=new2&"·"&"<a href=news/"&filename(i)&".htm target=_blank>"&title(i)&"</a><table width=90% height=1 border=0 cellpadding=0 cellspacing=0><tr><td background=Images/dot_line.gif></td></tr></table>"
	next
	new2=new2&"</td></tr></table><br>"
	new2=new2&"<table border=0 width=90% 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="&classname&"1.htm>首页</a>&nbsp;&nbsp;"
    if page-1>0 then
	new2=new2&"<a href="&classname&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="&classname&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="&classname&totalpage&".htm>尾页</a>&nbsp;&nbsp;共<font color=red>"&totalrec&"</font>条</font></p></td></tr></table>"
	new3=new1&new2
	
	 set rs=server.createobject("adodb.recordset")
	 sql="select top 10 * from news where sclassid="+cstr(gid)+" and tj=true order by id desc"
	 rs.open sql,conn,1,1
	 if not rs.eof then
	 do while not rs.eof
	 tj=tj&"·[荐]<a href=news/"&rs("filename")&".htm target=_blank>"&left(rs("title"),17)&"</a><br>"
	 rs.movenext
	 loop
	 end if
	 rs.close
	 set rs=nothing
	 
	 set rs=server.createobject("adodb.recordset")
	 sql="select top 1 * from news where sclassid="+cstr(gid)+" and tt=true order by id desc"
	 rs.open sql,conn,1,1
	 if not rs.eof then
	 toutiao="<a href=news/"&rs("filename")&".htm target=_blank>"&rs("title")&"</a>"
	 ttcontent="  "&left(rs("body"),60)&"......    <a href=news/"&rs("filename")&".htm target=_blank>更多内容</a>"
	 end if
	 rs.close
	 set rs=nothing
	
filename1="../"&classname&page&".htm"
filename3="../classmb.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]",new3)
	
	title1=classname1
	mb1=replace(mb1,"[title]",title1)
	mb1=replace(mb1,"[website]",website)
	 mb1=replace(mb1,"[biaoti]",biaoti)
	 mb1=replace(mb1,"[key]",gjz)
	 mb1=replace(mb1,"[des]",miaoshu)
	 mb1=replace(mb1,"[theurl]",url1)
	mb1=replace(mb1,"[tuijian]",tj) 
	 mb1=replace(mb1,"[toutiao]",toutiao) 
	mb1=replace(mb1,"[theclass]",lj) 
	mb1=replace(mb1,"[ttcontent]",ttcontent) 

	mb1=replace(mb1,"[bottom]",bottom)
	call makeclass
	call makeinfo
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	if page<>totalpage then
	response.redirect "makeclass.asp?mc1="&gid&"&page="&page+1
    end if
    end if
		%>