【正文】 a href rsnews e rel lightbox[plants] img src rsnews e width 49 height 49 border 0 rsnewsMoveNext if rsnewseof then exit for if rsnewseof then exit do next k k1 Loop 日記音樂顯示 模塊代碼段相似 五歌曲播放列表 playlistasp songid FormatSQL SafeRequest songid1 if songid then responseWrite 錯誤 responseend end if set rs ServerCreateObject ADODBRecordset sql select from HN_down where id songid rsopen sqlconn13 if songid rs id then responseWrite rs e responseend end if 六發(fā)表留言提交內(nèi)容判斷模塊代碼 if request action then responseredirectgbookaspaction show if request action post then dim bookname dim bookwhere dim bookpic dim bookface dim bookcontent dim booktime dim bookip dim FoundErrErrMsg bookname request name bookwhere request where bookpic request pic bookface request face bookshow request show bookcontent request content bookip requestServerVariables REMOTE_ADDR if bookname then ResponseWrite SCRIPT LANGUAGE JavaScript ResponseWrite alert 留言昵稱不能為空 ResponseWrite historygo 1 ResponseWrite ResponseEnd end if if bookcontent then ResponseWrite SCRIPT LANGUAGE JavaScript ResponseWrite alert 留言內(nèi)容不能為空 ResponseWrite historygo 1 ResponseWrite ResponseEnd end if strArr split W_BookWorryNeed set rs ServerCreateObject ADODBRecordset sql select from book rsopen sqlconn13 rsaddnew rs name htmlencode bookname rs where htmlencode bookwhere rs pic bookpic rs face imagesfacebookfacegif rs show bookshow rs content htmlencode bookcontent rs ip bookip rs time now rsupdate rsclose ResponseWrite SCRIPT LANGUAGE JavaScript ResponseWrite alert 恭喜您您已經(jīng)成功提交了信息 ResponseWrite wi gbookaspi show ResponseWrite Responseend end if 三網(wǎng)站管理系統(tǒng) 一完成站長對網(wǎng)站信息管理及更新的系統(tǒng)包括以下幾部分 1 管理登陸頁面 Indexasp 2 相冊管理頁面 Admin_proasp 3 日記管理頁面 Admin_newasp 4 音樂管理頁面 Admin_downasp 5 留言管理頁面 GuestBookasp 管理登陸 管理系統(tǒng)的登陸頁面主要用于管理登陸和判斷用戶是否已注冊 其中判斷是否是非法登陸的代碼為 admin_pass md5 admin_pass set rs servercreateobject adodbrecordset sql select from admin where admin_name admin_name and admin_pass admin_pass rsopen sqlconn13 if rseof then responsewrite SCRIPT language JavaScript alert 用戶或密碼錯誤非管理員勿入 responsewritelocationhref indexasp else session admin_name request admin_name session loc 1 responseredirect adminasp end if rsclose set rs nothing connclose set conn nothing end if end if 其中驗證碼驗證代碼 dim verifycodeverifycode2 verifycode trim RequestForm verifycode verifycode2 trim RequestForm verifycode2 if verifycode verifycode2 then responsewrite SCRIPT language JavaScript alert 您輸入的驗證碼不正確 responsewritelocationhref indexasp founderr true else session verifycode 三主要功能程序段 1 打開數(shù)據(jù)庫 set conn ServerCreateObject ADODBConnection connopen YourDSNNameuser