view_vote.aspx
来自「asp做的新闻系统」· ASPX 代码 · 共 71 行
ASPX
71 行
<%@ Page Language="vb" %>
<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data"%>
<script runat=server>
sub page_load(sender as object,e as eventargs)
dim ds as dataset =new dataset()
ds.ReadXml(Server.MapPath("db\vote.xml"))
dim allvote as integer=ds.tables(0).rows(0).item(0)
dim verygood as integer=ds.tables(0).rows(0).item(1)
dim good as integer=ds.tables(0).rows(0).item(2)
dim nomal as integer=ds.tables(0).rows(0).item(3)
dim bad as integer=ds.tables(0).rows(0).item(4)
dim verygoodlength as string=verygood/allvote
dim goodlength as string=good/allvote
dim nomallength as string=nomal/allvote
dim badlength as string=bad/allvote
allvote1.text=allvote.tostring()
all.text=100
vg.text=left(verygoodlength*100,4)
g.text=left(goodlength*100,4)
n.text=left(nomallength*100,4)
b.text=left(badlength*100,4)
tableall.width=100
table1.width=(verygoodlength)*100
table2.width=(goodlength)*100
table3.width=(nomallength)*100
table4.width=(badlength)*100
end sub
</script>
<html>
<head>
<title>投票结果</title>
</head>
<body>
<label style="font-size:9pt">您觉得这个站点怎么样？
共有<asp:label id=allvote1 runat=server/>张选票:</label>
<hr color=#cccccc>
<form id="Form1" method="post" runat="server">
<div style="font-size:9pt">
全部：占<asp:label id=all runat=server/>%<table id=tableall border=0
runat=server bgcolor=blue cellpadding=0 cellspacing=0>
<tr><td> </td></tr></table>
很好：占<asp:label id=vg runat=server/>%
<table id=table1 border=0 runat=server
bgcolor=red cellpadding=0 cellspacing=0>
<tr><td> </td></tr></table>
好：占<asp:label id=g runat=server/>%<table id=table2 border=0
runat=server bgcolor=red cellpadding=0 cellspacing=0>
<tr><td> </td></tr></table>
一般：占<asp:label id=n runat=server/>%<table id=table3 border=0
runat=server bgcolor=red cellpadding=0 cellspacing=0>
<tr><td> </td></tr></table>
差：占<asp:label id=b runat=server/>%<table id=table4 border=0
runat=server bgcolor=red cellpadding=0 cellspacing=0>
<tr><td> </td></tr></table>
<div align=center><button runat=server
onclick="window.close()" style="font-size:9pt">关闭窗口</button></div>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?