class.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 16 行

<%
sub yqj_class()
sql="select id,txt_big_class from big_class"
set rs=conn.execute (sql)
do while not (rs.eof and rs.bof)
set id=rs("id")
set txt_big_class=rs("txt_big_class")
response.write "<tr>"
response.write "<td width=140 height=27 background=images/left_s.gif class=sort>&nbsp;&nbsp; <a href=javascript:classin("&id&")>"&txt_big_class&"</a></td>"
response.write "</tr>"
rs.movenext
loop
rs.close
set rs=nothing
end sub
%>