⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 gouwu.asp

📁 这是一个网上购物物网站,数据库的连接在CONN.ASP中,既有前台网站,也有后台管理
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
if session("username")="" then
response.write "<script language=javascript>alert('对不起,您还没有登陆!');window.history.go(-1);</script>"
response.End
end if
dim goodid,username,action
action=request.QueryString("action")
username=session("username")
goodid=request.QueryString("id")

select case action

case "del"
conn.execute "delete from act where actionid="&request.QueryString("actionid")
response.redirect "gouwu.asp?action=show"
response.End

case "add"
'//商品,判断是否存在
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from newgoods where goodid="&goodid,conn,1,1
danjia=rs_s("hyprice")
mingcheng=rs_s("name")
rs_s.close
set rs_s=nothing

set rs=server.CreateObject("adodb.recordset")
rs.open "select goodid,username,goodcount,zonger,name,hyprice from act where username='"&username&"' and goodid="&goodid&" and zhuangtai=7",conn,1,3
if rs.recordcount=1 then
rs("zonger")=(rs("goodcount")+1)*danjia
rs("goodcount")=rs("goodcount")+1
rs.update
rs.close
set rs=nothing
response.Redirect "gouwu.asp?action=show"

else
'//添加购物
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select goodid,username,zhuangtai,zonger,goodcount,name,hyprice from act",conn,3,2
rs.addnew
rs("goodid")=goodid
rs("username")=username
rs("zhuangtai")=7
rs("goodcount")=1
rs("hyprice")=danjia
rs("zonger")=danjia
rs("name")=mingcheng
rs.update
rs.close
set rs=nothing
response.Redirect "gouwu.asp?action=show"
end if
case "show"
'//////////////////
%>

<html>
<head>
<title>--我的购物车</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="image/css.css"rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" ">

<%
username=session("username")
response.write "<table width=760 border=0 align=center cellpadding=2 cellspacing=2 class=table-zuoyou><tr><td valign=baseline align=center>我的购物车</td></tr></table>"
set rs=server.CreateObject("adodb.recordset")
rs.open "select actionid,goodid,username,name,goodcount,zonger,hyprice from act where username='"&username&"'and zhuangtai=7",conn,1,3
%>
<table width="744" border="0" cellspacing="0" cellpadding="0" align="center" class="table-zuoyou">
  <tr> 
    <td width="742" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> <br>
      <table width=92% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#CCCCCC>
        <form name='form1' method='post' action=xgsl.asp>
          <tr> 
            <td width=31% height="22" bgcolor="#f1f1f1"> 
              <div align=center><font color="#666666">商品名称</font></div>
            </td>
            <td width=20% height="22" bgcolor="#f1f1f1"> 
              <div align=center><font color="#666666">单价 
                
                </font></div>
            </td>
            <td width=17% height="22" bgcolor=#f1f1f1> 
              <div align=center><font color="#666666">数量</font></div>
            </td>
            <td width=20% height="22" bgcolor="#f1f1f1"> 
              <div align=center><font color="#666666">总价</font></div>
            </td>
            <td width=12% height="22" bgcolor="#f1f1f1"> 
              <div align=center><font color="#666666">删除</font></div>
            </td>
          </tr>
          <%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
          <tr> 
            <td height="22" style='PADDING-LEFT: 5px' width="31%" bgcolor="#FFFFFF"> 
              <div align=left><%=rs("name")%>
                <input name=goodid type=hidden value="<%=rs("goodid")%>" >
                <input name=actionid type=hidden value="<%=rs("actionid")%>" >
              </div>
            </td>
            <td height="22" width="20%" bgcolor="#FFFFFF"> 
              <div align=center> 
                <%

	response.write rs("hyprice")
%>
                元</div>
            </td>
            <td height="22" width="17%" bgcolor="#FFFFFF"> 
              <div align=center><font color=#dd6600> 
                <%=rs("goodcount")%>
                </font></div>
            </td>
            <td height="22" width="20%" bgcolor="#FFFFFF"> 
              <div align=center><font color=#FF3300><%=rs("zonger")%></font>元</div>
            </td>
            <td height="22" width="12%" bgcolor="#FFFFFF"> 
              <div align=center>  
                <a href="gouwu.asp?action=del&actionid=<%=rs("actionid")%>">删除</a></div>
            </td>
          </tr>
          <%
jianshu=jianshu+rs("goodcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
          <tr> 
            <td height=30 colspan=6 bgcolor="#FFFFFF"> 
              <div align=center> 
                <input name="Submit3" type="button" class="go-wenbenkuang" value="返回继续购物" onClick="javascript:window.history.go(-1)">
                <input name="Submit22" type="submit" class="go-wenbenkuang" value="清空购物车"  onClick="this.form.action='qkgwc.asp';this.form.submit()">
                <input name="Submit222" type="submit" class="go-wenbenkuang" value="最终订单结算"  onClick="this.form.action='dingdan.asp';this.form.submit()">
              </div>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height=36 colspan=6> 
              <div align=center> 购物车里有商品:<%=shuliang%>件 总数:<%=jianshu%>件 共计:<%=zongji%>元 
           
              </div>
            </td>
          </tr>
          
          <tr bgcolor="#FFFFFF"> 
            <td colspan=5>&nbsp;            </td>
          </tr>
  
        </form>
      </table>
    <br></td>
  </tr>
</table>
<%end select%>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkk()
{
   if(checkspace(document.form2.searchkey.value)&&((document.form2.action.value=="3")||(document.form2.action.value=="1")))  {
	document.form2.searchkey.focus();
	alert("请输入查讯关键字!");
	return false;
  }
   document.form2.submit();
}

//-->
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -