基于asp的老師學(xué)生交互系統(tǒng)設(shè)計(jì)-資料下載頁(yè)
2025-06-22 22:57本頁(yè)面
【正文】 = Application(dsn) strSQL = select id,idnum,title,inputdate from board order by idnum desc cod_AdoOpen objCnn,rs,strDSN,strSQL%% if 0 then sumcount = end if = 12 intPageCount = if Len(strPage) = 0 then strPage = 1 if int(strPage)1 then strPage = 1 39。if int(strPage)intPageCount then strPage = CStr(intPageCount) if then %form action= method=POST id=form1 name=form1input type=submit value=新增 id=btnnew name=btnnew/form% end if =cint(strpage)%table border=0 cellspacing=1 width=600trtd colspan=3p align=center[本頁(yè)是第%=int(strPage)%/%=intPageCount%頁(yè)] % if int(strPage)1 then% [a href=?page=%=CStr( int(strPage)1 )%前一頁(yè)/a] % end if% % if int(strPage)intPageCount then% [a href=?page=%=CStr( int(strPage)+1 )%下一頁(yè)/a] % end if% /p/td/trtr class=tr3 td width=50 ALIGN=CENTER標(biāo)記/td td width=50 align=center序號(hào)/td td width=500 align=center標(biāo)題/td/trform action method=POST id=form1 name=form1% dim flagcolor,classtypeflagcolor = truefor intRecord = 1 To if then exit for end ifflagcolor = not (flagcolor) if (flagcolor) then classtype = tr1 else classtype = tr2 end if% tr class=%=classtype% td ALIGN=CENTERinput TYPE=CHECKBOX NAME=id VALUE=%=rs(id)%/td td align=center %=sumcount12*(cint(strpage)1)intRecord+1% /td tda href=?ID=%=rs(ID)%amp。amp。page=%=strpage%%=rs(title)%/a/td /tr% Next %trtd colspan=3p align=center[本頁(yè)是第%=int(strPage)%/%=intPageCount%頁(yè)] % if int(strPage)1 then% [a href=?page=%=CStr( int(strPage)1 )%前一頁(yè)/a] % end if% % if int(strPage)intPageCount then% [a href=?page=%=CStr( int(strPage)+1 )%下一頁(yè)/a] % end if% /pinput type=hidden name=page value=%=strpage%/forminput type=button value=新增 id=btnnew name=btnnewinput type=button value=刪除 id=btndel name=btndel/td/tr/tablescript language=vbscript39。sub item_delete(no)39。 value = msgbox(確定要?jiǎng)h除號(hào)碼為 amp。 no amp。 的問題嗎？,1,C語(yǔ)言課程網(wǎng)站)39。 if value = 1 then39。 = id39。 39。 end if39。end subsub btnnew_onclick = end subsub btndel_onclick msg=確定要?jiǎng)h除所有帶有標(biāo)記的公告嗎? if msgbox(msg,1,C語(yǔ)言課程網(wǎng)站)=1 then = end ifend sub/script%call cod_AdoClose(objCnn, rs)%/body/html：%@ Language = VBScript %! Include file=..\include\ ! Include file=..\include\ htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312titleNew Page /title! Include file=..\include\ /headbody% strID = (ID) strpage = (page) dim objCnn,rs strDSN = Application(dsn) strSQL = SELECT id,title,flag_attention,detail FROM board where ID=amp。strID cod_AdoOpen objCnn,rs,strDSN,strSQL%table border=0 cellspacing=1 width=600tr class=tr3tdform action= method=POST id=form1 name=form1input type=hidden id=id name=id value=%=rs(id)% p公告標(biāo)題：input type=text name=title size=42 value=%=rs(title)%/p% if (rs(flag_attention)) then% p是否重要input name=flag_attention type=checkbox checked/p% else% p是否重要input name=flag_attention type=checkbox/p% end if% p公告內(nèi)容：/pppretextarea rows=10 name=detail cols=70 wrap=hard%= rs(detail)%/textarea/pre/p pinput type=button value=確 定 id=ok name=okinput type=button value=取 消 id=cancel name=cancel/p/form/td/tr/tablescript language=vbscriptsub ok_onclick end subsub cancel_onclick end sub/script%call cod_AdoClose(objCnn, rs)%/body/html：%@ Language = VBScript %! Include file=..\include\ ! Include file=..\include\ % id = (id) strTitle = (title) strTitle = replace(strTitle,39。,39。39。) strTitle = (strTitle) strflag_attention = (flag_attention) if strflag_attention = on then flag_attention = 1 else flag_attention = 0 end if strDetail = (detail) strDetail = replace(strDetail,39。,39。39。) 39。strDetail = (strDetail) 39。strDetail = replace(strDetail,chr(13),br) 39。strDetail = replace(strDetail, ,amp。nbsp。) strDetail = replace(strDetail,amp。lt。) strDetail = replace(strDetail,amp。gt。) set conn = () Application(dsn) strSQL = update board set title = 39。 amp。 strTitle amp。 39。,flag_attention = amp。 flag_attention amp。, detail = 39。 amp。 strDetail amp。 39。 where id=amp。id (strSQL) set conn = nothing %56
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1