asp+access论坛BBS系统设计源码
<%Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM tp_xx ORDER BY px ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_conn_STRING
Recordset2.Source = "SELECT sum(ps) as tp_sum FROM tp_xx"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" <head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
本文来自优文论文网原文请找QQ752018766
//-->
</script>
<style type="text/css">
<!--
body,td,th {
font-size: small;
}
-->
</style></head>
<body>
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
毕业论文http://www.youerw.com
<td colspan="2">投票结果</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td width="26%"><%=(Recordset1.Fields.Item("xxmc").Value)%></td>
<td width="74%"><img src="image/vote.gif" width="<%=int(((Recordset1.Fields.Item("ps").Value)/(Recordset2.Fields.Item("tp_sum").Value))*40)%>%" height="20" />(<%=int(((Recordset1.Fields.Item("ps").Value)/(Recordset2.Fields.Item("tp_sum").Value))*100)%>%)</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<tr>
<td colspan="2" align="right">投票总数：<%=(Recordset2.Fields.Item("tp_sum").Value)%> 票 </td>
</tr>
<tr>
<td colspan="2"><input name="Submit" type="button" onclick="MM_goToURL('parent','index_qt.asp');return document.MM_returnValue" value="返回主页" /></td>
</tr>
</table>
</form> </td>
</tr>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing%>1396