📄 head.asp

📁 此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了。完全后台操作。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<% response.charset="utf-8" %>
<!--#include file="../Include/NoSqlHack.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<% call SiteInfo() %>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="copyright" content="Copyright 2008-2010 - GLGK.COM-STUDIO" />
<meta name="Author" content="冠龙科技,www.glgk.com" />
<meta name="Keywords" content="<% =Keywords %>" />
<meta name="Description" content="<% =Descriptions %>" />
<title><% =SiteTitle %></title>
<script language="javascript" src="../Script/Html.js"></script>
<link href="Css/Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</head>
<body>
	<div id="header" >
		<div class="header_logo" ><img src="Images/head_logo.gif" width="191" height="52" /></div>
		<div class="header_link">
			<img src="Images/arrow_98_home.gif" width="11" height="12" align="absmiddle" />&nbsp;<a href="main.asp" class="STYLE1">首&nbsp;&nbsp;页</a>&nbsp;&nbsp;
			<img src="Images/arrow_98_email.gif" width="11" height="12" align="absmiddle" />&nbsp;<a href="http://mail.duolaimi.cn" target="_blank" class="STYLE1">企业邮箱</a>&nbsp;&nbsp;
			<img src="Images/arrow_98_admin.gif" width="11" height="12" align="absmiddle" />&nbsp;<span class="STYLE1"><a href="../system/adminlogin.asp" target="_blank" class="STYLE1">网站管理</a>&nbsp;&nbsp;
			</span><img src="Images/arrow_98_english.gif" width="8" height="12" align="absmiddle" />&nbsp;<a href="http://www4.glgk.com/en/main.asp" class="STYLE1">ENGLISH</a>        </div>
		<div id="mainMenu"><%=MainMenu()%></div>
		<div class="header_checkmember"><%=checkMember()%></div>
		<div class="header_banner"><div align="center">
<div id="topcen"></div>

	</div>
<%
function checkMember() 
  if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then
    response.write "<a href=""MemberRegister.asp""><font color=""#ffffff"">会员注册</font></a>&nbsp;&nbsp;&nbsp;" &_
                   "<a href=""main.asp""><font color=""#ffffff"">登录</font></a>&nbsp;&nbsp;&nbsp;" &_
				   "<a href=""ProductBuy.asp""><font color=""#ffffff"">订单查看</font></a>"
  else
    response.write "您好，" &_
	               "<font color=""#ffffff"">"&session("MemName")&"</font>-"&MemGroup(session("GroupID"))&"&nbsp;&nbsp;"&_
	               "<a href=""MemberInfo.asp""><font color=""#ffffff"">帐户</font></a>&nbsp;&nbsp;" &_
	               "<a href=""MemberLogin.asp?Action=Out""><font color=""#ffffff"">退出</font></a>"
  end if
end function

function memberLogin() 
  if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then
    response.write "<form name=""formLogin"" method=""post"" action=""MemberLogin.asp"">" &_
                   "  <label for=""LoginName"">用户名：</label><input type=""text"" name=""LoginName"" id=""LoginName"" class=""textbox""/>" &_
                   "  <label for=""LoginPasswor"">密　码：</label><input type=""password"" name=""LoginPassword"" id=""LoginName"" class=""textbox""/><br/>" &_
                   "  　　　　<input name=""GoLogin"" type=""image"" src=""Images/login.png"" align=""absmiddle""/>" &_
                   "  <a href=""MemberRegister.asp""><image src=""Images/register.png"" align=""absmiddle"" /></a><br/>" &_
                   "  <div><img src=""Images/line_01.gif"" /><a href=""MemberGetPass.asp"">忘记密码?</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=""ProductBuy.asp"">订单查看</a></div>" &_
                   "</form>" 
  else
    response.write "您好，<font color=""#E00000"">"&session("MemName")&"</font>-"&MemGroup(session("GroupID"))&"！<br/>"
    response.write "<img src=""Images/arrow_05.gif"" />&nbsp;&nbsp;<a href=""MemberInfo.asp"">注册资料</a><br/>"
    response.write "<img src=""Images/arrow_05.gif"" />&nbsp;&nbsp;<a href=""MemberMessage.asp"">我的留言</a><br/>"
    response.write "<img src=""Images/arrow_05.gif"" />&nbsp;&nbsp;<a href=""MemberOrder.asp"">我的订单</a><br/>"
    response.write "<img src=""Images/arrow_05.gif"" />&nbsp;&nbsp;<a href=""MemberTalent.asp"">我的应聘</a><br/>"
    response.write "<img src=""Images/arrow_05.gif"" />&nbsp;&nbsp;<a href=""MemberLogin.asp?Action=Out"">退出登录</a>"
  end if
end function

function MainMenu()
  dim rs,sql,Target
  set rs = server.createobject("adodb.recordset")
  sql="select * from Navigation where ViewFlag"&Language&" and ParentID=0 order by Sequence asc"
  rs.open sql,conn,1,1
  response.write ("<ul>")
  if rs.eof then
    response.write "<li>暂无导航链接</li>"
  else
	do
	  if rs("OutFlag") then Target="target=""_blank"""
	  response.write "<li id=""mainMenu"&rs("ID")&""">"
	  if rs("Color")="NoColor" then
	    response.write "<a  href="""&rs("NavUrl")&""" "&Target&">"&rs("NavName"&Language)&"</a>"
	  else
	    response.write "<a  href="""&rs("NavUrl")&""" "&Target&" style=""color:"&rs("Color")&""">"&rs("NavName"&Language)&"</a>"
	  end if
	  SubMenu(rs("ID"))
      response.write "</li>"
	  Target=""
	  rs.movenext
	loop until rs.eof
  end if
  response.write ("</ul>")
  rs.close
  set rs=nothing
end function

function SubMenu(ParentID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Navigation where ViewFlag"&Language&" and ParentID="&ParentID&" order by Sequence asc"
  rs.open sql,conn,1,1
  if not rs.eof then
    response.write ("<ul onMouseOver=""document.getElementById('mainMenu"&ParentID&"').style.backgroundImage='url()'"" onMouseOut=""document.getElementById('mainMenu"&ParentID&"').style.backgroundImage='url()'"">")
	do
	  response.write ("<li><a href="""&rs("NavUrl")&""">"&rs("NavName"&Language)&"</a></li>")
	  rs.movenext
	loop until rs.eof
    response.write ("</ul>")
  end if
  rs.close
  set rs=nothing
end function

function Search()
 response.write "<form action=""Search.asp"" method=""post"" name=""Search"">" &_
 		 	    "<input name=""Keyword"" type=""text"" class=""textbox"" />&nbsp;" &_
      			"<select name=""Range"">" &_
			    "  <option value=""Void"" selected=""selected"">-请选择-</option>" &_
			    "  <option value=""Product"">产品</option>" &_
			    "  <option value=""News"">新闻</option>" &_
			    "  <option value=""Down"">下载</option>" &_
			    "  <option value=""Others"">其他</option>" &_
			    "</select>&nbsp;<input type=""image"" src=""Images/search.gif"" align=""absmiddle"" />" &_
                "</form>"
end function

function MemGroup(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName"&Language)
  rs.close
  set rs=nothing
end function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -