message.asp

来自「flash留言本源代码」· ASP 代码 · 共 134 行

ASP
134 行
字号 
<%@ Language=VBScript %>
<% Response.Buffer=True %>
<%
Dim GuestBookName
dim GuestbookUrl
Dim MailBox
Dim Password1
Dim AllowUbbcode
Dim ConnectionString
Dim PageSize
Dim AdminLogFlag

IF Session("AdminLogged")<>1 THEN 
	AdminLogFlag=0
ELSE 
	AdminLogFlag=1
END IF

'default Ado Connection Object
dim conn
'default ado recordset object
dim rs

PageSize=15
GuestBookName=" BlueIdea.com "
AllowUbbCode=False
ConnectionString="Driver=Microsoft Access Driver (*.mdb);dbq=" & Server.MapPath("Database/GuestBook.mdb")

Dim i 
Dim intPageCount
Dim intRecordCount
Dim page
if  isempty(Request("Page")) then
	Page=1
else
	if isnumeric(request("page")) then
		on error resume next
		Page=clng(abs(Request("Page")))
		if err.number<>0 then
			Page=1
			err.clear
		end if
		on error goto 0
	else
		Page=1
	end if
end if

Response.ContentType = "text/xml"
Response.Expires = -1
Response.Write "<?xml version='1.0' encoding='GB2312'?>"
Response.Write "<threads "

Set con=Server.CreateObject("ADODB.Connection")
	con.Open ConnectionString
Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.Open "select * from GuestBook order by postdatetime desc",con,3

	intRecordCount=rs.RecordCount
	if not (rs.EOF and rs.BOF) then
		rs.PageSize=PageSize
		intPageCount=rs.PageCount
		if page>intPageCount then
			page=intPageCount
		end if
		rs.AbsolutePage=Page
		
		Response.Write "PageCount="""&intPageCount&""" RecordCount="""&intRecordCount&""" AdminLog="""&AdminLogFlag&""">"
		
		for i=1 to pagesize
			if rs.EOF then
				exit for
			end if
		Response.Write "<message>"
		
		Response.Write "<subject>"
		Response.Write rs("subject")
		Response.Write "</subject>"
		
		Response.Write "<number>"
		Response.Write rs("number")
		Response.Write "</number>"
		
		Response.Write "<email>"
		Response.Write rs("email")
		Response.Write "</email>"

		Response.Write "<url>"
		Response.Write rs("url")
		Response.Write "</url>"

		Response.Write "<body><![CDATA["
		Response.Write rs("message")
		Response.Write "]]></body>"

		Response.Write "<sex>"
		Response.Write rs("sex")
		Response.Write "</sex>"

		Response.Write "<reply><![CDATA["
		Response.Write rs("reply")
		Response.Write "]]></reply>"

		Response.Write "<icon>"
		Response.Write rs("icon")
		Response.Write "</icon>"

		Response.Write "<posted>"
		Response.Write rs("postdatetime")
		Response.Write "</posted>"

		Response.Write "<face>"
		Response.Write rs("face")
		Response.Write "</face>"

		Response.Write "<username>"
		Response.Write rs("username")
		Response.Write "</username>"

		Response.Write "<icq>"
		Response.Write rs("icq")
		Response.Write "</icq>"

		Response.Write "</message>"
		rs.MoveNext
		NEXT
	END IF 

	rs.Close
	Set rs=nothing
	con.Close
	Set con=nothing
Response.Write "</threads>"
%>

message.asp - 源码说明

本页面展示了「flash留言本源代码」中的 message.asp 源码文件，采用 ASP 编程语言编写，共 134 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与flash相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?