📄 clientbase_show.asp
字号:
<%
'OA 表单生成器1.0
'功能：查看工商户
'参数：request("id")=int #记录ID
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="./Client_menu.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
cid=clng(request("cid")) '记录ID
'------------------------------------------------
'------------------------------------------------取记录
'取要查看的记录 （返回rs对象）
table="tbioaClientBase" '表名
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from " & table & " where ID="&cid
rs.open sql,oConn,1,1
'------------------------------------------------
if rs.eof then
response.write"暂无相关信息！"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>工商户详细信息</title>
</head>
<body topmargin="10" leftmargin="10">
<%call ClientMenu("工商户基本信息")%>
<table class="tab" cellSpacing="1" cellPadding="3" width="700" align="center" border="0">
<tbody>
<tr>
<td align="right" nowrap class=td1 width=90><div align="left">建档人员</div></td>
<td class="td0"><%=HtmlOut(GetUserName(rs("userid")))%></td>
<td align="right" nowrap class=td1 width=100><div align="left">档案入库时间</div></td>
<td class="td0"><%=HtmlOut(rs("sdate"))%></td>
<td colspan="2" rowspan="5" align="center" class="td0">
<%if HtmlOut(rs("zp"))<>"" then%>
<a href="<%=HtmlOut(rs("zp"))%>" target="_blank">
<%end if%>
<img alt="暂无照片" title="照片" style="BORDER-RIGHT: #dfdfdf 1px solid; BORDER-TOP: #dfdfdf 1px solid; BORDER-LEFT: #dfdfdf 1px solid; BORDER-BOTTOM: #dfdfdf 1px solid" height="100" src="<%=HtmlOut(rs("zp"))%>" border="0"></a> </td>
</tr>
<tr>
<td align="right" nowrap class=td1><div align="left">字号名称</div></td>
<td class="td0"><%=HtmlOut(rs("zhmc"))%></td>
<td align="right" nowrap class=td1><div align="left">注册号</div></td>
<td class="td0"><%=HtmlOut(rs("zch"))%></td>
</tr>
<tr>
<td align="right" noWrap class=td1><div align="left">负责人</div></td>
<td class="td0"><%=HtmlOut(rs("fzr"))%></td>
<td align="right" nowrap class=td1><div align="left">企业类型</div></td>
<td class="td0"><%=GetLx(rs("lx"))%></td>
</tr>
<tr>
<td align="right" nowrap class=td1><div align="left">经营地址</div></td>
<td class="td0"><%=HtmlOut(rs("jydz"))%></td>
<td align="right" nowrap class=td1><div align="left">经营户类型</div></td>
<td class="td0"><%=GetJylx(rs("jylx"))%></td>
</tr>
<tr>
<td align="right" nowrap class=td1><div align="left">所属地区</div></td>
<td class="td0"><%=HtmlOut(GetTableValue("tbioaAreaSort","Name","id",rs("ssdq")))%></td>
<td align="right" nowrap class=td1><div align="left">所属行业</div></td>
<td class="td0"><%=HtmlOut(GetTableValue("TbioaBusinessSort","Name","id",rs("hy")))%></td>
</tr>
<tr>
<td align="right" class=td1><div align="left">经营范围</div></td>
<td colspan="3" class="td0"><%=HtmlOut(rs("jyfw"))%></td>
<td align="right" nowrap class=td1 width=70><div align="left">信用等级</div></td>
<td class="td0"><font color="<%=GetXydjColor(rs("xydj"))%>">■<%=HtmlOut(rs("xydj"))%>类</font></td>
</tr>
<tr>
<td align="right" nowrap class=td1><div align="left">经营期限</div></td>
<td class="td0"><%=HtmlOut(rs("jyqxs"))%>至<%=HtmlOut(rs("jyqxe"))%></td>
<td align="right" nowrap class=td1><div align="left">从业人员</div></td>
<td class="td0"><%=HtmlOut(rs("cyry"))%></td>
<td align="right" class=td1><div align="left">联系电话</div></td>
<td class="td0"><%=HtmlOut(rs("lxdh"))%></td>
</tr>
<tr>
<td align="right" nowrap class=td1><div align="left">监管人员</div></td>
<td colspan="3" class="td0"><%=HtmlOut(getusernames(rs("jgry"),","))%></td>
<td align="right" nowrap class=td1><div align="left">包片领导</div></td>
<td class="td0"><%=HtmlOut(getusernames(rs("bpld"),","))%></td>
</tr>
<tr>
<td align="right" nowrap class=td1><div align="left">备注</div></td>
<td colspan="5" class="td0"><%=HtmlOut(rs("bz"))%></td>
</tr>
</tbody>
</table>
</body>
</html>
<%'释放对象变量
rs.close
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -