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='提交'> " javastr=javastr+"<input type='button' value='查看' onClick=windowOpener('<%=url%>showvote.asp?action=show&VoteClassID=<%=VoteClassID%>')>" javastr=javastr+"</form>" document.write(javastr)