def_research.asp

3000首FLASH源程序

<!--#include file=conn.asp-->
<%
set rs=conn.execute("SELECT * FROM research where IsChecked=true") 
if rs.eof then
%>
document.write('<fieldset><legend align=center><font color=#FF0000>□□□网站调查□□□</font></legend><table border="0" width=100% cellspacing=0><TR><TD Align=middle width="100%">尚无任何调查</td></tr>');
<%
else
%>
document.write('<fieldset><legend align=center><font color=#FF0000><%=rs("Title")%></font></legend><table border="0" width=100% cellspacing=0><FORM action="research.asp" target="newwindow" method=post name=research><TR><TD vAlign=top width="100%">');
<%
for i=1 to 8
	if rs("Select"&i)<>"" then
%>
document.write('<INPUT style="border=0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>><%=i%>.<%=rs("Select"&i)%><BR>');
<%
	end if
next
%>
document.write('</TD></TR><TR><TD width="100%" height=30 align=center><INPUT type=submit value="提交" id=submit1 name=submit1>&nbsp;&nbsp;<INPUT onclick=javascript:readopen("research.asp?stype=view","research","width=420,height=250") type=button value=结果 id=button1 name=button1></TD></TR></FORM>');
<%end if%>
document.write('</table></fieldset>');