注册号 |
企业名称 |
公司地址 |
<%
dim page
page=SafeRequest("page",1)
if page="" or page=0 then
page=1
end if
pagenum=20
name=request("name")
str=" sts=''A'' and name like ''%" & name & "%''"
strcount=" sts='A' and name like '%" & name & "%'"
reg_nbr=request("regnbr")
str=str & " and reg_nbr like ''%" & reg_nbr & "%''"
strcount=strcount & " and reg_nbr like '%" & reg_nbr & "%'"
deputy=request("deputy")
str=str & " and deputy like ''%" & deputy & "%''"
strcount=strcount & " and deputy like '%" & deputy & "%'"
addr=request("addr")
str=str & " and addr like ''%" & addr & "%''"
strcount=strcount & " and addr like '%" & addr & "%'"
start_date=request("startdate")
str=str & " and start_date like ''%" & start_date & "%''"
strcount=strcount & " and start_date like '%" & start_date & "%'"
reg_fund=request("regfund")
if reg_fund<>"" then
str=str & " and reg_fund=" & reg_fund
strcount=strcount & " and reg_fund=" & reg_fund
end if
set newsrs=conn.execute("exec p_list 'select * from web_serv_A where "&str&"',"&page&","&pagenum&",'[serv_id]','[serv_id]',1")
set nextrs=conn.execute("exec p_list 'select * from web_serv_A where "&str&"',"&page+1&","&pagenum&",'[serv_id]','[serv_id]',1")
set pageCount=conn.execute("select count(*) from web_serv_A where "&strcount)
i=0
if newsrs.eof then
%>
| 此 类 别 下 没 有 任 何 内
容 |
<%
else
while not newsrs.eof
i=i+1
if (i mod 2)=0 then
bgcolor="#F1F2F0"
else
bgcolor="#ffffff"
end if
if i<10 then
s="0"&i
else
s=i
end if
%>
| <%=newsrs("reg_nbr")%> |
"><%=newsrs("name")%> |
<%=left(newsrs("addr"),18)%> |
<%
newsrs.movenext
wend
newsrs.close
end if
%>
|
