📄 head.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'┌┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┐
'┊ ┊
'┊ 互连在线企业网站管理系统（ＮＷＥＢ） ┊
'┊ ┊
' 版权所有 csys.com.cn
'
' 程序制作 互连在线工作室
' Q Q:61128110
'
' 相关网址 [产品介绍]http://www.csys.com.cn
' [支持论坛]http://www.csys.com.cn/
'
' 演示网址 http://www.csys.com.cn
'┊ ┊
'└┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┘
%>
<% Option Explicit %>
<% response.charset="utf-8" %>
<!--#include file="../Include/NoSqlHack.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
dim rs,sql,SiteTitle,SiteUrl,ComName,Address,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,IcpNumber,MesViewFlag
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from Csys_Site"
rs.open sql,conn,1,1
SiteTitle=rs("SiteTitle")
SiteUrl=rs("SiteUrl")
ComName=rs("ComName")
Address=rs("Address")
ZipCode=rs("ZipCode")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
Keywords=rs("Keywords")
Descriptions=rs("Descriptions")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
rs.close
set rs=nothing
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="copyright" CONTENT="Copyright 2004-2008 - csys.com.cn-STUDIO" />
<META NAME="Author" CONTENT="互连在线网络技术工作室,www.csys.com.cn" />
<META NAME="Keywords" CONTENT="<% =Keywords %>" />
<META NAME="Description" CONTENT="<% =Descriptions %>" />
<TITLE><% =SiteTitle %></TITLE>
<link rel="stylesheet" href="../Images/CssHtml.css">
<script language="javascript" src="../Script/Html.js"></script>
</HEAD>
<BODY>
<div align="center">
<table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td width="186" height="60" valign="bottom"><img src="../Images/Logo.gif" width="186" height="60"></td>
<td align="right" valign="bottom" nowrap id="DateTime">
<script>
setInterval("DateTime.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt(new Date().getDay());",1000);
</script></td>
</tr>
</table>
<table width="868" height="31" border="0" cellspacing="0" class="Outside" cellpadding="0" >
<%=HeadNavigation()%>
</table>
</div>
<%
function HeadNavigation()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Csys_Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr bgcolor='#2A2A2A'><td height='30' align='center'><font color='white'>暂无导航链接</font></td></tr>"
else
response.write "<tr bgcolor='#2A2A2A'>"
do
response.write "<td height='30' align='center' class='Navigation'><a href='"&rs("NavUrl")&"'>"&rs("NavName")&"</a></td>"
rs.movenext
if not rs.eof then response.write "<td width='1'><img src='../Images/Head_compart_line.gif' align='absmiddle'></td>"
loop until rs.eof
response.write "</tr>"
end if
response.write "<tr><td width='100%' height='1' colspan='"&rs.recordcount*2-1&"'></td></tr>"
rs.close
set rs=nothing
end function
function SearchForm()
response.write "<table width='150' border='0' cellpadding='0' cellspacing='0'>" &_
"<form action='Search.asp' method='post' name='SearchForm'>" &_
" <tr>" &_
" <td width='60' height='20' bgcolor='#F2F2F2'>关键字：</td>" &_
" <td height='24' colspan='2' bgcolor='#F2F2F2'><input name='Keyword' type='text' style='WIDTH: 100;' class='AllSearch'></td>" &_
" </tr>" &_
" <tr>" &_
" <td height='20' bgcolor='#F2F2F2' >范 围：</td>" &_
" <td width='82' height='24' bgcolor='#F2F2F2'>" &_
" <select name='Range' style='WIDTH: 82;'>" &_
" <option value='Products'>产品</option>" &_
" <option value='News'>新闻</option>" &_
" <option value='Download'>下载</option>" &_
" <option value='Others'>其他</option>" &_
" </select>" &_
" </td>" &_
" <td width='16' height='24' bgcolor='#F2F2F2' class='AllSearch'><input name='GoSearch' type='image' src='../Images/All_Search_Go.gif' width='16' height='16' border='0' /></td>" &_
" </tr>" &_
"</form>" &_
"</table>"
end function
function MemberLogin()
if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>" &_
"<form name='formLong' method='post' action='MemberLogin.asp'>" &_
" <tr>" &_
" <td align='center'>" &_
" 会员：<input name='LoginName' type='text' class='MemLogin' size='12' maxlength='16' />" &_
" <br>密码：<input name='LoginPassword' type='password' class='MemLogin' size='12' maxlength='16' />" &_
" <br><input name='Login' type='submit' class='button' value='登录' />" &_
" <input name='Register' type='button' class='button' value='注册' onclick=""location.href='MemberRegister.asp'"" />" &_
" <input name='LostPass' type='button' class='button' value='忘密' onclick=""location.href='MemberLost.asp'"" /></td>" &_
" </tr>" &_
"</form>" &_
"</table>"
else
response.write "您好，" &_
"<font style='font-family:Verdana,Arial,宋体;font-size:12px;color:#FF0000;font-weight: bold;'>"&session("MemName")&"</font>" &_
" ["&MemGroup(session("GroupID"))&"]" &_
" | <a href='MemberInfo.asp'><font color='#1874CD'>帐户管理</font></a> " &_
"<input name='LoginOut' type='button' class='button' onclick=""location.href='MemberLogin.asp?Action=Out'"" value='退出' />"
end if
end function
function MemGroup(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Csys_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
MemGroup=rs("GroupName")
rs.close
set rs=nothing
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -