 |
信 息 速 递 |
| |
|
|
项目执行人须知 |
 |
|
|
|
项 目 检 索 |
|
<%
action=request("action")
if action="" then
%>
<%
else
call buyok_check_path()
'开始搜索
if trim(request("jg1_key"))<>"" then
if not isNumeric(trim(request("jg1_key"))) then
response.write ""
response.end
end if
end if
if trim(request("jg2_key"))<>"" then
if not isNumeric(trim(request("jg2_key"))) then
response.write ""
response.end
end if
end if
if trim(request("name_key"))<>"" then addsql=addsql+" and title like '%"&trim(request("name_key"))&"%'"
if trim(request("ID_key"))<>"" then addsql=addsql+" and FileAddress like '%"&trim(request("ID_key"))&"%'"
if trim(request("jj_key"))<>"" then addsql=addsql+" and Filemode like '%"&trim(request("jj_key"))&"%'"
if trim(request("nr_key"))<>"" then addsql=addsql+" and FileCommend like '%"&trim(request("nr_key"))&"%'"
if trim(request("tj_key"))<>"" then addsql=addsql+" and FileRoof like '%"&trim(request("tj_key"))&"%'"
if addsql="" then
response.cookies("buyok")("search")=""
Response.Redirect("t-1.asp")
else
dim keywords(3)
keywords(1)=request("name_key")
keywords(2)=request("jj_key")
keywords(3)=request("nr_key")
for i=1 to 3
keyword=keywords(i)
if keyword<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from bkey where keywords='"&keyword&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("num")=rs("num")+1
rs("keydate")=now()
else
rs.addnew
rs("keywords")=keyword
rs("keydate")=now()
end if
rs.update
rs.close
set rs=nothing
end if
next
sql="select * from tbDown where FileAddress is not null" + addsql +orderby
response.cookies("buyok")("search")=sql
Response.Redirect("search1.asp")
end if
end if
conn.close
set conn=nothing
%>
|
|
|
