|
|
|
| |
科技项目招标
|
|
<%
dim zssql
dim i,j
dim keyword
dim dateandtime
keyword=request("keyword")
abc=request("TradeKind")
dim datetime
datetime=""
if request("DateLimit")<>"" then
datetime=request("DateLimit")
end if
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=""
end if
if not isEmpty(request("IndustryType")) then
fid=request("IndustryType")
idd=request("IndustryType")
else
fid=""
idd=0
end if
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename
dim rssort
dim sortsq
dim sort,sortname
dim gsmcsql
dim gsid,gsname
%>
<%
sql="select id,title,updatetime,hits from zbinfo where sh=1 and flag=1"
if datetime<>"" and datetime<>"0" then
sql=sql&" and updatetime<=date()-"&cint(datetime)
end if
if keyword<>"" then
sql=sql&" and (" &AutoKey(keyword)
end if
if fid<>"" then
sql=sql&" and fid="&fid
end if
if abc<>"" then
sql=sql&" and qylb like '%"&abc&"%'"
end if
sql=sql&" order by updatetime desc"
'response.write sql
'response.end
rs.open sql,conn,1,1
filename="zhongbiao.php"
if rs.eof and rs.bof then
response.write "对不起，没有您要查询的信息! "
else
rs.pagesize = 20
if isempty(Request("Page")) then
cpage=0
else
cPage=cint(Request("Page"))
end if
if cPage<=0 or cPage="" then
cPage=1
end if
if cPage>=rs.PageCount then
cPage=rs.PageCount
end if
rs.absolutePage = cPage
showContent
response.Write("| ")
cs="&IndustryType="&request("IndustryType")&"&sortid="&sortid&"&typeid="&typeid&"&keyword="&keyword&"&name="&request("name")&"&type="&abc
cs2="IndustryType="&request("IndustryType")&"&sortid="&sortid&"&typeid="&typeid&"&keyword="&keyword&"&name="&request("name")&"&type="&abc
mpage rs.recordcount,rs.pagesize,rs.pagecount,cpage,cs,request.servervariables("script_name"),cs2
response.Write(" | ")
rs.close
end if
set rs=nothing %>
<% sub showContent
dim i
i=0
%>
<%
for i=1 to rs.pagesize
if rs.eof then exit for
%>
 |
" target="_blank">
<%if len(rs("title"))>25 then
response.Write(left(rs("title"),25))%>
...
<%else%>
<% response.Write rs("title")
end if%>
|
<%=formatdatetime(rs("updatetime"),2)%> |
<%
rs.movenext
next
%>
<%
end sub%>
|
|
|
