admin_welcome.asp

旅游路线管理 比较方便的旅游路线管理

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<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">====Mfkiqpl说明===</td>
  </tr>
  <tr>
    <td height="110" bgcolor="#F7F7F7" class="ttt">　　欢迎您使用Mfkiqpl旅游线路预订程序！<br>      
　　更多关于此程序的程序请访问我的主页！<br>
　　<a href="http://www.zjjnet.com" target="_blank">http://www.zjjnet.com</a><br>
　　在此感谢以往支持此程序的所有人！<br>
　　更感谢对程序提出修改建议的人！</td>
  </tr>
  <tr>
    <td height="24" bgcolor="#F7F7F7" class="ttt">===程序说明===</td>
  </tr>
  <tr>
    <td height="138" bgcolor="#F7F7F7" class="ttt">　　当前版本为：4.0<br>      　　程序要求：    
      <br>      　　A：客户端。1、支持Cookies(后台管理)，2、800X600分辩率，3、IE5.0以上<br>      　　B：服务器。1、支持ASP，2：支持FSO，3、支持ACCESS数据库<br>
            　　此版本推出插件功能，当前版本自动携带：投票、留言板、发站内短信等插件。<br>            　　更多插件正在开发当中，包括：动态新闻、在线视听、图片欣赏、统计计数等。关于插件的详情请访问我的主页。</td>
  </tr>
  <tr>
    <td height="24" bgcolor="#F7F7F7" class="ttt">===后台操作说明===</td>
  </tr>
  <tr>
    <td height="64" bgcolor="#F7F7F7" class="ttt">　　请选选择操作，有什么问题或不懂的请到我主页询问！<br>
　　我的QQ：31827726<br>
　　<a href="http://www.zjjnet.com" target="_blank">检查版本更新/下载插件</a></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
%>