gonggao.asp

来自「类似于baidu的百度知道」· ASP 代码 · 共 57 行

<!--#include file=conn.asp-->
<!--#include file="Function_QT.asp"-->
<!--#include file="Config.asp"-->
<%
if not IsNumeric(request("id")) then
		Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
		Response.end
	end if
%>
<title><%=webname%>_问吧公告</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<!--#include file=top.asp-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="25"><a href="<%=weburl%>"><%=webname%></a> &gt; <span id="n1">问吧公告</span></td>            
  </tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong>问吧公告</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<%rs.open"select * from gonggao where id="&cint(request("id")),conn,1,1
  if rs.eof then
  %>暂时没有公告!  
  <%else%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td class="t11"><span class=f14>&nbsp;&nbsp; <img src=img/tips.gif></span><span id="n2"><%=rs("title")%></span></td>
  </tr>
  <tr> 
    <td class="bgcntLn" align="center">
<table width=90% border=0 align=center cellpadding=0 cellspacing=0 height="1"><tr> <td class=bgcnt height="1"><span class=f14> </span> <%=ubb(rs("text"))%> </td></tr></table>
</td>
  </tr>
</table>
</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>

<!--#include file=end.asp-->
<%end if%>