⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 进入后台
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
<title><%=Sitename%></title>
</head>
<body>
<%call sitehead%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border3">
  <tr>
    <td width="182" height="860" valign="top"><table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
      <tr>
        <td><img src="skins/1/left1.gif" width="179" height="36"></td>
        </tr>
      <tr>
        <td height="79">
		<%if session("xyluser")="" then%>
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <form action="login.asp?action=go" method="post" name="form1"><tr>
            <td height="25"><div align="center">帐号：
                  <input name="xyluser" type="text" class="formtext" id="xyluser" maxlength="15">
            </div></td>
          </tr>
          <tr>
            <td height="25"><div align="center">密码：              
                  <input name="xylpwd" type="password" class="formtext" id="xylpwd" maxlength="20">
            </div></td>
          </tr>
          <tr>
            <td height="25"><div align="center">
                <input name="imageField" type="image" src="skins/1/submit.gif" width="59" height="23" border="0">
                <a href="reg.asp"><img src="skins/1/reg.gif" width="54" height="21" border="0"></a></div></td>
          </tr>
          <tr>
            <td height="20"><div align="center">[<a href="findid.asp">忘了我的密码</a>]</div></td>
          </tr>
          <tr>
            <td height="20"><div align="center">[<a href="records.asp">查看登录记录</a>]</div></td>
          </tr></form>
        </table>
		<%else
		rs.open "select realname,bjid,bbsjob,sitemoney,newmail from [user] where id="&session("xyluserid")&"",conn,1,1
			%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="27%" height="18"><div align="right">姓名：</div></td>
    <td width="73%"><%=rs("realname")%>　[<a href="login.asp?action=out"><font color=red>退出</font></a>]</td>
  </tr>
  <tr>
    <td height="18"><div align="right">级别：</div></td>
    <td><%if session("sitejob")=3 then response.write "网站管理员" else response.write rs("bbsjob") end if%></td>
  </tr>
   <tr>
    <td height="18"><div align="right">积分：</div></td>
    <td><%=rs("sitemoney")%></td>
  </tr>
   <tr>
    <td height="18"><div align="right">班级：</div></td>
    <td><select name="select" size="1" class="border" onchange="location=this.options[this.selectedIndex].value">
      <%if isnull(rs("bjid")) then
	   response.write "<option value=''>没有加入班级</option>"
      else
	  response.write "<option value=''>选择班级</option>"
	  bjid=Split(rs("bjid"),",")
	  upnun=ubound(bjid)
	  Set rs2 = Server.CreateObject("Adodb.Recordset")
	  for StartID=0 to upnun
	  rs2.open "select bjname from [bj] where id="&bjid(StartID)&"",conn,1,1
	  if not rs2.eof then
	  response.write "<option value='bjindex.asp?bid="&bjid(StartID)&"'>"&right(rs2(0),8)&"</option>"
	  end if
	  rs2.close
	  next
	  end if
	  %>
    </select></td>
  </tr>
  
  <tr>
    <td height="20" colspan="2"><table width="100%" cellpadding="0" cellspacing="0" bgcolor="#FFEBDE" class="border">
      <tr>
        <td height="20"><div align="center"><a href="note.asp">记事本</a></div></td>
        <td><div align="center"><a href="mail.asp">站内信箱<%if rs("newmail")>0 then response.write "(<font color='#FF0000'>"&rs("newmail")&"</font>)<bgsound balance=0 src='image/mail.wav' loop=1> " end if%></a></div></td>
      </tr>
      <tr>
        <td height="20"><div align="center"><a href="edit.asp">编辑资料</a></div></td>
        <td><div align="center"><a href="grphoto.asp?id=<%=session("xyluserid")%>">个人相册</a></div></td>
      </tr>
    </table></td>
    </tr>
</table>
<%rs.close
end if%>
          </td>
      </tr>
    </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
	  <table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
            <tr>
              <td><img src="skins/1/left2.gif" width="179" height="33"></td>
            </tr>
            <tr>
              <td height="140" valign="top">
			  <marquee scrollamount='1' height="140" scrolldelay='10' behavior='loop' direction='up' onmouseover='this.stop()' onmouseout='this.start()'>
			  <%set rs=conn.execute("select user.realname from user where datepart('m',birthday)=datepart('m',now) and datepart('d',birthday)=datepart('d',now)")
	while not rs.eof
		tmpstr=tmpstr&rs(0)&"&nbsp;"
		rs.movenext
	wend
	rs.close
	if tmpstr="" then
		response.write "今天没有同学生日!"
		else
	response.write "今天是"&tmpstr&"的生日，本站代表全体同学祝他(她)生日快乐!"
	end if%>
			  </marquee></td>
            </tr>
      </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td><img src="skins/1/left3.gif" width="180" height="36"></td>
        </tr>
        <tr>
          <td height="310" valign="top"><table width="98%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
			<%rs.open "select top 3 id,hccount,userphoto from [user] where ishc=1 and sex='女' order by hccount desc,id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("<tr><td>暂无成员</td></tr>")
	else
	do while not rs.eof%>
              <td width="35%" height="54"><div align="center"><A href="hcview.asp?id=<%=rs("id")%>"><img src="<%=rs("userphoto")%>" width="50" height="50" class="picborder"></a></div></td>
             <%rs.movenext
			loop
end if
rs.close%> 
</tr>
          </table>
            <br>
            <table width="94%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <%rs.open "select top 10 id,realname,hccount,userphoto from [user] where ishc=1 and sex='女' order by hccount desc,id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	else
	i=1
	do while not rs.eof%>
			  <tr>
                <td width="21" height="20"><div align="center"><%=i%></div></td>
                <td width="88"><A href="hcview.asp?id=<%=rs("id")%>"><span class="xiahua"><%=rs("realname")%></span></a></td>
                <td width="60"><%=rs("hccount")%></td>
              </tr>
			 <%i=i+1
rs.movenext
			loop
end if
rs.close%> 
          </table></td>
        </tr>
      </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="99%"  border="0" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td><img src="skins/1/left4.gif" width="180" height="31"></td>
        </tr>
        <tr>
          <td height="130" valign="middle">
<%set rs=conn.execute ("select count(id) from user")%>　○- 会员总数：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from bj")%><BR>　○- 班级数目：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from ly")%><BR>　○- 班级留言：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from bbs")%><BR>　○- 论坛总贴：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from bbs where datediff('d',adddate,now())=0")%><BR>　○- 今日新贴：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from photo")%><BR>　○- 相片数目：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from user where datediff('d',lastdate,now())=0")%><BR>　○- 今日登录：<%=rs(0)%>
<%rs.close
set rs=conn.execute ("select count(id) from online")%><BR>　○- 在线会员：<%=rs(0)%></td>
        </tr>
    </table>
	</td>
    <td width="392" valign="top"><table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
      <tr>
        <td colspan="2"><img src="skins/1/z1.gif" width="160" height="32"></td>
        </tr>
      <tr>
        <td width="290" height="120" valign="top">
		<%rs.close
		rs.open "select top 1 * from gg where bjid=99999 order by id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("暂无公告")
	else%>
	<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="20"><b>公告：<%=left(rs(1),20)%></b></td>
          </tr>
          <tr>
            <td><a href="gg.asp#<%=rs(0)%>"><%=left(Replace(rs(2),"<BR>",""),150)%></td>
          </tr>
        </table>
		<%end if
		rs.close%></td>
        <td width="108"><img src="skins/1/z0.gif" width="108" height="120"></td>
        </tr>
    </table>
	<table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td><div align="center"><img src="skins/1/z2.gif" width="372" height="51"></div></td>
        </tr>
        <tr>
          <td height="110" valign="top">用户：老大，聊天室搞好了没啊？我都快急死了<br>
          作者：没呢，别急，我最近也忙死了<br>
          用户：唉，那什么时候不忙啊？<br>
作者：我现在也不知道啊，忙着给客户做网站挣钱买饭吃呢，饿死了。<br>
用户：那说个大概时间啊<br>
作者：噢，大约一个月吧，如果你支持我费用，我就不给别人做站了。<br>
用户：我也没钱啊，那我还等等吧，挣钱要紧。<br>
作者：嗯，别着急啊，我心里也急的。<br>
用户：嗯，那不耽误你时间了，88啊</td>
        </tr>
      </table>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0"><tr><td height="3"></td></tr></table>
      <table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td height="43" valign="top"><div align="center"><img src="skins/1/z3.gif" width="364" height="41"></div></td>
        </tr>
        <tr>
          <td height="134" valign="middle" background="skins/1/z3a.gif"><table width="94%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
			<%rs.open "select top 6 id,pic,title from photo where type2=3 order by id desc",conn,1,1
			if rs.eof then
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -