📄 hywz.asp
字号:
function QXTJ() {
if (window.confirm('真的要推荐该文章吗（只有版主才有此权限）？')) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=10');
}
}
function JWHY(nc) {
iHIDE.location.replace('hywz.asp?ACT=5&NC='+nc);
}
function ShowPage(page) {
window.location.replace('hywz.asp?ID=<%=Request.QueryString("ID")%>&PAGE='+page+'&RTPAGE=<%=Request.QueryString("RTPAGE")%>&NC=<%=Request.QueryString("NC")%>&RTID=<%=Request.QueryString("RTID")%>&BER=<%=Request.QueryString("BER")%>&LB=<%=Request.QueryString("LB")%>');
}
function bHF_onclick() {
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=<%=Request.QueryString("ID")%>');
fHFWZ.opener = window;
}
function LY(nc) {
l = screen.width/2-250/2;
t = screen.height/2-200/2;
fLY = window.open('','fLY','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=250,height=200,left='+l+',top='+t);
fLY.location.replace('fsxx.asp?NC='+nc);
fLY.opener = null;
}
function XG(id,count) {
l = screen.width/2-600/2;
t = screen.height/2-300/2;
if ((<%=PAGE%> == 1) && (count == 1)) {
fFBWZ = window.open('','fFBWZ','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=600,height=300,left='+l+',top='+t);
fFBWZ.location.replace('fbwz.asp?ID=<%=Request.QueryString("ID")%>&EDIT=1&WZID='+id);
fFBWZ.opener = window;
}
else {
fHFWZ = window.open('','fHFWZ','scrollbars=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=<%=Request.QueryString("ID")%>&EDIT=1&WZID='+id+'&TITLE=<%=GetPart(ret(1),2)%>');
fHFWZ.opener = window;
}
}
function YY(id) {
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=<%=Request.QueryString("ID")%>&EDIT=2&WZID='+id+'&TITLE=<%=GetPart(ret(1),2)%>');
fHFWZ.opener = window;
}
function ShowGRXX(nc) {
l = screen.width/2-500/2;
t = screen.height/2-250/2;
fGRXX = window.open('','fGRXX','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
fGRXX.location.replace('grzl.asp?NC='+nc);
}
function ShowHelp() {
window.open('help.asp','fHELP','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=no,left=0,top=0');
}
function ZTZD(flag) {
if (flag == 1) {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=7');
}
else {
iHIDE.location.replace('hywz.asp?RTID=<%=Request.QueryString("RTID")%>&ID=<%=Request.QueryString("ID")%>&ACT=8');
}
}
function qHF_onclick() {
if (qHFWZ.tWZNR.value == '') {
window.alert('回复内容不能为空！');
return(false);
}
reload = true;
qHFWZ.qHF.disabled = true;
qHFWZ.action = 'hywz.asp?ID=<%=Request.QueryString("ID")%>&RTPAGE=<%=Request.QueryString("RTPAGE")%>&BER=<%=Request.QueryString("BER")%>&LB=<%=Request.QueryString("LB")%>&RTID=<%=Request.QueryString("RTID")%>&PAGE=<%=TOTALPAGE%>&ACT=11';
qHFWZ.target = 'list';
qHFWZ.submit();
}
function tWZNR_onkeydown() {
if (event.ctrlKey && (event.keyCode ==13)) qHF_onclick();
}
function openpic(url)
{
window.open(url,"","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=220,height=180");
}
//-->
</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=40% height=22 class=p9><IMG border=0 src=images/lastpost.gif align=absmiddle hspace=4><a href="ltzy.asp" target="list">返回社区首页</a> >>
<%
if Request.QueryString("LB") = "1" then
Response.Write("<a href=javascript:bFH_onclick()>"&Request.QueryString("NC")&"的文章专区</a></td>")
else
Response.Write("<a href=javascript:bFH_onclick()>今日最新文章专区</a></td>")
end if
%>
</td>
<td width="60%" align="left" class=p9> </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">
<tr>
<td height=30 class="p9" align="right" height="25"><A href="javascript:window.location.reload()">刷新</a> | <A href="javascript:TJ()">推荐</a> | <A href="javascript:QXTJ()">取消推荐</a> | <A href="javascript:JRJH()">精华</a> | <A href="javascript:GBZT()">关闭主题</a> | <A href="javascript:KFZT()">开放主题</a> | <A href="javascript:ZTZD(1)">置顶</a> | <A href="javascript:ZTZD(0)">取消置顶</a> | <%if Request.Cookies("qSee") = "1" then
Response.Write("<A href=?mode=See&ID="&Request.QueryString("ID")&"&RTPAGE="&Request.QueryString("RTPAGE")&"&BER="&Request.QueryString("BER")&"&LB="&Request.QueryString("LB")&"&RTID="&Request.QueryString("RTID")&">正常模式</A>")
else
Response.Write("<A href=?mode=qSee&ID="&Request.QueryString("ID")&"&RTPAGE="&Request.QueryString("RTPAGE")&"&BER="&Request.QueryString("BER")&"&LB="&Request.QueryString("LB")&"&RTID="&Request.QueryString("RTID")&">简洁模式</A>")
end if%> | <A href=#bottom>页尾</A> | <A href=javascript:bFH_onclick()>返回</A></td>
</tr>
</table>
<table width="98%" cellspacing="1" cellpadding="0" align="center" bgcolor="#84B6DE">
<tr>
<td background="images/1-11.gif">
<table cellpadding="2" cellspacing="0" border="0" width="100%">
<tr>
<td nowrap class=14><font color=#427994> <b> 标题：<%=GetPart(ret(1),2)%></b></font>
</td>
<td width="20%" align=right><A href="javascript:bHF_onclick()"><IMG border=0 src="images/hfwz.gif" HSPACE=4></a></td>
</tr></table>
</td></tr></table>
<%
if Request.Cookies("qSee") = "" then
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
zz = Command("1044|"&GetPart(ret(i),3))
if GetPart(zz,1) = "0" then
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>发表时间:"&GetPart(ret(i),4)&"</font></td></tr>")
Response.Write("<tr><td rowspan=4 width=20% valign=top bgcolor=#FFFFFF>")
Response.Write("<br><table width=80% cellspacing=1 cellpadding=0 align=center><tr><td class=en><B>"&GetPart(ret(i),3)&"</B> ")
Response.Write("<br><img src=images/face/"&GetPart(zz,3)&" WIDTH=64 HEIGHT=64 border=0 VSPACE=4></td></tr></table><br>")
Response.Write("<div align=center class=p9><TABLE border=0 cellPadding=0 cellSpacing=2 height=18 width=96% ><TR><TD bgColor=#84B6DE>")
Response.Write("<TABLE border=0 cellPadding=2 cellSpacing=1 height=16 width=100% ><TR><TD bgColor=#ffffff NOWRAP><FONT style=FONT-FAMILY: MS Shell Dlg, Tahoma, sans-serif, 宋体; FONT-SIZE: 12px><B>金 钱:</B>"&GetPart(zz,7)&"</FONT></TD></TR></TBODY></TABLE></TD></TR></TABLE>")
Response.Write("<TABLE border=0 cellPadding=0 cellSpacing=2 height=18 width=96% ><TR><TD bgColor=#84B6DE><TABLE border=0 cellPadding=2 cellSpacing=1 height=16 width=100% ><TR><TD bgColor=#ffffff NOWRAP><FONT style=FONT-FAMILY: MS Shell Dlg, Tahoma, sans-serif, 宋体; FONT-SIZE: 12px><B>经 验:</B>"&GetPart(zz,5)&"</FONT></TD></TR></TBODY></TABLE></TD></TR></TABLE>")
Response.Write("<TABLE border=0 cellPadding=0 cellSpacing=2 height=18 width=96% ><TR><TD bgColor=#84B6DE><TABLE border=0 cellPadding=2 cellSpacing=1 height=16 width=100% ><TR><TD bgColor=#ffffff NOWRAP><FONT style=FONT-FAMILY: MS Shell Dlg, Tahoma, sans-serif, 宋体; FONT-SIZE: 12px><B>魅 力:</B>"&GetPart(zz,6)&"</FONT></TD></TR></TBODY></TABLE></TD></TR></TABLE>")
Response.Write("<TABLE border=0 cellPadding=0 cellSpacing=2 height=18 width=96% ><TR><TD bgColor=#84B6DE><TABLE border=0 cellPadding=2 cellSpacing=1 height=16 width=100% ><TR><TD bgColor=#ffffff NOWRAP><FONT style=FONT-FAMILY: MS Shell Dlg, Tahoma, sans-serif, 宋体; FONT-SIZE: 12px><B>伴 侣:</B>"&IIF(GetPart(zz,8) = "","无",GetPart(zz,8))&"</FONT></TD></TR></TBODY></TABLE></TD></TR></TABLE>")
Response.Write("<TABLE border=0 cellPadding=0 cellSpacing=2 height=18 width=96% ><TR><TD bgColor=#84B6DE><TABLE border=0 cellPadding=2 cellSpacing=1 height=16 width=100% ><TR><TD bgColor=#ffffff NOWRAP><FONT style=FONT-FAMILY: MS Shell Dlg, Tahoma, sans-serif, 宋体; FONT-SIZE: 12px><B>社 团:</B>"&IIF(GetPart(zz,4) = "","无",GetPart(zz,4))&"</FONT></TD></TR></TBODY></TABLE></TD></TR></TABLE>")
Response.Write("<TABLE border=0 cellPadding=0 cellSpacing=2 height=18 width=96% ><TR><TD bgColor=#84B6DE><TABLE border=0 cellPadding=2 cellSpacing=1 height=16 width=100% ><TR><TD bgColor=#ffffff NOWRAP><FONT style=FONT-FAMILY: MS Shell Dlg, Tahoma, sans-serif, 宋体; FONT-SIZE: 12px><B>"&GetClass(GetPart(zz,5),GetPart(zz,6)))
for star=1 to Int(GetImage(GetPart(zz,5),GetPart(zz,6)))
Response.Write("<img src=images/star.gif>")
next
Response.Write("</B></FONT></TD></TR></TABLE>")
Response.Write("</TD></TR></TABLE></div>")
Response.Write("</td><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))
if GetPart(zz,10) <> "" then
Response.Write("<br><br><br><br><br><br><br><br><div align=right><br><table border=0 cellspacing=2 cellpadding=2 align=right><tr><td>"&ConvertStr(GetPart(zz,10))&"</td></tr></table></div>")
else
Response.Write("<br><br><br><br><br><br><br><br>")
end if
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(zz,2)&"')><img title=个人信息 height=16 src=images/xx.gif width=16 border=0></A>")
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -