%@ language="vbscript" codepage="936"%>
<%
Dim rs,sql
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from categories order by nArrange",conn,1,1
if err.number<>0 then
response.Write "数据库操作错误!"
response.End()
else
%>
上海金归工贸有限公司
<%
if not rs.bof and not rs.eof then
Do while not rs.eof
%>
<%
rs.movenext
Loop
rs.close
set rs=nothing
else
response.Write "没有产品"
end if
end if
%>