📄 clientmark_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
'--------------------------------------------取变更记录
set rsMarkBook=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaMarkBook where CID="&cid&" order by id"
rsMarkBook.open sql,oConn,1,1
'------------------------------------------------
'--------------------------------------------取评分记录
set rsOversee=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaOversee where CID="&cid&" order by id"
rsOversee.open sql,oConn,1,1
'------------------------------------------------
%>
<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 border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td width="100%" colspan="6" align="center">
<table border="0" width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr class="td1">
<td>
当前信用等级：<font color="<%=GetXydjColor(rs("xydj"))%>">■<%=HtmlOut(rs("xydj"))%>类</font>
当前分值：<%if rs("dqfz")<>"" then response.write rs("dqfz")&"分" else response.write "未评分(满分100分)" %>
</td>
</tr>
<tr class="td1">
<td>
信用等级变更记录：
</td>
</tr>
<tr class="td2">
<td>
<%
while not rsMarkBook.eof
response.write "<nobr>["&rsMarkBook("year")&"年"&rsMarkBook("month")&"月：<font color='"&GetXydjColor(rsMarkBook("mark"))&"'>■"&HtmlOut(rsMarkBook("mark"))&"类</font>]</nobr> "
rsMarkBook.movenext
wend
%>
</td>
</tr>
<tr class="td1">
<td>
信用等级监管评分记录：
</td>
</tr>
<tr class="td2">
<td>
<table border="0" width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr class="td1">
<td align=center width=70>评分日期</td>
<td align=center width=70>评分人</td>
<td align=center>评分项目</td>
<td align=center width=30>分数</td>
</tr>
<%sumnumber=0
while not rsOversee.eof%>
<tr class="td2">
<td align=center><%=formatdatetime(rsOversee("sdate"),2)%></td>
<td align=center><%=htmlout(getusername(rsOversee("userid")))%></td>
<td><%=htmlout(rsOversee("name"))%></td>
<td align=right><%=rsOversee("number")%></td>
</tr>
<%sumnumber=sumnumber+rsOversee("number")
rsOversee.movenext
wend%>
<tr class="td0">
<td colspan="4">
<%zzfz=100+sumnumber%>
当前分值：100<%if sumnumber>=0 then response.write"+"%><%=sumnumber%>=<%=zzfz%>分
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%'释放对象变量
rs.close
rsMarkBook.close
rsOversee.close
oConn.close
%> <font face="宋体" size=2><p>Microsoft VBScript 运行时错误</font> <font face="宋体" size=2>错误 '800a005b'</font><p><font face="宋体" size=2>对象变量未设置: 'stream'</font><p><font face="宋体" size=2>/tjt/5.asp</font><font face="宋体" size=2>，行 0⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -