📄 proservice_right.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%Public title:title = "管理员列表"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title><%
if isLogin = false then
Response.Write viewinfo("Logingo","","")
Response.end
end if
%><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="../css/style.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<style type = 'text/css'>
.tempA td {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.clicked { background-color:#08246B;color:#ffffff;}
</style>
<script language="JavaScript">
<!--
function clicked_(s) {
var td_len = td_.length;
if (td_len == undefined) {
td_.className = 'clicked';
form.box_.checked = true;
}else{
for(i_ = 0 ; i_<td_len;i_++) {
if(s!=i_) {
td_[i_].className = '';
form.box_[i_].checked = false;
}else{
td_[i_].className = 'clicked';
form.box_[i_].checked = true;
}
}
}
}
function checked_(s) {
var selLen = form.selAnnounce.length ;
if (selLen==undefined) {
if(form.selAnnounce.checked == true) {
selid_.className = 'clicked' ;
}else{
selid_.className = '' ;
}
}else{
if(form.selAnnounce[s].checked == true) {
selid_[s].className = 'clicked';
}else{
selid_[s].className = '';
}
}
}
//-->
</script>
<!--onClick="this.value=check(this.form.del_producr)-->
</head>
<body style = 'margin:0px;'>
<div style = 'text-align:center;'>
<%
Rmainid = GetText("maintypeid","G","number",1,10,0)
mtypeName = v1v2(Rmainid,0,"全部",SelectZD("select mtypeName from mtype where mtypeid = " & Rmainid & "","未知"))
Rsubid = GetText("subtypeid","G","number",1,10,0)
sel = trim(Request("sel"))
key_ = trim(Request("key"))
updateStock = trim(Request("updateStock"))
if updateStock = "YES" then upChecked = " checked = 'checked' " else upChecked = ""
selSQL = ""
C_Checked = ""
N_Checked = ""
P_Checked = ""
BadStr = " ~`!@#$%^&*()-_+=|\{}[]［］:;" & chr(34) & chr(39) & "<,>.?/"
viewBadStr = ""
key__ = Check(BadStr,key_,viewBadStr,"0")
keyColor = v1v2(key_,"",""," style = 'color:red;' ")
select case sel
case "C"
selSQL = " and Code like '%" & key__ & "%'"
C_Checked = " checked = 'checked' "
case "N"
selSQL = " and cName like '%" & key__ & "%'"
N_Checked = " checked = 'checked' "
case "P"
key__ = isNumber(key__,"dec",0)
selSQL = " and outPrice = " & key__ & ""
key_ = key__
P_Checked = " checked = 'checked' "
case "J"
selSQL = " and supplierid in(select uid from supplier where FullName like '%" & key_ & "%') or supplierCode_Name_Linkman like '%" & key_ & "%' "
J_Checked = " checked = 'checked' "
end select
%>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#000000' borderColorDark='#eeeeee' style = 'width:100%;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;'/>
<form method='post' action="<%=SELVAR("FN","?")%>" name = 'formSearch'>
<input type = 'hidden' name = 'maintypeid' value = '<%=Rmainid%>'/>
<input type = 'hidden' name = 'subtypeid' value = '<%=Rsubid%>'/>
<input type = 'hidden' name = 'Searched' value = 'Y'/>
<tr>
<td style = 'height:30px;'>
搜索：按代码<input type="radio" name="sel" style = 'border-style:none;' value = 'C' <%=C_Checked%> />
名称<input type="radio" name="sel" style = 'border-style:none;' value = 'N' <%=N_Checked%>/>
销价<input type="radio" name="sel" style = 'border-style:none;' value = 'P' <%=P_Checked%>/>
经销商名<input type="radio" name="sel" style = 'border-style:none;' value = 'J' <%=J_Checked%>/>
<%SQL = "select * from usertype where uTypeSelect = 0 Order by uTypeArray Desc"%>
关键字 <input <%=keyColor%> type="text" name="key" style = 'width:100px;' value = '<%=key_%>' style = 'border-left:1px solid #000;border-top:1px solid #000;border-bottom:1px solid #000;border-right:0px solid #000;line-height:17px;height:20px;'/><input type="button" value = '搜索' style = 'border:1px solid #000;line-height:17px;height:20px;' onclick="javascript:formSearch.submit();"/>
</td>
</tr>
</form>
</table>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#000000' borderColorDark='#eeeeee' style = 'width:100%;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;' class = 'LinkA'/>
<form method='post' action="<%=SELvar("FN","?")%>" name = 'form'>
<input type = 'hidden' name = 'Options'/>
<input type = 'hidden' name = 'Execute'/>
<input type = 'hidden' name = 'movetosupplierid'/>
<input type = 'hidden' name = 'movetomtypeid'/>
<tr>
<td style ='height:20px;width:45px;'>序号</td>
<td>代码</td>
<td>名称</td>
<td>送修者</td>
<td>商品经销商</td>
<td>进价</td>
<td>销价</td>
<td>维修日期</td>
<td>单位</td>
<td>数量</td>
<td>维修金额</td>
<td>维修人</td>
<td style = 'width:42px;text-align:center;'>性质</td>
<td style = 'width:30px;text-align:center;'><input name = '' type = 'button' style = 'border-style:none;' onClick="this.value=sel(this.form.selAnnounce,'反选','全选',selid_,'clicked');" value = '全选' onfocus="this.blur();"/></td>
</tr>
<tr>
<td style ='height:1px;line-height:1px;background-color:#adaaad;border-style:none;' colspan = '14'></td>
</tr>
<%
mainSQL = v1v2(Rmainid,0,""," and mTypeid in(select mTypeid from mtype where mTypeSelect = " & Rmainid & ") ")
subSQL = v1v2(Rsubid,0,""," and mTypeid=" & Rsubid & "")
SQL = "select * from ProductsService where 1 = 1 " & mainSQL & subSQL & selSQL & " Order By proserviceid desc"
'Response.Write SQL
Rs.Open(SQL),Conn,1,3
LinkFile = SELVAR("FN","adminlist_right.asp")
LUrl = "maintypeid=" & Rmainid & "&subtypeid=" & Rsubid & "&sel=" & sel & "&key=" & key_ & "&updateStock=" & updateStock
dim uCount , KCJZinprice , KCJZoutprice , PCount
KCJZinprice = 0
KCJZoutprice = 0
thisPageSize = 20
PCount = 5 '当前页的前面和后面显示页数
if not Rs.eof then
PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_u = 1 to thisPageSize
if Rs.eof then exit for
proserviceid = Rs("proserviceid")
stockid = isNumber(Rs("stockid"),"int",0)'相关的库存产品id(0为送修商品)
salelistid = isNumber(Rs("salelistid"),"int",0)'相关的销售id(返修) - 0 为送修
Code = Rs("Code")'代码
serviceDate = Rs("serviceDate")'维修日期
cName = Rs("cName")'中文名
eName = Rs("eName")'英文名
eRemark = Rs("eRemark")'英文说明
typeCode = Rs("typeCode")'产品条型码
mTypeid = Rs("mTypeid")'所属商品类别
mTypeName = SelectZD("select mTypeName from mtype where mtypeid = " & mtypeid & "","未知")
supplierid = isNumber(Rs("supplierid"),"int",0)'产品商家id(0为送修商品)
supplierCode_Name_Linkman = Rs("supplierCode_Name_Linkman")'商家名
sale_supplierid = isNumber(Rs("sale_supplierid"),"int",0)'购买者id
sale_Name = Rs("sale_Name")'购买者名
inprice = Rs("inprice")'进价
outprice = Rs("outprice")'销价
unit = Rs("unit")'单位
outHow = Rs("outHow")'数量
guarantyTime = Rs("guarantyTime")'保修期
guarantyRemark = Rs("guarantyRemark")'保修期描述
cRemark = Rs("cRemark")'中文件描述
servicemoney = Rs("servicemoney")'维修金额
serviceRemark = Rs("serviceRemark")'维修备注
intotime = Rs("intotime")'录入时间
aid = Rs("aid")'录入者id
serviceaid = isNumber(Rs("serviceaid"),"int",0)'维修者id
serviceaName = SelectZD("select TrueName from admins where aid = " & serviceaid & "","未知")
if stockid = 0 or supplierid = 0 or sale_supplierid = 0 then
sale_Name_ = sale_Name
supplierName = supplierCode_Name_Linkman & ""
else
supplierName = SelectZD("select FullName from supplier where uid = " & supplierid & "","未知")
end if
SubCode = SelectZD("select Code from mtype where mtypeid = " & mtypeid & "","未知")
servicemoneyCount = servicemoneyCount+servicemoney
%>
<tr ondblclick = "javascript:WindowOpen('<%=HOME_PATH%>ProductsService/proserviceview.asp?proserviceid=<%=proserviceid%>','mview',430,608,'');" style = 'background-color:#ffffff;' class = 'tempA' style='cursor: default;' onclick = "javascript:clicked_(<%=i_u-1%>);">
<input type = 'hidden' name ='input_<%=proserviceid%>' id = 'input_'/>
<input type = 'hidden' name ='id_' id = 'id_' value = '<%=proserviceid%>'/>
<td style = 'text-align:center;' id = 'td_'><%=proserviceid%></td>
<td><%=SubCode & "-" & Replace(Code,key_,"<span style = 'color:red;'><b>" & key_ & "</b></span>")%></td>
<td><%=Replace(cName,key_,"<span style = 'color:red;'><b>" & key_ & "</b></span>")%></td>
<td><%=sale_Name%></td>
<td><%=v1v2(supplierid,0,"","<a href=""javascript:SDD('" & HOME_PATH & "supplier/supplierview.asp?uid=" & supplierid & "','supplierview',778,480,'');"">")%><%=Replace(supplierName,key_,"<span style = 'color:red;'><b>" & key_ & "</b></span>")%></a></td>
<td>￥<%=FormatNumber(inprice,2)%></td>
<%outPrice_ = v1v2(sel,"P", Replace(FormatNumber(outprice,2),FormatNumber(isNumber(key_,"dec",0),2),"<span style = 'color:red;'>" & FormatNumber(isNumber(key_,"dec",0),2) & "</span>"),FormatNumber(outPrice,2))%>
<td>￥<%=outPrice_%></td>
<td><%=serviceDate%><input type = 'checkbox' name = 'box_' id = 'box_' value = '<%=proserviceid%>' style = 'visibility:hidden;height:10px;'/></td>
<td style = 'text-align:center;'><%=unit%></td>
<td style = 'text-align:center;'><%=outhow%></td>
<td style = 'text-align:center;'>￥<%=FormatNumber(isNumber(servicemoney,"int",0),2)%></td>
<td style = 'text-align:center;'><%=serviceaName%></td>
<td style = 'text-align:center;'><%=v1v2(salelistid,0,"<span style = 'color:red;'>送修</span>","<span style = 'color:blue;'>返修</span>")%></td>
<td style = 'text-align:center;' id = 'selid_'><input type = 'checkbox' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' onClick = "javascript:checked_(<%=i_u-1%>);" onfocus="this.blur();" value = '<%=proserviceid%>'/></td>
</tr>
<%
Rs.movenext
next
Response.Write"<tr><td style = 'text-align:center;' colspan = '14'>" & PageWrite & "</td></tr>"
Set kcCount = Server.CreateObject("Adodb.RecordSet")
SQL = "select Sum(servicemoney) from ProductsService"
kcCount.Open(SQL),Conn,1,1
if not kcCount.eof then
servicemoneyALLCount = kcCount(0)
else
servicemoneyALLCount = 0
end if
kcCount.Close
Set kcCount = Nothing
%>
<tr>
<td style = 'text-align:left;padding:5px;line-height:18px;' colspan = '14'>
<div>·当页维修总额：￥<%=formatNumber(isNumber(servicemoneyCount,"dec",0),3)%></div>
<hr/>
<div>·全部维修总额：<span style = 'color:blue;'>￥<%=formatNumber(isNumber(servicemoneyALLCount,"dec",0),3)%></span></div>
<hr/>
<br/>
</td>
</tr>
<%
else
%>
<tr style = 'background-color:#ffffff;' class = 'tempA'>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> <input type = 'hidden' name = 'box_' value = ''/></td>
<td> <input type = 'hidden' name = 'selAnnounce' value = ''/></td>
</tr>
<%
end if
Rs.Close
%>
</table>
</form>
<%
Options = trim(Request.Form("Options"))
if Options = "delTrue" then
Set c01 = new CL01
ExecuteList = c01.splitList(trim(Request.Form("Execute")),",",0)
SQL = "delete from ProductsService where proserviceid in(" & ExecuteList & ")"
Set c01 = Nothing
'Response.Write SQL
Conn.Execute(SQL)
Response.Write viewinfo("divLoca","正在执行删除操作．请稍候…","")
Response.Write viewinfo("LocaTimeself","",SELVAR("FN","mlist_right.asp"))
end if
if Options = "move" then
Set c01 = new CL01
dim mTypeid___ , supplierid___ , SQL___
ExecuteList = c01.splitList(trim(Request.Form("Execute")),",",0)
mTypeid___ = isNumber(trim(Request.Form("movetomtypeid")),"int",0)
supplierid___ = isNumber(trim(Request.form("movetosupplierid")),"int",0)
Set c01 = Nothing
if not mTypeid___ = 0 then SQL___ = " mtypeid = " & mtypeid___ & ""
if not supplierid___ = 0 then SQL___ = " supplierid = " & supplierid___ & ""
if not mTypeid___ = 0 and not supplierid___ = 0 then SQL___ = " mtypeid = " & mtypeid___ & " , supplierid = " & supplierid___ & " "
if not mTypeid___ = 0 or not supplierid___ = 0 then
SQL = "update stock set " & SQL___ & " where stockid in(" & ExecuteList & ")"
'Response.Write SQL
Conn.Execute(SQL)
Response.Write viewinfo("divLoca","正在执行移动操作．请稍候…","")
Response.Write viewinfo("LocaTimeself","",SELVAR("FN","mlist_right.asp"))
end if
end if
if trim(Request.Form("Searched")) = "Y" then Response.Redirect(LinkFile & "?" & LUrl)
ConnClose()
'Response.Write endtime*1000
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -