<!--#include file="htm_top.asp"-->
<%
filename="../html/newzj.htm"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>
<head><title>生成首页专集Htm文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt;line-height:140%} 
body{font-size:9pt;line-height:140%} 
a:link       { color: #0033CC; text-decoration: none }
a:visited    { color: #0033CC; text-decoration: none }
a:active     { color: #FF0000; text-decoration: none }
a:hover      { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="1" leftmargin="1" scroll="no">
<%if mskrindex="ok" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%"><font color="#FF0000">·</font>成功首页专集,时间<%=Now()%><br><font color="#FF0000">·</font><a target="_blank" href="<%=filename%>"><%=filename%></a></td>
  </tr>
</table>
<%else%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#888888" height="100%">
<tr><td style="font-size: 9pt" align="center"><a class=3d href="javascript:this.location.reload()" >刷新本页面</a></td></tr>
<form name="frmAnnounce" method="post" action="?">
  <tr>
    <td width="100%">
    <b><font color="RED">生成首页专集; 生成文件</font>:<a class=JyDownSort target="_blank" href="<%=filename%>"><%=filename%></a> </b></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF" height="100%">
<textarea style="width:100%; height:100%;" rows="19" name="body" cols="102">
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页专辑页面 - www.0hao.cn</title>
<link rel="stylesheet" href="../images/css.css" type="text/css">
<SCRIPT language=javascript src="../js/js.js"></SCRIPT>
</head><base target="_blank"><body topmargin="0" leftmargin="0">
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
  <tr>
<%
set rs=conn.execute("SELECT * from special order by specialid desc")
for i = 1 to 10
if not rs.eof then
%><td align="center" width="10%"><div align="center">
<table border="0" cellpadding="3" cellspacing="0" bordercolor="#D0D0D0" height="60"><tr><td align="center" style="border: 1px solid #E0E0E0"><a style="color: #0795B9; text-decoration: none" title="专集名称:<%=rs("name")%>" href="../special/<%=rs("specialid")%>.htm"><img height="60" src="http://www.0hao.cn/<%=rs("pic")%>" width="60" style="border: 0px solid #666666; " align="center"></a></td></tr></tr></table></div><div align="center"><table border="0" width="100%" cellspacing="0" cellpadding="0" height="10"><tr><td align="center"><a title="<%=rs("name")%>" href="../special/<%=rs("specialid")%>.htm"><font color="#009933"><%if rs("isgood")=true then%><font color=red><%=left(rs("name"),5)%></font><%else%><%=left(rs("name"),5)%><%end if%></font></a></td></tr><tr><td align="center"><a href="../singer/<%=rs("nclassid")%>.Htm"><font color="#333333">[<%=left(rs("nclass"),5)%>]</font></a></td></tr></table></div></td><%
rs.movenext
end if
next
rs.close
set rs=nothing
conn.close
set conn=nothing%>
  </tr>
</table></html>
    </textarea></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#F0F0F0">
    <p align="center">        
    <input name="change" class=buttonface value="生成首页专集" type='submit'> </td>
  </tr>
</form>
</table>
<%
end if
%>   
</body>
</html>