📄 d_salexymainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<HTML>
<head>
<link href="../cread.css" rel="stylesheet" type="text/css">
<%if Request.ServerVariables("REQUEST_METHOD")="POST" and request("tag")=1 then'''''''保存信用额度
m_clientnum=trim(Request("m_clientnum"))
m_credit=trim(Request("m_credit"))
m_begintime=trim(Request("m_begintime"))
if m_begintime<>"" then
m_begintime=m_begintime&"-"&trim(Request("m_beginmonth"))&"-"&trim(Request("m_beginday"))
else
m_begintime=""
end if
m_endtime=trim(Request("m_endtime"))
if m_endtime<>"" then
m_endtime=m_endtime&"-"&trim(Request("m_endmonth"))&"-"&trim(Request("m_endday"))
else
m_endtime=""
end if
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from D_clientinfo where clientnum='"& m_clientnum &"'",pubconn,1,3
if rs1.RecordCount>0 then
rs1.MoveFirst
rs1.Fields("credit")=m_credit
rs1.Fields("begintime")=m_begintime
rs1.Fields("endtime")=m_endtime
rs1.Update
rs1.Close
else
rs1.AddNew
rs1.Fields("clientnum")=m_clientnum
rs1.Fields("credit")=m_credit
rs1.Fields("begintime")=m_begintime
rs1.Fields("endtime")=m_endtime
rs1.Update
rs1.Close
end if%>
<form name=form4>
<input type="hidden" name="page1" value=<%=request("page1")%>>
<input type="hidden" name="par_name" value=<%=request("par_name")%>>
<input type="hidden" name="par_clientnum" value=<%=request("m_clientnum")%>>
<input type="hidden" name="par_level" value=<%=request("par_level")%>>
</form>
<script language="vbscript">
window.location="D_SalexymainFrm.asp?tag=3&page1="&document.form4.page1.value&"&par_name="&document.form4.par_name.value&"&par_level="&document.form4.par_level.value&"&par_clientnum="&document.form4.par_clientnum.value&""
</script>
<%'Response.Redirect "D_SalexymainFrm.asp?tag=3&page1="&Request("page1")&"&par_name="&trim(Request("par_name"))&"&par_level="&trim(Request("par_level"))&"&par_clientnum="&trim(Request("m_clientnum"))&""
Response.End()
end if%>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
</head>
<BODY bgcolor="#FFFFFF">
<script language="vbscript">
function datacheck()
if len(document.form1.m_begintime.value)<>4 then
msgbox "信用开始年输入非法！",,"提示"
exit function
end if
if trim(document.form1.m_endtime.value)<>"" then
if len(document.form1.m_endtime.value)<>4 then
msgbox "信用截止年输入非法！",,"提示"
exit function
end if
end if
if document.form1.m_credit.value<>"" then
if not isnumeric(document.form1.m_credit.value) then
msgbox "信用额度输入非法!"
exit function
end if
end if
if not isnumeric(document.form1.m_begintime.value) or len(document.form1.m_begintime.value)<>4 then
msgbox "信用开始时间输入非法！",,"提示"
exit function
end if
if not isnumeric(document.form1.m_endtime.value) or len(document.form1.m_endtime.value)<>4 then
msgbox "信用截止时间输入非法！"
exit function
end if
document.form1.submit()
end function
</script>
<script language="vbscript">
function edit1()
document.form1.submit()
end function
</script>
<%if Request("tag")=5 then%><%'''''''''''编辑窗体'''''''%>
<%m_clientnum=Request("m_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=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=23 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=23 value=<%=rs.Fields("credit")%>></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信用开始时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if left(rs.Fields("begintime"),4)<>"" then%>
<input type="text" name="m_begintime" size=5 value=<%=left(rs.Fields("begintime"),4)%>>年
<%else%>
<input type="text" name="m_begintime" size=5 value=<%=year(now())%>>年
<%end if%>
<select name="m_beginmonth">
<%if right(left(rs.fields("begintime"),7),2)<>"" then%>
<option value=<%=right(left(rs.fields("begintime"),7),2)%>><%=right(left(rs.fields("begintime"),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_beginDay">
<%if right(rs.fields("begintime"),2)<>"" then%>
<option value=<%=right(rs.fields("begintime"),2)%>><%=right(rs.fields("begintime"),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>日
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -