【正文】 input type=radio value=%=rs(ID)%%if rs(IsSelected)=true then% checked%end if% name=VoteID/td td width=37 height=22 align=center%=rs(ID)%/td td height=22amp。nbsp。%=rs(Title)%/td td width=387 height=22 align=centera href=?ID=%=rs(ID)%修改/a a href=?ID=%=rs(ID)%刪除/a/td /tr %loop% tr class=tdbg td colspan=4 align=centerinput name=Action type=hidden id=Action value=Set input type=submit value=將選定的調(diào)查設為最新調(diào)查 name=submit /td /tr% end if% /table/form /strong/p /td /tr/table%set rs=nothingset conn=nothing%：：!include file=%dim ID,Title,VoteTime,IsSelecteddim rs,sqlID=request(id)Title=trim((Title))VoteTime=trim((VoteTime))if VoteTime= then VoteTime=now()IsSelected=trim(request(IsSelected))if IsSelected=True then Update Vote set IsSelected=False where IsSelected=Trueend ifdim iif ID= then end ifsql=select * from Vote where ID=amp。Cint(ID)Set rs= () sql,conn,1,3if not then if Title then rs(Title)=Title for i=1 to 8 if trim(request(selectamp。i)) then rs(selectamp。i)=trim(request(selectamp。i)) if request(answeramp。i)= then rs(answeramp。i)=0 else rs(answeramp。i)=clng(request(answeramp。i)) end if else rs(selectamp。i)= rs(answeramp。i)=0 end if next rs(VoteTime)=VoteTime rs(VoteType)=request(VoteType) if IsSelected= then IsSelected=false rs(IsSelected)=IsSelected set rs=nothing call CloseConn() end if%table width=100% height=100% border=0 align=center cellpadding=0 cellspacing=0 tr td height=25 style=backgroundimage: url(39。../Images/39。) div align=centerstrong修 改 調(diào) 查/strong/div/td /tr tr td width=862 align=center valign=top br br brform method=POST action= table width=500 border=0 align=center cellpadding=2 cellspacing=2 Class=border tr class=tdbg td width=15% align=right主題：/td td width=85% colspan=3input name=Title type=text value=%=rs(Title)% size=52/td /tr %for i=1 to 8% tr class=tdbg td align=right選項%=i%：/td tdinput name=select%=i% type=text value=%=rs(selectamp。 i)% size=36 /td td align=right票數(shù)：/td td width=80input name=answer%=i% type=text value=%=rs(answeramp。i)% size=5/td /tr %next% tr class=tdbg td align=right調(diào)查類型：/td td colspan=3select name=VoteType id=VoteType option value=Single % if rs(VoteType)=Single then % selected % end if%單選/option option value=Multi % if rs(VoteType)=Multi then % selected % end if%多選/option /select/td /tr tr class=tdbg td align=right　/td td colspan=3input name=IsSelected type=checkbox id=IsSelected value=True % if rs(IsSelected)=true then checked% 設為最新調(diào)查/td /tr tr class=tdbg td colspan=4 align=centerinput name=ID type=hidden id=ID value=%=rs(ID)% input name=Submit type=submit id=Submit value=保存修改結(jié)果 /td /tr /table/form /strong/p /td /tr/table%end ifset rs=nothingset conn=nothing%在前臺顯示的源代碼showvote()如下：=================================================39。過程名：ShowVote39。作 用：顯示網(wǎng)站調(diào)查39。參 數(shù)：無39。=================================================sub ShowVote() dim sqlVote,rsVote,i sqlVote=select top 1 * from Vote where IsSelected=True Set rsVote= () sqlVote,conn,1,1 if and then amp。nbsp。沒有任何調(diào)查 else form name=39。VoteForm39。 method=39。post39。 action=39。39。 target=39。_blank39。td amp。nbsp。amp。nbsp。amp。nbsp。amp。nbsp。 amp。 rsVote(Title) amp。 br if rsVote(VoteType)=Single then for i=1 to 8 if trim(rsVote(Select amp。 i) amp。 )= then exit for input type=39。radio39。 name=39。VoteOption39。 value=39。 amp。 i amp。 39。 amp。 rsVote(Select amp。 i) amp。 br next else for i=1 to 8 if trim(rsVote(Select amp。 i) amp。 )= then exit for input type=39。checkbox39。 name=39。VoteOption39。 value=39。 amp。 i amp。 39。 amp。 rsVote(Select amp。 i) amp。 br next end if brinput name=39。VoteType39。 type=39。hidden39。value=39。 amp。 rsVote(VoteType) amp。 39。 input name=39。Action39。 type=39。hidden39。 value=39。Vote39。 input name=39。ID39。 type=39。hidden39。 value=39。 amp。 rsVote(ID) amp。 39。 div align=39。center39。 a href=39。javascript:()。39。img src=39。images/39。 width=39。5239。 height=39。1839。 border=39。039。/aamp。nbsp。amp。nbsp。 a href=39。?Action=Show39。 target=39。_blank39。img src=39。images/39。 width=39。5239。 height=39。1839。 border=39。039。/a /div/td/form end if set rsVote=nothingend sub!include file=Inc/! include file=Inc/ !include file=Inc/ table width=776 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td width=200 height=198 valign=top background=images/brtable width=173 border=0 align=center cellpadding=0 cellspacing=0 tr td width=184 height=32 background=images/table width=92% border=0 align=center cellpadding=0 cellspacing=0 tr td width=20img src=images/ width=13 height=15/td td valign=bottom class=unnamed5 style=fontweight: bold 給我留言/td /tr tr td colspan=2 background=images/img src=images/ width=4 height=9/td /tr /table/td /tr tr td background=images/table width=92% border=0 align=center cellpadding=0 cellspacing=0TR vAlign=center TD width=25% height=26IMG height=2 src=images/ width=10img src=images/ width=11 height=12/TD TD width=75% align=lefta href=我要留言/a/TD /TR TRTD height=1 colspan=2 ba