<% Call SiteInfo Dim Aid, Nid, Fid, fforum_name, fforum_pic, fforum_pdf, rs, sql, atitle Aid = request.QueryString("Aid") Fid = request.QueryString("Fid") %> <% IF Fid<> "" THEN Set rs = server.CreateObject("adodb.recordset") sql = "select top 1 * from zx_Forum where ID = "&Fid&" order by id asc" rs.Open sql, conn, 1, 1 Do While Not rs.EOF fforum_name = rs("forumName") fforum_pic = rs("forumPic") fforum_pdf = rs("forumPdf") Nid = rs("NewsId") rs.movenext Loop rs.Close Set rs = Nothing else Response.Write "参数错误" end if %> <% Set rs = server.CreateObject("adodb.recordset") sql = "select * from zx_Article where ID="&Aid rs.Open sql, conn, 1, 3 atitle = rs("title") rs.Close Set rs = Nothing %> 英亚体育APP|有限公司官网 英亚体育APP-<% =atitle %> - <% =SiteTitle %> " /> " />

英亚体育APP

<% IF Fid<> "" THEN Set rs = server.CreateObject("adodb.recordset") sql = "select ID,title,coordinate from zx_Article where forumId = "&Fid&" order by id desc" rs.Open sql, conn, 1, 1 Do While Not rs.EOF Response.Write ""&vbCrLf rs.movenext Loop rs.Close Set rs = Nothing end if %>
    <%if fforum_pdf<> "" then%> PDF版 <%else%> PDF版 <%end if%>
<% Set rs = server.CreateObject("adodb.recordset") sql = "select * from zx_Article where ID="&Aid rs.Open sql, conn, 1, 3 %>

英亚体育APP:<%=rs("title")%>

作者：<%=rs("author")%>   时间：<%=rs("addtime")%>   字体【小 中 大】
<%=rs("content")%>
<% rs.Close Set rs = Nothing %>
   
<%=CopyRight%>
<%=IcpNumber%>   
英亚体育APP|有限公司官网