singer.asp

来自「全站生成htm静态页面」· ASP 代码 · 共 94 行

ASP

94 行

<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim i
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")

sql="select * from class order by classid"
rs.open sql,conn,1,1
i=request("id")
if i="" then i=rs("Classid")
%>
<%do while not rs.eof
 %>
<%rs.movenext
loop
rs.close
%>	
<%sql="select * from class where classid="&i
rs.open sql,conn,1,1
if rs.eof then%>
<%
else
%>
<!--#include file="style.asp"-->
<body bgcolor="#F9FFF4">
<div align="center">
      <center>
      <table border="1" width="90%" cellspacing="1" class="TableLine" style="border-collapse: collapse" bordercolor="#64CB1F">
        <tr>
          <td width="100%" height="25" bgcolor="#64CB1F" align=center><font color="white"><b>歌 手 管 理</b></font></td>
        </tr>
        <tr>
          <td width="100%" height="22" bgcolor="#D7F4C4" align=center>
                <div align="center">
                  <table border="0" cellpadding="0" cellspacing="0" width="100%">
                   <tr>
                      <td width="20%">&nbsp;&nbsp;<b>↓所属音乐分类</b></td>
                      <td width="40%"><b>↓选择进入歌手列表进行管理</b></td>
                      <td width="40%"><b>↓添加歌手&nbsp;歌手姓名&nbsp;字母索引</b></td>
                    </tr>
                  </table>
                </div>
           </td>
        </tr>
<%
		sql2="select * from SClass where Classid="&rs("Classid")&" order by Sclassid"
		rs2.open sql2,conn,1,1
		if rs2.eof then
%>
<%
		else
			j=0
			do while not rs2.eof
			j=j+1
%>

		<tr>
          <td width="100%" height="29" align=left>
                <div align="center">
                  <table border="0" cellpadding="0" cellspacing="0" width="100%">
                  <form method="POST" action="NClassSave.asp?act=add&Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>" align="center">
                    <tr>
                      <td width="20%">&nbsp;&nbsp;<a href="singerlist.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>"><%=rs2("SClass")%></a></td>
                      <td width="40%">
                      <a href="singerlist.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>"><---进入管理此类所属的歌手</a></td>
                      <td width="40%"><input size=13 type="text" name="NClass">&nbsp;&nbsp;<input size=6 type="text" name="Abcd">&nbsp;&nbsp;<input style="color: #FFFFFF; background-color: #64CB1F; border: 1px solid #000000" type="submit" value="添 加" name="B1"></td>
                    </tr>
                   </form>
                  </table>
                </div>
		  </td>
        </tr>
<%
			rs2.movenext
			loop
		end if
		rs2.close
%>
<%
end if
rs.close
%>
      </table>
     </center>
    </div>
<% 
set rs=nothing
set rs2=nothing
conn.close
set conn=nothing
%></body></html>

singer.asp - 源码说明

本页面展示了「全站生成htm静态页面」中的 singer.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与htm相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?