<% Dim Itempage:Itempage = Checkstr(VerificationUrlParam("page","string","0")) Dim ItemID:ItemID = Checkstr(VerificationUrlParam("ID","string","0")) set rs = UICon.Query("select * from user_al where ID="&ItemID&"") if rs.recordcount=0 then Alert "找不到對應的信息","" else UICon.Execute("update user_al set hots= hots+1 where ID="&ITemID&"") news_title=rs("title") news_imgurl=rs("imgurl") news_content=rs("Field_content") news_time=rs("posttime") news_hots=rs("hots") news_categoryid=rs("categoryid") end if rs.close set rs=nothing %> <%pathstr = Checkstr(VerificationUrlParam("pathstr","string","")) sql2="select * from SP_dictionary where id="&news_categoryid&"" set rs=UIcon.query(sql2) if rs.recordcount<>0 then categoryname=rs("categoryname") pathstr=rs("pathstr") categoryid=rs("id") end if rs.close set rs=nothing if categoryname="" then categoryname="榮譽資質" end if dh="ry" db=pathstr %> <%=config_sitename%>
<track id="hl3fr"><big id="hl3fr"></big></track>
<big id="hl3fr"></big>

      <p id="hl3fr"><track id="hl3fr"><progress id="hl3fr"></progress></track></p>

        <%=categoryname%>

        當前位置:首頁 - <%=categoryname%> - 詳細信息

        <%=news_title%>

        發表時間:<%=news_time%>  閱讀次數:<%=news_hots%>
        <%=news_content%>
        <%sql1="select * from user_al where id>"&ItemID&" and isdel=0 and categoryid="&categoryid&" order by id asc" set rs1=UIcon.query(sql1) if rs1.recordcount<>0 then %>
        上一篇文章:"><%=rs1("title")%>
        <%end if rs1.close set rs1=nothing %> <%sql2="select * from user_al where id<"&ItemID&" and isdel=0 and categoryid="&categoryid&" order by id desc" set rs2=UIcon.query(sql2) if rs2.recordcount<>0 then %>
        下一篇文章:"><%=rs2("title")%>
        <%end if rs2.close set rs2=nothing %>
        国产网红自拍,国产91九色刺激露脸对白,精品欧美成人高清在线观看2021,正在播放国产巨作
        <track id="hl3fr"><big id="hl3fr"></big></track>
        <big id="hl3fr"></big>

            <p id="hl3fr"><track id="hl3fr"><progress id="hl3fr"></progress></track></p>