【正文】 幫助。 XXXXXXXXXXXX 院學(xué)生畢業(yè)論文 XXXX 基于 ASP 技術(shù)的班級通訊管理錄系統(tǒng) 正文 第 31 頁 共 41 頁 第 31 頁 參考文獻(xiàn) [1] 孫東梅 . DREAMWEAVER8+ASP完美動態(tài)網(wǎng)站設(shè)計 [M].北京： 電子工業(yè) 出版社，2021. [2] 朱印宏 . DREAMWEAVERCS3 完美網(wǎng)頁設(shè)計 —— ASP 動態(tài)網(wǎng)頁設(shè)計篇 [M].河北：中國電力出版社， xxx. [3] 白海波 ， 劉寶龍 ， 歐陽冀茗 . DREAMWEAVER8+ASP 構(gòu)造動態(tài)網(wǎng)站實例與操作[M].北京： 兵器工業(yè) 出版社， 2021. [4] 王林 ， 王俊 . 網(wǎng)站綜合建設(shè) —— DREAMWEAVER＋ PHOTOSHOP＋ FLASH 完美 [M]. 電子工業(yè) 出版社 ， 2021. [5] 雷波 ， 郭麗 . 藝術(shù)大師 —— 精通 PHOTOSHOP 十大核心技術(shù) [M].河北： 中國電力 電出 版社， xxx. [6] 吳逸賢，曾鴻超 . Access 數(shù)據(jù)庫應(yīng)用技術(shù) [M].北京： 中國鐵道出版社 ， xxx. [7] 戎馬工作室 . ASP 與 ACCESS 動態(tài)網(wǎng)站開發(fā)自學(xué)導(dǎo)航 [M].北京： 機械工業(yè) 出版社 ， 2021. XXXXXXXXXXXX 院學(xué)生畢業(yè)論文 XXXX 基于 ASP 技術(shù)的班級通訊管理錄系統(tǒng) 正文 第 32 頁 共 41 頁 第 32 頁 附錄 :部分代碼清單 ： script var submitflag submitflag=false function check_walkman_form(walkman_frm) { //walkman 編寫 if (==){ alert(請輸入留言內(nèi)容！ )。 return false } if (1000){ alert( 留 言 內(nèi) 容 不 能 超 過 1000 個 字 符 ， 當(dāng) 前 留 言 長 度++！ )。 return false } if(!submitflag){ ()。 return false。td339。const_txlurl%%=const_txlname%/a a href=班級留言 /a /td/tr XXXXXXXXXXXX 院學(xué)生畢業(yè)論文 XXXX 基于 ASP 技術(shù)的班級通訊管理錄系統(tǒng) 正文 第 33 頁 共 41 頁 第 33 頁 /table table width=100% border=0 cellpadding=0 bgcolor=FFFFFF class=39。 trtd textalign:center。lineheight:。ol li 請不要在此發(fā)布和與本站內(nèi)容無關(guān)的照片（如卡通、壁紙、電影劇照、海報、明星、球星、寵物、植物等），一經(jīng)發(fā)現(xiàn)，立即刪除。 /li /ol/td td bgcolor=F1F1F1 class=tar 大 小 :/td td bgcolor=F1F1F1 class=contentfont color=FF0000%=const_PhotoMaxSize%K/font/td /tr tr td bgcolor=FFFFFF class=tar 格 式 :/td td bgcolor=FFFFFF class=contentfont color=FF0000%=const_PhotoFormat%/font/td /tr tr td bgcolor=FFFFFF class=tar 選擇分類 : /td td bgcolor=FFFFFF class=contentselect name=type1option value=全部相冊 /option % sql=select * from photofenlei order by id desc set rs= (sql) if not then while not % XXXXXXXXXXXX 院學(xué)生畢業(yè)論文 XXXX 基于 ASP 技術(shù)的班級通訊管理錄系統(tǒng) 正文 第 34 頁 共 41 頁 第 34 頁 option value=%=rs(fenleiname)%%=rs(fenleiname)%/option % wend end if set rs=nothing % /select font color=FF0000*/font注意照片類型！ /td /tr tr td bgcolor=F1F1F1 class=tar說 明 : /td td bgcolor=F1F1F1 class=contentinput name=intro type=text id=intro size=30 maxlength=50 //td /tr tr td bgcolor=FFFFFF class=tar瀏 覽 : /td td bgcolor=FFFFFF class=contentinput type=file name=filexx //td /tr tr align=center td height=30 colspan=3如果你的圖片文件較大或網(wǎng)絡(luò)速度太慢，上載過程可能要一段時間，請耐心等待！ /td /tr tr td height=40 colspan=3 bgcolor=F1F1F1 align=centerinput type=submit name=Submit value=開始上傳 //td /tr /table /form/td /tr /table ： Dim Rs Set rs=() Select Case (usertype) Case 1 sql=where usertype=1 Case 2 sql=where usertype=2 Case 3 sql=where usertype=3 Case 4 sql=where usertype=4 Case Else sql=where 1=1 End Select select studentid,sname,sex,oicq,usertype from ec amp。 order by regtime desc,conn,1 dim DG XXXXXXXXXXXX 院學(xué)生畢業(yè)論文 XXXX 基于 ASP 技術(shù)的班級通訊管理錄系統(tǒng) 正文 第 35 頁 共 41 頁 第 35 頁 dim Url dim Fld(5) dim FldName(5) dim FldWidth(5) Fld(0) = studentid Fld(1) = sname Fld(2) = sex Fld(3) = oicq Fld(4) = Fld(5) = usertype FldName(0) = 用戶名 FldName(1) = 姓名 FldName(2)=性別 FldName(3)=OICQ FldName(4)=EMail FldName(5)=用戶類型 FldWidth(0) = 85 FldWidth(1) = 85 FldWidth(2) = 60 FldWidth(3) = 83 FldWidth(4) = 200 FldWidth(5) = 80 set DG = new DataGrid =rs = cccccf = 20 = Fld = FldName = FldWidth Url = (URL)amp。(usertype) = Url () set DG=nothing end sub% dim str_succ if outsitesubmit then printerror 發(fā)布信息出錯 ,li請不要外部提交數(shù)據(jù)！ /li,779 Exit sub End if dim rs,sql,id sql=select top 1 * from ordersong order by id desc set rs=() sql,conn,1,3 XXXXXXXXXXXX 院學(xué)生畢業(yè)論文 XXXX 基于 ASP 技術(shù)的班級通訊管理錄系統(tǒng) 正文 第 36 頁 共 41 頁 第 36 頁 If then Id=1 Else Id=rs(id)+1 End If dim musiame,musicurl,content musiame=Trim((musiame)) musicurl=Trim((musicurl)) content=Trim((content)) If musiame= or musicurl= or musicurl= or content= Then printerror 發(fā)布點歌祝福信息出錯 ,li該填寫的信息還是要填寫！/li,779 Exit sub ElseIf not CheckSongFrm(lcase(right(musicurl,len(musicurl)Instrrev(musicurl,.)))) Then printerror 發(fā)布點歌祝福信息出錯 ,li當(dāng)前 通訊錄 設(shè)置不接受該類型格式的音樂文件！ /li,779 Exit sub Else content=Replace(content,) content=Replace(content,) content=Replace(content,vbcrlf,br) () rs(id)=id rs(username)=(const_homepageurl)(username) rs(orderto)=Trim((orderto)) rs(username)=(const_homepageurl)(username) rs(musiame)=musiame rs(musicurl)=musicurl rs(content)=content rs(adddate)=now() rs(passdate)=date()+(passdate) Set rs=nothing End If str_succ=li恭喜你，發(fā)布點歌成功！ amp。lia href=39。 title=39。點這里瀏覽你剛才發(fā)布的點歌信息 /a，系統(tǒng) 5秒轉(zhuǎn)到新點歌信息！ /liamp。5。 end sub