📄 markoverseemodi.asp
字号:
<%
'==============================================================
'OA 表单生成器
'版本: 1.1.0 -- 2005-5-24
'程序版权：(c) 2004 by 展亮
'说明：本代码为自由代码，用户可以自由使用，但请保留作者文件头部说明
' 在使用过程中如出现什么问题请及时与作者联系。
' 电子邮件：zlbox@yeah.net QQ:2343397
'=============================================================
'功能：添加/编辑工商户
'参数： request.form("addedit_subed")="true"#表单提交; request("id")#要编辑记录的ID;
'=============================================================
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../inc/ronger.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
cid=request("cid"):if cid="" then cid=0 '客户ID
pid=request("id"):if pid="" then pid=0 '记录ID
'------------------------------------------------
'------------------------------------------------添加/修改记录
table="tbioaOversee" '表名
if request.form("addedit_subed")="true" then
'表单提交后
if pid=0 then
call insert(table,false)
response.write "<script>alert('工商户录入成功！');history.back()</script>"
else
call update(table,"id",pid,false)
response.write "<script>alert('工商户信用等级修改成功！');history.go(-2)</script>"
end if
zzfz=100+oConn.Execute("select sum(number) from tbioaOversee where cid="&cid)(0)
if zzfz>=90 then
zzxydj="A"
elseif zzfz>=75 then
zzxydj="B"
elseif zzfz>=60 then
zzxydj="C"
else
zzxydj="D"
end if
oConn.Execute("update tbioaClientBase set xydj='"&zzxydj&"',dqfz="&zzfz&" where id="&cid)
'记录信用等级
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaMarkBook where cid="&cid&" and year="&year(date)&" and month="&month(date)
rs.open sql,oConn,1,3
if rs.eof then rs.addnew
rs("cid")=cid
rs("year")=year(date)
rs("month")=month(date)
rs("mark")=zzxydj
rs.update
rs.close
set rs=nothing
response.end
end if
'--------------------------------------------取记录
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaClientBase where ID="&cid
rs.open sql,oConn,1,1
'------------------------------------------------
function showvalue(field)
if rs.eof then
showvalue=""
else
if (isnull(rs(field))) then showvalue="" else showvalue=Server.HTMLEncode(rs(field))
end if
end function
'--------------------------------------------取评分记录
set rsOversee=Server.CreateObject("ADODB.RecordSet")
sql="select * from "&table&" 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>main</title>
<script src="../js/Popup.js"></script>
<script src="../js/formatdate.js"></script>
<script src="../js/front_chec.js"></script>
</head>
<body topmargin="10" leftmargin="10">
<table border=0 cellspacing="0" cellpadding="0">
<tr>
<td><img border="0" src="../images/icon_menu.gif" align="left">工商户分类监管 </td>
</tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<div align="center">
<table cellspacing="1" cellpadding="2" class="tab">
<tr>
<td width="100%" class="tdTop">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="tdTop">
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">工商户评分</p>
</td>
<td width="90" class="tdTop">
<p align="left"><img border="0" src="../images/icon_return.gif" align="left">
<a href="javascript:history.back()" class="linkTop">返回列表</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" class="td1">
<form name="eventfrm" method="POST" action="?id=<%=pid%>" onSubmit="return checknull(this)">
<input type=hidden name="addedit_subed" value="true">
<input type=hidden name="userid" value="<%=LoginID%>">
<input type=hidden name="cid" value="<%=cid%>">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="td3">
<td width="60" align="right" valign="top" nowrap>注册号：</td>
<td nowrap><%=showvalue("zch")%></td>
<td width="100" align="right" valign="top" nowrap>字号名称：</td>
<td nowrap><%=showvalue("zhmc")%></td>
<td width="100" align="right" valign="top" nowrap>负责人：</td>
<td nowrap><%=showvalue("fzr")%></td>
</tr>
<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="td2">
<td nowrap>
评分项目：<input type="text" name="name" size=64 maxLength=100 class="button" check_null="请填写评分项目！">
分值：<input type="text" name="number" size=3 maxLength=3 class="button" check_null="请填写评分分数！" check_number="评分分数必须为数字！">
<input type="submit" value="添加" class="button0" onmouseout=className="button0" onmouseover=className="button1">
</td>
</tr>
<tr class="td2">
<td>
<select onchange="if(this.value!=''){this.form.name.value=this.item(this.selectedIndex).innerText ; this.form.number.value=this.value;}else{this.form.name.value=''; this.form.number.value='';}">
<option value="">选择评分项目</option>
<%OptionMarkSet%>
</select>
</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>
</form>
</td>
</tr>
<tr>
<td width="25%" class="tdBottom">
</td>
</tr>
</table>
</div>
</body>
</html>
<%'释放对象变量
rs.close
rsOversee.close
oConn.close
set oConn=nothing
'-----------------------------------
Function OptionMarkSet()
'下拉菜单(表名,字段名,选中字段值)-----------------------
dim Rstmp,strSql
set Rstmp=server.createobject("adodb.recordset")
strSql = "select * from tbioaMarkSet order by orderid"
Rstmp.open strSql,oConn,1,1
while not Rstmp.eof
response.write "<option value="&Rstmp("number")&">"&server.htmlencode(trim(Rstmp("name"))) & vbcrlf
Rstmp.MoveNext
wend
Rstmp.close
set Rstmp=nothing
End Function
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -