⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search_answer.asp

📁 完全内核
💻 ASP
字号:
<%if session("password")<>"" then%>

<HTML>
<HEAD>
<title>http://www.25175.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF3300}
-->
</style>
</HEAD>
<BODY>
<div align="center">
</div>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25"><a href="index.asp">首页</a> <a href="add.asp">添加试题</a> <a href="delete_all.asp">删除试题</a> <a href="SEARCH.ASP">列出试题答案</a> <a href="change_password.asp">修改密码</a> <a href="login.asp">登入</a> <a href="20050130_logout.asp">退出</a> &nbsp;<a href="http://www.25175.com">powered by 25175</a></td>
  </tr>
</table>
<!--#include file="conn.asp" --> 
<% id=request("id") %>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
<%if request("id")<>"" then
	sql="select 1 *from test where id like'" &id& "'"
else
	sql="select top 1 *from test"
end if
	sql="select *from test where id like'"&id&"' "
	rs.Open sql,conn,1,1

'RS参数设定为执行SQL的查询语法,数据库文件里的test表中的数据,无论任何条件,全部设计为查询的对象,并由RS作为管理的参数。
if rs.EOF and  rs.BOF then
	Response.Write "没有这个信息..."
else

%>
</td>
  </tr>
</table>

<% 
do while not rs.EOF or rs.BOF
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="160" height="25"> 题目:
      <% = rs("question") %></td> 	
    <!-- 用户名 -->
    <td width="160">选择A:<%=rs("A")%></td>    	
    <td width="160">选择B:<%=rs("b")%></td>        
    <td width="160">选择C:<%=rs("c")%></td>     
    <td width="160">选择D:<%=rs("d")%></td>    
    <td width="160">正确答案:<%=rs("ans")%></td>
    <!--备份 -->
  </tr>
</table>
<%
rs.movenext
loop
end if
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25" bgcolor="#F7F7F7">共
      <%=rs.RecordCount %>条记录
	  <%=rs.source%>
    </td>
  </tr>
</table>
<%
set rs=nothing 
set conn=nothing
%> 
</BODY>
</HTML>
<%else
Response.Redirect "20050130_loginagine.asp"
end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -