⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 message.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<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">
<%
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
CloseConn
%>
<table cellspacing=0 cellpadding=0 border=0 align="center" width="334">
  <tbody>
    <tr> 
      <td colspan=4><img height=56 src="images/nw_tp.gif" width=332 
    border=0></td>
    </tr>
    <tr> 
      <td width="24" valign="top" background="Images/nw_lt2.gif"><img src="Images/nw_lt1.gif" width="24" height="54"></td>
      <td width=286 rowspan="2" valign=top noWrap>
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td align="center"><b><%=Topic%></b></td>
          </tr>
        </table>
			<BR style="OVERFLOW: hidden; LINE-HEIGHT: 15px">
			<table width="100%" height="100%" align="center" border="0" cellspacing="0" cellpadding="0">
		 <tr valign="top">
		   <td><p><%=Content%></p>
		     <p align="right"><%=Writer%><BR><%=Postime%></p></td>
		 </tr>
		 <tr>
		   <td height="20" align="center">[<a href="javascript:window.close()">关闭本窗口</a>]</td>
		 </tr>
	       </table>
		 </td>
      <td width="11" rowspan="2">&nbsp;</td>
      <td width="13" rowspan="2" background="images/nw_rt.gif">&nbsp;</td>
    </tr>
    <tr> 
      <td background="images/nw_lt2.gif">&nbsp;</td>
    </tr>
    <tr> 
      <td colspan=4><img height=9 src="images/nw_bt.gif" width=332 
    border=0></td>
    </tr>
  </tbody>
</table>
</body>
</html>

⌨️ 快捷键说明

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