makeclass21.asp

if you want it,call me.

<!--#include file="conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================

gid=request("mc1")

  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 smallclass where scid="&gid
			rs.open sql,conn,1,1
			if not rs.eof then
			classname=rs("name2")
			classname1=rs("scname")
			end if
			rs.close
			
  sql="select * from goods where sclassid="+cstr(gid)+" order by id desc"
			rs.open sql,conn,1,1
			if rs.eof then
			new1="<br><br><div align=center>暂时没有该类商品</div><br><br>"
			set rs1=server.createobject("adodb.recordset")
	    sql1="select top 1 * from mb order by id desc"
		rs1.open sql1,conn,1,1
		mb1=rs1("classmb")
		rs1.close
		sql1="select top 1 * from ad order by id desc"
		rs1.open sql1,conn,1,1
		if not rs1.eof then
		pic1=rs1("pic")
		url1=rs1("url")
		end if
		rs1.close
		banner="<a href="&url1&" target=blank><img src=../../"&pic1&" width=486 height=60 border=0>"
		mb1=replace(mb1,"[banner]",banner)
		mb1=replace(mb1,"[biaozhi]",new1)
	
	title=classname1&"--商品分类"
	mb1=replace(mb1,"[title]",title)
	
	title1=classname1
	mb1=replace(mb1,"[title1]",title1)
	
	mb1=replace(mb1,"[title2]","")
	filename1="../class/"&classname&"/index1.htm"
	
	set fso=server.createobject("scripting.filesystemobject")
	if fso.folderexists(server.mappath("../class/"&classname&""))=false then
	fso.createfolder(server.mappath("../class/"&classname&""))
	end if
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	set rs1=nothing
	response.write"生成"&classname&"文件夹"
				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(),sp_name(),marprice(),memprice(),sp_pic(),filename(),zhidi()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve id(i),sp_name(i),marprice(i),memprice(i),sp_pic(i),filename(i),zhidi(i)
	  id(i)=rs("id")
	   sp_name(i)=rs("sp_name")
      marprice(i)=rs("marprice")
      memprice(i)=rs("memprice")
	  sp_pic(i)=rs("spic")
	  filename(i)=rs("filename")
	  zhidi(i)=rs("vipprice")
      rs.movenext
      loop
  rs.close
  new1="<table width=90% border=0 align=center cellpadding=0 cellspacing=0><tr>"
   for i=1 to ubound(id)
   new2=new2&"<td><table width=246 height=80 border=0 cellpadding=0 cellspacing=0><tr><td width=80 height=80 rowspan=4><a href=../../products/"&filename(i)&".htm target=blank><img class=border3 border=0 src=../../"&sp_pic(i)&" width=80 height=80></a></td><td><div align=center><a href=../../products/"&filename(i)&".htm target=blank><font class=word1>"&sp_name(i)&"</font></a></div></td></tr><tr><td><div align=center>市场价:<s>"&marprice(i)&"</s>元</div></td></tr><tr><td><div align=center>会员价:"&memprice(i)&"元</div></td></tr><tr><td><div align=center>VIP价:"&zhidi(i)&"元</div></td></tr></table></td>"
   if i mod 2=0 then
	new2=new2&"</tr><tr><td height=15></td></tr>"
	end if
	next
	new2=new2&"</table><br>"
	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=index1.htm>首页</a>&nbsp;&nbsp;&nbsp;&nbsp;"
    if page-1>0 then
	new2=new2&"<a href=index"&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=index"&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=index"&totalpage&".htm>尾页</a>&nbsp;&nbsp;&nbsp;&nbsp;共<font color=red>"&totalrec&"</font>条</font></p></td></tr></table>"
	new3=new1&new2
    
	filename1="../class/"&classname&"/index"&page&".htm"
	
	set fso=server.createobject("scripting.filesystemobject")
	if fso.folderexists(server.mappath("../class/"&classname&""))=false then
	fso.createfolder(server.mappath("../class/"&classname&""))
	end if
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	set rs=server.createobject("adodb.recordset")
	    sql="select top 1 * from mb order by id desc"
		rs.open sql,conn,1,1
		mb1=rs("classmb")
		rs.close
		sql="select top 1 * from ad order by id desc"
		rs.open sql,conn,1,1
		if not rs.eof then
		pic1=rs("pic")
		url1=rs("url")
		end if
		rs.close
		banner="<a href="&url1&" target=blank><img src=../../"&pic1&" width=486 height=60 border=0>"
		mb1=replace(mb1,"[banner]",banner)
		mb1=replace(mb1,"[biaozhi]",new3)
	
	title=classname1&"--商品分类"
	mb1=replace(mb1,"[title]",title)
	
	title1=classname1
	mb1=replace(mb1,"[title1]",title1)
	
	mb1=replace(mb1,"[title2]","")
	
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	set rs=nothing
	if page<>totalpage then
	response.write "<meta http-equiv=Refresh content='0; URL=makeclass21.asp?mc1="&gid&"&page="&page+1&"'>"
	else
	response.write"生成"&classname&"文件夹"
	end if
    end if
		%>