<%@LANGUAGE="VBSCRIPT"%> <% dim rs,i,str Set rs=Server.CreateObject("ADODB.RecordSet") %>

<% i=1 str="select top 6 * from [faq] where i_type='Chinese' order by i_id desc" rs.open str,conn do while not rs.eof %> <% rs.movenext i=i+1 loop rs.close %> [<%=i%>]" class="a2"> <% dim i_name i_name=replace(rs("i_name")," ",chr(13)) i_name=replace(i_name," "," ") response.write i_name %> 更多...   <% i=1 str="select top 5 * from [info] where i_type='Chinese' order by i_id desc" rs.open str,conn do while not rs.eof %> <% rs.movenext i=i+1 loop rs.close %> >> " class="a_faq"> <% dim name name=replace(rs("i_title")," ",chr(13)) name=replace(name," "," ") response.write name %> [<%=rs("i_date")%>] 更多...

2005版权所有 广东加美华（商检）认证服务中心     粤ICP备05077961号 [ 电话：020-38290807， 传真：020-38290419 ]

<% set rs=nothing set conn=nothing %>