?? annouce_info.asp
字號:
<!--#include file="top.asp"--><%
'****************************************************
' 多多校園電子商務工作室 Power by ddtaobao.com
' Email:kayvin@sohu.com OICQ:6334278 站長:小羽
' Web: http://www.ddtaobao.com 淘寶旺旺:qq63334278
' Copyright (C) 2006 ddtaobao.com All Rights Reserved
'****************************************************
Dim sql,rs,id
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from gonggao where id="&request("id")
rs.open sql,conn,1,3
Dim title,body,date,hitnum
title=Rs("title")
body=Rs("body")
date=Rs("date")
hitnum=Rs("hitnum")
Rs("hitnum")=Rs("hitnum")+1
Rs.Update
Rs.Close
%>
<TABLE width=760 border=0 align=center cellpadding="4">
<TBODY>
<TR>
<TD align="center" vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="550" border=0>
<TBODY>
<TR>
<TD height=21 align="center">公告標題:<font color=red><%=title%></font></TD>
</TR>
<TR>
<TD height=21 align="center">
<hr noshade class=font size="1"> </TD>
</TR>
<TR>
<TD> <table width="100%" border="0">
<tr>
<td align="right">日期:<%=date%> 點擊:<%=hitnum%></td>
</tr>
<tr>
<td><%=body%></td>
</tr>
<tr>
<td align="center">[<a href="javascript:window.close()"><font class=font>關閉窗口</font></a>]</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
conn.Close
Set conn=Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -