<td>请输入时间段</td><td><input type="text" name="turn1" size="10">至<input type="text" name="turn2" size="10">**</td>

<td><input type="submit" value="确 定"></td>

<%

If Trim(Request("turn1"))<>" and Trim(Request("turn2"))<>" Then

Dim rs,strSql

Set rs=Server.CreateObject("ADODB.Recordset")

strSql="Select * From users Where turn betten #" & Trim(Request("turn1")) & "# and #" & Trim(Request("turn2")) & "#"

rs.Open strSql,db,1,2

If rs.RecordCount<=0 Then

Response.Write "对不起，没有你查询的信息"

Else

Response.Write "共有" & rs.RecordCount & "条记录"