default.asp

一个超市管理系统

<!-- #include file="setup.asp" --><%

select case Request("menu")
case ""
all
case "listtitle"
listtitle
end select


sub listtitle
top
%>

<script>if(top==self)document.location='Default.asp';</script>
<table width="97%" align="center" border="0">
  <tr>
    <td valign="top"><img src="images/logo.gif" border="0"></td>
    <td align="right">社区区长:<%
master=split(administrators,"|")
for i = 1 to ubound(master)-1
response.write "<b><a href=Profile.asp?username="+master(i)+">"+master(i)+"</a></b> "
next
%> <br>
    注册会员:<b><%=associatortol%></b> | 欢迎新会员:<b><a href="Profile.asp?username=<%=newassociator%>"><%=newassociator%></a></b>
    <br>
    <a href="adminlist.asp">管理员列表</a> | <a href="usertop.asp">会员排行榜</a> </td>
  </tr>
</table>
<table height="28" cellspacing="1" cellpadding="1" width="97%" align="center" border="0">
  <tr>
    <td align="middle" width="3%"><img src="images/announce.gif" align="middle"></td>
    <td>&nbsp;社区公告： 
    <a href="#" onclick="javascript:open('affiche.asp','','width=400,height=180,resizable,scrollbars')">
    <%=affichetitle%></a> ［<%=affichetime%>］</td>
    <td align="right">
    <select onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
    <option>自选风格</option>
    <option value="cookies.asp?menu=skins">默认风格</option>
    <option value="cookies.asp?menu=skins&amp;no=1">紫色风格</option>
    <option value="cookies.asp?menu=skins&amp;no=2">绿色风格</option>
    <option value="cookies.asp?menu=skins&amp;no=3">灰色风格</option>
    <option value="cookies.asp?menu=skins&amp;no=4">红色风格</option>
    <option value="cookies.asp?menu=skins&amp;no=5">橘色风格</option>
    <option value="cookies.asp?menu=skins&amp;no=6">蓝色风格</option>
    </select> </td>
  </tr>
</table>
<table cellspacing="1" cellpadding="5" width="97%" border="0" class="a2" align="center">
  <tr height="25">
    <td valign="center" align="middle" width="33%" class="a1">..::最新发表主题::..</td>
    <td valign="center" align="middle" width="33%" class="a1">..::本周最强人气::..
    </td>
    <td valign="center" align="middle" width="33%" class="a1">..::本周最多回复::..
    </td>
  </tr>
  <tr height="25">
    <td class="a3"><%
sql="select top 5 id,icon,topic,forumid from forum where deltopic<>1 order by id Desc"
rs.Open sql,Conn
Do While Not RS.EOF 
response.write "<IMG src=images/brow/"&rs("icon")&".gif border=0> <a onclick=min_yuzi() target=message href=ShowPost.asp?id="&rs("id")&">"&left(""&rs("topic")&"",17)&"</a><br>"
RS.MoveNext
loop
RS.Close
%></td>
    <td class="a3"><%
sql="select top 5 id,icon,topic,forumid from forum where deltopic<>1 and posttime>now()-7 order by Views Desc"
rs.Open sql,Conn
Do While Not RS.EOF 
response.write "<IMG src=images/brow/"&rs("icon")&".gif border=0> <a onclick=min_yuzi() target=message href=ShowPost.asp?id="&rs("id")&">"&left(""&rs("topic")&"",17)&"</a><br>"
RS.MoveNext
loop
RS.Close   
%></td>
    <td class="a3"><%
sql="select top 5 id,icon,topic,forumid from forum where deltopic<>1 and posttime>now()-7 order by replies Desc,posttime"
rs.Open sql,Conn
Do While Not RS.EOF 
response.write "<IMG src=images/brow/"&rs("icon")&".gif border=0> <a onclick=min_yuzi() target=message href=ShowPost.asp?id="&rs("id")&">"&left(""&rs("topic")&"",17)&"</a><br>"
RS.MoveNext
loop
RS.Close   
%></td>
  </tr>
</table>
<br>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2">
  <tr height="25">
    <td valign="center" class="a1" align="middle" width="5%">状态</td>
    <td valign="center" class="a1" align="middle" width="47%">论坛</td>
    <td valign="center" class="a1" align="middle" width="11%">版主</td>
    <td valign="center" class="a1" align="middle" width="7%">主题</td>
    <td valign="center" class="a1" align="middle" width="7%">帖子</td>
    <td valign="center" class="a1" align="middle" width="16%">最后更新</td>
    <td valign="center" class="a1" align="middle" width="7%">珍藏</td>
  </tr>
  <%
  
  
  
sql="select * from bbsconfig order by classid,id"
rs.Open sql,Conn
do while not rs.eof
Classid=Trim(Rs("classid"))
if TClass <> Classid Then

		
%>
  <tr>
    <td colspan="7" height="25" bgcolor="#FFFFFF"><b>　<a href="?menu=listtitle&id=<%=rs("classid")%>"><img src="images/1.gif" border="0"><%=Conn.Execute("Select classname From class where id="&Classid)(0)%></a></b></td>
  </tr>

<%
		
TClass = Classid
end if


if ""&rs("classid")&""=""&Request("id")&"" or allclass="1" then





masterlist=""
if rs("moderated")<>"" then
master=split(rs("moderated"),"|")
for i = 1 to ubound(master)-1
masterlist=""+masterlist+"<a href=Profile.asp?username="+master(i)+">"+master(i)+"</a><br>"
next
end if

if rs("pass")<>"" then
passphoto="<img src=images/lock.gif>"
else
passphoto="<img src=images/on.gif>"
end if


%>
  <tr>
    <td width="5%" height="52" align="middle" class="a3"><%=passphoto%>　</td>
    <td width="47%" valign="top" class="a4">
    <table width="100%" height="0%" border="0" cellpadding="3" cellspacing="0">
      <tr>
        <td width="80%" height="50%">『 
        <a href="ShowForum.asp?forumid=<%=rs("id")%>"><%=rs("bbsname")%></a> 
        』</td>
        <td align="center" width="20%">
        <a href="ShowForum.asp?forumid=<%=rs("id")%>&TimeLimit=1">
        <img alt="查看该论坛当天的帖子" src="images/today.gif" border="0"></a>
        <a href="ShowForum.asp?forumid=<%=rs("id")%>&search=goodtopic">
        <img alt="查看该论坛的精品文章" src="images/goodtopic.gif" border="0"></a>
        <a href="newtopic.asp?forumid=<%=rs("id")%>">
        <img alt="在该论坛发表文章" src="images/postdirect.gif" border="0"></a></font></td>
      </tr>
      <tr>
        <td height="50%" colspan="2"><%=rs("intro")%></font></td>
      </tr>
    </table>
    </td>
    <td valign="center" align="middle" width="11%" class="a3">
    <table cellspacing="0" cellpadding="2" width="100%" border="0">
      <tr>
        <td align="middle"><%=masterlist%></td>
      </tr>
    </table>
    </td>
    <td valign="center" nowrap align="middle" width="7%" class="a4"><%=rs("toltopic")%>　</td>
    <td valign="center" nowrap align="middle" width="7%" class="a3"><%=rs("tolrestore")%>　</td>
    <td width="16%" valign="center" class="a4">
    <table width="100%">
      <tr>
        <td width="100%" height="38" align="right"><%=rs("lasttime")%><br>
        by <a href="Profile.asp?username=<%=rs("lastname")%>"><%=rs("lastname")%></a>
        <img src="images/lp.gif"></td>
      </tr>
    </table>
    </td>
    <td valign="center" align="center" width="7%" class="a3">
    <span style="CURSOR: hand" onclick="window.external.AddFavorite('<%=cluburl%>/ShowForum.htm?forumid=<%=rs("id")%>', '<%=rs("bbsname")%>')">
    <img src="images/addfav.gif" border="0"></span> </td>
  </tr>
  <%
  
end if
  
	rs.movenext
loop
rs.close

%>
</table>
<br>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2">
  <tr>
    <td height="25" class="a1" colspan="2">　■<b> </b>您的个人状态</td>
  </tr>
  <tr>
    <td align="middle" width="35" class="a3"><img src="images/mystate.gif"></td>
    <td class="a4">
    <table cellspacing="0" cellpadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
      <tr>
        <td>
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <%
if Request.Cookies("username") <> "" then

sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn


%>
          <tr>
            <td width="25%"><%=rs("username")%>- 有 
            <font face="Georgia, Times New Roman, Times, serif"><%=rs("newmessage")%> 
            条新留言</font></td>
            <td width="20%">银两：<font face="Georgia, Times New Roman, Times, serif"><%=rs("money")%></font></td>
            <td width="20%">体力：<font face="Georgia, Times New Roman, Times, serif"><%=rs("userlife")%></font></td>
            <td width="17%">发表文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("posttopic")%></font></td>
            <td width="18%">被删文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("deltopic")%></font></td>
          </tr>
          <tr>
            <td width="25%">等级名称：<Script>document.write(level(<%=rs("experience")%>,<%=rs("membercode")%>)+levelname);</Script></td>
            <td width="20%">存款：<font face="Georgia, Times New Roman, Times, serif"><%=rs("savemoney")%></font></td>
            <td width="20%">经验：<font face="Georgia, Times New Roman, Times, serif"><%=rs("experience")%></font></td>
            <td>回复文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("postrevert")%></font></td>
            <td>精华文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("goodtopic")%>
            </font></td>
          </tr>
          <%
rs.close
end if
acturl="Default.asp?menu=listtitle"
bbsname=clubname
forumid=0


strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))

%>
          <!-- #include file="inc/line.asp" -->
          <tr>
            <td width="25%">您的ＩＰ：<font face="Georgia, Times New Roman, Times, serif"><%=remoteaddr%></font></td>
            <td width="20%">端口：<font face="Georgia, Times New Roman, Times, serif"><%=Request.ServerVariables("REMOTE_PORT")%></font></td>
            <td width="20%">操作系统：<%=strsplit(2)%></td>
            <td colspan="2">浏览器：<%=strsplit(1)%></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<%
regonline=conn.execute("Select count(sessionid)from online where username<>''")(0)


%><br>
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2">
  <tr>
    <td height="25" class="a1" colspan="2">　<b>■ </b>在线统计</td>
  </tr>
  <tr>
    <td align="middle" width="35" class="a3"><img src="images/online.gif"></td>
    <td valign="top" class="a4">
    <table cellspacing="0" cellpadding="3" width="100%">
      <tr>
        <td height="15">&nbsp;<img loaded="no" src="images/plus.gif" id="followImg0" style="cursor:hand;" onclick="loadThreadFollow(0,<%=forumid%>)"> 
        目前论坛总共有 <%=onlinemany%> 人在线。其中注册用户 <%=regonline%> 人，访客 <%=onlinemany-regonline%> 
        人。</td>
      </tr>
      <tr height="25" style="display:none" id="follow0">
        <td id="followTd0" align="left" class="a4" width="94%" colspan="5">
        <div onclick="loadThreadFollow(0,<%=forumid%>)">
          <table width="100%" cellpadding="10">
            <tr>
              <td width="100%">Loading...</td>
            </tr>
          </table>
        </div>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<br>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2">
  <tr>
    <td height="25" colspan="2" class="a1">　■<b> </b>友情链接</td>
  </tr>
  <tr>
    <td width="32" align="center" class="a3"><img src="images/shareforum.gif"></td>
    <td class="a4">&nbsp;<%

rs.Open "link",Conn
do while not rs.eof
response.write "<a title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a> "
rs.movenext
loop
rs.close
%></td>
  </tr>
</table>
<script>
function loadThreadFollow(ino,online){
	var targetImg =eval("followImg" + ino);
	var targetDiv =eval("follow" + ino);
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			targetImg.src="images/minus.gif";
			if (targetImg.loaded=="no"){document.frames["hiddenframe"].location.replace("loading.asp?id="+ino+"&forumid="+online+"");}
		}else{
			targetDiv.style.display="none";
			targetImg.src="images/plus.gif";
		}
}
</script>
<iframe height="0" width="0" name="hiddenframe"></iframe><br>
<%
htmlend

end sub

sub all

%>








<html>
<link href="images/skins/<%=Request.Cookies("skins")%>/bbs.css" rel="stylesheet">
<link REL="SHORTCUT ICON" href="images/ybb.ico">
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<title><%=clubname%></title>
<script>
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>

<style type="text/css">.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}
</style>
<body style="MARGIN: 0px" scroll=no>

<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
  <tr>
    <td align="middle" id="frmTitle" noWrap vAlign="center" name="frmTitle">
    
    
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling=no src="left.htm" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 170px; Z-INDEX: 2">
    </iframe>
    
    

    </td>
    <td class=a2 style="WIDTH: 9pt">
    <table border="0" cellPadding="0" cellSpacing="0" height="100%">
      <tr>
        <td style="HEIGHT: 100%" onclick="switchSysBar()">
        <font style="FONT-SIZE: 9pt; CURSOR: default; COLOR: #ffffff">
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <span class="navPoint" id="switchPoint" title="关闭/打开左栏">3</span><br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        屏幕切换 </font></td>
      </tr>
    </table>
    </td>
    <td style="WIDTH: 100%">
    <iframe frameBorder="0" id="main" name="main" scrolling="yes" src="main.htm" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
    </iframe></td>
  </tr>
</table>
<script>if (window.screen.width<'1024'){switchSysBar()}</script>
</html>







<%
responseend
end sub
%>