geng.asp

来自「实验室设备管理系统目标：通过对多种一维条码的编码进行分析和算法设计在系统中能实现」· ASP 代码 · 共 23 行

<%
'response.buffer=true
'Response.Expires=0

%>
<!--#include file="conn.asp"-->
  <%
 sql = "select top 5 * from product order by productid desc"
 set rs=conn.execute(sql)
 sql1 = "select * from Aclass where classid="&cstr(rs("classid"))
 set rs1=conn.execute(sql1) 
 do while not rs.EOF 
 newproduct= newproduct & "◇[<a href='productclass.asp?classid="&rs1("classid")&"'>"&rs1("class")&"</a>]<a href='productview.asp?id="&rs("productid")&"' title="&rs("title")&" target=_top>"&rs("title")&"</a><font color='#999A67'>["&rs("dateandtime")&"]</font><br>"
 rs.MoveNext 
 loop
 rs.Close
 rs1.Close
 set conn = nothing 
 newproduct="document.write(""" & newproduct & """);"
 response.write newproduct 
  %>