📄 head.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'┌┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┐
'┊ ┊
'┊ 速群企业网站管理系统（www.suqun.net） ┊
'┊ ┊
' 版权所有 Suqun.Net
'
' 程序制作 速群网络
' Add:江西省九江市速群网络科技
' Tel:13879284993
' E-m:suqun@suqun.net
' Q Q:190771179
'
' 相关网址 [产品介绍]http://www.suqun.net
' [支持论坛]http://bbs.suqun.net
'
' 演示网址 http://www.suqun.net
'┊ ┊
'└┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┘
%>
<% Option Explicit %>
<% response.charset="utf-8" %>
<!--#include file="../Include/NoSqlHack.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
dim LangPack,LangData
if request.cookies("Language")="" then
LangPack="Simplified"
LangData="Si"
else
LangPack=request.cookies("Language")
LangData=left(LangPack,2)
end if
%>
<%
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 suqun_Site"
rs.open sql,conn,1,1
SiteTitle=rs("SiteTitle"&LangData)
SiteUrl=rs("SiteUrl")
ComName=rs("ComName"&LangData)
Address=rs("Address"&LangData)
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 - Suqun.Net-STUDIO" />
<META NAME="Author" CONTENT="速群网络科技,www.suqun.net" />
<META NAME="Keywords" CONTENT="<% =Keywords %>" />
<META NAME="Description" CONTENT="<% =Descriptions %>" />
<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<TITLE><% =SiteTitle %></TITLE>
<link rel="stylesheet" href="Images/CssHtml.css">
<link rel="Shortcut Icon" href="favicon.ico">
<script src="../Script/AC_RunActiveContent.js" type="text/javascript"></script>
<!--屏蔽右键 -->
<script language="JavaScript">document.oncontextmenu = function() { return false;}</script>
<!--屏蔽右键 -->
<script language="javascript" src="../Script/Html.js"></script>
<style type="text/css">
<!--
body {
background-image: url(Images/bg.gif);
}
#Layer1 {
position:absolute;
width:976px;
height:165px;
z-index:1;
}
-->
</style>
</HEAD>
<BODY>
<div align="center">
<table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td width="186" rowspan="3"><img src="Images/Logo.gif" width="186" height="60"></td>
<td height="28" align="right" valign="bottom" class="language">
<img src="Images/Head_map.gif" width="30" height="14" align="absmiddle">
<a href="../Language/Select.asp?Language=Simplified">简体</a>
<a href="http://demo.suqun.net/web1/Traditional/Main.html">繁體</a>
<a href="http://demo.suqun.net/web1/English/Main.html">English</a></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="26" align="right" valign="top">
<a href='http://www.suqun.net/' target='_blank'>速群企业网站管理系统V2008</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='http://www.suqun.net/Html/service/Ques/webfaq/' target='_blank'>使用帮助</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='http://www.suqun.net/Html/product/websay/' target='_blank'>功能介绍</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='http://www.suqun.net/html/tiyan/tiyan1.html' target='_blank'>版本区别</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='http://www.suqun.net/html/tiyan/tiyan1.html' target='_blank'>系统售价</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='http://www.suqun.net/Html/tiyan/buystep.html' target='_blank'>购买流程</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='http://www.suqun.net/html/connect/money/' target='_blank'>汇款方式</a><img src="Images/Arrow_02.gif" align="absmiddle"><a href='Main.asp'>首页</a></td>
</tr>
</table>
<table width="868" height="31" border="0" cellspacing="0" cellpadding="0" class="Outside">
<%=HeadNavigation()%>
</table>
</div>
<%
function HeadNavigation()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from suqun_Navigation where ViewFlag"&LangData&" 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"&LangData)&"</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='Void' selected='selected'>-请选择-</option>" &_
" <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
%>
</div>
<table width="868" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="e1e1e1"></td>
</tr>
</table>
<table width="868" border="0" align="center" cellpadding="0" cellspacing="0" class="Outside">
<tr>
<td><div id="Layer1">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','868','height','167','src','../vigg/cyxflash','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','../vigg/cyxflash' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="868" height="167">
<param name="movie" value="../vigg/cyxflash.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="../vigg/cyxflash.swf" width="868" height="167" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript></div>
<iframe ID="vigg" src="../vigg/vigg.asp" frameborder="0" scrolling="no" width="868" HEIGHT="167"></iframe></td>
</tr>
<tr>
<td height="3" bgcolor="e1e1e1"></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -