<% Dim ID,page ID=Angel_aspRequest(request("id")) page=Angel_aspRequest(Request("Page")) set rs=server.createobject("adodb.recordset") sql="select * from "&tbname&"_Article where id="&id rs.open sql,conn,1,1 if rs.eof and rs.bof then Call Alert("不正确的ID!",SitePath) else If rs("Linkurl")<>"" then %> 转向:<%=rs("title")%> ">
正在转向:<%=rs("LinkUrl")%>,请稍候...
<% Response.End Else set rsClass=server.createobject("adodb.recordset") sql = "select * from "&tbname&"_Class where ID="&rs("ClassID")&"" rsClass.open sql,conn,1,1 if rsClass.eof and rsClass.bof then Call Alert("没有此分类,返回首页!","index.asp") else ClassName=rsClass("ClassName") CReadPower=rsClass("ReadPower") TopID=rsClass("TopID") rsClass.close set rsClass=nothing end if If rs("PageNum")=0 then Content=ManualPagination1(""&rs("ID")&"",""&UBBCode(rs("Content"))&"") else Content=AutoPagination1(""&rs("ID")&"",""&UBBCode(rs("Content"))&"",rs("PageNum")) End if %> " /> <%=rs("Title")%><%=IIF(page>0,"("&page&")","")%>-<%=ClassName%>-<%=SiteTitle%> onLoad="showre(<%=ID%>,1)"<%end if%>>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> <%If TopID>0 then%>"><%=Classlist(TopID)%> >> <%End if%>"><%=ClassName%> >> 内容

<%=rs("Title")%><%=IIF(page>0,"("&page&")","")%>

时间:<%=rs("DateAndTime")%><%If IsHits=1 then%> 点击:<%End if%>

<%If Iszhaiangel=1 and b<2 then%>
  核心提示:<%=left(rs("Artdescription"),150)%>...
<%End if%> <%Call ShowAD(1)%> <% If rs("yn")=2 then If rs("UserName") = Angel_aspName then Response.Write(Content) else Response.Write("
会员私有文章,禁止查看!
") End if end if if rs("yn")=1 then Response.Write("
该文章还没有通过审核
") end if if rs("yn")= 0 then If Rs("ReadPower") = "0" then Response.Write(Content) Else If Rs("ReadPower") <> "" then If (Not(Instr(","& Rs("ReadPower") &",",",0,") <> 0 Or Rs("ReadPower") = "0")) and rs("UserName") <> Angel_aspName Then If Instr(","& Rs("ReadPower") &",",","& UserInfo(Angel_aspID,0) &",") > 0 Then Response.Write(Content) Else Response.Write("
对不起,你没有浏览权限,该文章只有"&ShowlevelOption2(Rs("ReadPower"))&"才能浏览
") End if Else Response.Write(Content) End if Else If CReadPower = "0" or CReadPower = "" then Response.Write(Content) Else If (Not(Instr(","& CReadPower &",",",0,") <> 0 Or CReadPower = "0")) and rs("UserName") <> Angel_aspName Then If Instr(","& CReadPower &",",","& UserInfo(Angel_aspID,0) &",") > 0 Then Response.Write(Content) Else Response.Write("
对不起,你没有浏览权限,该文章只有"&ShowlevelOption2(CReadPower)&"才能浏览
") End if Else Response.Write(Content) End if End if End if End if end if %>
<%If IsAuthor =1 then%>作者:<%=rs("author")%><%End if:If rs("UserID")<>0 then Response.Write(" 录入:"&rs("UserName")&"") end if%> <%If IsFrom =1 then%>来源:<%=rs("CopyFrom")%><%End if%>
<%If rs("Vote")<>"" then Response.Write(""&ShowVoteList2(rs("Vote"))&"") End if%> <%If Iswz=1 then%><%End if%> <%Call ShowAD(2)%> <%If mood=1 then%>
<%End if%>
<%=thehead%><%=thenext%>
相关文章
    <%=ShowMutualityArticle(ID,""&rs("KeyWord")&"",20,"·",0)%>
<%If IsPing=1 then%>
相关评论
发表我的评论
<% If PingNum=0 then Call ShowAD(5) else for i = 1 to PingNum%> <% Next End if %>
  • 大名:" Readonly maxlength="8"/>
  • 内容:
<%end if%>
<%Call ShowAD(3)%>
本类热门
    <%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
本类推荐
    <%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"IsHot=1","ID desc",0,0)%>
本类固顶
    <%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"IsTop=1","ID desc",0,0)%>
<%End if%> <% rs.close set rs=nothing end if function thehead headrs=server.CreateObject("adodb.recordset") sql="select top 1 ID,Title from "&tbname&"_Article where id<"&id&" and ClassID="&rs("ClassID")&" order by id desc" set headrs=conn.execute(sql) if headrs.eof then response.Write("
  • 上一篇:没有了
  • ") else a0=headrs("id") a1=headrs("Title") If html=1 then response.Write("
  • 上一篇:"&a1&"
  • ") else If html=3 then response.Write("
  • 上一篇:"&a1&"
  • ") Else response.Write("
  • 上一篇:"&a1&"
  • ") End if end if end if headrs.close set headrs=nothing end function function thenext newrs=server.CreateObject("adodb.recordset") sql="select top 1 ID,Title from "&tbname&"_Article where id>"&id&" and ClassID="&rs("ClassID")&" order by id asc" set newrs=conn.execute(sql) if newrs.eof then response.Write("
  • 下一篇:没有了
  • ") else a0=newrs("id") a1=newrs("Title") If html=1 then response.Write("
  • 下一篇:"&a1&"
  • ") else If html=3 then response.Write("
  • 下一篇:"&a1&"
  • ") Else response.Write("
  • 下一篇:"&a1&"
  • ") End if end if end if newrs.close set newrs=nothing end function %> <%=Copy%>