教育系统应用

开发平台：
Delphi

xtop.asp：源码内容
							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<html>
<head>
<title>书库</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<link rel="stylesheet" type="text/css" href="xcss.css">
<script src="js/genericMove.js" type="text/javascript"></script>
<script src="js/buttons.js" type="text/javascript"></script>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v2.0
  if (document.MM_swapImgData != null)
    for (var i=0; i<(document.MM_swapImgData.length-1); i+=2)
      document.MM_swapImgData[i].src = document.MM_swapImgData[i+1];
}
function MM_preloadImages() { //v2.0
  if (document.images) {
    var imgFiles = MM_preloadImages.arguments;
    if (document.preloadArray==null) document.preloadArray = new Array();
    var i = document.preloadArray.length;
    with (document) for (var j=0; j<imgFiles.length; j++) if (imgFiles[j].charAt(0)!="#"){
      preloadArray[i] = new Image;
      preloadArray[i++].src = imgFiles[j];
  } }
}
function MM_swapImage() { //v2.0
  var i,j=0,objStr,obj,swapArray=new Array,oldArray=document.MM_swapImgData;
  for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) {
    objStr = MM_swapImage.arguments[(navigator.appName == 'Netscape')?i:i+1];
    if ((objStr.indexOf('document.layers[')==0 && document.layers==null) ||
        (objStr.indexOf('document.all[')   ==0 && document.all   ==null))
      objStr = 'document'+objStr.substring(objStr.lastIndexOf('.'),objStr.length);
    obj = eval(objStr);
    if (obj != null) {
      swapArray[j++] = obj;
      swapArray[j++] = (oldArray==null || oldArray[j-1]!=obj)?obj.src:oldArray[j];
      obj.src = MM_swapImage.arguments[i+2];
  } }
  document.MM_swapImgData = swapArray; //used for restore
}
function show_onclick() {
	if(top.window.f2.cols != "0,*")
	{
		top.window.f2.cols = "0,*";
	}
	else
	{
		top.window.f2.cols = "300,*";
	}
}
function readmain()
{
	top.window.f2.cols = "0,*";
	top.xbody.location = "readmain.asp";	
}
function show_person()
{
	window.open("personal.asp","_blank","height=200,width=320,status=no,toolbar=no,menubar=no,location=no");
}
function show_passwd()
{
	window.open("passwd.asp","_blank","height=260,width=320,status=no,toolbar=no,menubar=no,location=no");
}
function add_bm()
{
	window.open("add_bookmark0.asp","_blank","height=430,width=320,status=no,toolbar=no,menubar=no,location=no");
}
function add_cm()
{
	window.open("add_comment.asp","_blank","height=550,width=550,status=no,toolbar=no,menubar=no,location=no,scrollbars=yes,top=0,left=0");
}
function window_onload() {
	window.open("personal.asp","_blank","height=200,width=320,status=no,toolbar=no,menubar=no,location=no");	
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="gainsboro" LANGUAGE="javascript" onload="return window_onload()">
<table bgColor="gainsboro" border="0" cellPadding="2" cellSpacing="2" class="coolBar" width="100%" height="100%">
  <tr align="certer" vAlign="middle">
    <td class="coolButton">
    <a class="a01" href="xmain.asp" target="xbody">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    书库首页
    </a>
    </td>
    <td class="coolButton">
    <a class="a01" href="#" onclick="javascript:show_onclick();">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    显示/隐藏菜单
    </a>
    </td>
     <td class="coolButton">
    <a class="a01" href="news/news_index.htm" target="xbody">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    新闻
    </a>
    </td>   
    <td class="coolButton">
    <a class="a01" href="#" onclick="javascript:readmain();">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    按分类浏览</a></td>
    <td class="coolButton">
    <a class="a01" href="#" onclick="javascript:show_person();">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    个人信息</a></td>
    <td class="coolButton">
    <a class="a01" href="#" onclick="javascript:show_passwd();">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    更改密码</a></td>
    <td class="coolButton">
    <a class="a01" href="#" onclick="javascript:add_bm();">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    添加书签</a></td>
    <td class="coolButton">
    <a class="a01" href="#" onclick="javascript:add_cm();">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    发表看法</a></td>
<%if session("usertype")<=1 then	%>
    <td class="coolButton">
    <a class="a01" href="levellistfile.asp" target="xbody">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    重新生成书目</a></td>
<%end if	%>
    <td class="coolButton">
    <a class="a01" href="download/default.asp" target="xbody">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    软件下载 	</a></td>
    <td class="coolButton">
    <a class="a01" href="default.asp" target="_top">
    <img align="absMiddle" src="images/win16.gif" border="0" WIDTH="16" HEIGHT="16">
    退出系统</a></td>
    </tr></table>
</body>
</html>
	

						