<%@language="VBscript"%>
<%Response.Expires=0%>
<%const current_ver="cn" '设置当前版本号%>
<%sqlstr="select top " & list_N & " product_name,productid,catalogid from v_business_product where me_ver='" & current_ver & "' and is_comm='1' order by productid desc"
set myrs=server.CreateObject("adodb.recordset")
myrs.Open sqlstr,conn,1,1
if myrs.RecordCount=0 then
p_str=""
else
do until myrs.EOF
p_str=p_str & "
" & myrs("product_name") & "
"
p_str=p_str & "
"
myrs.MoveNext
loop
p_str=p_str & "更多.."
end if
myrs.Close
set myrs=nothing
Response.Write "document.write(" & chr(34) & p_str & chr(34) & ");"
%>