www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/Admin_add_special.asp
<!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_info(0)%></title>
<link href="css.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312"></head>
<body text=#000000 leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#E5E5E5">
<script src="editor/checkform.js"></script>
<br>
<%
If Not CheckAdmin(ScriptName) Then
strMsg="<Li>您没有管理本页面的权限。"
Call Msg()
Else
Call Main()
End If
DataClose()
Sub Main()
%>
<table width="95%" border=0 align="center" cellpadding=5 cellspacing=1 class="border-all">
<tbody>
<tr>
<th height=22 colspan="4" align="center" sytle="line-height:150%">添 加 编 辑 专 辑 (第一步)</th>
</tr>
<tr>
<td width="50%" height=22 align="center" class="TopTitle" sytle="line-height:150%">↓所属一级分类</td>
<td width="50%" height=22 align="center" class="TopTitle" sytle="line-height:150%">↓进入该类歌手进入下一步</td>
</tr>
<%
SQL="SELECT * FROM "& TableSpecial &" where Classid=1 ORDER BY SClassid"
Set Rs=Conn.Execute(SQL)
If Rs.Eof Or Rs.Bof Then
Response.Write ("<tr><td colspan='2' align='left'> 尚无分类</td></tr>")
Else
Do While Not Rs.EOF
ID=Rs("SClassid")
SClassName=Rs("SClass")
%>
<tr class="Table_row_1">
<td width="20%" align="center"><%="<a href=Admin_add_special_1.asp?SClassid="&ID&"&SClass="&SClassName&">"&SClassName&"</a>"%> </td>
<td width="25%" align="center"><%="<a href=Admin_add_special_1.asp?SClassid="&ID&"&SClass="&SClassName&"><---选择进入下一步</a>"%></td>
</tr>
<%
Rs.MoveNext
Loop
End If
End Sub
%>
</tbody>
</table>
</body>
</html>