毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

asp+access论坛BBS系统设计源码

更新时间:2010-7-5:  来源:毕业论文

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.751com.cn
          <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>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing%>1396

[1] [2] 下一页

asp+access论坛BBS系统设计源码下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。