📄 ltlm.asp
字号:
function show(i) {
window.parent.ltlb.rows = '*,200';
window.parent.ckhf.location.replace('ckhf.asp?ID='+i+'<ID=<%=Request.QueryString("ID")%>');
}
function bHFWZ() {
l = screen.width/2-600/2;
t = screen.height/2-300/2;
fHFWZ = window.open('','fHFWZ','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=600,height=300,left='+l+',top='+t);
fHFWZ.location.replace('hfwz.asp?ID='+q);
}
function mar_onmouseover() {
mar.stop();
}
function mar_onmouseout() {
mar.start();
}
//-->
</script>
</head>
<body bgcolor="#ffffff" leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 LANGUAGE="javascript" onload="return window_onload()" background="images/bg.gif"><table width=100% align=center cellPadding=0 cellSpacing=0 border=0><tr><td height=25 valign=bottom><table width=100% border=0 cellspacing=0 cellpadding=0 align=center bgcolor=#FFFFFF><tr><td width=50% height=22 class=p9><IMG border=0 src=images/lastpost.gif align=absmiddle hspace=4><a href="ltzy.asp" target="list">返回社区首页</a> >> <a href="list.asp?ID=<%=GetPart(lt,18)%>&PAGE=<%=Request.QueryString("页")%>" target="list"><%=GetPart(lt,19)%></a>>> <%=GetPart(lt,2)%></td>
<td width="45%"align="right">
版主：<%=IIF(trim(GetPart(lt,4)) = "","(空缺)","<A href=javascript:ShowGRZL('"&GetPart(lt,4)&"')>"&GetPart(lt,4)&"</A> ")%><% if trim(GetPart(lt,5)&" "&GetPart(lt,6)&" "&GetPart(lt,7)&" "&GetPart(lt,8)) = "" then
Response.Write("(空缺)")
else
for i=5 to 8
if GetPart(lt,i) <> "" then
Response.Write("<A href=javascript:ShowGRZL('"&GetPart(lt,i)&"')>"&GetPart(lt,i)&"</A> ")
end if
next
end if
%>
</td></tr></table>
<tr><td height=3 background=images/dot_line.gif><img src=images/1x1.gif></td></tr>
</td></tr></table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><%=GetPart(lt,12)%></td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30" nowrap>
<div align="right"><span class="p9"> <a href="javascript:window.location.reload()">刷新</a> | <a href="javascript:ShowLTZLXG(<%=Request.QueryString("ID")%>)">论坛资料修改</a> | <a href="javascript:ShowYHZC()">用户注册</a> | <a href="javascript:ShowYHZLXG()">个人资料管理</a> | <a href="javascript:ShowHelp()">帮助</a> | <a href="javascript:bFH_onclick()">返回</a></span></div>
</td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="55%"><span class="p9"><img src="images/yts.gif" WIDTH="14" HEIGHT="11">
论题数：<%=GetPart(lt,10)%> <img src="images/mouse.gif" WIDTH="16" HEIGHT="16"> 访问数：<%=GetPart(lt,11)%> <img src="images/yy.gif" align="absmiddle" WIDTH="25" HEIGHT="16">第<%=PAGE%>页 <img src="images/zys.gif" align=absmiddle hspace=4>总计<%=TOTALPAGE%>页</span>
</td>
<td height="30" width="45%" class="p9">
<div align="right"><a href="javascript:ShowFBWZ(<%=Request.QueryString("ID")%>)"><img align="absmiddle" src="images/fbwz.gif" border="0" hspace=4></a></div>
</td>
</tr>
</table>
<table width="99%" cellspacing="1" cellpadding="0" align="center" bgcolor="#84B6DE">
<tr>
<td background="images/1-11.gif">
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class=14 width="60%" align="center"><font color=#427994>文 章 标 题</font></td>
<td width="10%" align="center" NOWRAP class=14><font color=#427994>作者</font></td>
<td width="10%" align="center" NOWRAP class=14><font color=#427994>回复/人气</font></td>
<td width="20%" align="center" NOWRAP class=14><font color=#427994>最后回复</font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="99%" align="center" cellPadding=3 cellSpacing=0 style="word-break:break-all">
<%
for i=1 to UBound(ret)
if GetPart(ret(i),1) = "" then
exit for
end if
Response.Write("<tr onMouseOver=this.style.backgroundColor='#FFFFFF' onMouseOut=this.style.backgroundColor='#F7F7F7' bgcolor=#F7F7F7><td height=20 width=60% class=p9 style=word-wrap:break-all>")
if Int(GetPart(ret(i),6)) > Int(Application("MYWZS")) then
Response.Write("<img src=images/expression/"&GetPart(ret(i),11)&" align=absmiddle hspace=6><A href=wzlb.asp?ID="&GetPart(ret(i),1)&"&RTPAGE="&PAGE&"&RTID="&Request.QueryString("ID")&"&MM="&Request.QueryString("MM")&"&ACT="&Request.QueryString("ACT")&"&KEY="&Request.QueryString("KEY")&"&页="&Request.QueryString("页")&" target='list'>"&GetPart(ret(i),2)&"</A> [")
if Int(GetPart(ret(i),6)) mod Int(Application("MYWZS")) = 0 then
m = Int(GetPart(ret(i),6))/Int(Application("MYWZS"))
else
m = Int(Int(GetPart(ret(i),6))/Int(Application("MYWZS")))+1
end if
for j=1 to m
Response.Write("<A href=wzlb.asp?ID="&GetPart(ret(i),1)&"&RTPAGE="&PAGE&"&RTID="&Request.QueryString("ID")&"&MM="&Request.QueryString("MM")&"&ACT="&Request.QueryString("ACT")&"&KEY="&Request.QueryString("KEY")&"&页="&Request.QueryString("页")&"&PAGE="&j&" target='list'><b>"&j&"</b></A> ")
next
Response.Write("]"&IIF(DateDiff("d",now(),GetPart(ret(i),4)) = 0," <IMG src=images/new.gif >",""))
else
Response.Write("<img src=images/expression/"&GetPart(ret(i),11)&" align=absmiddle hspace=6><A href=wzlb.asp?ID="&GetPart(ret(i),1)&"&RTPAGE="&PAGE&"&RTID="&Request.QueryString("ID")&"&MM="&Request.QueryString("MM")&"&ACT="&Request.QueryString("ACT")&"&KEY="&Request.QueryString("KEY")&"&页="&Request.QueryString("页")&" target='list'>"&GetPart(ret(i),2)&"</A>"&_
IIF(DateDiff("d",now(),GetPart(ret(i),4)) = 0," <IMG src=images/new.gif >",""))
end if
if (Int(GetPart(ret(i),9)) and 2) > 0 then
Response.Write(" <font color=#C4C4C4>关闭</font>")
else if (Int(GetPart(ret(i),9)) and 4) > 0 then
Response.Write(" <font color=#FF6600>置顶</font>")
else if (Int(GetPart(ret(i),10)) = 1) then
Response.Write(" <font color=#CC9900>转载</font>")
else if (Int(GetPart(ret(i),9)) and 1) > 0 then
Response.Write(" <font color=#3399FF>精华</font>")
else
Response.Write(" ")
end if
end if
end if
end if
Response.Write("</td><td height=20 class=p9 width=10% align=center nowrap><A href=javascript:ShowGRZL('"&GetPart(ret(i),3)&"')>"&GetPart(ret(i),3)&"</A></td>")
Response.Write("<td height=20 class=p9 width=10% align=center nowrap>"&GetPart(ret(i),6)&"/"&GetPart(ret(i),5)&"</td>")
if GetPart(ret(i),8) <> "" then
Response.Write("<td height=20 class=p9 width=20% align=right nowrap>"&mid(GetPart(ret(i),7),1,16)&"<br><A href=javascript:ShowGRZL('"&GetPart(ret(i),8)&"')>By："&GetPart(ret(i),8)&"</A></td>")
else
Response.Write("<td height=20 class=p9 width=20% align=right nowrap>"&mid(GetPart(ret(i),7),1,16)&"<br><font color=#C4C4C4>By：------- </font></td>")
end if
Response.Write("</tr>")
next
Response.Write("</table><table width=99% cellspacing=1 cellpadding=0 align=center bgcolor=#84B6DE><tr><td height=30><table width=100% cellspacing=0 cellpadding=5 align=center><tr>"&_
"<td class=p9 height=30 background=images/tablebg.gif><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td class=p9 width=40% > 关键字：<input name=tGJZ size=8 class=p9>"&_
" <select name=sSS size=1 class=p9 LANGUAGE=javascript onchange='return sSS_onchange()'><option selected>所有</option><option>作者</option><option>标题</option>"&_
"<option>精华</option></select> <input type=button name=bSS value=搜索 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' LANGUAGE=javascript onclick='return bSS_onclick()'>"&_
"</td><td width=45% ><div align=center><font color=#ffffff><input type=button name=bFBWZ value=发表文章 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' LANGUAGE=javascript onclick='javascript:ShowFBWZ("&Request.QueryString("ID")&")'>")
if PAGE <= 1 then
Response.Write(" <input type=button name=bSY value=上一页 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' disabled>")
else
Response.Write(" <input type=button name=bSY value=上一页 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' LANGUAGE=javascript onclick='return ShowPage("&PAGE-1&")'>")
end if
if PAGE >= TOTALPAGE then
Response.Write(" <input type=button name=bXY value=下一页 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' disabled>")
else
Response.Write(" <input type=button name=bXY value=下一页 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' LANGUAGE=javascript onclick='return ShowPage("&PAGE+1&")'>")
end if
Response.Write(" <input type=button name=bFH value=返回 class=TButton style='BACKGROUND-COLOR: #C6DFF7; BORDER-BOTTOM: buttonhighlight 1px dotted #4A719C; BORDER-LEFT: buttonhighlight 1px dotted #4A719C; BORDER-RIGHT: buttonhighlight 1px dotted #4A719C; BORDER-TOP: buttonhighlight 1px dotted #4A719C; COLOR: black' LANGUAGE=javascript onclick='return bFH_onclick()'>"&_
"</font></div></td><td width=15% class=p9><div align=right>跳至 <input name=tYS class=p9 size=3 LANGUAGE=javascript onkeypress='return tYS_onkeypress()'>"&_
" 页 </div></td></tr></table></td></tr></table></td></tr></table>")
'页面跳转代码
'if Request.Cookies("NC")<>"" and Request.Cookies("NC")<>"访客" then
'Response.Write("<table width=99% ><tr><td align=right>")
'LM = CommandEx("329|")
'if GetPart(LM(0),2) > 0 then
' m = Int(GetPart(LM(0),2))
' Response.Write("<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}><option selected>论坛跳转至...</option>")
' for i=1 to m
' if LM(i) = "" then exit for
' Response.Write("<option value=list.asp?ID="&GetPart(LM(i),1)&">╋ "&GetPart(LM(i),2)&"</option>")
' LT = CommandEx("320|"&GetPart(LM(i),1)&"|1")
' n = Int(GetPart(LT(0),2))
' for j=1 to n
' if LT(j) = "" then exit for
' Response.Write("<option value=ltlb.asp?ID="&GetPart(LT(j),1)&"> ├ "&GetPart(LT(j),2)&"</option>")
' next
' next
'else
' Response.Write("")
'end if
'Response.Write("</select>")
'Response.Write("</td></tr></table>")
'end if
EndTime=timer()%><br><div align=center>[查询所用时间： <%=FormatNumber((EndTime-StarTime)*1000,3)%>毫秒]</div><br>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -