top2.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 38 行

<center>                                           
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
   
  <tr> 
    <td height="20" class=title> 
      <DIV style="Z-INDEX: 1; POSITION: relative" align=left> 
        <table border=0 cellspacing=0 cellpadding=4>
          <tr> 
         <%       
    set rs=server.CreateObject("adodb.recordset")    
    set Nrs=server.CreateObject("adodb.recordset")    
    sql="select Class_Id,Class_Name from SongClass "       
    rs.Open sql,conn,1,1     
    do while not rs.EOF       
    n=n+1       
		Response.Write "<td width=70 style=""CURSOR: hand"" align=center onmouseover=Class"&rs("Class_Id")&".style.visibility=""visible"" onmouseout=Class"&rs("Class_Id")&".style.visibility=""hidden""><font color=#ffffff>■</font>&nbsp;"&rs("Class_Name")&"</td>"&_       
					   "    <DIV id=""Class"&rs("Class_Id")&""" onmouseover=this.style.visibility=""visible"" onmouseout=style.visibility=""hidden"" style=""BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; Z-INDEX: "&rs("Class_Id")&"; BACKGROUND:#f0f0f0; LEFT: "&(n-1)*75-45&"px; VISIBILITY: hidden; BORDER-LEFT: #000000 1px; WIDTH: 85px; BORDER-BOTTOM: #000000 1px; POSITION: absolute; TOP: 20px; HEIGHT: 20px;"">"       
		sql="select Nclass_Id,NClass_Name from SongClass2 where Class_Id="&rs("Class_Id")       
		Nrs.Open sql,conn,1,1       
		do while not Nrs.EOF       
			Response.Write "&nbsp;<a href=sort.asp?Class_Id="&rs("Class_Id")&"&NClass_Id="&Nrs("NClass_Id")&">□"&Nrs("NClass_Name")&"</a><br>"       
		Nrs.MoveNext       
		loop       
		Nrs.Close       
		Response.Write "</DIV>"       
    rs.MoveNext       
    loop       
    rs.Close     
    %>
</center>  
            </DIV>
                   </tr>
        </table>
      </DIV>
    </td>
  </tr>
</table>
</center>