3D3S10.0升版工作已于2009年9月开始。10.0版本基于平台为AutoCAD2004、2005、2006。详情可查看同济大学3D3S软件开发组网页>>......
  
  <% dim subject,xm1,xm2,xm3,xm4,xm5 set rs=server.createobject("adodb.recordset") rs.open "select * from vote",conn,1,1 subject=rs("subject") xm1=rs("xm1") xm2=rs("xm2") xm3=rs("xm3") xm4=rs("xm4") xm5=rs("xm5") rs.close set rs=nothing if request("act")="save" then set rsv=server.createobject("adodb.recordset") rsv.open "select * from vote",conn,1,3 vote=split(rsv("vote"),",") if request.form("xm1")="" then vote(0)=vote(0) elseif request.form("xm1")="1" then vote(0)=vote(0)+1 rsv("all")=rsv("all")+1 end if if request.form("xm2")="" then vote(1)=vote(1) elseif request.form("xm2")="1" then vote(1)=vote(1)+1 rsv("all")=rsv("all")+1 end if if request.form("xm3")="" then vote(2)=vote(2) elseif request.form("xm3")="1" then vote(2)=vote(2)+1 rsv("all")=rsv("all")+1 end if if request.form("xm4")="" then vote(3)=vote(3) elseif request.form("xm4")="1" then vote(3)=vote(3)+1 rsv("all")=rsv("all")+1 end if if request.form("xm5")="" then vote(4)=vote(4) elseif request.form("xm5")="1" then vote(4)=vote(4)+1 rsv("all")=rsv("all")+1 end if rsv("vote")=vote(0)&","&vote(1)&","&vote(2)&","&vote(3)&","&vote(4)&"," rsv.update rsv.close set rsv=nothing response.redirect "view.asp" end if %>