<%@ Language=VBScript %>
处理 SSI 文件时出错
处理 SSI 文件时出错
处理 SSI 文件时出错
处理 SSI 文件时出错
<%
on error resume next
firstnumber=1
theBGcolor="#99bbff"
theGDcolor="#001177"
dim SearchText,thefield,strquery
fEmptyRecordset = true
tPageSize =10
tPagingMove = ""
hadsearch=""
SearchText=""
Set rs = Server.CreateObject("ADODB.Recordset")
'Set rs2 = Server.CreateObject("ADODB.Recordset")
SearchText = Trim(Server.HTMLEncode(Request("SearchText"))) '关键词
thefield = Request("thefield") '选择字段
hadsearch=request("hadsearch")
session("thefield")=thefield
session("SearchText")=SearchText
if hadsearch="1" then
if len(SearchText)=0 then
call search_pd
else
strquery=" where " & "(" & thefield & " Like '%" & SearchText & "%')"
end if
strsql="select b.Reg_nbr as reg_nbr,a.postal as postal,a.name as name,a.addr as addr,a.ecno_type_id as ecno_type_id ,a.manage_main as manage_main,a.manage_other as manage_other,a.start_date as start_date,a.end_date as end_date,a.set_date as set_date,b.check_date as check_date,a.deputy as deputy,a.id_nbr as id_nbr,a.reg_fund as reg_fund,a.tel_nbr as tel_nbr,a.dept_id as dept_id,a.sts as sts from serv a,serv_check b where a.serv_id=b.serv_id and a.name='" & SearchText & "'"
'response.write strsql
'strsql="SELECT * from jjhk_master where name='" & SearchText & "'"
'strsql="SELECT * from serv where name='" & SearchText & "'"
rs.open strsql,conn,3,2
rs.PageSize = tPageSize
fen_ye rs
end if
%>
处理 SSI 文件时出错
<%
if rs.BOF And rs.EOF then
fEmptyRecordset=true
else
fEmptyRecordset=false
end if
%><%if hadsearch="1" then%>
<%if fEmptyRecordset then%>
|
没有您要查询的信息!详细情况请到我局企业处咨询
| <%end if%>
<%if fEmptyRecordset=false then%>
<%
if not(rs.BOF And rs.EOF) then
%>
| 企业名称 |
<%=rs("name")%> |
注册号 |
<%=rs("reg_nbr")%> |
<%
ecno_id=rs("ecno_type_id")
SQL1="select name from ecno_type where ecno_type_id="&ecno_id&" "
if trim(ecno_id) <>"" then
set Rs1=Conn.Execute(SQL1)
qylx=rs1("name")
end if %>
| 企业地址 |
<%=rs("addr")%> (<%=rs("postal")%>) |
经济性质 |
<%=qylx%> |
<%if len(rs("manage_main"))<45 then%>
| 主营范围 |
<%=rs("manage_main")%> |
<% else %><% nn=len(rs("manage_main"))%>
| 主营范围 |
<%=left(rs("manage_main"),45)%>
<%=mid(rs("manage_main"),46,45)%>
<%=mid(rs("manage_main"),91,45)%>
<%=mid(rs("manage_main"),136,nn)%> |
<%end if%>
| 廉营范围 | <% if rs("manage_other") then %>
<%=rs("manage_other")%> | <% else %>
<%'=rs("manage_other")%>无 | <% end if %>
| 经营期限 |
<%=rs("start_date")%>至<%=rs("end_date")%> |
| 法定代表人(负责人) |
<%=rs("deputy")%> |
身份证号 |
<%=rs("id_nbr")%> |
| 注册资本(万元) |
<%=rs("reg_fund")%> |
电话号码 |
<%=rs("tel_nbr")%> |
| 成立日期 |
<%=rs(9)%> |
核准日期 |
<%=rs("check_date")%> |
| 发证机关 |
<%'=rs("reg_fund")%>宁夏回族自治区工商行政管理局 |
企业状态 | <% if rs("sts")="A" then %>
<%'=rs("sts")%>在册 | <% elseif rs("sts")="Z" then%>
<%'=rs("sts")%>注销 | <% elseif rs("sts")="D" then%>
<%'=rs("sts")%>吊销 | <% else%>
<%'=rs("sts")%> | <% end if%>
<%
tRecordsProcessed=0
Do
If rs.EOF Then Exit Do
tRecordsProcessed=tRecordsProcessed+1
if tRecordsProcessed>tpagesize then Exit do
%>
<%
ecno_id=rs("ecno_type_id")
SQL1="select name from ecno_type where ecno_type_id="&ecno_id&" "
if trim(ecno_id) <>"" then
set Rs1=Conn.Execute(SQL1)
qylx=rs1("name")
end if %>
<%
rs.MoveNext
firstnumber=firstnumber+1
loop
%>
|
<%
end if
end if
set rs=nothing
end if %>
|
★★★ 【字体：小 大】
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）