address_board_down.asp CC校友录贴吧 CCBar源码程序asp编程 - ASP源码程序

www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > address/address_board_down.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file = "../inc/inc_db_func.asp" -->
<!-- #include file = "../inc/inc_class_def.asp" -->
<!-- #include file = "../inc/inc_pub_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->
<%


Dim clsPubDB

GBL_strHomeURL = "../"

Call AuthenCheck(GBL_intDownAuthen)

Set clsPubDB = New classDBOprt

clsPubDB.Clear()
clsPubDB.TableName = "CLASS_BOARD"
clsPubDB.SQLType = "SELECT"
clsPubDB.AddField "BOARD_NAME,BOARD_TIME,BOARD_CONTENT",""
clsPubDB.SQLRSExecute()
Call ResultExecute(clsPubDB.intErrNum,"board down"&clsPubDB.ReturnSQL,"ES_ERR")

Response.ContentType = "application/msword" 

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =GBL_strClassName %>历史留言</title>
</head>

<body width=600>
<table border="1" cellspacing="1" cellpadding="1" >
  <tr bgcolor="#999999"> 
    <td width=100><div align="center"><strong>留言者</strong></div></td>
    <td><div align="center"><strong>留言内容</strong></div></td>
    <td width=200><div align="center"><strong>留言时间</strong></div></td>
  </tr>
	<%
	If Not clsPubDB.objPubRS.Eof Then
		Do While Not clsPubDB.objPubRS.Eof
	%>
		  <tr> 
			<td height="20"> <% =clsPubDB.objPubRS("BOARD_NAME")%> </td>
			<td>
			<% 
			strContent = clsPubDB.objPubRS("BOARD_CONTENT")
			Set objRe=new RegExp 
			objRe.IgnoreCase = True
			objRe.Global = True	
			objRe.Pattern = "(\[BI\])(.[^\[]*)(\[\/BI\])"
			strContent  = objRe.Replace(strContent,"")
			Set objRe = Nothing
			Response.Write strContent
			%> </td>
			<td> <% =clsPubDB.objPubRS("BOARD_TIME")%> &nbsp;</td>
		  </tr>
	<%
			clsPubDB.objPubRS.MoveNext
		Loop
	End If
	clsPubDB.objPubRS.Close
	clsPubDB.Clear()
	Set clsPubDB = Nothing
	%>
</table>
</body>
</html>