📄 supplierview.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
if isLogin = false then
Response.Write viewinfo("LoginC","","")
Response.end
end if
uid = GetText("uid","G","number",1,10,0)
SQL = "select * from supplier where uid = " & uid & ""
set c01 = new CL01
c01.Supplierinfo
%>
<%Public title:title = "查看用户" & USLinkman%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<style>
html{min-width: 776px;}
fieldset {padding:3px;}
.tempF {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
</style>
<script type = 'text/javascript'>
<!--
rv = Array("returnValue","parent.right") ;
window.returnValue = rv[1] ;
//-->
</script>
<base target = '_self'>
</head>
<body style = 'border-style:none;margin:0px;background-color:buttonface;' onkeydown = "javascript:if(event.keyCode==116){window.location.reload();}">
<div style = 'text-align:center;'>
<table border = '0' style = 'width:100%;height:auto;' cellspacing = '0' cellpadding = '3'>
<tr>
<form method='post' action="<%=SELVAR("FN","?")%>" name = 'form'>
<input name = 'Options' type = 'hidden'/>
<td style = 'width:55%;vertical-align:top;'><table border = '0' style = 'width:100%;' cellspacing = '0' cellpadding = '0'>
<tr>
<%
SQL = "select identifyCode from usertype where uTypeid = (select uTypeSelect from usertype where uTypeid = " & USutypeid & ")"
identifyCode = isNumber(SelectZD(SQL,3),"int",0)
identifyCodeName = v1v2(identifyCode,0,"<span style = 'color:red;'>客户</span>","<span style = 'color:blue;'>商家</span>")
%>
<td style = 'text-align:center;'><fieldset>
<legend><%=identifyCodeName%></legend>
<table border = '0' width = '98%' cellspacing = '0' cellpadding = '1'>
<tr>
<td style = 'width:50px;'>代码</td>
<td><table border = '0' width = '100%' cellspacing = '0' cellpadding = '0'>
<tr>
<td><input type="text" name="Code" style = 'width:100%;' value = '<%=c01.HtmlF(USCode)%>'/></td>
<td style = 'width:45px;'> 简称 </td>
<td><input type="text" name="ForShort" style = 'width:100%;'value = '<%=c01.HtmlF(USForShort)%>'/></td>
<td style = 'width:55px;' > 助记码 </td>
<td><input type="text" name="HelpMarkCode" style = 'width:100%;' value = '<%=c01.HtmlF(USHelpMarkCode)%>'/></td>
</tr>
</table>
</td>
</tr>
<tr>
<td style = 'width:50px;'>全称</td>
<td><input type="text" name="FullName" style = 'width:100%;' value = '<%=c01.HtmlF(USFullName)%>'/>
</tr>
<tr>
<td>序号</td>
<td><input type="text" name="uid" style = 'width:50px;' value = '<%=USuid%>' readonly/> <%=now()%> <%=identifyCodeName%> </td>
</tr>
</table>
</fieldset></td>
</tr>
<tr><td style = 'height:5px;line-height:5px;'> </td></tr>
<tr>
<td style = 'text-align:center;'><fieldset>
<legend>联系</legend>
<table border = '0' width = '98%' cellspacing = '0' cellpadding = '1'>
<tr>
<td style = 'width:50px;'>联系人</td>
<input type = 'hidden' name = 'Linkman_' value = '<%=c01.HtmlF(USLinkman)%>'/>
<td><input type="text" name="Linkman" style = 'width:100%;'value = '<%=c01.HtmlF(USLinkman)%>' onKeyup = "javascript:if(form.Linkman.value!=form.Linkman_.value) {form.repetition.checked=true;}else{form.repetition.checked=false;}"/></td>
<td style = 'width:50px;'> 职位</td>
<td><input type="text" name="Place" style = 'width:100%;'value = '<%=c01.HtmlF(USPlace)%>'/></td>
</tr>
<tr>
<td style = 'width:50px;'>联系电话</td>
<td><input type="text" name="LinkPhone" style = 'width:100%;'value = '<%=c01.HtmlF(USLinkPhone)%>'/></td>
<td> 手机</td>
<td><input type="text" name="mobileTelehone" style = 'width:100%;'value = '<%=c01.HtmlF(USmobileTelehone)%>'/></td>
</tr>
<tr>
<td style = 'width:50px;'>fax</td>
<td><input type="text" name="fax" style = 'width:100%;'value = '<%=c01.HtmlF(USfax)%>'/></td>
<td> Email</td>
<td><input type="text" name="Email" style = 'width:100%;'value = '<%=c01.HtmlF(USEmail)%>'/></td>
</tr>
</table>
</fieldset></td>
</tr>
<tr><td style = 'height:5px;line-height:5px;'> </td></tr>
<tr>
<td style = 'text-align:center;'><fieldset>
<legend>其他</legend>
<table border = '0' width = '98%' cellspacing = '0' cellpadding = '1' style='table-layout:fixed; word-break:break-all;'>
<tr>
<td style = 'width:50px;'>欠款期限</td>
<td><input type="text" name="ArrearageTime" style = 'width:100%;'value = '<%=c01.HtmlF(USArrearageTime)%>'/></td>
<td style = 'width:50px;'>欠款限额</td>
<td><input type="text" name="ArrearageTether" style = 'width:100%;'value = '<%=c01.HtmlF(USArrearageTether)%>'/></td>
</tr>
<tr>
<td>银行帐号</td>
<td><input type="text" name="BankNumber" style = 'width:100%;'value = '<%=c01.HtmlF(USBankNumber)%>'/></td>
<td> 网址</td>
<td><input type="text" name="WebSite" style = 'width:100%;'value = '<%=c01.HtmlF(USWebSite)%>'/></td>
</tr>
<tr>
<td>经营范围</td>
<td colspan = '3'><input type="text" name="ScopeOfOperation" style = 'width:100%;'value = '<%=c01.HtmlF(USScopeOfOperation)%>'/></td>
</tr>
<tr>
<td>详细地址</td>
<td colspan = '3'><textarea name="Address" style = 'width:100%;height:50px;overflow-x:hidden;overflow-y:auto;'> <%=c01.HtmlF(USAddress)%></textarea></td>
</tr>
<tr>
<td>是否可用</td>
<td colspan = '3'>
<table border = '0' style = 'width:100%;' cellspacing = '0' cellpadding = '0'>
<tr>
<td style = 'width:60px;'>
<select style = 'width:50px;' name = 'disabled'>
<option value = '1' <%=v1v2(USdisabled,1," style = 'color:red;' selected = 'selected' ","")%>>可用</option>
<option value = '0' <%=v1v2(USdisabled,0," style = 'color:red;' selected = 'selected' ","")%>>禁用</option>
</select></td>
<td style = 'width:80px;text-align:right;' name = 'PriceType'>价格类型 </td>
<td><%=PriceTypeList("PriceType","",USPriceType)%></td>
<td style = 'width:80px;text-align:right;'>所属 </td>
<td style = 'text-align:right;width:100px;'>
<%SQL = "select * from usertype where uTypeSelect = 0"%>
<%Call usertypeSub(SQL,USutypeid,boxWidth,"uTypeSelect",uTypeALL)%>
</td>
</tr>
</table></td>
</tr>
</table>
</fieldset></td>
</tr>
<tr>
<td><input type="checkbox" name="repetition" value = 'YES' style = 'border-style:none;' />检查注册名是否重复</td>
</tr>
</table></td>
<td style = 'width:45%;height:100%;vertical-align:top;'>
<fieldset style = 'width:100%;height:354px;text-align:center;'>
<legend>备注</legend>
<table border = '0' style = 'width:100%;height:100%;' cellspacing = '0' cellpadding = '0'>
<tr>
<td style= 'vertical-align:top;'><textarea name="Remark" style = 'width:100%; height:98%;overflow-x:hidden;overflow-y:auto;'><%=c01.HtmlF(USRemark)%></textarea></td>
</tr>
</table>
</fieldset></td>
</tr>
<tr>
<td colspan = '2' style = 'text-align:center;'>
<%LengedTitle = v1v2(identifyCode,0," style = 'color:red;' value = '相关订购记录' "," style = 'color:blue;' value = '相关进货记录' ")%>
<%
prve_ = SelectZD("Select uid from supplier where uid > " & USuid & " Order by uid",0)
next_ = SelectZD("Select uid from supplier where uid < " & USuid & " Order by uid Desc",0)
%><input type="submit" value = ' 修改 ' onclick = "javascript:form.Options.value = 'Update';if(form.uTypeSelect.value==''){alert('请选择好注册子类！');form.uTypeSelect.focus();return false;}"/><input type="reset" value = ' 重置 '/><input type="button" value = ' 关闭 ' onclick = "javascript:window.close();"/><input type = 'button' <%=LengedTitle%> onclick = "javascript:SDD('ssList.asp?uid=<%=uid%>','mxss',800,520,'');" style = 'width:88px;'/><%'=v1v2(identifyCode,0,"<input type = 'button' value = '收款' onclick = ""javascript:SDD('payment.asp?identifyCode=0&uid=" & uid & "','payment',380,380,'');"" style = 'color:blue;'>","<input type = 'button' value = '付款' onclick = ""javascript:SDD('payment.asp?identifyCode=1&uid=" & uid & "','payment',380,380,'');"" style = 'color:red;'>")%><%=v1v2(prve_,0,"<input type='button' value = '上一个' disabled = 'true'/>","<input type='button' value = '上一个' onclick=""javascript:form.uid.value='" & prve_ & "';form.submit();"" />")%><%=v1v2(next_,0,"<input type='button' value = '下一个' disabled = 'true'/>","<input type='button' value = '下一个' onclick=""javascript:form.uid.value='" & next_ & "';form.submit();"" />")%>
</td>
</tr>
</form>
</table>
<%
Options = trim(Request.Form("Options"))
if Options = "Update" then
utypeid_ = GetText("uTypeSelect","P","number",1,10,0)'
utypeid_ = SelectZD("select utypeid from usertype where utypeid = " & utypeid_ & "",0)
if utypeid_ = 0 then
Response.Write viewinfo("alertBack","请选好注册子类别！","")
Response.end
end if
Linkman = Replace(GetText("Linkman","P","Str",1,110,""),"'","")
if trim(Request.Form("repetition")) = "YES" then
if not Conn.Execute("select Linkman from supplier where Linkman = '" & Linkman & "'").eof then
Response.Write viewinfo("alertBack","已经存在（" & Linkman & "）这个用户了！请起另一个用户名","")
Response.end
end if
end if
SQL = "select * from supplier where uid = " & USuid & ""
Rs.Open(SQL),Conn,1,3
Rs("Code") = htmlencode(GetText("Code","P","Str",1,110,"none"),"Y")'代码
Rs("ForShort") = htmlencode(GetText("ForShort","P","Str",1,110,"none"),"Y")'简称
Rs("HelpMarkCode") = htmlencode(GetText("HelpMarkCode","P","Str",1,100,"none"),"Y")'助记码
Rs("FullName") = htmlencode(GetText("FullName","P","Str",1,250,"none"),"Y")'全称
Rs("Linkman") = htmlencode(Linkman,"Y")'联系人
Rs("Place") = htmlencode(GetText("Place","P","Str",1,250,"none"),"Y")'职位
Rs("LinkPhone") = htmlencode(GetText("LinkPhone","P","Str",1,250,"none"),"Y")'联系电话
Rs("mobileTelehone") = htmlencode(GetText("mobileTelehone","P","Str",1,250,"none"),"Y")'
Rs("fax") = htmlencode(GetText("fax","P","Str",1,250,"none"),"Y")'fax
Rs("Email") = htmlencode(GetText("Email","P","Str",1,250,"none"),"Y")'Email
Rs("ArrearageTime") = GetText("ArrearageTime","P","number",1,10,0)'
Rs("ArrearageTether") = GetText("ArrearageTether","P","number",1,10,0)'欠款限额
Rs("BankNumber") = htmlencode(GetText("BankNumber","P","Str",1,250,"none"),"Y")'银行帐号
Rs("WebSite") = htmlencode(GetText("WebSite","P","Str",1,250,"none"),"Y")'
Rs("ScopeOfOperation") = htmlencode(GetText("ScopeOfOperation","P","Str",1,250,"none"),"Y")'经营范围
Rs("Address") = htmlencode(GetText("Address","P","Str",1,250,"none"),"Y")'详细地址
Rs("disabled") = GetText("disabled","P","number",1,10,0)'是否可用
Rs("PriceType") = GetText("PriceType","P","number",1,10,0)'价格类型
Rs("utypeid") = utypeid_
if isNull(USregtime) then Rs("regtime") = now
Rs("lasttime") = now
Rs("Remark") = htmlencode(GetText("Remark","P","Str",1,2000,"none"),"Y")'备注
Rs.update
Rs.Close
'Response.Write viewinfo("alertBack","修改成功！",SELVAR("FN","") & "?uid=" & uid)
Response.Redirect SELVAR("FN","") & "?uid=" & uid
end if
ConnClose()
Set c01 = nothing
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -