asp问卷调查系统设计源代码 第2页

 set rs=server.CreateObject("ADODB.RECORDSET")
 rs.open sql,conn,1,1
 ii=0
 do while not rs.eof
  ii=ii+1
  v="a_"&rs("id")
 %>
    <div class="v"><%=ii%>、<%=rs("q")%></div>
    <div class="vi">
  <%
   select case cstr(rs("t"))
   case "1":get1()
   case "3":get3()
   case else Response.Clear():Response.Write("调查问卷存在错误，请联系管理员!"本文来自辣.文~论^文·网原文请找腾讯3249.114):Response.End()
   end select
  %>
 </div>
 <div class="vt"></div>
    <%
 rs.MoveNext
 loop
 rs.Close
 Set rs=Nothing
 %>
    <input name="q" type="hidden" id="q" value="<%=q%>" />
    <input type="submit" name="Submit" value=" 提 交 问 卷 " /> 
<!--************************************************以上内容请不要编辑************************************************-->(本系统由鼎峰网络提供，鼎峰网络提供专业在线问卷调查，在线评选程序。<a href=http://www.751com.cn target="_blank">鼎峰网络>>></a>)</div>
</form>
</body>
</html>

上一页  [1] [2] 

asp问卷调查系统设计源代码 第2页下载如图片无法显示或论文不完整，请联系qq752018766