📄 hylb.asp
字号:
}
function showlb(buf) {
string = '';
data = buf.split('|');
lb = eval('list' + p);
string = '<table width=100% border=0 cellpadding=2 cellspacing=1 class=p9>';
for (i=0;i<(data.length/6-1);i++) {
string = string + '<tr><td> <img src=images/expression/'+data[i*6+1]+' align=absmiddle hspace=4><a href=javascript:show('+data[i*6]+',lb.value)><font color=#3E81A8>'+data[i*6+2]+'</font></a>('+data[i*6+3]+'字)'+'<a href=javascript:ShowGRZL("'+data[i*6+4]+'")>['+data[i*6+4]+']</a><font class=p10>('+data[i*6+5]+')</font></td></tr>';
}
string = string +'<tr style=padding-right:10px><td align=right><a href=javascript:bHFWZ()>回复本贴</a></td></tr></table>';
lb.innerHTML = string;
pic = eval('img' + p)
pic.value = 1;
}
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 background="images/bg.gif">
<table width=100% align=center cellPadding=0 cellSpacing=0><tr><td height=22 valign=bottom><table width=100% border=0 cellspacing=0 cellpadding=0 align=center bgcolor=#FFFFFF><tr><td width=100% height=22 class=p9><IMG border=0 src=images/lastpost.gif align=absmiddle hspace=4><a href="ltzy.asp" target="list">返回社区首页</a>
<%
if LB = "1" then
if Request.QueryString("NC") <> "" then
Response.Write(">> "&Request.QueryString("NC")&"的文章专区</td>")
else
Response.Write(">> "&Request.Cookies("NC")&"的文章专区</td>")
end if
else
Response.Write(">> 今日最新文章专区</td>")
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="99%" border="0" cellspacing="0" cellpadding="0" align="center" class="p9">
<tr>
<td height="30" width="50%">
<%
if LB = "1" then
Response.Write("<a href=hylb.asp?BER=1&LB=1&NC="&Request.QueryString("NC")&">发表的文章</a> | <a href=hylb.asp?BER=2&LB=1&NC="&Request.QueryString("NC")&">参与回复的文章</a>")
else
Response.Write("<a href=hylb.asp?BER=1&LB=2>今日最新发表文章</a> | <a href=hylb.asp?BER=2&LB=2>今日最新回复文章</a>")
end if
%>
</td>
<td height="30" width="50%">
<div align="right"><a href="javascript:window.location.reload()">刷新</a> | <a href="javascript:ShowYHZC()">用户注册</a> | <a href="javascript:ShowHelp()">帮助</a> | <a href="javascript:bFH_onclick()">返回</a></div>
</td>
</tr>
</table>
<table width="99%" border="0" cellspacing="4" cellpadding="0" align="center">
<tr>
<td align="right"><span class="p9"><img src="images/yts.gif" WIDTH="14" HEIGHT="11">
论题数：<%=GetPart(ret(0),2)%> <img src="images/yy.gif" align="absmiddle" WIDTH="25" HEIGHT="16">第<%=PAGE%>页 <img src="images/zys.gif" align=absmiddle hspace=4>总计<%=TOTALPAGE%>页</span></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 ret(i) = "" 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=hywz.asp?ID="&GetPart(ret(i),1)&"&RTPAGE="&PAGE&"&NC="&IIF(Request.QueryString("NC")<>"",Request.QueryString("NC"),Request.Cookies("NC"))&"&RTID="&GetPart(ret(i),12)&"&BER="&BER&"&LB="&LB&" 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=hywz.asp?ID="&GetPart(ret(i),1)&"&RTPAGE="&PAGE&"&NC="&IIF(Request.QueryString("NC")<>"",Request.QueryString("NC"),Request.Cookies("NC"))&"&PAGE="&j&"&RTID="&GetPart(ret(i),12)&"&BER="&BER&"&LB="&LB&" 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=hywz.asp?ID="&GetPart(ret(i),1)&"&RTPAGE="&PAGE&"&NC="&IIF(Request.QueryString("NC")<>"",Request.QueryString("NC"),Request.Cookies("NC"))&"&RTID="&GetPart(ret(i),12)&"&BER="&BER&"&LB="&LB&" 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 background=images/tablebg.gif><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td class=p9 width=40% > 请输入昵称：<input type=text name=tNC size=8 class=p9>"&_
" <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>")
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()'>"&_
"</div></td><td width=15% class=p9 background=images/tablebg.gif><div align=right>跳至 <input name=tYS class=p9 size=3 LANGUAGE=javascript onkeypress='return tYS_onkeypress()'>"&_
" 页 </div></td></tr></table></td></tr></table><DIV><iframe id=iHIDE name=iHIDE style='HEIGHT: 0px; DISPLAY:none; WIDTH: 0px'></iframe></DIV>")
'页面跳转代码
''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>")
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 + -