<%owen=request("id")%> <% id=cstr(request("id")) Set rsnews=Server.CreateObject("ADODB.RecordSet") sql="update [Siogon_article] set hits=hits+1 where id="&id conn.execute sql sql="select * from [Siogon_article] where id="&owen rsnews.Open sql,conn,1,1 title=rsnews("title") if rsnews.eof and rsnews.bof then response.Write("暂无信息！") else %>

<% end if rsnews.close set rsnews=nothing %>

<%= rsnews("title") %>
双击自动滚屏	发布者：<%= rsnews("user") %> 发布时间：<%= rsnews("infotime") %> 阅读：<%= rsnews("hits") %>次
<%'=rsnews("content") %> <% If Request("page")="" Then pageNum=0 Else pageNum=Request("page") End if Content=Replace(rsnews("content"),"[NextPage]","｜｜｜") ContentStr=split(Content,"｜｜｜") For i=pageNum to pageNum %> <%=ContentStr(i)%> <% Next %> <%if ubound(ContentStr)>=1 then%> 本文共分 <% For p = 0 to ubound(ContentStr) if p+1= Request("page")+1 then a="" aa="" else a="" aa="" end if %> [ &page=<%=p%>"><%=a%><%=p+1%><%=aa%> ] <% Next %> 页 <%end if%>