基于asp技術(shù)的班級通訊錄系統(tǒng)的畢業(yè)設(shè)計計算機(jī)專業(yè)畢業(yè)論文-資料下載頁
2025-01-18 16:08本頁面
【正文】 td bgcolor=F1F1F1 class=tar 大 小 :/td td bgcolor=F1F1F1 class=contentfont color=FF0000amp。lt。%=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 % option value=%=rs(fenleiname)%%=rs(fenleiname)%/option %wendend ifset 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 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=nothingend 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 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ā)布點(diǎn)歌祝福信息出錯,li該填寫的信息還是要填寫！/li,779 Exit sub ElseIf not CheckSongFrm(lcase(right(musicurl,len(musicurl)Instrrev(musicurl,.)))) Then printerror 發(fā)布點(diǎn)歌祝福信息出錯,li當(dāng)前通訊錄設(shè)置不接受該類型格式的音樂文件！/li,779 Exit sub Else content=Replace(content,amp。lt。) content=Replace(content,amp。gt。) 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ā)布點(diǎn)歌成功！amp。Vbcrlf str_succ=str_succamp。lia href=39。39。 title=39。瀏覽你剛才發(fā)布的點(diǎn)歌信息39。點(diǎn)這里瀏覽你剛才發(fā)布的點(diǎn)歌信息/a，系統(tǒng)5秒轉(zhuǎn)到新點(diǎn)歌信息！/liamp。Vbcrlf Call printsuc(發(fā)布點(diǎn)歌信息成功,str_succ,779) meta equiv=refresh content=39。5。URL=39。 end sub
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1