<%@LANGUAGE="VBSCRIPT"%>
<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/dbmain.asp")
set dbpath=server.createobject("adodb.recordset")
%>
<%
search=Trim(Request.QueryString("search"))%>
<%
if search<>"" then
keytype=Trim(Request.Form("keytype"))
keyword=Trim(Request.Form("keyword"))
end if
'=========
'分类搜索
if keytype="商业机会" then
response.Redirect"gyxx.asp?search=y&keytype="&keytype&"&keyword="&keyword&""
end if
if keytype="企业名录" then
response.Redirect"qyml_s.asp?search=y&keyword="&keyword&""
end if
if keytype="行业资讯" then
response.Redirect"newsview.asp?search=y&keyword="&keyword&""
end if
if keytype="产品展示" then
response.Redirect"cpzt_s.asp?search=y&keyword="&keyword&""
end if
'=======
%>
<%
Dim coParam
coParam = 1
If (Request("Empty") <> "") Then
coParam = Request("Empty")
End If
%>
<%
Dim prParam
prParam = 1
If (Request("Empty") <> "") Then
prParam = Request("Empty")
End If
%>
丽水美食网
