|
演示地址
源文件下載
安裝說明:
在使用之前,確定空間或者本地測試服務(wù)器是否支持asp,及正常運(yùn)行asp
后臺登陸地址 flashgbook/admin/index.asp
用戶名 admin
密 碼 admin
背景圖片:
flashgbook/images/bg.jpg 788x430像素，可以后臺上傳，也可以手動覆蓋！
安全設(shè)置:
1.下載后請更改數(shù)據(jù)庫(flashgbook/data/data.mdb)名稱 例如(flashgbook/data/stone.asp)
2.用記事本打開(flashgbook/data.asp)修改數(shù)據(jù)庫名稱 例如(dbname="stone.asp")
3.登陸后臺 修改用戶名和密碼
關(guān)于外部flash加載留言本問題! 楨設(shè)置為40,要不會出現(xiàn)停頓現(xiàn)象!
使用loadMovie("flashgbook.swf",0);或者gbook_mc.loadMovie("flashgbook.swf");
ASP主要部分：
page.asp (傳給flash第n頁的n條紀(jì)錄)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--＃i nclude file="conn.asp"-->
<%
if request("action")="showpage" then
dim idcount'記錄總數(shù)
dim pages'每頁條數(shù)
dim pagec'總頁數(shù)
dim page'頁碼
dim datafrom'數(shù)據(jù)表名
dim taxis'排序的語句
'-------------------設(shè)置參數(shù)開始---------------------------------
'taxis="order by id asc" '正排序
taxis="order by pxid desc,id desc" '倒排序
pages=show_page'每頁條數(shù)
datafrom="gbook"'數(shù)據(jù)表名
page=clng(request("page"))
'-------------------設(shè)置參數(shù)結(jié)束---------------------------------
dim pagenmax '每頁顯示的分頁的最大頁碼
dim pagenmin '每頁顯示的分頁的最小頁碼
dim sqlid'本頁需要用到的id
dim i'用于循環(huán)的整數(shù)
'獲取記錄總數(shù)
sql="select count(id) as idcount from ["& datafrom &"]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idcount=rs("idcount")'獲取記錄總數(shù)
if(idcount>0) then'如果記錄總數(shù)=0,則不處理
if(idcount mod pages=0)then'如果記錄總數(shù)除以每頁條數(shù)有余數(shù),則=記錄總數(shù)/每頁條數(shù)+1
pagec=int(idcount/pages)'獲取總頁數(shù)
else
pagec=int(idcount/pages)+1'獲取總頁數(shù)
end if
'獲取本頁需要用到的id============================================
'讀取所有記錄的id數(shù)值,因?yàn)橹挥衖d所以速度很快
sql="select id from ["& datafrom &"] " & taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize = pages '每頁顯示記錄數(shù)
if page < 1 then page = 1
if page > pagec then page = pagec
if pagec > 0 then rs.absolutepage = page
for i=1 to rs.pagesize
if rs.eof then exit for
if(i=1)then
sqlid=rs("id")
else
sqlid=sqlid &","&rs("id")
end if
rs.movenext
next
'獲取本頁需要用到的id結(jié)束============================================
end if
%>
<%
if(idcount>0 and sqlid<>"") then'如果記錄總數(shù)=0,則不處理
'用in刷選本頁所語言的數(shù)據(jù),僅讀取本頁所需的數(shù)據(jù),所以速度快
sql="select [id],[title],[name],[date] from ["& datafrom &"] where id in("& sqlid &")"&taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
while(not rs.eof)'填充數(shù)據(jù)到表格
page_id=rs("id")
page_name=uni(rs("name"))
if len(rs("title")) > 19 then '截取字符
page_title=left(rs("title"),19)&".."
else
page_title=rs("title")
end if
page_title=uni(page_title)
'page_email=rs("email")
'page_qq=rs("qq")
page_date=rs("date")
out=out&"<info page_id='"&page_id&"' page_name='"&page_name&"' page_title='"&page_title&"' page_date='"&page_date&"' />"
rs.movenext
wend
rs.close
set rs=nothing
Response.Write "<?xml version='1.0' encoding='utf-8'?>"
Response.Write "<gbook total='"&idcount&"' maxpage='"&pagec&"' page='"&page&"'>"&out&"</gbook>"
Session.CodePage="936"
else
total=0
maxpage=0
page=0
out=""
wujilu="1"
Response.Write "<?xml version='1.0' encoding='utf-8'?>"
Response.Write "<gbook total='"&total&"' maxpage='"&maxpage&"' page='"&page&"' wujilu='"&wujilu&"'></gbook>"
Session.CodePage="936"
end if
end if'end action showpage
%>
show.asp（傳給flash單條紀(jì)錄的信息）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--＃i nclude file="conn.asp"-->
<%
if request("action")="show" then
sql="select * from gbook where id in("&request("show_id")&")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
show_name=uni(rs("name"))
show_id=uni(rs("id"))
show_title=uni(rs("title"))
if rs("blog")<>"" then
show_blog=uni(rs("blog"))
end if
if rs("homepage")<>"" then
show_homepage=uni(rs("homepage"))
end if
if rs("gmcontent")<>"" then
show_gmcontent=uni(rs("gmcontent"))
end if
if rs("gmdate")<>"" then
show_gmdate=uni(rs("gmdate"))
end if
if rs("email")<>"" then
show_email=uni(rs("email"))
end if
if rs("qq")<>"" then
show_qq=uni(rs("qq"))
end if
show_content=uni(rs("content"))
show_date=uni(rs("date"))
out=out&"<info show_name='"&show_name&"' show_blog='"&show_blog&"' show_homepage='"&show_homepage&"' show_gmcontent='"&show_gmcontent&"' show_gmdate='"&show_gmdate&"' show_id='"&show_id&"' show_title='"&show_title&"' show_email='"&show_email&"' show_qq='"&show_qq&"' show_content='"&show_content&"' show_date='"&show_date&"' />"
rs.close
set rs=nothing
Response.Write "<?xml version='1.0' encoding='utf-8'?>"
Response.Write "<gbook>"&out&"</gbook>"
end if
%>
add.asp（flash傳給asp增加紀(jì)錄）
<!--＃i nclude file="conn.asp"-->
<%
Session.CodePage="65001"
if request("action")="add" then
sql="select * from gbook "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("name")=encodestr(request("w_name"))
rs("title")=encodestr(request("w_title"))
if encodestr(request("w_homepage"))="" then
rs("homepage")=null
else
rs("homepage")=encodestr(request("w_homepage"))
end if
if encodestr(request("w_blog"))="" then
rs("blog")=null
else
rs("blog")=encodestr(request("w_blog"))
end if
if encodestr(request("w_email"))="" then
rs("email")=null
else
rs("email")=encodestr(request("w_email"))
end if
if encodestr(request("w_qq"))="" then
rs("qq")=null
else
rs("qq")=encodestr(request("w_qq"))
end if
rs("content")=encodestr(request("w_content"))
rs("date")=date()
rs.update
rs.close
set rs=nothing
response.write"&addok=ok"
end if
Session.CodePage="936"
%>
出處：藍(lán)色理想
責(zé)任編輯：moby
上一頁 下一頁 flash+asp+xml留言本教程 [2]
◎進(jìn)入論壇Flash專欄版塊參加討論
|
第 1 頁 flash+asp+xml留言本教程 [1]
第 2 頁 
