📄 address_board_down.asp

📁 1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册相片上传[方便上传

💻 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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -