<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%Call Head() dim ids,p p=trim(request.QueryString("p")) id=request.QueryString("id") if id="" or IsNumeric(id)=False then Call Error("

ID无效！") end if ids=trim(request.QueryString("class")) if p="" or IsNumeric(p)=False then p=1 if ids="" or IsNumeric(ids)=False then Call Error("

ID无效！") end if Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * from WZclass where classid="&ids rs.open sql,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("

ID无效！") end if paycent=rs("cent") payID=rs("payID") rs.close set rs=Nothing Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * from sms where ID="&id rs.open sql,conn,1,3 if rs.eof then rs.close set rs=Nothing Call Error("

ID无效！") end if response.write"

" if paycent<>0 then if Instr(","&payID&",",","&myid&",") > 0 or keys=1 then else response.write "查看此文章需用"&paycent&getcent&",确定要查看吗？" response.write "
是的" Response.write "
取消" response.write "

" response.end end if end if if myid=0 then Response.write "欢迎您:登陆/注册
----------
"& chr(13) else '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if end if If Not rs.eof Then Dim gopage,PS,conlen,page,pagecount,ys,startc rs("hit")=rs("hit")+1 rs.update() end if dim Counts Counts=rs("smspin") Response.Write "["&ubb(fordate(rs("yd_date")))&"]
" Response.Write ""&ubb(rs("title"))&"
" if rs("pic")<>"" then Response.Write "load...
" end if Content=rs("test") dim nums nums=trim(request.querystring("nums")) if nums<>"" and nums<>"0" and Isnumeric(nums)<>False then viewtnums=abs(nums) end if if request.querystring("w")<>1 then dim pageWordNum,StartWord,Content,Length,PageAll,i,ii pageWordNum=viewtnums StartWord = 1 Length=len(Content) PageAll=(Length+PageWordNum-1)\PageWordNum ii=clng(request("ii")) i=clng(request("i")) if ii<>0 then i=ii-1 if isnull(i) or i="" then i=0 dim ccc,sss ccc=instr(content,"||") if ccc>0 then sss=split(content,"||") PageAll=ubound(sss)+1 if i>PageAll-1 then i=PageAll-1 content = sss(i) else if clng(i)>int(PageAll) then i=PageAll-1 Content = mid(Content,StartWord+i*PageWordNum,PageWordNum) end if response.write("-----------
" &ubb1(content)& "") if 0<=i" end if if cint(i)下页" End if if cint(i)>0 then Response.Write " " & "上页" if i尾页" End if if PageAll>1 then response.write (" 全文") response.write "(" & i+1 & "/" & PageAll & ")" %>
第 跳页
<% end if else response.write("-----------
" & ubb1(content) & "") response.write ("
分页显示") end if response.write "
当前设置" &viewtnums& "字/页
" response.write "500|" response.write "800|" response.write "2000" response.write (" txt文本
") response.write "每页[GO]
" rs.close set rs=nothing '------------------- '随机广告开始 if adsetkf("ads4")=1 then call adstr(4) response.write"
"&chr(13) end if '------------------- %> 评论(<%=Counts%>)条
加入收藏
<% set rs1=server.createobject("adodb.recordset") sql="select top 1 ID,test,title,classid from sms where classid="&IDS&" AND id<"&id&" order by id desc" rs1.open sql,conn,1,1 if rs1.recordcount>0 then %> &class=<%=rs1("classid")%>&p=<%=p%>&sid=<%=sid%>">>><%=ubb(rs1("title"))%>
<% end if rs1.close set rs1=nothing set rs2=server.createobject("adodb.recordset") sql="select top 1 ID,test,title,classid from sms where classid="&IDS&" AND id>"&id&" order by id asc" rs2.open sql,conn,1,1 if rs2.recordcount>0 then %> &class=<%=rs2("classid")%>&p=<%=p%>&sid=<%=sid%>"><<<%=ubb(rs2("title"))%>
<%end if rs2.close set rs2=nothing conn.close set conn=nothing %>---------
返回上级
返回栏目
返回首页