admin_welcome.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
managemode
dim action
action=trim(request("action"))
select case action
case ""
welcome
case "delallwebmsg"
delallwebmsg
case "lookmsg"
lookmsg
case else
welcome
end select

sub welcome
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td height="24" bgcolor="#F7F7F7" class="ttt">===程序统计===</td>
  </tr>
  <tr>
    <td height="302" bgcolor="#F7F7F7" class="ttt"><table width="600" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#666666">
      <tr bgcolor="#FFFFFF">
        <td width="90" height="26" align="center">旅游线路：</td>
        <td width="209"><%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from xianlu"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
		%> 条</td>
        <td width="90" align="center">预订信息：</td>
        <td width="211">
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from giveme"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%> 条</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">线路分类：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from board"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		 类</td>
        <td align="center">同行用户：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from friend"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		 个</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">站内短信：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from message"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		 条</td>
        <td align="center">动态信息：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from news"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		 条</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">出团信息：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from ejoin"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		 团队</td>
        <td align="center">留言记录：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from guestbook"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		 条</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">酒店家数：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from hotel"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		家</td>
        <td align="center">酒店地区：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from hotel_city"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		个地区</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">酒店预订：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from giveme_hotel"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条</td>
        <td align="center">飞机票务：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from ticket_airplane"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条		</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">火车票务：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from ticket_choochoo"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条
		</td>
        <td align="center">旅游租车：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from ticket_car"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条
		</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">飞机预订：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from giveme_airplane"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条
		</td>
        <td align="center">火车预订：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from giveme_choochoo"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条
		</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">租车预订：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from giveme_car"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
		/条
		</td>
        <td align="center">结伴同行：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from youandme"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
/条		</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td height="26" align="center">景点图片：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from photos"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
/张		</td>
        <td align="center">导游人员：</td>
        <td>
<%
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select id from daoyou"
rs.open sql,,3,1
response.Write rs.recordcount
closers(rs)
%>
/位		</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td bgcolor="#F7F7F7" class="ttt">===程序说明===</td>
  </tr>
  <tr>
    <td bgcolor="#F7F7F7" class="ttt">　　当前版本为：2.0<br>     　　程序要求：<br>     　　A：客户端。1、支持Cookies(后台管理)，2、800X600分辩率，3、IE5.5以上<br>      　　B：服务器。1、支持ASP，2：支持FSO，3、支持ACCESS数据库<br></td>
  </tr>
</table>

<%
end sub

sub delallwebmsg
conn.execute("delete * from message")
response.write("<meta HTTP-EQUIV=refresh Content='5;url=admin_welcome.asp?action=lookmsg'>")
response.write("<table width=618 border=0 cellspacing=0 cellpadding=0><tr><td height=115><table width=291 border=0 align=center cellpadding=0 cellspacing=0><tr>")
response.write("<td width=67 height=48 align=center><img src=images/mfk13.gif width=32 height=32></td>")
response.write("<td width=224>删除操作成功！</td><tr><td height=20 colspan=2><li>站内短信已经全部删除！</li></tr></td>")
response.write("</tr><tr><td height=20 colspan=2><li>请选择其它操作，或点这里返回<a href=admin_welcome.asp?action=lookmsg>查看站内短信</a>！</li></td>")
response.write("</tr><tr><td height=20 colspan=2><li>系统5秒钟后返回查看站内短信页面！</li></td></tr></table></td></tr></table>")
end sub

sub lookmsg
set lmsg=conn.execute("select * from message order by id desc")
response.write("<script>")
response.write("function eaaa(form){")
response.write("for (var i=0;i<form.elements.length;i++){")
response.write("var e = form.elements[i];")
response.write("if (e.checked==false){")
response.write("e.checked = true;}")
response.write("else{")
response.write("e.checked = false;")
response.write("}}}</script>")
response.write("<table width=618 border=0 cellpadding=0 cellspacing=1 bgcolor=#CCCCCC>")
response.write("<form action=admin_lookmsg.asp?action=del method=post name=form1>")
response.write("<tr align=center bgcolor=#F5F5F5>")
response.write("<td width=22 height=24 style=cursor:hand onclick='eaaa(form1);'><strong><a title=全选/反选>全</a></strong></td>")
response.write("<td width=105><strong>姓　名</strong></td>")
response.write("<td width=125><strong>时　间</strong></td>")
response.write("<td width=318><strong>主　题</strong></td>")
response.write("<td width=42><strong>属性</strong></td></tr>")
while not lmsg.eof
response.write("<tr bgcolor=#FFFFFF>")
response.write("<td height=20 align=center><input type=checkbox name=checkbox value="&lmsg("id")&"></td>")
response.write("<td height=20 align=center>"&lmsg("username")&"</td>")
response.write("<td height=20 align=center>"&lmsg("msgtime")&"</td>")
response.write("<td height=20><a href=admin_lookmsg.asp?action=look&id="&lmsg("id")&" title=查看详细信息>"&lmsg("msgname")&"</a></td>")
response.write("<td height=20 align=center>")
if lmsg("neworold")=false then
response.write("<font color=#ff0000>新</font>")
else
response.write("旧")
end if
response.write("</td>")
lmsg.movenext
wend
closers(lmsg)
response.write("</tr><tr bgcolor=#FFFFFF><td height=25 colspan=5 align=center><input type=submit name=Submit value='删 除 所 选'>　　　　<input type=button name=sdf value='刷   新' onclick='javascript:location.reload();'></td></tr></form></table>")
end sub
manageend
%>