www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\viewvoters.asp
<!-- #include file="conn.asp" --> <!-- #include file="inc/const.asp" --> <!-- #include file="inc/dv_clsother.asp" --> <% Dim voteid Dim title,votevalue,votevaluestr,voteoption Dim TempArray,TempStr,TempStr1,TempStr2,TempStr3 Mybbs.Loadtemplates("dispbbs") Mybbs.Stats=template.Strings(12) Mybbs.head If request("id")="" then Mybbs.AddErrCode(30) ElseIf Not IsNumeric(request("id")) then Mybbs.AddErrCode(30) Else VoteID=request("id") End If Mybbs.ShowErr TempArray = Split(template.html(15),"||") TempStr = TempArray(0) Dim Rs,i Set Rs=Mybbs.Execute("select vote from dv_vote where voteid="&voteid) If Not (rs.eof And rs.bof) Then votevalue=split(rs(0),"|") Else Mybbs.AddErrCode(30) End If Mybbs.ShowErr Set Rs=Mybbs.Execute("select title from dv_topic where pollid="&voteid) If Not (Rs.EOF And rs.bof) Then title=Mybbs.HtmlEncode(rs(0)) End If TempStr = Replace(TempStr,"{$title}",title) Set Rs=Mybbs.Execute("select v.*,u.username from dv_voteuser v inner join [dv_user] u on v.userid=u.userid where voteid="&voteid) If Rs.Eof And Rs.Bof Then TempStr = Replace(TempStr,"{$voteinfo}",TempArray(1)) Else TempStr1 = TempArray(2) Do While Not Rs.EOF TempStr2 = TempStr1 TempStr2 = Replace(TempStr2,"{$userid}",Rs("UserID")) TempStr2 = Replace(TempStr2,"{$username}",Rs("UserName")) voteoption = Split(rs("voteoption"),",") For i = 0 To Ubound(voteoption) If IsNumeric(voteoption(i)) Then If i<>0 Then votevaluestr = votevaluestr & "<BR>" votevaluestr = votevaluestr & votevalue(voteoption(i)) End If Next TempStr2 = Replace(TempStr2,"{$uservote}",votevaluestr) votevaluestr = "" TempStr3 = TempStr3 & TempStr2 Rs.MoveNext Loop TempStr = Replace(TempStr,"{$voteinfo}",TempStr3) End If Rs.Close Set Rs =Nothing Response.Write TempStr %>