makepage.asp

功能说明： 1

<!--#include file="adminconn.asp"-->
<%
  if session("aleave")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
  top=request("top")
%>
<%
dim all
all=request("all")
dim str
if all="all" then 
 asql="select * from XS20_CLASS"
else
  asql="select * from XS20_CLASS where classid="&top
end if
set ars=server.CreateObject("adodb.recordset")
    ars.open asql,adyou,1,1
while not ars.eof
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from XS20_CLASS where classid="&ars("classid"),adyou,1,1
     if not rs.eof then cname=rs("classname")
 <!-- memo=rs("memo")-->
     rs.close 
     set rs=nothing
str=""
str=str&"<script src=""images/top.js""></script>"
str=str&chr(13)&"<table width=""770"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr><td height=""5""></td></tr>"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"<td><script language=""javascript"" src=""showad.asp?id=21""></script></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"  <tr><td height=""5""></td></tr>"
str=str&chr(13)&"  <tr><td height=""1"" bgcolor=""#CCCCCC""></td></tr>"
str=str&chr(13)&"</table>"
str=str&chr(13)&"<table width=""776"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td height=""25"" style=""font-size:13px""> <img src=""images/home.gif"" width=""14"" height=""14"" hspace=""4"">"
str=str&chr(13)&"      <a href='index.htm'>首页</a> <strong>&gt;&gt;</strong> "&memo&","&cname&"</td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"</table>"
str=str&chr(13)&"<table width=""776"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td width=""180"" height=""400"" valign=""top""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
str=str&chr(13)&"       <tr>"
str=str&chr(13)&"          <td class=""kuancolor""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>"
str=str&chr(13)&"          <tr><td height=25 class=""dancolor"">&nbsp;&nbsp;"
str=str&cname
str=str&"</td></tr>"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from XS20_CLASS where topclass="&ars("classid"),adyou,1,1
while not rs.eof
str=str&"<tr><td height=22>&nbsp;&nbsp; ◆ <a href='"&rs("classid")&".htm' target='_self'>"&rs("classname")&"</a></td></tr>"
rs.movenext
wend
rs.close
set rs=nothing
str=str&"</table></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"       <tr>"
str=str&chr(13)&"          <td>&nbsp;</td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"        <tr>"
str=str&chr(13)&"          <td>&nbsp;</td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"      </table></td>"
str=str&chr(13)&"    <td width=""5""></td>"
str=str&chr(13)&"    <td valign=""top""><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#D2E4FC"">"
str=str&chr(13)&"        <tr>"
str=str&chr(13)&"          <td colspan=""4"" height=""22"" align=""center"">"&cname&"</td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"        <tr bgcolor=""#FFFFFF"">"
   set myrs=server.createobject("adodb.recordset")
       mysql="select * from XS20_WEB where classid="&ars("classid")&" order by click DESC"
	   myrs.open mysql,adyou,1,1
	   i=1
	   while not myrs.eof
           if myrs("vip")=1 then 
		      str=str&chr(13)&"          <td height=""25"">&nbsp;&nbsp;<a href=""gourl.asp?id="&myrs("id")&""" target=""_blank""><font color='#ff0000'>"&myrs("title")&"</font></a></td>"
		   else
		     str=str&chr(13)&"          <td height=""25"">&nbsp;&nbsp;<a href=""gourl.asp?id="&myrs("id")&""" target=""_blank"">"&myrs("title")&"</a></td>"
		   end if
       if i mod 4=0 then 
	       str=str&"</tr>"
		   if (i/4) mod 2=1 then
		      str=str&"<tr bgcolor=""#f0f8ff"">"
		   elseif (i/4) mod 2=0 then
		      str=str&"<tr bgcolor=""#ffffff"">"
		   end if
		elseif i=myrs.recordcount and i mod 4=1 then 
		 str=str&"          <td>&nbsp;</td>"
		 str=str&"          <td>&nbsp;</td>"
		 str=str&"          <td>&nbsp;</td>"
		 str=str&"</tr>"
		elseif i=myrs.recordcount and i mod 4=2 then 
		 str=str&"          <td>&nbsp;</td>"
		 str=str&"          <td>&nbsp;</td>"		 
		 str=str&"</tr>"
		elseif i=myrs.recordcount and i mod 4=3 then 
		 str=str&"          <td>&nbsp;;</td>"		 		 
		 str=str&"</tr>" 
	   end if
	   i=i+1
	   myrs.movenext
	   wend
	   myrs.close
	   set myrs=nothing
str=str&chr(13)&"      </table></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"</table>"
str=str&chr(13)&"<script src=""images/bottom.js""></script>"
str=str&chr(13)&"<table width=""776"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td align=""center""><script src=""count/online.asp""></script></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"</table>"
set openobject=server.createobject("scripting.filesystemobject")
  sMapFileName=server.mappath("../" & ars("classid") & ".htm")
   If openobject.FileExists(sMapFileName) Then
		 openobject.DeleteFile(sMapFileName)
    end if
     set openfile=openobject.createtextfile(server.mappath("../" & ars("classid") & ".htm"),true)
      openfile.write str
     set openfile=nothing
     set openobject=nothing
ars.movenext
wend
ars.close
set ars=nothing
response.write"<script>alert('生成成功');window.history.go(-1)</script>"
%> 
<script>
esave.style.visibility="hidden";
</script>