1、不循环的例子，只有一条记录

 <%
	Set Rs=Server.Createobject("Adodb.Recordset")
	sql="select top 1 * from Rc_SFZtmkg" 
	Rs.open sql,conn,1,1
	sfzDay=rs("tmbj") '把字段值赋值给变量
	Rs.Close
	Set Rs=Nothing
%>

显示 

<td><%= Rs("tmbj") %></td>

2、直接执行sql命令

	conn.execute("delete from RC_TaskSFZ where t_id='"&request("T_ID")&"' and T_GuideID='"&request("T_GuideID")&"'")
  

3、在获取表单数据值，再查找，并且判断是否有数据

 '========================== 【查询】

If Request.Form("select") = "查询" and textboxValue <> "" Then
	
	'读取脱敏标记-多少天内sfzDay
	Set Rs=Server.Createobject("Adodb.Recordset")
	sql="select top 1 * from RC_IntentCustomer where company='"& textboxValue &"'" 
	Rs.open sql,conn,1,1
	' 检测是否有数据  
	 If Not Rs.EOF Then  
	sfzDay=Rs("Indexed") '把字段值赋值给变量
	Response.Write "<script language='javascript'>alert('" & sfzDay & "');</script>"
		
		
	else 
		
		Response.Write "<script language='javascript'>alert('没有查找到该单位，请检查是否录入错误！');</script>"
	
	end if
	
	
	
	Rs.Close
	Set Rs=Nothing
	
	
	
	
end if