index_down.asp

来自「未成型的程序。不能算OA的」· ASP 代码 · 共 344 行 · 第 1/2 页

ASP
344 行
字号
12
<!--#include file="conn.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="checkuser.asp" -->
<!--#include file="config.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页</title>
<!--#include file="css.css" -->
</head>
<body background="images/index_bg.gif" topmargin="0">
<table width="760" height="101" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
  <tr>
    <td><img src="images/top.jpg" width="758" height="100"></td>
  </tr>
</table>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr>
    <td class="fontsize04"> 　</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td height="25" background="images/menu-d-gg.gif" class="fontsize12"><!--#include file="menu.asp" --></td>
  </tr>
</table>
<%if time<#8:00:00# then saytext="早上好" end if
  if time>=#8:00:00# and time<=#12:00:00# then saytext="上午好" end if
  if time>#12:00:00# and time<=#18:00:00# then saytext="下午好" end if
  if time>#18:00:00# then saytext="晚上好" end if%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td height="30" valign="middle" background="images/bocolor02.gif" class="fontsize14">　　<%=session("user_name")%>，<%=saytext%>！欢迎使用<%=ptmc%>。祝你愉快！<img src="images/14.gif" width="20" height="20" align="absmiddle"></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td class="fontsize04">　 </td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bocolor01.gif" class="tablelrb">
  <tr> 
    <td width="779"><table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="fontsize10">　</td>
        </tr>
      </table>
<%    user_name1="|"&session("user_name")&"|"
	  user_name2="|"&session("user_name")&"("
	  str="select * from woa where (接收者 like '%"&user_name1&"%' or 所有人=1) and 已看者 not like '%"&user_name2&"%' and 发文者<>'"&session("user_name")&"' order by id desc"
	  rs.open str,conn,3,2
	  if not rs.eof then
	  %>
      <table width="758" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="10" class="fontsize10">　</td>
          <td width="720">
<table width="738" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
              <tr> 
                <td height="26" background="images/menu-d-gg.gif"> <div align="center" class="fontsize14"><strong><a href="notreceiv.asp" class="fontsize14wu">未 
                    接 收 文 件</a>　　　　　　</strong><span class="fontsize12">共有<%=rs.recordcount%>个</span></div></td>
              </tr>
              <%
	  for m=1 to syxxs%>
              <tr> 
                <td height="18" class="fontsize12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="500" class="fontsize12"> 
                         <a href=disp.asp?dispid=<%=rs("id")%>&back=index_down.asp class="fontsize12wu"> 
                        <%if rs("附件数")>0 then%>
                        <%=left(rs("标题"),39)%> 
                        <%else%>
                        <%=left(rs("标题"),41)%> 
                        <%end if%>
                        </a> <%if rs("附件数")>0 then%> <img src="images/fujian.gif" align="absmiddle"> 
                        <%end if%>
                      </td>
                      <td width="164" class="fontsize12"> 
                        <%=rs("发文日期")%>&nbsp;<%=rs("发文时间")%>&nbsp;<%=rs("发文者")%>
                      </td>
                      <td width="66" class="fontsize12">附件数：<%=rs("附件数")%></td>
                    </tr>
                  </table></td>
              </tr>
              <%
	        rs.movenext 
			if rs.eof then exit for
	    next%>
            </table>
          </td>
          <td width="10" class="fontsize10">　</td>
        </tr>
      </table>
      <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="fontsize04">　</td>
        </tr>
      </table>
<%end if
	    rs.close%>
<%	  user_name1="|"&session("user_name")&"|"
	  user_name2="|"&session("user_name")&"("
	  str="select * from woa where (接收者 like '%"&user_name1&"%' or 所有人=1) and 已看者 like '%"&user_name2&"%' and 发文者<>'"&session("user_name")&"' and 已清除者 not like '%"&user_name1&"%' order by id desc"
	  rs.open str,conn,3,2
	  if not rs.eof then%>
      <table width="758" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="10" class="fontsize10">　</td>
          <td width="365"><table width="738" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
              <tr> 
                <td height="26" background="images/menu-d-gg.gif"> <div align="center" class="fontsize14"><strong><a href="receiv.asp" class="fontsize14wu">已 
                    接 收 文 件</a></strong>　　　　　　<span class="fontsize12">共有<%=rs.recordcount%>个</span></div></td>
              </tr>
              <%
	  for m=1 to syxxs%>
              <tr> 
                <td height="18" class="fontsize12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="500" class="fontsize12"> <a href=disp.asp?dispid=<%=rs("id")%>&back=index_down.asp class="fontsize12wu"> 
                       <%if rs("附件数")>0 then%>
                        <%=left(rs("标题"),39)%> 
                        <%else%>
                        <%=left(rs("标题"),41)%> 
                        <%end if%>
                        </a> <%if rs("附件数")>0 then%> <img src="images/fujian.gif" align="absmiddle"> 
                        <%end if%>
                      </td>
                      <td width="164" class="fontsize12"> 
                        <%=rs("发文日期")%>&nbsp;<%=rs("发文时间")%>&nbsp;<%=rs("发文者")%>
                      </td>
                      <td width="66" class="fontsize12">附件数：<%=rs("附件数")%></td>
                    </tr>
                  </table></td>
              </tr>
              <%
	        rs.movenext 
			if rs.eof then exit for
	    next
	    %>
            </table></td>
          <td width="10" class="fontsize10">　</td>
        </tr>
      </table> 
      <table width="600" border="0" cellspacing="0" cellpadding="0">
         <tr> 
          <td class="fontsize04">　</td>
        </tr>
      </table>
<%end if
  rs.close%>
<%	  user_name1="|"&session("user_name")&"|"
	  user_name2="|"&session("user_name")&"("
	  str="select * from woa where 发文者='"&session("user_name")&"' and (接收者<>'|' or 所有人=1) order by id desc"
	  rs.open str,conn,3,2
if not rs.eof then
	  %>
      <table width="758" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="10" class="fontsize10">　</td>
          <td width="365"><table width="738" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
              <tr> 
                <td height="26" background="images/menu-d-gg.gif"> <div align="center" class="fontsize14"><strong><a href="sended.asp" class="fontsize14wu">已 
                    发 送 文 件</a></strong>　　　　　　<span class="fontsize12">共有<%=rs.recordcount%>个</span></div></td>
              </tr>
              <%
	  for m=1 to syxxs%>
              <tr> 
                <td height="18" class="fontsize12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
12

index_down.asp - 源码说明

本页面展示了「未成型的程序。不能算OA的」中的 index_down.asp 源码文件，采用 ASP 编程语言编写，共 344 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与程序相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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