default.asp
来自「多风格网站管理系统 进行网站的综合管理 后台数据库系统」· ASP 代码 · 共 223 行
ASP
223 行
<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
'产品名称： 公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有：www.web300.cn
'程序制作：QQ812256@hotmail.com
'联系 方式：QQ ：812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'========================================================
%>
<html><head>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<title> 公司(企业)网站管理系统 V2006.10</title>
<style type="text/css">
.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}
.a2{BACKGROUND-COLOR: A4B6D7;}
</style>
</head>
<%
select case Request("menu")
case ""
index
case "top"
top2
end select
%>
<% sub top2 %>
<BODY leftMargin=0 topMargin=0 rightMargin=0>
<CENTER>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD align=center width="100%" height=25 style="BACKGROUND-IMAGE: url(images/titlebg.gif); COLOR: #330099; font: 10.5pt"
><B> 多语言多风格网站管理系统</B></TD>
</TR>
</TABLE>
</CENTER>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
</body>
<% end sub %>
<% sub index %>
<body style="MARGIN: 0px" scroll=no onResize=javascript:parent.carnoc.location.reload()>
<script>
if(self!=top){top.location=self.location;}
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>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tr>
<td align="middle" noWrap vAlign="center" id="frmTitle">
<iframe frameBorder="0" id="carnoc" name="carnoc" scrolling=auto src="Menu_left.asp" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 180px; Z-INDEX: 2">
</iframe>
</td>
<td bgcolor="A4B6D7" 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="top" scrolling="no" scrolling="yes" src="?menu=top" style="HEIGHT: 4%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
<iframe frameborder="0" id="main" name="main" scrolling="yes" src="sysadmin_view.asp" style="HEIGHT: 96%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe></td>
</tr>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
</body>
<%
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?