56770_vote.asp

能进行网上购物的需求

<TABLE class="bg_l" border="0" style="border-collapse: collapse;border:dotted 1px" bordercolor="#CCCCCC" cellpadding=0 width="100%" align="center">
<tr>
<td width="100%" align="left" height="25" CLASS="navtablehead"  colspan="2" style="BORDER-bottom: #999999 1px dotted">&nbsp;
<%if request("LAN")="english" then 
response.write("Station inside vote") 
elseif request("LAN")="fan" then 
 response.write("站內調查") 
 else
 response.write("站内调查") 
end if%></td>
</tr>
    <%
        set rs=conn.execute("SELECT * FROM vote where IsChecked=1 ") 
         if rs.eof then
	  %>
            
 <tr> 
  <td width="100%" align="center" height=50>
<%if request("LAN")="english" then 
response.write("Have no vote temporary") 
elseif request("LAN")="fan" then 
 response.write("暫無投票") 
 else
 response.write("暂无投票") 
end if%></td></tr>
        <%else%>
                               
      <tr> 
     <td width=100% align="center">
   
<%if request("LAN")="english" then 
response.write rs("Title_ename")
elseif request("LAN")="fan" then 
 response.write rs("Title_fname")
 else
 response.write rs("Title")
end if%><br>
   </td>
  </tr>
  <form action="vote.asp" target="newwindow" method=post name=research>
    <tr> 
   <td valign=top width="100%"> 
   <%
for i=1 to 5
	if rs("Select"&i)<>"" then
%>
   <input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
      <%=i%>.
<%if request("LAN")="english" then 
response.write rs("Select_ename"&i)
 vot="images/vote1_e.gif" 
 res="images/vote_e.gif" 
elseif request("LAN")="fan" then 
 response.write rs("Select_fname"&i)
 vot="images/vote1.gif" 
 res="images/vote_f.gif" 
 else
 response.write rs("Select"&i)
 vot="images/vote1.gif" 
 res="images/vote.gif" 
end if%><br>
        <%
	end if
next
%>
     </td>
     </tr>
  <tr> 
  <td width="100%" height=30 align=center> 
  <input type="image" border="0" name="submit" src="<%=vot%>" width="59" height="19" style="cursor:hand">
  <a href="javascript:;" onClick="window.open('vote.asp?lan=<%=request("lan")%>&stype=view','czcn', 'scrollbars=no,resizable=no, width=390, height=180, menubar=no, top=268, left=268')" ><img src="<%=res%>" width="59" height="19" border="0"></a> 
 </td>
 </tr>
   </form>
<%end if%>
</table>