📄 lt_view.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<!--#include file="conn.inc"-->
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="card1" title="查看文章">
<p>
<!--#include file="yksb.asp"-->
<!--#include file="xxts.asp"-->
<%
Dim d01(12)
d01(0)="顶礼，论坛有你更精彩！"
d01(1)="路过，顶一下！"
d01(2)="楼主，我好崇拜你哦！"
d01(3)="见一次顶你一次！"
d01(4)="高！实在是高！"
d01(5)="我好崇拜你哦！"
d01(6)="你是我心目高手！"
d01(7)="好帖！顶你上天！"
d01(8)="你真的太厉害了！"
Randomize
I=Int(Rnd()*9)
adgg=d01(i)
dim id,page
tid=usb(request.QueryString("tid"))
if tid="" then tid="0"
page=request.QueryString("page")
if page="" or page<1 then page=1
ppage=request.QueryString("ppage")
if ppage="" or ppage<1 then ppage=1
set mtrs=Server.CreateObject("ADODB.Recordset")
mtrsql="select mid,tid from mtjl where CStr(mid)=" & myid & " and CStr(tid)="&tid
mtrs.open mtrsql,conn,1,2
if mtrs.recordcount=0 then
mmid="0"
else
mmid="1"
end if
mtrs.close
set mtrs=nothing
cw=request.QueryString("cw")
if cw="1" then
response.write("错误：您没有这个权利！<br/>")
end if
if cw="2" then
response.write("错误：该帖子已经在本版了！<br/>")
end if
if cw="3" then
response.write("错误：您已经为本帖献过花了！不要太痴迷嘛！<br/>")
end if
if cw="4" then
response.write("错误：您已经砸了一个臭便便了！有什么深仇大恨么！<br/>")
end if
if cw="5" then
response.write("错误：钱很多吗？反复购买？<br/>")
end if
if cw="6" then
response.write("没钱还想看帖？哼。没门。。<br/>")
end if
if cw="7" then
response.write("喂，喂。捣乱呀？你已经回复过啦？<br/>")
end if
if cw="10" then
response.write("您的回复速度太快啦，做下来喝杯咖啡吧！<br/>")
end if
sql="update lttz set rc=rc+1 Where CStr(id)='" & tid & "'"
conn.Execute(sql)
dim rs,tsstr
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from lttz where id=" & tid
rs.open rsstr,conn,1,2
if rs.recordcount=0 then
response.write("没有这个帖子呀！<br/><a href='lt_list.asp?glsb="&glsb&"&ltid="<id&"'>回到论坛</a><br/><br/></p></card></wml>")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
ltid=rs("ltid")
dim pageWordNum,StartWord,Content,Length,PageAll,i
pageWordNum=ssbb
StartWord = 1
Content=rs("txt")
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=request("i")
if isnull(i) or i="" then i=0
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
if rs("st")="0" then
if PageAll>1 then
response.write("<a href='viewqw.asp?tid=" & tid & "&glsb=" & glsb & "&ltid=" & ltid & "&ltid=" & ltid & "&id=" & id & "'>[查看全文]</a><br/>")
end if%>
主题：<%=ubb(rs("name"))%><br/>
作者：<a href='gr_zl.asp?id=<%=ubb(rs("fid"))%>&glsb=<%=glsb%>'><%=ubb(rs("fname"))%></a>(ID:<%=ubb(rs("fid"))%>)<br/>
<%=ubb(rs("tm"))%><br/>
----------<br/>
<%if len(rs("touu"))>3 then%><img src="<%=rs("touu")%>" alt="加载表情。"/><%end if%>
<%if rs("mtjg")="0" or mmid="1" then%>
<%=ubb2(content)%> <br/>
<%else%>
本帖价格：<%=rs("mtjg")%><br/>
<a href='mymt.asp?glsb=<%=glsb%>&tid=<%=tid%>&ppage=<%=ppage%>'>我要购买</a>
<%end if%>
<%if rs("vote")<>"" then
if rs("vote")<>"" then vote=split(utf8(rs("vote")),"\")
if rs("addvote")<>"" then addvote=split(utf8(rs("addvote")),"\")
if rs("voteid")<>"" then voteid=split(utf8(rs("voteid")),"\")
if rs("voteid")<>"" then
for i=0 to ubound(voteid)
if voteid(i)<>"" then
if cint(voteid(i))=session("myid") then votesa="true"
end if
next
end if
for i=0 to ubound(addvote)
if addvote(i)<>"" then
votecoun=votecoun+cint(addvote(i))
end if
next
if votesa<>"true" then%>
<select name="voteid" value="0"><%
for i=0 to ubound(vote)
if vote(i)<>"" then %>
<option value="<%=i%>"><%=vote(i)%></option>
<%end if
next%>
</select><br/>
<anchor>投他一票
<go href="ttpp.asp?tid=<%=tid%>&ltid=<%=ltid%>&glsb=<%=glsb%>&ppage=<%=ppage%>" method="post">
<postfield name="voteid" value="$(voteid)" />
</go>
</anchor><br/>
<%end if
votesa=""%>
投票结果:<%=votecoun%>票<br/>
<%for i=0 to ubound(vote)
if vote(i)<>"" then
if votecoun<>0 then%>
<%=vote(i)%>:<%=addvote(i)%>票<%=round(cint(addvote(i))*100/votecoun,0)%>%<br/>
<%end if
end if
next%>
<%end if%>
<%
if 0<=i<PageAll then
Response.Write "<br/>"
if cint(i)<cint(PageAll)-1 then
Response.Write "<a href='lt_view.asp?glsb="&glsb&"&tid="&tid&"&ltid="<id&"&i=" & i+1 & "&page=" & page & "'>下一页</a>"
End if
if cint(i)>0 then
Response.Write " " & "<a href='lt_view.asp?glsb="&glsb&"&tid="&tid&"&ltid="<id&"&i=" & i-1 & "&page=" & page & "'>上一页</a><br/>"
End if
End if
if PageAll>1 then
response.write "(" & i+1 & "/" & PageAll & ")"
%>
<br/>
跳到第<input name="i<%=minute(now)%><%=second(now)%>" title="页码" type="text" format="*N" emptyok="true" size="3" value="<%response.write(i+1)%>" maxlength="3"/>页
<anchor>[GO]
<go href="lt_view.asp?glsb=<%=glsb%>&tid=<%=tid%>&ltid=<%=ltid%>&id=<%=id%>&page=<%=page%>" accept-charset='utf-8'>
<postfield name="i" value="$(i<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor><br/>
<%
end if
if rs("gtm")<>rs("tm") then
response.write("最后修改时间：" & rs("gtm") & "<br/>")
end if
else
response.write "本文已被锁定，可能含有非法内容，如果你是原作者请你修改好后，再发表评论说明。<br/>"
end if
end if
%>
<%if myid=rs("fid") then%>
<a href="grtzjx.asp?glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&tid=<%=rs("id")%>&ppage=<%=ppage%>">续帖</a>|<a href="grtzbj.asp?glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&tid=<%=rs("id")%>&ppage=<%=ppage%>">修改</a>|<a href="grtzsc.asp?glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&tid=<%=rs("id")%>&tzname=<%=ubb(rs("name"))%>&ppage=<%=ppage%>">删除</a><br/>
<%end if%>
<%if ltmybz=rs("ltid") or mycjbz="1" or myxcy="1" then%>
<%if rs("jj")="1" then%><a href='tzjj.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=0&ppage=<%=ppage%>'>解精</a><%end if%><%if rs("jj")="0" then%><a href='tzjj.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=1&ppage=<%=ppage%>'>加精</a><%end if%>|<%if rs("dgtm")<>"2100-10-10 12:12:12" then%><a href="tzzd.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=0&ppage=<%=ppage%>">置顶</a><%end if%><%if rs("dgtm")="2100-10-10 12:12:12" then%><a href="tzzd.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=1&ppage=<%=ppage%>">解顶</a><%end if%>|<%if rs("dgtm")<>"2000-10-10 12:12:12" then%><a href="tzgd.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=0&ppage=<%=ppage%>">固底</a><%end if%><%if rs("dgtm")="2000-10-10 12:12:12" then%><a href="tzgd.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=1&ppage=<%=ppage%>">解固</a><%end if%>|<%if rs("st")="0" then%><a href="tzfs.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=1&ppage=<%=ppage%>">封锁</a><%end if%><%if rs("st")="1" then%><a href="tzfs.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=0&ppage=<%=ppage%>">解锁</a><%end if%><br/>
谨慎操作，操作都有纪录！<br/>
<%end if%>
<%if ltmybz1=rs("ltid") or mycjbz="1" then%>
<a href="tzsc.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&tzname=<%=ubb(rs("name"))%>&ppage=<%=ppage%>">删除</a>|<a href="tzzy.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&ppage=<%=ppage%>">转移</a>|<a href="tzbj.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&ppage=<%=ppage%>">编辑</a>|<%if rs("yc")="0" then%><a href="tzyc.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=1&ppage=<%=ppage%>">隐藏</a><%end if%><%if rs("yc")="1" then%><a href="tzyc.asp?tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=0&ppage=<%=ppage%>">解隐</a><%end if%><br/>
<a href="j_hy.asp?id=<%=rs("fid")%>&tid=<%=rs("id")%>&glsb=<%=glsb%>&ltid=<%=rs("ltid")%>&cc=0&ppage=<%=ppage%>">加黑作者</a><br/>
<%end if%>
<%if rs("hfs")>3 then%>
<a href='hf_view.asp?tid=<%=tid%>&glsb=<%=glsb%>&ltid=<%=ltid%>&ppage=<%=ppage%>'>看回复(<%=rs("hfs")%>)条</a><br/>
<%end if
if rs("hfs")<>0 then response.write("--最新回复--<br/>")
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select * from lthf where CStr(tid)='"&tid&"' order by htm desc"
rsxl.open rspl,conn,1,2
if rsxl.eof then
Response.write "暂无回复!<br/>"
Else
y=Month(rsxl("htm"))&""
r=Day(rsxl("htm"))&""
if len(r)=1 then r="0"&r
h=hour(rsxl("htm"))&""
if len(h)=1 then h="0"&h
m=minute(rsxl("htm"))&""
if len(m)=1 then m="0"&m
tt="" & y & "-" & r &" " & h &":" & m &""
k=rsxl.recordcount
i=1
do while ((not rsxl.EOF) and i <=cint(3))
hfid=rsxl("fid")
hfname=ubb(rsxl("fni"))
tzbt=left(rsxl("nr"),99)
if len(rsxl("nr"))>99 then
tzbt=tzbt+"。。"
end if
%>
<a href='pl_view.asp?glsb=<%=glsb%>&id=<%=ubb(rsxl("id"))%>&ltid=<%=ubb(ltid)%>&ppage=<%=ppage%>'><%=k%></a>.<%=hfname%>(ID:<%=hfid%>):<%=ubb2(tzbt)%>(<%=tt%>)<br/>
<%
rsxl.Movenext
k=k-1
i=i+1
loop
end if
%>
--快速回复--<br/>
<a href='kshf.asp?tid=<%=tid%>&glsb=<%=glsb%>&dgly=我顶!&ppage=<%=ppage%>'>我顶</a>◆<a href='kshf.asp?tid=<%=tid%>&glsb=<%=glsb%>&dgly=支持!&ppage=<%=ppage%>'>支持</a>◆<a href='kshf.asp?tid=<%=tid%>&glsb=<%=glsb%>&dgly=反对!&ppage=<%=ppage%>'>反对</a>
<br/>
<input name="dgly<%=minute(now)%><%=second(now)%>" emptyok="true" maxlength="100" value="<%=adgg%>"/><br/>
<anchor title="快速回复">快速回复
<go href="kshf.asp?tid=<%=tid%>&ppage=<%=ppage%>&glsb=<%=glsb%>&ltid=<%=ltid%>" method="post" accept-charset='utf-8'>
<postfield name="dgly" value="$(dgly<%=minute(now)%><%=second(now)%>)"/></go>
</anchor><a href='mysctz.asp?tid=<%=tid%>&ppage=<%=ppage%>&glsb=<%=glsb%>'>收藏帖子</a><br/><br/>
<%
rsxl.close
set rsxl=nothing
response.write("----------<br/>")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select name,id from sclt where id="<id
npp.open rspl,conn,1,2
if not npp.eof then
mmnnyy=npp("name")
else
mmnnyy="该板块"
end if
npp.close
set npp=nothing%>
<a href='lt_list.asp?glsb=<%=glsb%>&ltid=<%=ltid%>&page=<%=ppage%>'>返回<%=mmnnyy%></a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -