<% id=requesta("new_id") if id<>"" then set rsnew=server.CreateObject("adodb.recordset") rsnew.Open "select * from news where id="&id ,conn,1,3 if not rsnew.eof then set rs1=server.CreateObject("adodb.recordset") rs1.Open "select * from bigclass where bigclassid="&rsnew("bigclassid") ,conn,1,1 webhttp=rs1("webhttp") bigclass=rs1("bigclass") title=rsnew("title") contact=rsnew("contact") dat=rsnew("dat") Author=rsnew("Author") pictj=rsnew("pictj") uppic=rsnew("uppic") rsnew("cs")=rsnew("cs")+1 rsnew.update cs=rsnew("cs") rs1.close rsnew.close end if end if %> <%=webname%>
<%sql="select * from big where bigclassid=8 order by bigorder,bigid" set rs=server.CreateObject("adodb.recordset") rs.Open sql,conn,1,1 if not rs.eof then a=1 do while not rs.eof %>
"><%=gotTopic(rs("big"),25)%>
<%rs.movenext a=a+1 loop rs.close end if%>
 
 
<%=conn.execute("select cont from all_title where id=5")(0)%>
产品展示
您当前所在的位置是:首 页 >> 产品展示  
 
<%=title%>
作者:<%=Author%>  发布时间:<%=dat%>  点击:<%=cs%> 次 
<%if pictj=1 then%>

<%end if%> <%=contact%>