📄 index.asp

📁 sql server 2005书中11到16章的全部代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#INCLUDE FILE="sysinc.asp" -->
<%  '验证用户
   if  session("Username")=""  then 
    
	Username=trim(request("Username"))
    Password=trim(request("Password"))
    sqlstr="select * from 用户表 where 用户名='"&Username&"'"
    my_rs.open sqlstr,my_Conn,1,3
    if my_rs.eof then
       Response.Redirect ("login.asp?err=1")
    else
   
       if Password=my_rs("密码") then
          session("Username")=Username
          session("权限")=my_rs("权限")
          my_rs("上站次数")=my_rs("上站次数")+1
          my_rs.update
        else
          Response.Redirect ("login.asp?err=2")

        end if
   my_rs.close  
   end if 

  end if
%>
<html>
<head>
<title>网络办公系统</title>
<script language="JavaScript">
<!--
function MM_preloadImages() { //v3.0
         var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
         var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
         if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
          }
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; 
  for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; 
x.src=a[i+2];}
}

function MM_openBrWindow(theURL,winName,features)
{ //v2.0
  window.open(theURL,winName,features);
}
//-->

<!--
function windowslong(address,winName,features) { 
windowschange=open(address,winName,features);
for (var x=1;x<=75;x++){
windowschange.resizeBy(2,0);
}
for (var x=1;x<=275;x++){
windowschange.resizeBy(0,1);
}
}
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
    obj.visibility=v; }
}
//-->
</script>
<STYLE type=text/css>TD {
	FONT-SIZE: 9pt
}
A {
	COLOR: #001e32; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:hover {
	COLOR: #0000cc; FONT-SIZE: 9pt; TEXT-DECORATION: underline
}
.td-1 {
	FONT-SIZE: 9pt; LINE-HEIGHT: 24px
}
.td-2 {
	LINE-HEIGHT: 20px
}
.a2 {
	COLOR: #dff8ff; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
</STYLE>
<SCRIPT language=JavaScript>
<!--

function loginidUp(eventObject){
        if(eventObject.keyCode==13){regform.FPASSWORD.focus();}}
function pwdUp(eventObject)
       {if(eventObject.keyCode==13){valid();}}
function adver()
       {window.open("http://cn.stareastnet.com/memb/policy.html");}
function valid(){document.regform.submit();}//-->
</SCRIPT>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
 if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) 
    {document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
 else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>

<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="font.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0"
 marginheight="0">
<div id="Layer2" style="position:absolute; left:47px; top:510px; width:761px; height:
38px; z-index:4"> 
  <hr width="90%">
  <table width="100%" border="0" cellspacing="4" cellpadding="0" bgcolor="#FFFFFF">
    <tr> 
      <td height="10"> 
        <div align="center">OA网络办公系统</div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div align="center">杰峰工作室制作</div>
      </td>
    </tr>
  </table>
</div>
<table width="90%" cellspacing="0" cellpadding="0" align="center" height="190">
  <tr> 
    <td height="81" colspan="2"> <br>
      <div align="left"><br>
        <img src="image/top.jpg" width="780" height="118"> &nbsp;&nbsp;&nbsp;&nbsp; 
      </div></td>
  </tr>
  <tr> 
    <td height="12"> 　登陆者：<%=session("Username")%>　权限：<%=session("权限")%>　　<a href="login.asp">注销用户</a>　　</td>
    <td height="12">　　<img src="image/home.gif" width="17" height="16"><font color="#FF00FF"><font color="#000000" class="font1"><a href="index.asp#">首页</a>　<img src="image/file.gif" width="15" height="15"> 
      <a href="#" onClick="MM_openBrWindow('file/addfile.asp','','width=280,height=110')">文件上传</a>　<img src="image/eiscuss.gif" width="15" height="15"> 
      <a href="index.asp" onMouseOver="MM_showHideLayers('home1','','show')" onMouseOut="MM_showHideLayers('home1','','show')" target="_blank">议题讨论</a>　</font><font color="#FF00FF"><font color="#000000" class="font1"><img src="image/manage.gif" width="14" height="16"> 
      <a href="index.asp" onMouseOver="MM_showHideLayers('home','','show')" onMouseOut="MM_showHideLayers('home','','show')" target="_blank">系统管理</a></font></font><font color="#000000" class="font1">　<img src="image/modify.gif" width="20" height="18"><a href="#" onClick="MM_openBrWindow('file/modifyuser.asp','','width=340,height=330')">修改个人信息</a></font></font>　<img src="image/email1.gif" width="24" height="11"> 
      <a href="#" onClick="MM_openBrWindow('file/email.asp','','width=320,height=280')">互通信息</a>　</td>
  </tr>
  <tr> 
    <td height="6" colspan="2">　</td>
  </tr>
  <tr> 
    <td height="74" width="31%"> <br>
    </td>
    <td height="74"> 
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" height="91">
        <tr> 
          <td height="88"> 
<%str="select * from 私人信件 where 收信人='"&session("Username")&"' order by 发信时间 desc"
  my_rs.open str,my_Conn,1,3
  if my_rs.eof and my_rs.bof then
	 response.write "<p> 没 有 你 的 任 何 信 件</p>"
  else
%>
            <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#00CC33">
              <tr bgcolor="#FFFFFF"> 
                <td colspan="5"> 
                  <div align="right"><img src="image/xinjian.jpg" width="356" height="27"></div>
                </td>
              </tr>
              <tr bgcolor="#CCCCFF"> 
                <td width="10%"> 
                  <div align="center">新</div>
                </td>
                <td width="30%"> 
                  <div align="center">信件主题</div>
                </td>
                <td width="20%"> 
                  <div align="center">发信人</div>
                </td>
                <td width="20%"> 
                  <div align="center">发信时间</div>
                </td>
                <td width="15%"> 
                  <div align="center">删除</div>
12 下一页
⌨️ 快捷键说明

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