数据库编程

开发平台：

ASP/ASPX

Tell.asp：源码内容

							<script language="javascript">
function openScript(url, width, height){
var Win=window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=no' );
}
</script>
<%
MF_Default_Conn
Dim TellRs,TelTopic,sqlTess,AddDate
Set TellRs= server.CreateObject (G_FS_RS)
sqlTess="select ID,Topic,Content,Person,IsUse,PV,AddUser,AddDate From FS_WS_NewsTell where IsUse='1'"
TellRs.open sqlTess,Conn,1,1
if not TellRs.eof then
TelTopic=trim(TellRs("Topic"))
AddDate=Trim(TellRs("AddDate"))
end if
set TellRs=nothing
%>
<table cellspacing=1 cellpadding=3 align=center border=0 width=98%><tr><td align=center width=100% valign=middle colspan=2><strong>公告信息:</strong>
<%
if Topic="" then
%>
	<B>当前没有公告</B>(<%=now()%>)
<%
else
%>
	<a href="javascript:openScript('announcements.asp?action=showone&boardid=0',500,300)"><B><%=TelTopic%></B></a>(<%=AddDate%>)
<%
end if
%>
</td></tr></table>

						