我想让他在另外一个页面弹出查询相应的数据,怎么改啊?


<%
if request.form("Submit") = "查询" then
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_shipin_STRING
Recordset1.Source = "SELECT * FROM shipin"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

dim sc,scontent
sc = trim(request("sc"))
scomtent = trim(request("scomtent"))
ssql = "select * from shipin"
select case sc
case "0"
sSql = sSql
case "1"
sSql = "select * from shipin where title like '%" & scomtent & "%' order by id desc"
end select
sSql = sSql &"order by id desc "

response.redirect "cxjg.asp"

set rs=server.createobject("adodb.recordset")

Recordset1.Close()
Set Recordset1 = Nothing
end if

%>

我要点一下查询,下面就弹出查询的数据,

你把查到的值在打开页面写出来就可以了。比如你的语句是
&lt;%sql=sSql = "select * from shipin where  title like '%" &amp; scomtent &amp; "%' order by id desc"
sSql = sSql &amp;"order by  id desc "
rs.open sSql,conn,1,1
if not rs.eof then
%&gt;
姓名：&lt;%=rs("xingming")%&gt;//xingming是数据库的字段
……
&lt;%end if
 rs.close
%&gt;

楼上正解!~

不好意思了楼主,借用一层楼

各位支持一下啦,好不好?

小助理被逼无奈呀::::::

上海庆申诚聘专业网站开发工程师

年龄22-30 开发经验3年
男性为佳
薪资待遇 底薪加提成制
3000(凭实力可以面谈)
全职,可以签定劳保合同.

紧急求援!!!!!!!!!!
谢谢各位大哥啦!!

qq51333734 验证写明：ASP聘

借一层的用一下