th=< %=int(select1*5)% > height=4 > < %=rs("select1")% >人 占:< %=round(select1,2)% >%< br > ◇学历: < img src=bar.gif width=< %=int(select2*5)% > height=4 > < %=rs("select2")% >人 占:< %=round(select2,2)% >%< br > ◇金钱: < img src=bar.gif width=< %=int(select3)*5% > height=4 > < %=rs("select3")% >人 占:< %=round(select3,2)% >%< br > ◇爱情: < img src=bar.gif width=< %=int(select4)*5% > height=4 > < %=rs("select4")% >人 占:< %=round(select4,2)% >%< br > ◇理想: < img src=bar.gif width=< %=int(select5)*5% > height=4 > < %=rs("select5")% >人 占:< %=round(select5,2)% >%< br > ◇民主意识: < img src=bar.gif width=< %=int(select6)%*5 > height=4 > < %=rs("select6")% >人 占:< %=round(select6,2)% >%< br > ◇科学思想: < img src=bar.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] [4] |