📄 mainmenu.asp
字号:
<!--#include file="BBSLib.asp"-->
<%
ret = CommandEx("329|")
if Request.QueryString("ACT") = "1" then
buf = CommandEx("320|"&Request.QueryString("LMID")&"|1")
if GetPart(buf(0),1) = "0" then
LMFL = ""
for i=1 to Int(GetPart(buf(0),2))
if buf(i) = "" then exit for
LMFL = LMFL&GetPart(buf(i),1)&"|"&GetPart(buf(i),2)&"|"
next
Response.Write("<script>window.parent.ShowLM('"&LMFL&"');</script>")
end if
Response.End
end if
if Request.QueryString("ACT") = "2" then
ret = Command("334|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
Response.End
else
ShowMessage 3,"该论坛已加入您的个人收藏！"
Response.Write("<script>window.parent.SCFW();</script>")
Response.End
end if
end if
if Request.QueryString("ACT") = "3" then
ret = CommandEx("336|")
if GetPart(ret(0),1) <> "0" then
ShowError 3,GetPart(ret(0),2)
Response.End
else
data = ""
for i=1 to Int(GetPart(ret(0),2))
if ret(i) = "" then exit for
data = data&ret(i)&"|"
next
Response.Write("<script>window.parent.ShowSC('"&data&"');</script>")
end if
Response.End
end if
if Request.QueryString("ACT") = "4" then
ret = Command("335|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
Response.End
else
ShowMessage 3,"该论坛已移出您的个人收藏！"
Response.Write("<script>window.parent.SCFW();</script>")
Response.End
end if
end if
if Request.QueryString("ACT") = "5" then
buf = CommandEx("337|")
if GetPart(buf(0),1) <> "0" then
ShowError 3,GetPart(buf(0),2)
Response.End
else
tjlt = ""
for i=1 to Int(GetPart(buf(0),2))
if buf(i) = "" then exit for
tjlt = tjlt&buf(i)&"|"
next
Response.Write("<script>window.parent.ShowRD('"&tjlt&"');</script>")
end if
Response.End
end if
if Request.QueryString("ACT") = "6" then
ret = Command("339|"&Request.QueryString("ID"))
if GetPart(ret,1) <> "0" then
ShowError 3,GetPart(ret,2)
Response.End
else
ShowMessage 3,"该论坛已移出热点推荐！"
Response.Write("<script>window.parent.SCFW();</script>")
Response.End
end if
end if
if Request.QueryString("ACT") = "7" then
buf = CommandEx("342|")
if GetPart(buf(0),1) <> "0" then
ShowError 3,GetPart(buf(0),2)
Response.End
else
zxhz = ""
for i=1 to Int(GetPart(buf(0),2))
if buf(i) = "" then exit for
zxhz = zxhz&buf(i)&"|"
next
Response.Write("<script>window.parent.ShowHZ('"&zxhz&"');</script>")
end if
Response.End
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body { font-family: "宋体"; font-size: 12px}
.p9 { font-family: "宋体"; font-size: 12px}
A:link{font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:12px;COLOR: red; TEXT-DECORATION: underline}
.TButton { font-family: "宋体"; font-size: 12px;cursor:hand; HEIGHT: 20px; WIDTH: 52px}
-->
</style>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function ShowHELP() {
window.open('help.asp','','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=yes');
}
function hyzc() {
l = screen.width/2-450/2;
t = screen.height/2-320/2;
fYHZC = window.open('','fYHZC','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=320,left='+l+',top='+t);
fYHZC.location.replace('hyzc.asp');
}
function hydl() {
l = screen.width/2-210/2;
t = screen.height/2-160/2;
fHYDL = window.open('','fHYDL','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=210,height=160,left='+l+',top='+t);
fHYDL.location.replace('dl.asp');
fHYDL.opener = window.parent;
}
function hycz() {
l = screen.width/2-300/2;
t = screen.height/2-60/2;
fHYCZ = window.open('','fHYCZ','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=300,height=60,left='+l+',top='+t);
fHYCZ.location.replace('hycz.asp');
fHYCZ.opener = window.parent;
}
function zlgl() {
l = screen.width/2-450/2;
t = screen.height/2-310/2;
fYHZLXG = window.open('','fYHZLXG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=310,left='+l+',top='+t);
fYHZLXG.location.replace('yhzlxg.asp?NC=<%=Request.Cookies("NC")%>');
}
function ShowSQGL() {
l = screen.width/2-450/2;
t = screen.height/2-310/2;
fSQGL = window.open('','','scrollbars=no,toolbar=no,menubar=no,location=no,status=no');
fSQGL.location.replace('admin/sqgl.asp');
}
//-->
</script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
var p = 0;
var q = 0;
var number = <%=GetPart(ret(0),2)%>;
function LMYC() {
var lbmc,pic;
for (i=1;i<=number;i++) {
lbmc = eval('LM' + i);
pic = eval('picture' + i);
lbmc.style.display = 'none';
pic.src = 'images/file.gif';
}
}
function SCFW() {
GRSC.style.display = 'none';
picsc.src = 'images/file.gif';
picsc.value = 0;
RDTJ.style.display = 'none';
picrd.src = 'images/file.gif';
picrd.value = 0;
}
function ShowFLT (m,n,i) {
p = i;
q = n;
lbmc = eval('LM' + i);
pic = eval('picture' + i)
if (lbmc.style.display == 'none') {
LMYC();
pic.src = 'images/nofile.gif';
lbmc.style.display = '';
if (pic.value == 0) {
iHIDE.location.replace('mainmenu.asp?ACT=1&LMID='+m);
}
}
else {
lbmc.style.display = 'none';
pic.src = 'images/file.gif';
}
}
function ShowLTZC(m) {
l = screen.width/2-450/2;
t = screen.height/2-320/2;
fLTZC = window.open('ltzc.asp?ID='+m,'fLTZC','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=320,left='+l+',top='+t);
fLTZC.opener = window;
}
function JRSC(m) {
if (window.confirm('真的要加入个人收藏吗？')) {
iHIDE.location.replace('mainmenu.asp?ACT=2&ID='+m);
}
}
function ShowLM (data) {
lb = eval('LM' + p);
pic = eval('picture' + p);
string = '<table width=100% border=0 cellpadding=0 cellspacing=0 class=p9>';
if (data != '') {
data = data.split('|');
for (i=0;i<(data.length/2-1);i++) {
string = string + '<tr><td> <a href=ltlb.asp?ID='+data[i*2]+' target=list><FONT color=#000000>'+data[i*2+1]+'</FONT></a></td></tr>';
}
if (q == 1) {
string = string +'<tr><td><img src=images/blank.gif align=absmiddle><a href=javascript:ShowLTZC('+lb.value+')><font color=red>申请论坛</font></a></td></tr></table>';
}
}
else {
if (q == 1) {
string = string +'<tr><td><img src=images/blank.gif align=absmiddle><a href=javascript:ShowLTZC('+lb.value+')><font color=red>申请论坛</font></a></td></tr></table>';
}
else {
string = '<tr><td><img src=images/blank.gif align=absmiddle>无内容</td></tr>';
}
}
lb.innerHTML = string;
pic.value = 1;
}
function ShowGRSC() {
if (GRSC.style.display == 'none') {
LMYC();
GRSC.style.display = '';
picsc.src = 'images/nofile.gif';
if (picsc.value == 0) {
iHIDE.location.replace('mainmenu.asp?ACT=3');
}
}
else {
GRSC.style.display = 'none';
picsc.src = 'images/file.gif';
}
}
function ShowSC(data) {
string = '<table width=100% border=0 cellpadding=0 cellspacing=0 class=p9>';
if (data == '') {
string = '<tr><td><img src=images/blank.gif align=absmiddle>无内容</td></tr>';
}
else {
data = data.split('|');
for (i=0;i<(data.length/2-1);i++) {
string = string + '<tr><td><a href=javascript:YCSC('+data[i*2]+')><img src=images/zcsc.gif border=0 align=absmiddle title=移出个人收藏></a><a href=ltlb.asp?ID='+data[i*2]+' target=list><FONT color=#000000>'+data[i*2+1]+'</FONT></a></td></tr>';
}
}
string = string +'</table>';
GRSC.innerHTML = string;
picsc.value = 1;
}
function YCSC(m) {
if (window.confirm('真的要移出个人收藏吗？')) {
iHIDE.location.replace('mainmenu.asp?ACT=4&ID='+m);
}
}
function ShowRDTJ() {
if (RDTJ.style.display == 'none') {
LMYC();
RDTJ.style.display = '';
picrd.src = 'images/nofile.gif';
if (picrd.value == 0) {
iHIDE.location.replace('mainmenu.asp?ACT=5');
}
}
else {
RDTJ.style.display = 'none';
picrd.src = 'images/file.gif';
}
}
function YCRD(m) {
if (window.confirm('真的要移出热点推荐吗？')) {
iHIDE.location.replace('mainmenu.asp?ACT=6&ID='+m);
}
}
function ShowRD(tjlt) {
string = '<table width=100% border=0 cellpadding=0 cellspacing=0 class=p9>';
if (tjlt == '') {
string = '<tr><td><img src=images/blank.gif align=absmiddle>无内容</td></tr>';
}
else {
tjlt = tjlt.split('|');
for (i=0;i<(tjlt.length/2-1);i++) {
if ('<%=UCase(Request.Cookies("NC"))%>' == '<%=UCase(Application("NC"))%>') {
string = string + '<tr><td><a href=javascript:YCRD('+tjlt[i*2]+')><img src=images/zcsc.gif border=0 align=absmiddle title=移出热点推荐></a><a href=ltlb.asp?ID='+tjlt[i*2]+' target=list><FONT color=#000000>'+tjlt[i*2+1]+'</FONT></a></td></tr>';
}
else {
string = string + '<tr><td><img src=images/blank.gif align=absmiddle></a><a href=ltlb.asp?ID='+tjlt[i*2]+' target=list><FONT color=#000000>'+tjlt[i*2+1]+'</FONT></a></td></tr>';
}
}
}
string = string +'</table>';
RDTJ.innerHTML = string;
picrd.value = 1;
}
function ShowZXHZ() {
if (ZXHZ.style.display == 'none') {
LMYC();
pichz.src = 'images/nofile.gif';
ZXHZ.style.display = '';
if (pichz.value == 0) {
iHIDE.location.replace('mainmenu.asp?ACT=7');
}
}
else {
ZXHZ.style.display = 'none';
pichz.src = 'images/file.gif';
}
}
function ShowHZ(data) {
string = '<table width=100% border=0 cellpadding=0 cellspacing=0 class=p9>';
if (data == '') {
string = '<tr><td><img src=images/blank.gif align=absmiddle>无内容</td></tr>';
}
else {
data = data.split('|');
for (i=0;i<(data.length/2-1);i++) {
string = string + '<tr><td><img src=images/blank.gif border=0 align=absmiddle><a href=http://'+data[i*2+1]+' target=_blank><FONT color=#000000>'+data[i*2]+'</FONT></a></td></tr>';
}
}
string = string +'</table>';
ZXHZ.innerHTML = string;
pichz.value = 1;
}
function DisplayLM(id,n,i) {
ShowFLT(id,n,i);
window.open('list.asp?ID='+id,'list');
}
//-->
</script>
</head>
<body background="images/mainmenubg.gif" topMargin="0" leftmargin="0">
<table width="90" border="0" cellpadding="0" cellspacing="0" class="p9" height="100%">
<tr>
<td align="center" height="25" valign="middle">
</td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="p9">
<tr><td><a href=ltzy.asp target=list><img id="picff" src="images/nofile.gif" border="0" value="0" hspace=4 vspace=4 align=absmiddle style="cursor:hand">社区首页</a></td></tr>
<%
if Request.Cookies("NC")<>"" and Request.Cookies("NC")<>"访客" then
Response.Write("<tr><td><a href=ltlb.asp?LB=2 target=list><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>今日新贴</a></td></tr>")
Response.Write("<tr><td><a href=billboard.asp target=list><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>社区排行</a></td></tr>")
Response.Write("<tr><td><a href=home.asp target=list><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>我的住所</a></td></tr>")
Response.Write("<tr><td><a href=javascript:zlgl()><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>资料管理</a></td></tr>")
Response.Write("<tr><td><a href=ltlb.asp?LB=1 target=list><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>文章专区</a></td></tr>")
Response.Write("<tr><td><a href=javascript:hycz()><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>会员查找</a></td></tr>")
Response.Write("<tr><td><a href=admin/jmlb.asp target=list><img src=images/nofile.gif border=0 hspace=4 vspace=4 align=absmiddle>居民列表</a></td></tr>")
end if
for i=1 to Int(GetPart(ret(0),2))
if ret(i) = "" then exit for
Response.Write("<tr><td><a href=javascript:ShowFLT("&GetPart(ret(i),1)&","&GetPart(ret(i),3)&","&i&")><img id=picture"&i&" src=images/file.gif border=0 value=0 hspace=4 vspace=4 align=absmiddle></a><a href=javascript:DisplayLM("&GetPart(ret(i),1)&","&GetPart(ret(i),3)&","&i&")>"&GetPart(ret(i),2)&"</a></td></tr>")
Response.Write("<tr><td id=LM"&i&" value="&GetPart(ret(i),1)&" style=display:none> 下载中...</td></tr>")
next
%>
<%=IIF(UCase(Application("NC"))=UCase(Request.Cookies("NC")),"<tr><td><a href='javascript:ShowSQGL()'><img src='images/nofile.gif' border=0 hspace=4 vspace=4 align=absmiddle>社区管理</a></td></tr>","")%>
<tr><td><a href="javascript:hyzc()"><img src="images/nofile.gif" border="0" hspace=4 vspace=4 align=absmiddle>会员注册</a></td></tr>
<tr><td><a href="javascript:hydl()"><img src="images/nofile.gif" border="0" hspace=4 vspace=4 align=absmiddle>会员登录</a></td></tr>
<tr><td><a href="javascript:ShowHELP()"><img src="images/nofile.gif" border="0" hspace=4 vspace=4 align=absmiddle>社区帮助</a></td></tr>
<tr><td><a href="logout.asp" target="_top"><img src="images/nofile.gif" border="0" hspace=4 vspace=4 align=absmiddle>退出社区</a></td></tr>
</table>
<iframe id="iHIDE" style="WIDTH:0px; HEIGHT:0px; display:none"></iframe>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -