📄 d_xymainfrm.asp
字号:
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="left">
<p align="center">
信用额度(万元)</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if rs.Fields("credit")<>"" then%>
<%aa=eval(rs.Fields("credit"))/10000%>
<%else%>
<%aa=0%>
<%end if%>
<input type="text" name="m_credit" size=20 readonly style="background-color: #edefef" value=<%=aa%> ></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="left">
<p align="center">
信用开始时间</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_begintime" readonly size=20 style="background-color: #edefef" value=<%=rs.Fields("begintime")%> > </td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="left">
<p align="center">
信用截止时间</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" readonly size=20 style="background-color: #edefef" value=<%=rs.Fields("endtime")%> ></td>
</tr>
</table></center>
<p align="left">
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_type" value=<%=Request("par_type")%>>
<input type="hidden" name="par_level" value=<%=Request("par_level")%>>
<input type="hidden" name="par_name" value=<%=request("par_name")%>>
<input type="hidden" name="m_clientnum" value=<%=m_clientnum%>>
<input type="hidden" name="index" value=<%=request("index")%>>
<%'<input type="submit" name="B1" value="编辑">%>
<font
size="2"> <a href="javascript:edit1()">编辑</a> <%tem="Lookup"%>
<%if request("index")="true" then%>
<a href="D_khindexsubFrm.asp?lookup=<%=tem%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=m_clientnum%>" target="_parent">返回</a>
<%else%>
<a href="D_khsubFrm.asp?lookup=<%=tem%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=m_clientnum%>" target="_self">返回</a>
</font>
<%end if%>
</form>
<%Response.End %>
<%end if%>
<%end if%>
<%if Request("tag")=3 then%><%''''''''''保存后%>
<%m_clientnum=Request("par_clientnum")%>
<%set rs=server.CreateObject("adodb.recordset")%>
<%rs.Open "select * from D_clientinfo where clientnum='"& m_clientnum &"'",pubconn,1,3%>
<%if rs.RecordCount<=0 then %>
<center><font size="2">保存出错！</font></center>
<%else%>
<form name="form1" method="post" action="D_xymainFrm.asp?tag=1">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">客户信用授权</font></b><hr width="40%" align="left" size="1"></td>
</tr>
</table>
<center>
<table border=1 cellspacing=0 width="50%">
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="center">
客 户 名 称</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" ><input type="text" name="m_clientnum1" size=20 readonly style="background-color: #edefef" value="<%=rs.Fields("clientname")%>" ></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="center">
信用额度(万元)</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if rs.Fields("credit")<>"" then%>
<%aa=eval(rs.Fields("credit"))/10000%>
<%else%>
<%aa=0%>
<%end if%>
<input type="text" name="m_credit" size=20 readonly style="background-color: #edefef" value=<%=aa%>></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="center">
信用开始时间</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_begintime" size=20 readonly style="background-color: #edefef" value=<%=rs.Fields("begintime")%>></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="center">
信用截止时间</p>
</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" size=20 readonly style="background-color: #edefef" value=<%=rs.Fields("endtime")%>></td>
</tr>
</table></center>
<p align="left">
<input type="hidden" name="page1" value=<%=Request("page1")%>> <input type="hidden" name="par_type" value=<%=Request("par_type")%>>
<input type="hidden" name="par_level" value=<%=Request("par_levle")%>> <input type="hidden" name="index" value=<%=request("index")%>>
<input type="hidden" name="m_clientnum" value=<%=m_clientnum%>> <%'<input type="button" name="B1" value="保存" onclick="datacheck()"> %>
<%tem="Lookup"%>
<%if request("index")="true" then%>
<font size="2"> <a href="D_khindexsubFrm.asp?lookup=<%=tem%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=m_clientnum%>" target="_parent">返回</a>
<%else%>
<a href="D_khsubFrm.asp?lookup=<%=tem%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=m_clientnum%>" target="_self">返回</a>
</font>
<%end if%>
</form>
<%Response.End %>
<%end if%>
<%end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -