gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\lyb\setup.asp
<% dim show_vote,vote_DBPath dim conn,sqlstr,DBPath dim bodymax,name,url,gbook_url,password,count,today_count,today_time,setup_ip,setup_time show_vote=0 '设置为0则不显示,设置为1则显示形象中国在线调查。 vote_DBPath="../data/admin.mdb" '如果以上设置为1,则请修改调查表数据库所在路径。 ''''''''''更改数据库路径'''''''''''' DBPath = Server.MapPath("data/-Gbook.mdb") ''''''''''''''以下无需修改''''''''''''''''' Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath Set conn = Server.CreateObject("ADODB.Connection") Conn.open Connstr sql="select * from admin" set Rs = Server.CreateObject("ADODB.Recordset") Rs.open sql,conn,1,1 gbook_name = Rs("gbook_name") passwords = Rs("password") name = Rs("name") url = Rs("url") bodymax = Rs("bodymax") pagesize = Rs("pagesize") today_count = Rs("today_count") today_time = Rs("today_time") setup_ip = Rs("setup_ip") setup_time = Rs("setup_time") Rs.close set Rs = nothing sub error(message) %> <script>alert('<%=message%>');history.back();</script><script>window.close();</script> <% response.end end sub sub error1(message) %> <script>alert('<%=message%>');history.go(-2);</script><script>window.close();</script> <% response.end end sub sub htmlend() %> <table width=757 height="50" align=center cellpadding=0 cellspacing=1 bgcolor="#99CCFF"> <tbody> <tr> <td align=center valign="middle" bgcolor="#FFFFf0"> <p><font size="-1" color="#333333"><br> <br> <br> 版权所有 </font></p> </td> </tr> </tbody> </table> <br> </BODY></HTML> <% end sub %> <% sub show_ovte() Set conn1 = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vote_DBPath) conn1.Open connstr sql="select top 1 * from votetopic where datediff('d',Now(),vt_expiredate)>0 order by vt_id desc" set rsv=server.createobject("adodb.recordset") rsv.open sql,conn1,1,1 if not rsv.eof then %> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script> <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EFEBEF" class="chinese" align="center"> <form name="form1" method="post" action="../savevote.asp?vt_id=<%=rsv("vt_id")%>&vt_name=<%=rsv("vt_name")%>" target="_blank"> <tr> <td align="center" style="vertical-align: middle" bgcolor="#FFFFFF"><%=rsv("vt_name")%></td> </tr> <%sql="select * from voteitem where vt_id="&rsv("vt_id") set rsv22=server.createobject("adodb.recordset") rsv22.open sql,conn1,1,1 do while not rsv22.eof %><font color="#666666"> </font> <tr> <td align="center" bgcolor="#FFFFFF" style="line-height:180%"> <p align="left" ><font color="#666666"> <span style="background-color: #FFFFFF"> <input type="radio" name="item_id" value="<%=rsv22("item_id")%>" class='radio'> <%=rsv22("item_name")%></span></td> </tr> <%rsv22.movenext loop if rsv22.eof and rsv22.bof then%><font color="#666666"> </font> </font> <tr> <td align="center" bgcolor="#FFFFFF"><font color="#666666">当前没有选项!</td> </tr> <%end if rsv22.close set rsv22=nothing%><font color="#666666"> </font> </font> <tr> <td align="center" height="30" bgcolor="#FFFFFF"> <%if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rsv("vt_name") then%><font color="#666666"> </font><font color="#666666"> <input type="submit" name="Submit" value="投票" style="color: #666666"> <input name="Submit" type="button" onClick="MM_openBrWindow('../showvote.asp?vt_id=<%=rsv("vt_id")%>','Vote','status=yes,scrollbars=yes,width=700,height=500')" value="结果" style="color: #666666"> <%else%> 您已经了。</font><a href="../showvote.asp?vt_id=<%=rsv("vt_id")%>" target="_blank"><font color="#666666">查看结果</font></a><font color="#666666"> <%end if%> </font></td> </tr> <font color="#666666"> <input name="itemname" type="hidden" value="<%=rsv("vt_name")%>"> </font> </form> </table> <% else %> <% response.write "<div align='center' class='chinese'>当前没有投票主题!</div>" end if rsv.close set rsv=nothing end sub %>