【正文】 FF class=39。jx19tb639。 trtd span class=style1 請注意： /span 每 頁 顯 示 bspan class=style1b%=pagesize%/b/span/b 條記錄，每次顯示 span class=style110/span頁，翻看其余的留言請點 span class=style1font face=webdings8/font/span和 span class=style1font face=webdings7/font/span標記 ,自己有權(quán) font color=FF0000刪除 /font自己發(fā)布的留言 br form id=form2 name=form2 method=post action=?action=export label ： table width=100% border=1 align=center cellpadding=1 cellspacing=0 bordercolor=666666 bgcolor=FFFFFF class=liu tr td colspan=3 bgcolor=F1F1F1 class=title上載照片 /td /tr tr td width=341 height=25 bgcolor=F1F1F1 style=fontweight:bold。textalign:center。 注意事項： img src=../images/ id=preimg name=preimg onload=javascript:if(=200)=200 /a name=pub id=pub/a/td td width=74 bgcolor=FFFFFF class=tar提 供 :/td td width=340 bgcolor=FFFFFF class=content%=(const_homepageurl)(username)% /td /tr tr td rowspan=5 bgcolor=Ffffff style=paddingtop:15px。lineheight:。paddingright:15px。ol li 請不要在此發(fā)布和與本站內(nèi)容無關(guān)的照片（如卡通、壁紙、電影劇照、海報、明星、球星、寵物、植物等），一經(jīng)發(fā)現(xiàn)，立即刪除。 /li li僅接受 font color=FF0000%=const_PhotoFormat%/font格式的圖片，大小不超過 font color=FF0000%=const_PhotoMaxSize%K/font。 /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。sqlamp。 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=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。Vbcrlf str_succ=str_succamp。lia href=39。39。 title=39。瀏覽你剛才發(fā)布的點歌信息 39。點這里瀏覽你剛才發(fā)布的點歌信息 /a，系統(tǒng) 5秒轉(zhuǎn)到新點歌信息！ /liamp。Vbcrlf Call printsuc(發(fā)布點歌信息成功 ,str_succ,779) meta equiv=refresh content=39。5。URL=39。 end sub