message.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 85 行

ASP

85 行

<!--#include file="conn.asp"-->
<!--#include file="inc/const.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>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
p{font-size:9pt};
td{font-size:9pt};
li{font-size:9pt};
select{font-size:9pt};
a {color:#5f5f5f;font-size: 9pt ;text-decoration:none; line-height:13.5pt}
a:hover {text-decoration:none; color:#000000;text-decoration: underline}
-->
</style>
</head>
<body bgcolor="#003366">
<%
Dim ID, Rs, SQL
Dim Topic, Content, Writer, Postime
If Not IsNumeric(Request("id")) And Request("id")<>"" then
	Response.write"错误的系统参数!ID必须是数字"
	Response.End
End If
ID = CLng(Request.Querystring("ID"))
If ID = "" And ID = 0 Then
	Response.Write "<script>alert('请输入正确的ID!');javascript:window.close();</script>"
End If
Set Rs = server.CreateObject("adodb.recordset")
SQL = "select * from NC_Message where ID = "& ID
Rs.Open SQL, conn, 1, 1
If Rs.bof And Rs.EOF Then
	Response.Write "<script>alert('错误的系统参数!');javascript:window.close();</script>"
Else
	Topic = Rs("title")
	Content = Rs("Content")
	Writer = Rs("Writer")
	Postime = Rs("Postime")
End If
Rs.Close
Set Rs = Nothing
%>
<br><br><br><br>
<table width="400" align="center" border="8" cellspacing="2" cellpadding="0" bordercolor="ABADBA">
  <tr>
	    <td background="images/lbg-3.gif">
	      <table width="100%" border="0" cellspacing="3" cellpadding="0">
		<tr>
		  <td align="center" style="FONT-SIZE:9pt;COLOR:#ff6600;"><b><%=Topic%></b></td>
		</tr>
	      </table>
	    </td>
	  </tr>
	</table>
	<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
	
<table width="400" height="200" align="center" border="8" cellspacing="2" cellpadding="5" bordercolor="D7D9E5">
  <tr valign="top">
	    <td background="images/big-l-bg.gif"><BR style="OVERFLOW: hidden; LINE-HEIGHT: 5px">
	      <table width="100%" height="100%" align="center" border="0" cellspacing="2" cellpadding="3">
        <tr valign="top"> 
          <td><p><%=Content%></p>
            <p align="right"><%=Writer%><BR>
              <%=Postime%></p></td>
        </tr>
        <tr> 
          <td height="9" align="center">[<a href="javascript:window.close()">关闭本窗口</a>]</td>
        </tr>
        <tr>
          <td height="9" align="center"中原软件站------因为用心，所以专业</td>
        </tr>
      </table>
	    </td>
	  </tr>
	</table>
</body>
</html>

message.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 message.asp 源码文件，采用 ASP 编程语言编写，共 85 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?