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


<%
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

%>