今天使用asp函数写的程序

    技术2022-05-11  119

    <script language="javascript">function linkto(url){ var url; window.open(url,'_blank','status=no,scrollbars=yes,resizable=1,top=0,left=0,width=800,height=600'); }</script><table width="96%"  border="0" cellspacing="0" cellpadding="0" align="center">  <tr>    <td> </td>  </tr>  <tr>    <td>  <%   catalogid=Request.QueryString("catalogid")  set rs=server.CreateObject("adodb.recordset") rs.open "select * from t_business_catalog where CatalogID="&catalogid&"" ,conn,1,3  if not rs.eof then response.Write(rs("CatalogName")) end if rs.close set rs=nothing %>

     </td>  </tr>    <tr>    <td> </td>  </tr>

    </table>

    <table width="96%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#333333" align="center">   <tr bgcolor="#CCCCCC" height="26" align="center" style="font-weight:bold">     <td>Model </td>     <td>Application </td>     <td> Voice Coil<br>       mm/Inch </td>     <td> AES Power<br>       Watts </td>     <td>Sensitivity<br>       dB/w/m </td>     <td>Impedance<br>       Ohm </td>   </tr>  <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from t_business_type where CatalogID="&catalogid&" order by ID desc",conn,1,3  if not rs.eof then    do while not rs.eof  %>   <tr>  <td colspan="6" bgcolor="#666666" height="26">  <font color="#FFFFFF"><b><%=rs("TypeName")%></b></font></td>  </tr>      <% ShowProductList(rs("Id"))  rs.movenext  loop  end if  rs.close  set rs=nothing  %></table><br>

    <%sub ShowProductList(type_id) set rs1=server.CreateObject("adodb.recordset") set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from t_business_product where type_id="&type_id&" order by productid desc",conn,1,3     do while not rs1.eof%>  <tr  height="26" align="left" bgcolor="#FFFFFF">     <td>  <a href="javascript:linkto('Product_detail.asp?Id=<%=rs1("productid")%>')"> <%=rs1("Model")%>  </a></td>     <td> <%=rs1("Application")%> </td>     <td>  <%=rs1("VoiceCoil")%></td>     <td> <%=rs1("PowerWatts")%></td>     <td> <%=rs1("Sensitivity")%></td>     <td> <%=rs1("ImpedanceOhm")%></td>   </tr><%rs1.movenextlooprs1.closeset rs1=nothingend sub %>


    最新回复(0)