资源描述：
《aspaccess论坛bbs系统设计源码课程设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、asp+access论坛BBS系统设计源码•课程设计asp+access论坛BBS系统设计源码<%DimRecordset1DimRecordsetl_numRowsSetRecordset1=Server.CreateObject(nADODB.Recordset")Recordset1.ActiveConnection=MM_conn_STRINGRecordset!.Source="SELECT*FROMtp_xxORDERBYpxASC"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1丄oc
2、kType=1Recordset1.Open()Recordset1_numRows=0%><%DimRecordset2DimRecordset2_numRowsSetRecordset2=Server.CreateObject("ADODB.Recordset")Recordset2.ActiveConnection二MM_conn_STRINGRecordset?.Source="SELECTsum(ps)astp_sumFROMtp_xxHRecordset2.CursorType=0Recordset2.CursorLocation=2Recordset2.L
3、ockType=1Recordset2.Open()Recordset2_numRows=0%><%DimRepeat1_numRowsDimRepeat1_indexRepeat1_numRows=-1Repeat1_index=0Recordset1_numRows=Recordset1_numRows+Repeat1—numRows%>4、et=gb2312n/>
无棕题文档5、cellpadding二”0”cellspacing=n0">
投票结果
<%While((Repeat1_numRows<>0)AND(NOTRecordset1.EOF))%><%=(Recordsetl.Fields.Item("xxmc").Value)%>6、.Fields.Item("tp_sumn).Value))*40)%>%"height=n20"/>(<%=int(((Recordsetl.Fields.Item(',psn).Value)/(Recordset2.Fields.Item(,,tp_sum,').Value))*100)%>%)
<%Repeat1_index=Repeatl_index+1Repeat1_numRows=Repeat1_numRows-1Recordset1.MoveNext()Wend%>投票总数：<%=(
7、Recordset2.Fields.Item(Htp_sumH).Value)%>票
|
