<% dim ArticleID,SqlQuerryArticle,SqlLb ArticleID=GetNumericParam("id") if IsNull(ArticleID)=True Or ArticleID="" then Response.Write "未指定参数" Response.End() else conn.execute("UPDATE T_xx Set hits=hits+1 WHERE [id]="&ArticleID) SqlQuerryArticle="SELECT * FROM [V_xx] WHERE [id]="&ArticleID set rs=conn.execute(SqlQuerryArticle) lbid=rs("lbid") lmid=rs("lmid") bt=rs("bt") nr=rs("nr") fbrq=formatdatetime(rs("fbrq"),1) hits=rs("hits") lbmc=rs("lbmc") lmmc=rs("lmmc") fbdw=rs("fbdw") end if SqlLb="SELECT [id],[lbmc] FROM T_LB WHERE lmid="&lmid&" ORDER BY plsx,id" rs.close() set rs=nothing %> 牧羊钢结构
 
<%=lmmc%>
<% set rs0=server.CreateObject("ADODB.RECORDSET") rs0.open sqlLb,conn,1,1 if rs0.eof then %> <% else do while not rs0.eof dim lb_id,linkUrl lb_id=rs0("id") 'response.Write lb_id linkUrl="ArticleList.asp?img="&imgUrl&"&lbid="&lb_id Select Case lb_id Case 23,25,28,29,30,31,32,33 linkUrl="ArticleImgList.asp?img="&imgUrl&"&lbid="&lb_id End Select %> <% rs0.movenext loop end if rs0.close set rs0=nothing %>
暂无分栏
<%=lbmc%>
首页 > <%=lmmc%> > <%=lbmc%>
<%=bt%>
发布日期:<%=fbrq%>  已阅:<%=hits%> 人次
<%=nr%>
发布单位：<%=fbdw%>
<% conn.close() set conn=nothing %>