WEB开发网
开发学院WEB开发ASP 用ASP制作个性的调查系统 阅读

用ASP制作个性的调查系统

 2007-12-10 18:51:08 来源:WEB开发网   
核心提示:select2=(rs("select2")/total)*100select3=(rs("select3")/total)*100select4=(rs("select4")/total)*100select5=(rs("select5"

select2=(rs("select2")/total)*100
select3=(rs("select3")/total)*100
select4=(rs("select4")/total)*100
select5=(rs("select5")/total)*100
select6=(rs("select6")/total)*100
select7=(rs("select7")/total)*100
% >
< p >谢谢您的参与,下面是当前的调查结果
< p >
◇知识:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select1*5)% > height=4 >
< %=rs("select1")% >人 占:< %=round(select1,2)% >%< br >
◇学历:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select2*5)% > height=4 >
< %=rs("select2")% >人 占:< %=round(select2,2)% >%< br >
◇金钱:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select3)*5% > height=4 >
< %=rs("select3")% >人 占:< %=round(select3,2)% >%< br >
◇爱情:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select4)*5% > height=4 >
< %=rs("select4")% >人 占:< %=round(select4,2)% >%< br >
◇理想:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select5)*5% > height=4 >
< %=rs("select5")% >人 占:< %=round(select5,2)% >%< br >
◇民主意识:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select6)%*5 > height=4 >
< %=rs("select6")% >人 占:< %=round(select6,2)% >%< br >
◇科学思想:
< img src="http://tech.cncms.com/tech/UploadPic/2010107/2010107234754104.gif" width=< %=int(select7)%*5 > height=4 >
< %=rs("select7")% >人 占:< %=round(select7,2)% >%< /p >

< p align="center" >已经有:< %=total% >人参加调查< br >< br >
【< a href="javascript:window.close()" >关闭窗口< /a >】< /p >
< p >
< %
else
response.write "还没有人参与调查"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
% >
 

附注:

以上代码均在 WindowsNT4.0中文(Pack 6)/IIS4.0上调试通过。

以下任何一种环境都可执行ASP:

 一、Windows NT Server 4.0 / IIS3.0以上
   二、Windows NT WorkStation 4.0 / Microsoft Peer Web Service3.0以上
   三、Windows 95/98 / Microsoft Personal Web Server 1.0a以上

技术交流 永无止境

上一页  1 2 3 

Tags:ASP 制作 个性

编辑录入:coldstar [复制链接] [打 印]
赞助商链接