📄 loadtree.asp

📁 这是ASP的OA

💻 ASP

字号:

<!-- #include file="const.asp" -->
<html>
<body>
<%
dim fid,rootid,sql,rs
rootid=nrequest("rootid")
fid=nrequest("forumid")
if rootid="" or fid="" then
	response.write("非法的帖子参数。")
	response.End()
else
	response.write("<script>if(parent.followTd"&rootid&"!=null) parent.followTd"&rootid&".innerHTML=""<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center><TBODY>")
	sql="select topic,id,name,layer,addtime,csize from m3_bbs where RootID="&rootid&" and valid=1 and FID="&fid&" and PID>0 order by ind asc"
	set rs=server.CreateObject("ADODB.RecordSet")
	call opendb()
	rs.open sql,conn,1,1
	do while not rs.eof
		response.write("<TR><td width=64>&nbsp;</td><TD height=25>"&addspace(rs("layer"))&"&nbsp;<img src=images/nofollow.gif>&nbsp;<a href='treelist.asp?id="&rs("id")&"&listpage="&request.QueryString("listpage")&"' title='阅读此回帖'>"&rs("topic")&"</a> <font color='#999999'>("&getcsize(rs("csize"))&")</font>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -