📄 wzlb.asp
字号:
if GetPart(zz,9) then
Response.Write(" <a href=javascript:openpic('user_photo_disp.asp?id="&GetPart(ret(i),3)&"') title=查看"&GetPart(ret(i),3)&"的靓照><img src=images/photo.gif border=0></a>")
else
Response.Write("")
end if
Response.Write(" <A href=hylb.asp?NC="&GetPart(zz,2)&"><img title=个人文章专区 height=16 src=images/sywz.gif width=16 border=0></A> ")
if (GetPart(zz,2) = Request.Cookies("NC")) or (UCase(Request.Cookies("NC")) = UCase(Application("NC"))) then
Response.Write("<A href=javascript:XG("&GetPart(ret(i),1)&","&i&")><img title=修改 height=16 src=images/ly.gif width=16 border=0></A> ")
end if
Response.Write("<A href=javascript:SCZT("&IIF(GetPart(ret(i),1) = Request.QueryString("ID"),"2","3")&","&GetPart(ret(i),1)&",1)><img title=删除帖子并减作者魅力 height=16 src=images/dj.gif width=16 border=0></A>")
if GetPart(ret(i),1) <> Request("ID") then
Response.Write(" <A href=javascript:YY("&GetPart(ret(i),1)&")><img src=images/quote.gif title=引用回复 border=0></a>")
end if
if Request.Cookies("NC") <> GetPart(zz,2) then
Response.Write(" <A href=javascript:LY('"&GetPart(zz,2)&"')><img title=留言 height=16 src=images/xg.gif width=16 border=0></A> <A href=javascript:JWHY('"&GetPart(zz,2)&"')><img title=加为好友 height=16 src=images/jwhy.gif width=16 border=0></A> <A href=javascript:JB('"&GetPart(zz,2)&"')><img title=禁闭此人 height=16 src=images/jb.gif width=16 border=0></A> ")
end if
Response.Write("</div></td></tr></table>")
Response.Write("</td></tr></table></td></tr></table></td></tr></table></td></tr></table><br>")
end if
next
else
for i=1 to Int(Application("MYWZS"))+1
if trim(ret(i)) = "" then exit for
Response.Write("<table cellpadding=0 cellspacing=0 border=0 bgcolor=#84B6DE width=98% align=center><tr><td>")
if (i mod 2) = 0 then
Response.Write("<table cellpadding=4 cellspacing=1 border=0 width=100% ><tr><td class=p9 colspan=6 bgcolor=#FFFFFF>")
else
Response.Write("<table cellpadding=4 cellspacing=1 border=0 width=100% ><tr><td class=p9 colspan=6 bgcolor=#FFFFFF>")
end if
Response.Write("<table width=100% border=0 cellspacing=1 cellpadding=0 height=100% bgcolor=#84B6DE>")
Response.Write("<tr height=22><td colspan=2 bgcolor=#CEE7FF> <font color=#4A719C><img src=images/expression/"&GetPart(ret(i),6)&" align=absmiddle border=0 HSPACE=4 VSPACE=2> <B>"&GetPart(ret(i),3)&"</B> 发表于："&GetPart(ret(i),4)&"</font></td></tr>")
Response.Write("<tr><td valign=bottom bgcolor=#FFFFFF>")
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0>")
Response.Write("<tr><td height=22>")
Response.Write("<table width=100% border=0 cellspacing=4 cellpadding=4 height=100% style='word-break:break-all'><tr align=left><td class=14 style='WORD-WRAP: break-word'>"&GetPart(ret(i),7))
Response.Write("<br><br><br><br><br><br><br><br>")
Response.Write("</td></tr></table></td></tr>")
Response.Write("<tr><td colspan=2>")
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=#EAF4FF><tr>")
Response.Write("<td height=22><div align=right> <A href=javascript:ShowGRXX('"&GetPart(ret(i),3)&"')><img title=个人信息 height=16 src=images/xx.gif width=16 border=0></A>")
Response.Write(" <A href=hylb.asp?NC="&GetPart(ret(i),3)&"><img title=个人文章专区 height=16 src=images/sywz.gif width=16 border=0></A> ")
if (GetPart(ret(i),3) = Request.Cookies("NC")) or (UCase(Request.Cookies("NC")) = UCase(Application("NC"))) then
Response.Write("<A href=javascript:XG("&GetPart(ret(i),1)&","&i&")><img title=修改 height=16 src=images/ly.gif width=16 border=0></A> ")
end if
Response.Write("<A href=javascript:SCZT("&IIF(GetPart(ret(i),1) = Request.QueryString("ID"),"2","3")&","&GetPart(ret(i),1)&",1)><img title=删除帖子并减作者魅力 height=16 src=images/dj.gif width=16 border=0></A>")
if GetPart(ret(i),1) <> Request("ID") then
Response.Write(" <A href=javascript:YY("&GetPart(ret(i),1)&")><img src=images/quote.gif title=引用回复 border=0></a>")
end if
if Request.Cookies("NC") <> GetPart(ret(i),3) then
Response.Write(" <A href=javascript:LY('"&GetPart(ret(i),3)&"')><img title=留言 height=16 src=images/xg.gif width=16 border=0></A> <A href=javascript:JWHY('"&GetPart(ret(i),3)&"')><img title=加为好友 height=16 src=images/jwhy.gif width=16 border=0></A> <A href=javascript:JB('"&GetPart(ret(i),3)&"')><img title=禁闭此人 height=16 src=images/jb.gif width=16 border=0></A> ")
end if
Response.Write("</div></td></tr></table>")
Response.Write("</td></tr></table></td></tr></table></td></tr></table></td></tr></table><br>")
next
end if
'页面跳转代码
'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><br>")
if Request.Cookies("NC")<>"" and Request.Cookies("NC")<>"访客" then
%>
<form name="qHFWZ" method="POST">
<table width="94%" cellpadding="2" cellspacing="2" align=center>
<tr><td>
<input type="radio" name="rWZJD" value="1.gif" checked>
<img height="20" src="images/expression/1.gif" width="20">
<input type="radio" name="rWZJD" value="2.gif">
<img height="20" src="images/expression/2.gif" width="20">
<input type="radio" name="rWZJD" value="3.gif">
<img height="20" src="images/expression/3.gif" width="20">
<input type="radio" name="rWZJD" value="4.gif">
<img height="20" src="images/expression/4.gif" width="20">
<input type="radio" name="rWZJD" value="5.gif">
<img height="20" src="images/expression/5.gif" width="20">
<input type="radio" name="rWZJD" value="6.gif">
<img height="20" src="images/expression/6.gif" width="20">
<input type="radio" name="rWZJD" value="7.gif">
<img height="20" src="images/expression/7.gif" width="20">
<input type="radio" name="rWZJD" value="8.gif">
<img height="20" src="images/expression/8.gif" width="20">
<input type="radio" name="rWZJD" value="9.gif">
<img height="20" src="images/expression/9.gif" width="20"><br>
<input type="radio" name="rWZJD" value="10.gif">
<img height="20" src="images/expression/10.gif" width="20">
<input type="radio" name="rWZJD" value="11.gif">
<img height="20" src="images/expression/11.gif" width="20">
<input type="radio" name="rWZJD" value="12.gif">
<img height="20" src="images/expression/12.gif" width="20">
<input type="radio" name="rWZJD" value="13.gif">
<img height="20" src="images/expression/13.gif" width="20">
<input type="radio" name="rWZJD" value="14.gif">
<img height="20" src="images/expression/14.gif" width="20">
<input type="radio" name="rWZJD" value="15.gif">
<img height="20" src="images/expression/15.gif" width="20">
<input type="radio" name="rWZJD" value="16.gif">
<img height="20" src="images/expression/16.gif" width="20">
<input type="radio" name="rWZJD" value="17.gif">
<img height="20" src="images/expression/17.gif" width="20">
<input type="radio" name="rWZJD" value="18.gif">
<img height="20" src="images/expression/18.gif" width="20">
</td><tr>
<tr><td height=100>
<textarea cols="50" name="tWZNR" rows="8" style="HEIGHT: 100%; WIDTH: 100%; word-break:break-all" LANGUAGE="javascript" onkeydown="return tWZNR_onkeydown()"><%=NR%></textarea>
</td></tr></table><br>
<% Response.Write("<table width=98% cellspacing=1 cellpadding=0 align=center bgcolor=#84B6DE><tr><td height=30><table width=100% border=0 cellspacing=0 cellpadding=4><tr>"&_
"<td background=images/tablebg.gif class=p9 width=70% align=right><input type='button' name='qHF' 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 qHF_onclick()'>")
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=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
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()'>"&_
"</td><td background=images/tablebg.gif width=30% class=p9 align=right><a name=bottom></a><A href=javascript:window.scrollTo(0,0)>移到顶端 <img src=images/icon_go_up.gif align=absmiddle border=0></a></td></tr></table></td></tr></table></form>")
end if
Response.Write("<DIV><IFRAME id=iHIDE style='WIDTH:0px; HEIGHT:0px;DISPLAY: NONE'></IFRAME></DIV><p align=center class=p9>")
if TOTALPAGE > 1 then
Response.Write("(共：")
for i=1 to TOTALPAGE
if i = PAGE then
Response.Write("<B>"&i&"</B> ")
else
Response.Write("<A href=javascript:ShowPage("&i&")>"&i&"</A> ")
end if
next
Response.Write(" 页)")
end if
Response.Write("</P>")
Response.Write("<form name=fWZLB method=post target=iHIDE>")
if MM <> "" then
Response.Write("<input type=hidden name=tMM value="&MM&" >")
else
Response.Write("<input type=hidden name=tMM value="&Request.Form("tMM")&" >")
end if
if ACT <> "" then
Response.Write("<input type=hidden name=tACT value="&ACT&" >")
else
Response.Write("<input type=hidden name=tACT value="&Request.Form("tACT")&" >")
end if
if KEY <> "" then
Response.Write("<input type=hidden name=tKEY value="&KEY&" >")
else
Response.Write("<input type=hidden name=tKEY value="&Request.Form("tKEY")&" >")
end if
Response.Write("</form>")
select case Request("mode")
case "See"
Response.Cookies("qSee")=""
Response.Cookies("qSee").Expires=date+3650
Response.Redirect "?ID="&Request.QueryString("ID")&"&RTPAGE="&Request.QueryString("RTPAGE")&"&RTID="&Request.QueryString("RTID")
response.end
case "qSee"
Response.Cookies("qSee")="1"
Response.Cookies("qSee").Expires=date+3650
Response.Redirect "?ID="&Request.QueryString("ID")&"&RTPAGE="&Request.QueryString("RTPAGE")&"&RTID="&Request.QueryString("RTID")
response.end
end select
EndTime=timer()%>
<div align=center>[查询所用时间： <%=FormatNumber((EndTime-StarTime)*1000,3)%>毫秒]</div>
<br></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -