📄 ms_start.asp
字号:
<!--#include file="online.asp"-->
<!--#include file="skins/skin.asp"-->
<%'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
if webstate=0 then
response.Redirect("include/errmsg.asp?MSError=errmPage&strTitle=Sorry,网站暂时关闭&strMsg="&weifu)
response.End
end if
dim get_id
get_ip = getIp()
filterIp="|"&filterIp
ipb = InStr(1, get_ip, ".")
ipc = InStr(1, mid(get_ip,ipb+1), ".")
ipd = InStr(1, mid(mid(get_ip,ipb+1),ipc+1), ".")
if instr(1,filterIp,"|" & left(get_ip,ipb) & "*") or instr(1,filterIp,"|" & left(get_ip,ipb+ipc) & "*") or instr(1,filterIp,"|" & left(get_ip,ipb+ipc+ipd) & "*") or instr(1,filterIp,"|" & get_ip) then
response.Redirect("include/errmsg.asp?MSError=errmPage&strTitle=出错信息&strMsg=很抱歉，您的IP已被封锁了，请联系管理员。")
response.end
end if
dim skinSet
if Request("skin")<>"" then
response.Cookies("maosinSkin")("skin")=request("skin")
response.Cookies("maosinSkin").Expires=DateAdd("m",1,Date)
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
if Request.Cookies("maosinSkin")("skin")<>"" then
skinSet=Request.Cookies("maosinSkin")("skin")
else
skinSet=getSkin(0)
response.Cookies("maosinSkin")("skin")=getSkin(0)
end if
function ms_menu()
dim msmenu,menu,title,menusql,url,color,sup
msmenu=application("msmenu")
if isempty(msmenu) then
menusql="select * from ms_menu where isopen=true and foot=false order by orders asc"
Set menu=Server.CreateObject("ADODB.RecordSet")
menu.Open menusql,connstr,1,1
dim i:i=1
Do while NOT menu.EOF
title=trim(menu("title"))
url=trim(menu("url"))
color=trim(menu("titlecolor"))
sup=trim(menu("sup"))
If menu.AbsolutePosition<menu.RecordCount Then
if menu("window")=true then
msmenu=msmenu&"<span class=""Menu_ID"" onMouseOver=""Sstyle('menu"&i&"')"" onMouseOut=""Cstyle('menu"&i&"')"" id=menu"&i&"><a class=""Amenu"" href="&url&" target=_blank title="&sup&"><font color="""&color&""">"&title&"</font></a></span><span class=""xline"">┊</span>"
else
msmenu=msmenu&"<span class=""Menu_ID"" onMouseOver=""Sstyle('menu"&i&"')"" onMouseOut=""Cstyle('menu"&i&"')"" id=menu"&i&"><a class=""Amenu"" href="&url&" title="&sup&"><font color="""&color&""">"&title&"</font></a></span><span class=""xline"">┊</span>"
end if
Else
if menu("window")=true then
msmenu=msmenu&"<span class=""Menu_ID"" onMouseOver=""Sstyle('menu"&i&"')"" onMouseOut=""Cstyle('menu"&i&"')"" id=menu"&i&"><a class=""Amenu"" href="&url&" target=_blank title="&sup&"><font color="""&color&""">"&title&"</font></a></span>"
else
msmenu=msmenu&"<span class=""Menu_ID"" onMouseOver=""Sstyle('menu"&i&"')"" onMouseOut=""Cstyle('menu"&i&"')"" id=menu"&i&"><a class=""Amenu"" href="&url&" title="&sup&"><font color="""&color&""">"&title&"</font></a></span>"
end if
End If
menu.MoveNext
i=i+1
Loop
menu.close
Set menu=Nothing
application("msmenu")=msmenu
end if
ms_menu=msmenu
End function%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>→<%=catTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="imagetoolbar" content="no">
<META NAME="keywords" CONTENT="<%=webkeyword&keyword%>">
<META NAME="description" CONTENT="<%=descriptions%>">
<META NAME="robots" CONTENT="all">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR>
<META name="author" content="李胜茂，shengmao2003@163.com">
<link href="skins/<%=skinSet%>/skin.css" type="text/css" rel=stylesheet>
<script language="JavaScript" src="include/function.js"></script>
<script language="JavaScript" type="text/javascript" src="skins/<%=skinSet%>/skin.js"></script>
</head>
<body>
<table height="100%" border="0" cellpadding="0" cellspacing="0" align="center" class="maosin_MainTable">
<tr><td class="maosin_MainTable_left"></td>
<td align="center" valign="top" class="maosin_MainTable_center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table_barand">
<tr><td colspan="3" height="20" width="*" align="right" class="mainHead_navig"><img src="images/time.gif" border="0" align="absmiddle"> <span id=jnkc></span> <a href="user_reg.asp"><img src="images/user_ico1.gif" border="0" align="texttop"> 注册会员</a> <a href="logon.asp"><img src="images/user_ico1.gif" border="0" align="texttop"> 会员登录</a> <a href="user_center.asp"><img src="images/user_ico1.gif" border="0" align="texttop"> 会员中心</a> <span class="mainHead_navig_other"><img src="images/top_home.gif" width="13" height="12" border="0"> <a href="#" onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('<%=weburl%>');return false;" title="将本站设为你的首页">设为首页</a> <img src="images/top_fav.gif" width="13" height="12" border="0"> <a href="javascript:window.external.AddFavorite(location.href,document.title)" title="将本站加入到你的收藏夹">收藏本站</a> <img src="images/top_send.gif" width="13" height="12" border="0"> <a href="mailto:maosin@maosin.com">联系我们</a></span> <img src="images/transform.jpg" width="13" height="12" border="0"> <a name="StranLink" style="color:red">繁體中文</a></td></tr>
<tr class="barand">
<td valign="middle" class="mainHead_logo"><img id="logoimg" src="skins/<%=skinSet%>/logo.gif"></td>
<td width="530" valign="middle" class="mainHead_brand"><%maosin_getads(2)%></td>
<td valign="middle" class="mainHead_other"><img src="images/top_home.gif" width="13" height="12" border="0"> <a href="#" onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('<%=weburl%>');return false;" title="将本站设为你的首页">设为首页</a><br><img src="images/top_fav.gif" width="13" height="12" border="0"> <a href="javascript:window.external.AddFavorite(location.href,document.title)" title="将本站加入到你的收藏夹">收藏本站</a><br><img src="images/top_send.gif" width="13" height="12" border="0"> <a href="mailto:maosin@maosin.com">联系我们</a></td>
</tr>
</table>
<SCRIPT>setInterval("jnkc.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt (new Date().getDay());",1000);</SCRIPT>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="naveMenuTable"><tr><td class="naveMenu_top1"></td><td height="30" width="*" align="center" class="naveMenu_top2"><%response.write(ms_menu)%><span class="xline">┊</span><span class="Menu_ID" onMouseOver="Sstyle('menu0')" onMouseOut="Cstyle('menu0')" id="menu0"><%=getSkin(1)%></span></td><td class="naveMenu_top3"></td></tr></table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -