網(wǎng)站開發(fā)與維護(hù)期末.doc

form name=editpwd method=post action= 修改密碼 舊用戶名： 新用戶名： 確認(rèn)新用戶名： 舊 密 碼： 新 密 碼： 確認(rèn)新密碼： %dim time1,time2 time1=timer # # 簡易留言本(V1.0版) # dim page,indexfilename,indeximg,db,n,x,bookbg,txt,lyb100_top,lyb100_foot,m,lyb100_fla indexfilename=right(Request.ServerVariables(PATH_TRANSLATED),(len(Request.ServerVariables(PATH_TRANSLATED)-instrRev(Request.ServerVariables(PATH_TRANSLATED),) imdeximg=img/ 圖片文件夾 db=“l(fā)yb100.mdb” 數(shù)據(jù)庫 set Conn=Server.CreateObject(ADODB.Connection) Conn.Open driver=Microsoft Access Driver (*.mdb);dbq= & Server.MapPath(db) n=10 每頁顯示留言數(shù) x=5 每頁顯示的頁數(shù) m=10 留言頭像可選個(gè)數(shù),男101-199.gif 女001-099.gif,各可增加到99個(gè) bookbg=bookbg.gif 背景圖片,當(dāng)不使用背景圖時(shí),保持為空 txt=1000 留言的最大字?jǐn)?shù) lyb100_top= 設(shè)置頁頭信息welcome.gif可換成你的logo放在圖片目錄下 dim webtitle,webname,webyn,webgl,webyn2,view2 set rs1 = conn.execute(select * from admin) webtitle=rs1(title) if rs1(webname) then webname=rs1(webname) if rs1(gbyn) then webyn=rs1(gbyn) webgl=rs1(gl) rs1.close set rs1=nothing lyb100_fla=0 是否顯示首頁，浮動(dòng)動(dòng)畫， 1 顯示， 0 不顯示 page =Request.QueryString(page) if page= or page=0 then page=1 action = Request.QueryString(action) action_e = Request.Form(action_e) if action_e then server_v1=Cstr(Request.ServerVariables(HTTP_REFERER) server_v2=Cstr(Request.ServerVariables(SERVER_NAME) if mid(server_v1,8,len(server_v2)server_v2 then response.write response.write response.write 你提交的路徑有誤，禁止從站點(diǎn)外部提交數(shù)據(jù)請(qǐng)不要亂該參數(shù)！ response.write response.end end if end if % function gbcount(message,total,used,remain) var max; max = total.value; if (message.value.length max) message.value = message.value.substring(0,max); used.value = max; remain.value = 0; alert(留言不能超過 個(gè)字!); else used.value = message.value.length; remain.value = max - used.value; % if len(bookbg) td height=49 valign=top td height=18 align=center valign=top form name=form method=post action= 留言 img src=line.gif width=500 height=1 姓名： *10個(gè)字內(nèi) function showimage()document.images.showimages.src=+document.form.sex.optionsdocument.form.sex.selectedIndex.value+document.form.img.optionsdocument.form.img.selectedIndex.value+.gif; 選擇頭像: 99 then m=99 for i=1 to m g= g=i if len(i) option value= 性別： 男 女   QQ： 主頁： 來自： 電子郵箱： * 留言內(nèi)容： * 最多字?jǐn)?shù)：INPUT disabled maxLength=4 name=total size=3 value= 已用字?jǐn)?shù)： 剩余字?jǐn)?shù)：INPUT disabled maxLength=4 name=remain size=3 value= img src=line.gif width=500 height=1 a href=?action=View_Wordsimg src=back.gif width=99 height=25 border=0a href=?action=Add_Newimg src=post.gif width=99 height=25 border=0 a href=?action=Exit退出管理 a href=?action=Admin_Login管理留言 a href=?action=Edit_web基本設(shè)置 a href=?action=EditPWD修改密碼 page2 then page2=page2+1 k=page2*x if ky then k=y 打開留言字段 if page=1 then sql=select top &n& id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc else sql=select id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc end if if Page 100 then rs.Open sql,Conn,1 else Set Rs=Conn.Execute(sql) end if if Page1 then RS.Move n*page-n % 有條留言 /頁 分頁 1 then % a href=?page= a href=?page= % if page2*x a href=?page= a href=?page= 2 then % % dim lou,words,reply,email,qq,web,come if Request.QueryString(page)2 then lou=gbcount else lou=gbcount-(Request.QueryString(page)-1)*n) end if i=0 do while not rs.eof and i IMG src=T_left.gif border=0 TD width=96% background=Tt_bg.gif IMG src=T_right.gif border=0 留言者: 發(fā)表于:年月日 8 then % a href= target=_blankimg src=homepage.gif alt=我的主頁是: width=16 height=16 border=0 6 then % a href=mailto:img src=email.gif alt=我的EMAIL是: width=16 height=16 border=0 3 then % img src=oicq.gif alt=我的QQ號(hào): width=16 height=16 border=0 1 then % img src=come.gif alt=我來自: width=16 height=16 img src=ip.gif align=absMiddle a href=?action=Edit&id= img src=reply.gif alt=編輯回復(fù) width=16 height=16 border=0 a href=?action=Delete&id= onClick=return confirm(確定要?jiǎng)h除嗎？nn該操作不可恢復(fù)！) img src=del.gif alt=刪除留言 width=15 height=15 border=0 第 條留言 img src=101.gif img src=001.gif img src=.gif 1 then% 版主回復(fù): % if webyn1 then % 1 then% 版主回復(fù): 留言需要經(jīng)過審批才能查看 IMG src=T_bottomleft.gif border=0 TD width=97% background=T_bottombg.gif IMG src=T_bottomright.gif border=0 有條留言 /頁 分頁