📄 index.asp

📁 大家好

💻 ASP

字号:

<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
'######################
'BuildTime:2000/5/17
'Author:Gxx
'ModifyTime:2000/5/19
'#####################
%>

<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select top 10 * from diaoc1 where id<>1 order by tm desc"
rs.open sqlstr,conn,adOpenkeyset,adlockoptimistic,adcmdtext

%>
<html>
<head>
<title>调查生活</title>
</head>
<body bgcolor="#FFCC99" text="#3333FF">
<h2 align=center>请输入调查信息</h2>
<%
for bh=1 to 10
%>
<form action="diaoc1.asp" method=post>
  <table width="494">
	
	<tr>
			
      <td width="94">调查<%=bh%></td>
	</tr>
	<tr>	
      <td width="388">题目<%= rs("sb")%></td>
	</tr>
	<tr>
		
		
      <td width="94"> 
        <input type=radio name=select value="db1" checked><%=rs("db1")%></td>
	</tr>
	<tr>
		
		
      <td width="94"> 
        <input type=radio name=select value="db2" ><%=rs("db2")%></td>
	</tr>
	<tr>
		
		
      <td width="94"> 
        <input type=radio name=select value="db3" ><%=rs("db3")%></td>
	</tr>
	<tr>
		
		
      <td width="94"> 
        <input type=radio name=select value="db4" ><%=rs("db4")%></td>
	</tr>
	<tr>
		
		
      <td width="94">您的意见:</td>
	</tr>
  </table>	
	
	<textarea name=yj rows="5" cols="50">
        </textarea>
  <table> 
  	<tr>
	<td width="94"><input type=hidden name=id value=<%=rs("id")%>> </td>
	</tr>       
	<tr>	
		<td width="169"> 
		<input type=submit value=提交></td>
		
		
      <td width="318"> 
        <input type=reset value=清除></td>
			
      <td width="136"><a href="diaocrs0.asp?id1=<%=CStr(rs("id"))%>&page=1" >请看调查结果>></a> </td>
	</tr>
  </table>
</form><hr>
<%

rs.movenext
if rs.eof then exit for
next
set rs=nothing
set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -