www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > vote.asp

    <!--#include file=conn.asp-->
<!--#include file=Checkstr.asp-->
javastr=""
<!-- Hide 
var newWindow = null
function windowOpener(loadpos)
{       
        if (! newWindow || newWindow.closed)
        {
        newWindow = window.open(loadpos,"surveywin","toolbar,resizable,scrollbars,dependent,width=600,height=300");
        }else
        {
                newWindow.focus();
        }
}
//end-->
<%  
  set rs=server.createobject("adodb.recordset")
  If Request("VoteClassID")<>"" and IsNumeric(Request("VoteClassID")) Then
     VoteClassID = CLng(Request("VoteClassID"))
  Else
     VoteClassID = 0
  End If
  if VoteClassID=0 then
	sql="select title,type,VoteClassID from VoteClass where VoteClassID="&VoteClassID
  else
	sql="select top 1 title,type,VoteClassID from VoteClass order by VoteClassID desc"    
  end if
  rs.open sql,conn,1,1
  VoteClassID=rs("VoteClassID")
  type1=rs("type")
  addr0=request.servervariables("server_name")
  addr1=request.servervariables("url")
  addr1=replace(addr1,"vote.asp","")
  url="http://"+addr0&addr1
%>

javastr=javastr+"<form method='post' action='<%=url%>showvote.asp?VoteClassID=<%=VoteClassID%>' onsubmit='windowOpener()' target='surveywin' style='display:inline'>"
<%
  set rs1=server.createobject("adodb.recordset")
  sql1="select VoteOper,Count,ID from Vote where VoteClassID="&VoteClassID
  rs1.open sql1,conn,1,1
%>
  javastr=javastr+"<%=rs("Title")%><br>"
<%
  while not rs1.eof 
    inputType="<input type='"&type1&"' name='id' value='"&rs1("id")&"' checked>"
%>
    javastr=javastr+"<%=inputType&rs1("VoteOper")%><br>"
<%
	rs1.movenext
  wend
%>
javastr=javastr+"<input type='submit' value='提交'>&nbsp;&nbsp;&nbsp;&nbsp;"
javastr=javastr+"<input type='button' value='查看' onClick=windowOpener('<%=url%>showvote.asp?action=show&VoteClassID=<%=VoteClassID%>')>"
javastr=javastr+"</form>"
document.write(javastr)