javascript网页上的原程序改写为vbscript页面应怎样改.请帮忙改写一下.
<tr>
<td width="25%" valign="top">
<%
var Rs7 = Server.CreateObject("ADODB.Recordset");
Rs7.ActiveConnection = MM_connectionString_STRING;
Rs7.Source = "SELECT count(*) FROM VoteCount WHERE OptionID = "+ (Rs5.Fields.Item("OptionID").Value)+ "";
Rs7.CursorType = 0;
Rs7.CursorLocation = 2;
Rs7.LockType = 1;
Rs7.Open();
var Rs7_numRows = 0;
var sum = Rs7.Fields.Item(0);
%>
<%= sum %>/<%=(Rs6_total)%></td>
<td colspan="2" valign="top"><div align="left">
<%
//total = 100;
var total = (Rs6_total);
var widthnum = sum / total * 300;
%>
<img src="Images/orange.gif" width="<%=widthnum%>" height="20"></div></td>
<%Rs7.close();%>
</tr>
参考答案:<tr>
<td width="25%" valign="top">
<%
dim rs7,Rs7_numRows,sum,total,widthnum
set rs7=Server.CreateObject("ADODB.Recordset")
rs7.open "SELECT count(*) FROM VoteCount WHERE OptionID = " & rs5("OptionID"),MM_connectionString_STRING,1,1,&H0001
sum=rs7(0)
%>
<%=sum%>/<%=Rs6_total%></td>
<td colspan="2" valign="top"><div align="left">
<%
'total=100
total=Rs6_total
widthnum=sum/total*300
%>
<img src="Images/orange.gif" width="<%=widthnum%>" height="20"></div></td>
<%
rs7.colse
%>
</tr>