📄 screech.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="Cls_ShowoPage.asp"-->
<!--#include file="sub.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css.css" rel="stylesheet" type="text/css">
<title>配件查找</title>
<style type="text/css">
<!--
.aa{ filter: alpha(opacity=50)}
.bb{
background-color:#ffffff;
color:#000000;
}
-->
</style>
</head>
<body>
<%
'On Error Resume Next
dim zID,changeid,add,del,zpjxshl
del=request.querystring("del")
if del >"" then RemoveItem del
zID=request.QueryString("zid")
changeid=request.QueryString("changeid")
zpjxshl=request.QueryString("zpjxshl")
add=request.QueryString("add")
'response.Write(zpjxshl&changeid)
if changeid>"" and zpjxshl>"" then
UpdateItem changeid,zpjxshl
end if
if add="y" then
'response.Write(zID&zmz&zlx&zshj&zxshl&zzshl)
AddItem zID,0
end if%>
<div style="display:none">
<div align="center" id="cart">
<%
page=request.QueryString("Page")
if page="" then page=1
mudCart=Session("Cart")
IF isArray(mudCart) THEN
dim mdu(14)%>
<table width="100%" border="1" cellspacing="0" bordercolor="#FFFFFF" style="border-top:0px;">
<tr>
<td nowrap="nowrap"><DIV align=center>配件名字</DIV></td>
<td nowrap="nowrap"><DIV align=center>配件类型</DIV></td>
<td nowrap="nowrap"><DIV align=center>配件售价</DIV></td>
<td nowrap="nowrap"><DIV align=center>配件数量</DIV></td>
<td nowrap="nowrap"><DIV align=center>配件总价</DIV></td>
<td nowrap="nowrap"><DIV align=center><a href="xsh.asp?del=all">全部删除</a></DIV></td>
</tr>
<%'response.Write("adsfi")
dim mudid,sql,pjnum
pjnum=0
FOR i = LBound(mudCart) TO UBound(mudCart)
IF mudCart(i,0) <> "" THEN
mudid=mudid&mudCart(i,0)&","
'response.Write(mudcart(i,0)&"-")
'response.Write(mudcart(i,1)&"<br>")
END IF
NEXT
'mudid=left(mudid,len(mudid)-1)
'response.Write(Err.Number)
'response.write(mudid&"<br>")
'response.Write(mudcart(0,1)&"<br>")
'response.End()
sql="select homeid,pjname,lxname,pjshj,pjshl from [pjmain] where homeid in ("&mudid&")"
Set rs=Server.CreateObject( "ADODB.Recordset")
rs.open sql,conn,0,1,&h0001
while rs.eof=false
%>
<tr>
<td nowrap="nowrap"> <%=rs(1)%> </td>
<td nowrap="nowrap"> <%=rs(2)%> </td>
<td nowrap="nowrap"><%=rs(3)%>元</td>
<td nowrap="nowrap"><select name="xshl<%=rs(0)%>" onChange="lmy_chage('listpj','changeid=<%=rs(0)%>',this)" >
<%dim pos,thiszj
for i = LBound(mudCart) TO Ubound(mudCart)
if clng(mudCart(i,0))=clng(rs(0)) then
pos=mudCart(i,1)
if pos>0 then pjnum=pjnum+1
mdu(i)=pos*rs(3)
thiszj=mdu(i)
response.write("<option value='"&pos&"'>"&pos&"</option>")
exit for
end if
next
for i=0 to rs(4)
if clng(pos)<>i then response.write("<option value='"&i&"'>"&i&"</option>")
next
%>
</select></td>
<td nowrap="nowrap"><%
if thiszj>0 then
response.write(thiszj)
else
response.write("<font color='#FF0000'>0</font>")
end if
'response.write(pos&"<br>")%>元</td>
<td nowrap="nowrap"><DIV align=center><a href="screech.asp?del=<%=rs(0)%>&Page=<%=page%>" target="listpj">删除</a></DIV></td>
</tr>
<%
rs.movenext
wend
rs.close
thiszj=0
for i=0 to 14
if mdu(i)<>0 or mdu(i)<>"" then thiszj=thiszj+mdu(i)
next%>
<tr bordercolor="#CCCCCC" height="10px"><td colspan="6"></td></tr>
<form name="formx" method="post" action="">
<tr bordercolor="#CCCCCC">
<td>有效配件：<font color='#FF0000'><%=pjnum%></font></td>
<td colspan="2" align="right">
<select name="select" onChange="tjuser(this)">
<%sql="select userid,ausername from [user] where gm=true"
rs.open sql,conn,,,&h0001
response.write("<option value='no'>请选择购买用户</option>")
while rs.eof=false
response.write("<option value='"&rs(0)&"'>"&rs(1)&"</option>")
rs.movenext
wend
rs.close
set rs=nothing
response.write("<option value=0>添加购买用户</option>")%>
</select>
</td>
<td align="right">实收：</td>
<td><input name="zj" type="text" value="<%=thiszj%>" size="8" style="BORDER-BOTTOM: #FFFFFF 1px double; BORDER-LEFT: 1px; BORDER-RIGHT: 0px; BACKGROUND: #efefef COLOR: #000000; FONT-SIZE: 9pt"></td>
<td align="center"><input type="submit" value="确认售出"></td>
</tr>
</form>
</table>
<%else
response.Write("<table><tr><td nowrap>没有欲售配件！</td></tr></table>")
end if%>
</div>
</div>
<script language="javascript">
<!--
parent.document.all("textSheet").innerHTML=document.all("cart").innerHTML;
parent.document.all("page").value=<%=page%>;
-->
</script>
<table width="95%" cellpadding="0" cellspacing="0" border="1" bordercolor="#89A4FE" align="center">
<tr bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC" bgColor="#DFEFFF" height="22px" style="font-size:14px">
<td width="8%" nowrap><div align="center">配件类型</div></td>
<td width="12%" nowrap><div align="center">配件名称</div></td>
<td width="8%" nowrap><div align="center">配件售价</div></td>
<td width="8%" nowrap><div align="center">配件数量</div></td>
<td width="55%"><div align="center">备 注</div></td>
<td width="9%" nowrap><div align="center">放到存货车</div></td>
</tr>
<%
'On Error Resume Next
Dim ors,pjtype,pjname
if request.form("pjtype")>0 then
pjtype="lxid="&request.form("pjtype")&" and pjshl>0"
if request.form("pjname")>"" and request.form("pjname")<>"配件名称" then pjname=" and pjname like '%"&request.form("pjname")&"%'"
else
if request.form("pjname")>"" and request.form("pjname")<>"配件名称" then pjname="pjname like '%"&request.form("pjname")&"%' and pjshl>0"
end if
if request.form("pjtype")>0 or(request.form("pjname")>"" and request.form("pjname")<>"配件名称") then
session("where")=pjtype&pjname
end if
'response.Write(session("where"))
Set ors=new Cls_ShowoPage '创建对象
With ors
.Conn=conn '得到数据库连接对象
.DbType="AC"
'数据库类型,AC为access,MSSQL为sqlserver2000,MSSQL_SP为存储过程版,MYSQL为mysql,PGSQL为PostGreSql
.RecType=0
'取记录总数方法(0执行count,1自写sql语句取,2固定值)
.RecSql=0
'如果RecType＝1则=取记录sql语句，如果是2=数值，等于0=""
.RecTerm=2
'取从记录条件是否有变化(0无变化,1有变化,2不设置cookies也就是及时统计，适用于搜索时候)
.CookieName="recac" '如果RecTerm＝2,cookiesname="",否则写cookiesname
.Order=0 '排序(0顺序1降序),注意要和下面sql里面主键ID的排序对应
.PageSize=15 '每页记录条数
.JsUrl="" 'showo_page.js的路径
.Sql="homeid,lxname,pjname,pjshj,pjshl,pjbz$pjmain$"&session("where")&"$$homeid" '字段,表,条件(不需要where),排序(不需要需要ORDER BY),主键ID
End With
iRecCount=ors.RecCount()'记录总数
iRs=ors.ResultSet() '返回ResultSet
If iRecCount<1 Then%>
<tr bgcolor="">
<td >暂无记录</td>
</tr>
<%
Else
For i=0 To Ubound(iRs,2)
%>
<form name="form<%=i%>" method="get" action="screech.asp">
<tr onMouseOver="this.className='bb'" onMouseOut="this.className='aa'" >
<input name="Page" id="Page" type="hidden" value=<%=page%>>
<input name="zid" type="hidden" value=<%=iRs(0,i)%>>
<input name="add" type="hidden" value="y">
<td nowrap><div align="center"> <%=iRs(1,i)%> </div></td>
<td nowrap><div align="center"> <%=iRs(2,i)%> </div></td>
<td nowrap><div align="center"> <%=iRs(3,i)%> </div></td>
<td nowrap><div align="center"> <%=iRs(4,i)%> </div></td>
<td> <%=iRs(5,i)%></td>
<td nowrap bgcolor="#9EBEF5"><div align="center"><input type='submit' name='Submit' style=" background-color:#DFEFFF;bordercolorlight:#CCCCCC" value=' 欲 卖 '></div></td>
</tr>
</form>
<%
Next
End If
%>
</table>
<table width="95%" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td>
<%ors.ShowPage()%>
</td>
</tr>
</table>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>
</body>
</html>
<script language="javascript" defer>
//var sPath=location.search;
//sPath=sPath.indexOf("del=");
//if (sPath!=-1) eval("location='screech.asp?Page=<%=page%>'");
//alert(location.search);
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -