📄 syscode_shop.asp
字号:
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' colspan='3' align='center'>总计："
Response.Write "<td align='center'><font color=red>"&totaljf&"</font></td>"
Response.Write "<td align='center'><font color=red>"&cartnum&"</font></td>"
Response.Write "<td align='center'><font color=red>"&totalcash&"</font></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='6' align='center'>" & vbCrLf
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td width='33%'><a href='shop_clearbasket.asp'><img src='img/relbcar.gif' border='0'></a></td>" & vbCrLf
Response.Write "<td width='33%'><a href='shop_cash.asp'><img src='img/gobuy.gif' border='0'></a></td>" & vbCrLf
Response.Write "<td width='33%'><input type='button' name='Submit2' value='继续购物' onClick=""location.href='shop.asp'""></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
end sub
'=================================================
'过程名：my_shop
'作 用：显示购物信息
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
sub my_shop()
dim my_count,totalcash
if UserLogined<>True then
Response.Write "<table cellspacing=0 width='100%' cellpadding=4 height=80><tr><td align=center>购物车内有<font color='#FF3300'><b><font color=#FF6633>0</font></b></font>个商品<br><br>总计：<font color='#FF6600'><b>0.00</b></font> 元<br><br><a href='shop_mybasket.asp'>购物车>>></a> <a href='shop_myuser.asp?action=dingdan'>我的订单>>></a></td></tr></table>"
else
sql="select * from shop_basket where user_id='"&Hx66_name&"' and basket_check=false"
set rsw=server.createobject("adodb.recordset")
rsw.open sql, conn, 1, 1
my_count=rsw.recordcount
if rsw.eof then
my_count=0
totalcash="0.00"
else
do while not rsw.eof
totalcash=totalcash+(rsw("basket_count")*rsw("price"))
rsw.movenext
loop
end if
rsw.close
set rsw=nothing
Response.Write "<table cellspacing=0 width='100%' cellpadding=4 height=80><tr><td align=center>购物车内<font color='#FF3300'><b><font color=#FF6633>"&my_count&"</font></b></font>个商品<br><br>总计：<font color='#FF6600'><b>"&totalcash&"</b></font> 元<br><br><a href='shop_mybasket.asp'>购物车>>></a> <a href='shop_myuser.asp?action=dingdan'>我的订单>>></a></td></tr></table>"
end if
end sub
sub decideon_shop()
dim price,dj
if request.querystring("id")="" then
response.redirect "shop_Mybasket.asp"
else
if not isInteger(request.querystring("id")) then
Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
Response.End
end if
end if
sql="select * from shop where passed=0 and s_id="&int(trim(request("id")))
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
IF rs.eof Then
Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
Response.End
End IF
if Hx66_Grade="1" then
price=Rs("price_3")
dj="VIP 价："
elseif Hx66_Grade="0" then
price=Rs("price_2")
dj="会员价："
else
price=Rs("price_1")
dj="市场价："
end if
Response.Write "<table width='98%' border='1' cellspacing='0' cellpadding='0' align='center' style=""border-collapse: collapse"" bordercolor='#f0f0f0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='27' align='center' colspan='5'>本次所选购的商品信息，请按确认加入你的购物车</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<form method='POST' action='shop_buy.asp?action=buy&id="&rs("s_id")&"&product_name="&rs("s_name")&"&price="& price &"'>" & vbCrLf
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td width='*' height='25'>商品名称</td>" & vbCrLf
Response.Write "<td width='120'>商品单价(元)</td>" & vbCrLf
Response.Write "<td width='60'>赠送积分</td>" & vbCrLf
Response.Write "<td width='60'>订购数量</td>" & vbCrLf
Response.Write "<td width='80'>加入购物车</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td height=30><font color='#FF0000'>"&rs("s_name")&"</font></td>" & vbCrLf
Response.Write "<td>"& dj&price &"</td>" & vbCrLf
Response.Write "<td>"&Rs("price_4")&"</td>" & vbCrLf
Response.Write "<td><input type='text' name='count' size='5' value='1' onkeypress=""return regInput(this,/^[0-9]*$/, String.fromCharCode(event.keyCode))"" onpaste=""return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"" ondrop=""return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))""></td>" & vbCrLf
Response.Write "<td><input name=B1 type=image id='B1' src='img/ok.gif' alt='确认购买' align=absMiddle width='45' height='20' cache tppabs=''>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr></form>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
rs.close
set rs=nothing
end sub
sub cash_shop()
%>
<script language="JavaScript">
function Checksave()
{
if(document.form1.to_name.value.length == 0)
{
alert("收货人姓名不能为空。");
document.form1.to_name.focus();
return false;
}
else if(document.form1.tel.value.length == 0)
{
alert("联系电话不能为空。");
document.form1.tel.focus();
return false;
}
else if(document.form1.to_adds.value.length == 0)
{
alert("收货人地址不能为空。");
document.form1.to_adds.focus();
return false;
}
if (document.form1.email.value.length > 0 && !document.form1.email.value.match( /^.+@.+$/ ) ) {
alert("EMAIL输入错误！请重新输入");
document.form1.email.focus();
return false;
}
else if (document.form1.postcode.value.length !=6)
{
alert("请输入正确的邮政编码，长度为6位数字。");
document.form1.postcode.focus();
return false;
}
return true;
}
function CheckForm()
{
if (document.ssproduct.product_name.value.length == "")
{
alert("请输入商品名.");
document.ssproduct.product_name.focus();
return false;
}
return true;
}
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if(docSel.parentElement().tagName != "INPUT")return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
function checkspace(checkstr)
{
var str = '';
for(i = 0; i < checkstr.length; i++)
{
str = str + ' ';
}
return(str == checkstr);
}
//-->
</script>
<%
if UserLogined<>True then
response.write"<SCRIPT language=JavaScript>alert('对不起，您不是我们的会员或还没有登陆，请注册或登陆！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
Response.Write "<form action='shop_cashsave.asp?a=view' method='POST' name='form1' onSubmit=""return Checksave();"">" & vbCrLf
Response.Write "<BR><table width='98%' border='1' cellspacing='0' cellpadding='0' align='center' style='border-collapse: collapse' bordercolor='#f0f0f0'>" & vbCrLf
Response.Write "<tr align='center'><td width='*' height='25'>商品名称</td><td width='12%'>单价(元)</td><td width='12%'>积分单价</td><td width='6%'>换购</td><td width='8%'>赠积分</td><td width='8%'>数量</td><td width='16%'>合计(元)</td></tr>" & vbCrLf
set rsd=server.createobject("adodb.recordset")
sql="select * from shop_basket where user_id='"&Hx66_name&"' and basket_check=false"
rsd.open sql, conn, 1, 1
if rsd.eof then
response.write"<SCRIPT language=JavaScript>alert('你没有订购任何商品！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
icount=0
do while not rsd.eof
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25'> <font color=green>"&rsd("product_name")&"</font></td>" & vbCrLf
Response.Write "<td align='center'>"&rsd("price")&"</td>" & vbCrLf
if rsd("hgjifen")>0 then
Response.Write "<td align='center'>"&rsd("hgjifen")&"</td>" & vbCrLf
Response.Write "<td align='center'><input type=checkbox name='wb_"&icount&"' value='"&rsd("basket_count")&"$$"&rsd("basket_count")*rsd("hgjifen")&"$$"&rsd("basket_count")*rsd("price")&"$$"&rsd("basket_id")&"'></td>" & vbCrLf
icount=icount+1
else
Response.Write "<td align='center'>——</td>" & vbCrLf
Response.Write "<td align='center'><input type=checkbox disabled></td>" & vbCrLf
end if
Response.Write "<td align='center'>"&rsd("jifen")&"</td>" & vbCrLf
Response.Write "<td align='center'>"&rsd("basket_count")&"</td>" & vbCrLf
Response.Write "<td align='center'>"&rsd("price")*rsd("basket_count")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
totalcash=totalcash+(rsd("price")*rsd("basket_count"))
totaljf=totaljf+(rsd("jifen")*rsd("basket_count"))
cartnum=cartnum+(rsd("basket_count")*1)
rsd.movenext
loop
response.write "<input type=hidden name='hg_n' value='"&icount&"'>"
end if
rsd.close
set rsd=nothing
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' colspan='7'><b>货款总计：<font color=red>"&totalcash&"</font>元</b>"
Response.Write " 赠积分:"&totaljf&"<input type=hidden name=totalcash value='"&totalcash&"'><input type=hidden name=totaljf value='"&totaljf&"'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='95%' border='0' cellspacing='5' cellpadding='0' align='center'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td><font color='#FF0000'><li>此定单如果有选择积分换购，商品换购时将不计算配送费用</LI><li>请务必认真填写以下每一项信息，我们将以此给您发货</li><li>否则由此而造成的损失我们概不负责。谢谢你的支持！</LI></font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='98%' border='1' cellspacing='0' cellpadding='0' align='center' style='border-collapse: collapse' bordercolor='#f0f0f0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' colspan='2' align='center'>请填写收货人的详细信息</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td width='20%' height='28' align='right'>真实姓名：</td>" & vbCrLf
Response.Write "<td width='80%'> <input style=""FONT-SIZE: 12px; WIDTH: 180px"" type='text' name='to_name' class=input value='"& Hx66_name &"'> * 必须填写,将是收货人姓名</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='28' align='right'>联系电话：</td>" & vbCrLf
Response.Write "<td> <input style=""FONT-SIZE: 12px; WIDTH: 180px"" type='text' name='tel' class=input value=''> * 请如实填写,便于我们与您联系</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='28' align='right'>E-mail：</td>" & vbCrLf
Response.Write "<td> <input style=""FONT-SIZE: 12px; WIDTH: 180px"" type='text' name='email' class=input value='"& Hx66_Email &"'> * 请如实填写,便于我们与您联系</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='28' align='right'>邮政编码：</td>" & vbCrLf
Response.Write "<td> <input style=""FONT-SIZE: 12px; WIDTH: 180px"" type='text' name='postcode' class=input value='' maxlength='6'> * 将是送货邮政编码</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='28' align='right'>收货地址：</td>" & vbCrLf
Response.Write "<td> <input style=""FONT-SIZE: 12px; WIDTH: 280px"" type='text' name='to_adds' class=input value=''> * 将是送货地址</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='28' align='right'>发票需求：</td>" & vbCrLf
Response.Write "<td> <input type='checkbox' name='fapiao' value='1'> (将按总价的10%计算税率，换购商品不提供发票)</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='30' align='right'>留言备注：<br>(50汉字内)</td>" & vbCrLf
Response.Write "<td> <textarea style=""FONT-SIZE: 12px; WIDTH: 280px"" name='other' cols='30' class='input' rows='3'></textarea> * 您的特殊需求</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
Response.Write "<table width='98%' border='1' cellspacing='5' cellpadding='0' align='center' style='border-collapse: collapse' bordercolor='#f0f0f0'>" & vbCrLf
sql="select * from shop_pay"
set rrs=server.createobject("adodb.recordset")
rrs.open sql,conn,1,1
payment1=rrs("payment1")
pay1=rrs("pay1")
payment2=rrs("payment2")
pay2=rrs("pay2")
payment3=rrs("payment3")
pay3=rrs("pay3")
payment4=rrs("payment4")
pay4=rrs("pay4")
payment5=rrs("payment5")
pay5=rrs("pay5")
rrs.close
set rrs=nothing
Response.Write "<tr>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -