📄 d_salexymainfrm.asp
字号:
</td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用截止时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if left(rs.Fields("endtime"),4)<>"" then%>
<input type="text" name="m_endtime" size=5 value=<%=left(rs.Fields("endtime"),4)%>>年
<%else%>
<input type="text" name="m_endtime" size=5 value=<%=year(now())%>>年
<%end if%>
<select name="m_endmonth">
<%if right(left(rs.fields("endtime"),7),2)<>"" then%>
<option value=<%=right(left(rs.fields("endtime"),7),2)%>><%=right(left(rs.fields("endtime"),7),2)%> <%end if%> <%for i=1 to 9%>
<option value="0<%=i%>">0<%=i%> <%next%>
<option value="10">10
<option value="11">11
<option value="12">12
</select>月
<select name="m_endDay">
<%if right(rs.fields("endtime"),2)<>"" then%>
<option value=<%=right(rs.fields("endtime"),2)%>><%=right(rs.fields("endtime"),2)%>
<%end if%>
<%for i=1 to 9%>
<option value="0<%=i%>">0<%=i%>
<%next%>
<%for i=10 to 31 %>
<option value=<%=i%>><%=i%>
<%next%>
</select>日
</td>
</tr>
</table></center><br>
<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%>>
<center><%'<input type="button" name="B1" value="保存" onclick="datacheck()">%>
<font size="2">
<a href="javascript:datacheck()">保存</a>
<%tem="Lookup"%>
<a href="D_SalekhsubFrm.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%>">返回</a></font></center>
</form>
<%Response.End %>
<%end if%> <%''''记录%>
<%end if%><%''编辑窗体完'''''''''%>
<%if request("tag")=2 then%><%'''''''''''''''第一次装载%>
<%m_clientnum=Request("par_clientnum")%> <%''传递给编辑窗体%>
<%set rs=server.CreateObject("adodb.recordset")%>
<%if rs.State=1 then rs.Close%>
<%rs.Open "select * from D_clientinfo where clientnum='"& m_clientnum &"'",pubconn,1,3%>
<%if rs.RecordCount<=0 then %>
<br><br><br><br><br><center><font size="2">提示:没有该客户</font></center>
<%else%>
<form name="form1" method="post" action="D_SalexymainFrm.asp?tag=5">
<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>
<br><br><br><br><br>
<center><table border=1 cellspacing=0 width="50%">
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">经销商姓名</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" ><input type="text" name="m_clientnum1" size=20 readonly value=<%=rs.Fields("clientname")%> ></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用额度(万元)</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_credit" size=20 readonly value=<%=rs.Fields("credit")%>></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用开始时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_begintime" size=20 value=<%=rs.Fields("begintime")%>> </td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用截止时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" size=20 value=<%=rs.Fields("endtime")%>></td>
</tr>
</table></center><br>
<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%>>
<center><%'<input type="submit" name="B1" value="编辑">%>
<font size="2">
<a href="javascript:edit1()">编辑</a>
<%tem="Lookup"%>
<a href="D_SalekhsubFrm.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%>">返回</a></font></center>
</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 %>
<br><br><br><br><br><center><font size="2">提示:保存出错！</font></center>
<%else%>
<form name="form1" method="post" action="D_SalexymainFrm.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>
<br><br><br><br><br>
<center>
<table border=1 cellspacing=0 width="50%">
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">经销商姓名</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" ><input type="text" name="m_clientnum1" size=20 readonly value=<%=rs.Fields("clientname")%> ></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用额度(万元)</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_credit" size=20 value=<%=rs.Fields("credit")%>></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用开始时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_begintime" size=20 value=<%=rs.Fields("begintime")%>></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用截止时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" size=20 value=<%=rs.Fields("endtime")%>></td>
</tr>
</table></center><br>
<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="m_clientnum" value=<%=m_clientnum%>>
<center><%'<input type="button" name="B1" value="保存" onclick="datacheck()"> %>
<font size="2">
<%tem="Lookup"%>
<a href="D_SalekhsubFrm.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%>">返回</a></font></center>
</form>
<%Response.End %>
<%end if%>
<%end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -