📄 loadtree1.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=inc/const.asp-->
<html>
<body>
<%Response.Expires=0%>
<%
dim outtext
dim num '倒数第几个跟帖
dim allnum '总共多少跟帖
dim star '第几页
dim rootID
if request("rootID")="" then
response.write "非法的贴子参数。"
response.end
elseif not isInteger(request("rootID")) then
response.write "非法的贴子参数。"
response.end
else
rootID=request("rootID")
end if
num=0
outtext=" "
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, "'", "")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "；")
fString = Replace(fString, CHR(10), "，")
HTMLEncode = fString
end function
dim totalusetable
set rs=conn.execute("select child,PostTable from topic where topicid="&rootid)
allnum=rs(0)
totalusetable=rs(1)
sql="select layer,rootid,announceid,topic,body,username,postuserid from "&totalusetable&" where boardid="& boardid &" and rootid="& rootid &" and parentid>0 and locktopic<2 order by rootid desc,orders"
set rs=conn.execute(sql)
%>
<script>
parent.followTd<%=rootid%>.innerHTML='<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" align=center><TBODY><%do while not rs.eof%><TR><TD class=tablebody1 width="100%" height=25>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -