mainone.asp

大家好

<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
sqlstr="select top 1 * from diaoc1  order by tm desc "
rs.open sqlstr,conn,adOpenkeyset,adlockoptimistic,adcmdtext
%>
<form method="post" action="diaocha2.asp">
        
  <table width="120" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td colspan="2"><%=rs("sb")%>？</td>
    </tr>
    <tr> 
      <td width="50%">
        <input checked name=slt type=radio value=db1>
        <%=rs("db1")%></td>
    </tr>
    <tr> 
      <td width="39%">
        <input name=slt  type=radio value=db2>
        <%=rs("db2")%></td>
    </tr>
    <tr>
      <td width="50%">
        <input name=slt type=radio value=db3>
        <%=rs("db3")%></td>
    </tr>
    <tr> 
      <td width="39%">
        <input name=slt type=radio value=db4>
        <%=rs("db4")%></td>
    </tr>
    <tr> 
      <td width="50%" colspan="2"> 
        <input type=hidden name=id value=<%=rs("id")%>>
        您的意见：</td>
    </tr>
    <tr align="center"> 
      <td> 
        <textarea name=yj rows="5" cols="20"></textarea>
      </td>
    </tr>
    <tr>
      <td>
        <input class=small name=Submit type=submit value=提交>
        <input class=small name=view type=submit value=查看>
      </td>
    </tr>
    <tr>
      <td><a href="diaocha1.asp?id=<%=rs("id")%>" target="_blank">更多</a>&gt;&gt;</td>
    </tr>
  </table>
</form>