research.asp

来自「一个互联网络公司网站源码」· ASP 代码 · 共 31 行

<!--#include file="conn.asp" -->
<%
	response.Charset="gb2312"
	response.ContentType="text/html"
	sql="select * from research where isvalid =1"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if not rs.eof then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25" background="images/line2.gif"><FONT color="#CC0000" size:?12px?>　<%=rs("question")%></FONT></td>
  </tr>
  <form id="res">
 <%
	for i=1 to rs.fields.count-4 step 2
	if rs.fields(i).value="" then exit for
 %>
  <tr>
    <td height="25" background="images/line2.gif"><input type="radio" name="research" value="<%=rs.fields(i+1).name%>"> <%=rs.fields(i).value%></td>
  </tr>
<%
	next
%>
  <tr>
    <td height="35" valign="middle">　　<input type="image" onClick="return researchSubmit()" src="images/tp.gif" width="56" height="19">　 <input type="image" onClick="return openWindow()" src="images/jg.gif" width="56" height="19"> </td>
  </tr>
  </form>
</table>
<%end if%>