📄 sub.asp
字号:
<% '清除记忆post地址
sub urlout()
if session("url")>"" then
session("url")=""
session.Contents.Remove(session("url"))
response.Write(session("url"))
end if
end sub
'记忆post地址
sub urlin()
if session("url")="" then session("url")=request.servervariables("HTTP_REFERER")
end sub
sub lr()
set rs=server.CreateObject("ADODB.Recordset")
if homeid > "" then
sql="select jh.jhid, jh.homeid, jh.jhdj, jh.jhshl, jh.jhtime, jh.jhbz, home.pjshj, home.pjbz from home INNER JOIN jh ON home.homeid = jh.homeid where jh.homeid="&homeid&" order by jh.jhshl"
rs.open sql,conn,1,2
dim savetype
if rs("jhshl")=0 then
savetype="update"
else
do
if rs.eof=true then
rs.MovePrevious
exit do
end if
if rs("jhdj")=jhdj then
savetype="update"
exit do
end if
rs.movenext
loop
end if
if pjbz>"" and (pjbz<>rs("pjbz") or isnull(rs("pjbz"))) then rs("pjbz")=pjbz
rs("pjshj")=pjshj
if savetype="update" then
'response.Write("good") else response.Write("bad")
rs("jhdj")=jhdj
if rs("jhshl")>0 then rs("jhbz")="其中上一次还剩："&rs("jhshl")&"个"
rs("jhshl")=jhshl+rs("jhshl")
rs("jhtime")=Year(Now())&"-"&Month(Now())&"-"&Day(Now())
else
rs.addnew
rs("homeid")=homeid
rs("jhdj")=jhdj
rs("jhshl")=jhshl
end if
else
sql="select top 1 home.homeid as lid, jh.homeid as wid, jh.jhdj, jh.jhshl, jh.jhtime, jh.jhbz, home.pjname, home.pjlx, home.pjshj, home.pjbz from home INNER JOIN jh ON home.homeid = jh.homeid"
rs.open sql,conn,0,2
rs.addnew
rs("pjname")=pjname
rs("pjlx")=pjtype
rs("pjshj")=pjshj
if pjbz>"" then rs("pjbz")=pjbz
rs("wid")=rs("lid")
rs("jhdj")=jhdj
rs("jhshl")=jhshl
end if
rs.update
rs.close
set rs=nothing
'else
'conn.execute(ins
'else
'dim maxid
'sql="select home.homeid as maxid jh.homeid as wrid jh.jhdj, jh.jhshl, jh.jhbz, home.pjname, home.pjlx, home.pjshj, home.pjbz from home left JOIN jh ON home.homeid = jh.homeid ORDER BY home.homeid DESC"
'rs.open sql,conn,1,2
'rs.addnew
'rs("pjname")="'"&pjname&"'"
'rs("pjlx")=pjlx
'rs("pjshj")=pjshj
'rs("pjbz")="'"&pjbz&"'"
'rs("wrid")=rs("maxid")+1
'rs("jhdj")=jhdj
'rs("jhshl")=jhshl
'if jhbz > "" then rs("jhbz")=jhbz
'rs.update
'rs.close
'set rs=nothing
'response.End()
end sub
%>
<%sub xshpasscheck()
dim pass
pass=request.form("pass")
if pass<>xshpass then%>
<table border="0" width="100%" height="100%">
<tr>
<td valign="middle" align="center">
<form name="form1" method="post" action="">
<p>密 码：
<input type="password" name="pass" style="BORDER-BOTTOM: #FFFFFF 1px double; BORDER-LEFT: 1px; BORDER-RIGHT: 0px; BACKGROUND: #efefef; COLOR: #000000" tabindex="1" >
<input type="submit" value="确定">
</p>
</form>
</td>
</tr>
</table>
<script>
onLoad=form1.pass.focus();
</script>
<%
response.End()
end if
end sub%>
<% sub lrpj() '录入显示
dim sql
dim shl, shj, lx, id, pjbz
call urlin
pjname=trim(request.form("pjname"))
pjtype=request.Form("pjtype")
if pjname > "" then
Set rs=Server.CreateObject( "ADODB.Recordset")
sql= "SELECT pjmain.homeid, pjmain.pjname, pjmain.lxid, pjmain.lxname, pjmain.pjshj, pjmain.pjbz, pjmain.pjshl FROM pjmain"
if pjname>"" and pjtype>0 then sql=sql&" where lxid="&pjtype&" and pjname='"&pjname&"'"
rs.open sql,conn
if rs.eof=false then
shl=rs("pjshl")
shj=rs("pjshj")
lx=rs("lxname")
id=rs("homeid")
pjbz=rs("pjbz")
else
set ors=Server.createObject("ADODB.REcordset")
ors.open ("select lxname from lx where lxid="&pjtype),conn
lx=ors("lxname")
ors.close
set ors=nothing
end if
%>
<body onLoad="form1.dj.focus()">
<br>
<div align="center"></div>
<form name="form1" method="post" action="save.asp?lr=y" onSubmit="return checkpjpost(this)">
<table width="455" border="0" align="center" class="K" cellpadding="0" cellspacing="0">
<tr>
<td width="14%" nowrap class="green">配件名称：</td>
<td width="86%"><%=pjname%><input name="pjname" type="hidden" value="<%=pjname%>"></td>
</tr>
<tr>
<td nowrap class="green">配件类型：</td>
<td><%=lx%><input name="pjtype" type="hidden" value="<%=pjtype%>"></td>
</tr>
<tr>
<td valign="top" nowrap class="green">配件备注</td>
<td><textarea name="pjbz" cols="50" rows="3" id="pjbz" style="overflow: auto"><%=pjbz%></textarea></td>
</tr>
<tr>
<td nowrap class="green">配件进价：</td>
<td><input name="dj" type="text" id="dj" tabindex="1" size="5" maxlength="8">
元</td>
</tr>
<tr>
<td nowrap class="green">配件数量：</td>
<td><input name="shl" type="text" tabindex="2" size="5" maxlength="5">
个
<input name="homeid" type="hidden" id="homeid" value="<%=id%>"></td>
</tr>
<tr>
<td nowrap class="green">配件售价：</td>
<td><input name="shj" type="text" tabindex="3" value="<%=shj%>" size="5" maxlength="8">
元
<span class="red">/*此为该配件统一售价！</span></td>
</tr>
<tr>
<td colspan="2" valign="top" nowrap class="green"><div align="center">
<input type="submit" name="Submit" value=" 添 加 " tabindex="5">
</div></td>
</tr>
</table>
</form>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end sub
sub listpj()
end sub
'CheckCart 创建推车
Sub CreateCart()
if isarray(session("Cart")) = false then
Dim mudCart(14,1)
Session("Cart") = mudCart
end if
end sub
'CheckCart 检查推车
Function CheckCart()
IF IsArray(Session("Cart")) THEN
CheckCart=True
ELSE
CheckCart=False
END IF
End Function
'CheckItem(ID) 商品检查
'首先判断推车是否存在。然后将商品的编号ID和购物推车中的商品编号逐一比较。如果有相等的，返回真。否则为假。
Function CheckItem(ID)
IF CheckCart=True THEN
varMudCart = Session("Cart")
FOR i = LBound(varMudCart)TO UBound(varMudCart)
IF varMudCart(i,0) = ID THEN
CheckItem=TRUE
Exit Function
ELSEIF varMudCart(i,0) <> ID THEN
CheckItem=FALSE
END IF
NEXT
END IF
End Function
'下面的代码段首先创建了一个CartKit对象，然后检查推车是否已经存在。如果不存在，就创建推车并新增商品；否则，检查商品编号是否已经存在于Cart中。如果是，就更新数量；否则，新增商品。
Function AddItem(ID,xshl)
IF CheckCart=false THEN
CreateCart
mudCart=Session("Cart")
mudCart(0,0)=ID
mudCart(0,1)=xshl
Session("Cart")=mudCart
Exit Function
ELSEIF CheckCart=true THEN
IF CheckItem(ID) = true THEN
UpdateItem ID,xshl
ELSEIF CheckItem(ID) = false THEN
mudCart=Session("Cart")
if not mudCart(14,0)="" then
%>
<script>
alert("存货车最多装载15种配件，请分两次销售！");
</script><%
exit function
end if
FOR i = LBound(mudCart) TO UBound(mudCart)
IF mudCart(i,0) = "" THEN
mudCart(i,0)=ID
mudCart(i,1)=xshl
Session("Cart") = mudCart
Exit Function
END IF
NEXT
END IF
END IF
End Function
'UpdateItem(ID, xshl), 更新数量
Function UpdateItem(ID,xshl)
mudCart = Session("Cart")
FOR i = LBound(mudCart) TO UBound(mudCart)
IF mudCart(i,0) = ID THEN
mudCart(i,0)=ID
mudCart(i,1)=xshl
Session("cart")=mudCart
Exit Function
END IF
NEXT
End Function
'RemoveItem(ID)设计：
Function RemoveItem(ID)
mudCart=Session("Cart")
'Find the Postion / Index of given ID.
For i = LBound(mudCart) TO Ubound(mudCart)
IF mudCart(i,0) = ID THEN
Pos=i
'response.write(pos)
Exit For
END IF
Next
'Delete Process...
FOR i = Pos TO UBound(mudCart) - 1
IF Not mudCart(i,0) ="" THEN
mudCart(i,0) =""
mudCart(i,0) = mudCart(i+1,0)
END IF
Next
if mudCart(0,0) = "" then
Removeall()
else
Session("Cart")=mudCart
end if
End Function
'Removeall设计：
Function Removeall()
Session("Cart")=""
Session.Contents.Remove("cart")
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -