poll.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 154 行

ASP
154 行
字号 
<%  
	'创建数据库连接
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=SQLOLEDB;data source=(local);initial catalog=vote;user id=sa;password=;"
	'查询当前主题
	sql = "SELECT * FROM title, vote where title.active = 'y' and title.id = vote.id"
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3	
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="stili.css" type="text/css">
<title>Poll</title>
</head>

<body>

	
       <div align="center">
       <center>
       <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="250">
       <tr>
       <td width="100%" align="center" bgcolor="#ADD8E6">
        <span class="nortxtv10">       
       	<b><font color="#00008B">

<%
'if no data in database for selected query...
if rs.eof then
%>
	<br />
		当前主题:<br />
	<br />
        
			<table width="200" border="1" cellspacing="0" style="border-collapse: collapse" 
			cellpadding="3" bordercolor="#000000">
				<tr> 
				<td bgcolor="#336699" align="center"><span class="nortxtv10">
				<font color="#FFFFFF">
				<b>没有当前主题!</b></font></span></td>
				</tr>
			</table>
<%else%>

<form action="updateeng.asp?title=<%=rs.fields("title")%>" method="POST" id="form1" name="form1">
	<br />
	当前主题:<br />
	<br />			
			    
<table width="200" border="1" cellspacing="0" style="border-collapse: collapse" cellpadding="3" bordercolor="#000000">
    <tr> 
      <td bgcolor="#336699" align="center"><span class="nortxtv10">
      <font color="#FFFFFF"><b><%=rs.fields("title")%></b></font></span>&nbsp;</td>
  </tr>
  <tr> 
      <td align="left" valign="middle" bgcolor="#FFFFFF">
      
      <% 
      '动态创建单选按钮
      rs.movefirst
      do while not rs.eof      
      'for a = 1 to rs.recordcount
      %>
      
        <input type="radio" name="polli" value="<%=rs.fields("answer")%>"><span class="nortxtv10"><%=rs.fields("answer")%></span></br>
      
      <% 
      rs.movenext
      loop
      if rs.eof then
      	rs.movelast
      end if

      %>

     
      </td>
  </tr>
  <tr> 
      <td bgcolor="#336699" align="center">
      <input type="image" name="sql" src="images/gl.gif" align="absmiddle" width="50" height="17">
      <a href="vote.asp?sql=<%=rs.fields("title")%>"><img border="0" src="images/pra.gif" align="absmiddle" WIDTH="50" HEIGHT="17"></a></td>
  </tr>
</table>

</font></b>
<br>
</form>

<%end if%>

<%  
	'关闭recordset对象
	rs.Close
	set rs = nothing

	'查询非当前主题
	sql = "SELECT * FROM title where active = 'n'" 
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3	
%>


        <form action="vote.asp" method="POST">
        其他投票主题<br>
        <br/>
       	<select size="1" name="sql">
	
	<%
	'将非当前主题显示在下拉框中
         rs.movefirst
         do while not rs.eof
	'for g = 1 to rs.recordcount
	%>
	 
		<option value="<%=rs.fields("title")%>"><%=rs("title")%></option>
	
	<%
	rs.MoveNext
	'if rs.eof then
		'rs.movelast
	'end if
	'next
        loop
	%> 
	
       	</select><br>
        <br>
       	<input type="image" src="images/pr.gif" name="sql" align="absmiddle" width="50" height="17"></p>
        </form>
       	</span>
       </td>
       </tr>
       </table>
     </center>
     </div>

	

</body>

</html>

<%	'关闭数据库对象
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>

poll.asp - 源码说明

本页面展示了「ASP+SQL Server动态网站开发从基础到实践教程」中的 poll.asp 源码文件，采用 ASP 编程语言编写，共 154 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?