announce.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 91 行

ASP
91 行
字号 
<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:ddmaster@126.com               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="conn.asp"-->
<%
dim ID
dim sqlAnnounce
dim rsAnnounce
dim AnnounceNum
ID=Trim(request("ID"))
if ID<>"" then
	sqlAnnounce="select * from dd_Announce where ID=" & Clng(ID) & " order by ID desc"
else
	sqlAnnounce="select * from dd_Announce where IsSelected=True order by ID desc"
end if
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
%>
<html>
<head>
<title>本站通告</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
a:active { text-decoration: none; color: #0000FF}
a:hover { text-decoration: none; color: #FF0000}
a:link { text-decoration: none; color: #0000FF}
a:visited { text-decoration: none; color: #990000}
BODY { text-decoration: none; font-size: 12px}
TABLE { text-decoration: none; font-size: 12px}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">


<table width="400" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="3"><img src="images/Annouce_r1_c1.gif" width="400" height="25" border="0" alt=""></td>
  </tr>
  <tr>
    <td colspan="3"><img src="images/Annouce_r2_c1.gif" width="400" height="43" border="0" alt=""></td>
  </tr>
  <tr>
    <td width="105" height="112" valign="top" background="images/Annouce_r4_c1.gif"><img src="images/Annouce_r3_c1.gif" width="105" height="112" border="0" alt=""></td>
    <td width="279" height="300" rowspan="2" valign="top" background="images/Annouce_r3_c2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0" style="word-break:break-all;Width:fixed">
      <tr>
          <td>　<%
if rsAnnounce.bof and rsAnnounce.eof then 
	response.write "<p>&nbsp;&nbsp;没有通告或找不到指定的通告</p>" 
else 
	AnnounceNum=rsAnnounce.recordcount
	dim i
	do while not rsAnnounce.eof
		response.Write "<p align='center'>" & rsAnnounce("title") & "</p><p align='left'>&nbsp;&nbsp;&nbsp;&nbsp;" & rsAnnounce("Content") & "</p><p align='right'>" & rsAnnounce("Author") & "&nbsp;&nbsp;<br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</p>"
		rsAnnounce.movenext
		i=i+1
		if i<AnnounceNum then response.write "<hr>"
	loop	
end if  
%></td>
      </tr>
    </table>    
    </td>
    <td width="16" height="112" valign="top" bgcolor="#C2FF86"><img src="images/Annouce_r3_c3.gif" width="16" height="112" border="0" alt=""></td>
  </tr>
  <tr>
    <td background="images/Annouce_r4_c1.gif"> </td>
    <td bgcolor="#C2FF86"> </td>
  </tr>
  <tr>
    <td colspan="3"><img src="images/Annouce_r5_c1.gif" width="400" height="24" border="0" alt=""></td>
  </tr>
  <tr>
    <td colspan="3"><img src="images/Annouce_r6_c1.gif" alt="" width="400" height="39" border="0" usemap="#Annouce_r6_c1Map"></td>
  </tr>
</table>
<!-- ********网页底部代码结束******** -->
<map name="Annouce_r6_c1Map">
  <area shape="rect" coords="171,9,231,30" href="javascript:window.close();">
</map>
</body>
</html>
<%
rsAnnounce.close
set rsAnnounce=nothing
call CloseConn()
%>

announce.asp - 源码说明

本页面展示了「设计考虑校园电子商务模式」中的 announce.asp 源码文件，采用 ASP 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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