public.asp

一套简单的OA系统

<%
Sub DispList(typevalue,sql1,hrefflag)
	set rs1=server.createobject("adodb.recordset")
	rs1.open sql1,conn,1
	if rs1.eof and rs1.bof then
		if typevalue<>"" then
			response.write("<center><br><br><font color=""red"" size=""+1"">“"&keepformat((doctypename))&"”档案资料库中没有内容！</font></center><br><br>")
		else
			response.write("<center><br><br><font color=""red"" size=""+1"">没有找到所查找的档案资料！</font></center><br><br>")
		end if
	else
%>
<div align="center">
  <center>
  <br>
  <table border="1" cellpadding="5" cellspacing="0" width="80%" bordercolorlight="#808080" bordercolordark="#D4D0C8">
    <tr>
      <td width="236" align="center" bgcolor="#D4D0C8"><img border="0" src="../images/fkuai.gif" align="middle" width="6" height="6"> 
        标题</td>
      <td width="166" align="center" bgcolor="#D4D0C8"><img border="0" src="../images/fkuai.gif" align="middle" width="6" height="6"> 
        类别</td>
      <td width="88" align="center" bgcolor="#D4D0C8"><img border="0" src="../images/fkuai.gif" align="middle" width="6" height="6"> 
        颁发日期</td>
      <td width="80" align="center" bgcolor="#D4D0C8"><img border="0" src="../images/fkuai.gif" align="middle" width="6" height="6"> 
        生效日期</td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="1" cellpadding="5" cellspacing="0" width="80%" bordercolorlight="#808080" bordercolordark="#D4D0C8">
<%
		Do While not rs1.eof
%>
    <tr>
      <td height="20" width="236" align="center">
	  <%
	  if hrefflag="disp" then
	  %>
	  <a href="Doc_Display.asp?id=<%=rs1("AutoID")%>" target="_blank"><%=keepformat(rs1("Title"))%></a>
	  <%
	  else
	  %>
	  <a href="Doc_Edit.asp?id=<%=rs1("AutoID")%>"><%=keepformat(rs1("Title"))%></a>
	  <%
	  end if
	  %>
		</td>
      <td height="20" width="166" align="center">
	  <%
	if doctypename<>"" then
		response.write(keepformat(doctypename))
	else
		response.write(keepformat(rs1("TypeName")))
	end if
	  %>
	  </td>
      <td height="20" width="88" align="center"><%=rs1("SendDate")%></td>
      <td height="20" width="80" align="center"><%=rs1("AvailabilityDate")%></td>
    </tr>
<%
			rs1.MoveNext
		Loop
%>
  </table>
  </center>
  <br>
</div>
<%
	end if
	set rs1=nothing
End Sub
%>