在网上购物添加购物篮的时候我想从game表读取数据:game;price,从guest表中读取数据:guest,再把他们写入同意数据库内的buy表,但是不成功。(首页SY.asp读取了game表,购物BUY.asp把数据写入buy表)求解
SY.asp:
<%@ language=vbscript %>
<% option explicit
session("salecomplete") = false
dim connstr,conn,rs,sql,mode,itemno
connstr="dbq="+server.MapPath("game.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from game"
rs.open sql,conn,1,1 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>游戏目录</title>
<script>
function openwin(id) { window.open("shopcart.asp?mode=add&itemno="+id,"","height=250,width=450,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");}
</script>
</head>
<body>
<td width="100%" valign="top">
<table border="1" width="600" bordercolor="#000000">
<tr>
<td width="426" bgcolor="#ffffff" style="BACKGROUND-COLOR: #ffffff"><font color="green" style="BACKGROUND-COLOR: #ffffff">游戏目录</font></td>
<td width="78"></td>
</tr>
<% do while not (rs.EOF or err)%>
<tr>
<td width="700">
<% if rs("picture")<>"" then response.write "<img border='0' src='" & rs("picture") & "' align='left'>"%><br>
    游戏名:<A HREF="1.asp"><%=rs("game")%></A><br>
    单价:<%=rs("price")%><br>
</td>
<td width="200">
<align="center">
<a href="BUY.asp?game=">购买这个游戏</a>
</td>
</tr>
<% rs.MoveNext
loop %>
<tr>
<td width="510" colSpan="2"> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<% rs.Close
set rs=nothing
conn.Close
set conn=nothing%>
BUY.ASP:
<!--#include file=conn.asp-->
<%
game=rs("game")
price=rs("price")
response.write "game:"&game
set rs=server.createobject("adodb.recordset")
rs.open"buy",conn,1,2
time()=session("time()")
rs.addnew array("guest","game","price","date"),_
array(session("guest"),session("game"),session("price"),time())
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<body>
<center>
<p><a href="SY.asp">返回继续看</a></p>
<p><a href="GWL.asp">查看我的购物篮</a></p>
</center>
</body>
</html>
时间可以写进去,但是其他数据都没有,纠结
SY.asp:
<%@ language=vbscript %>
<% option explicit
session("salecomplete") = false
dim connstr,conn,rs,sql,mode,itemno
connstr="dbq="+server.MapPath("game.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from game"
rs.open sql,conn,1,1 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>游戏目录</title>
<script>
function openwin(id) { window.open("shopcart.asp?mode=add&itemno="+id,"","height=250,width=450,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");}
</script>
</head>
<body>
<td width="100%" valign="top">
<table border="1" width="600" bordercolor="#000000">
<tr>
<td width="426" bgcolor="#ffffff" style="BACKGROUND-COLOR: #ffffff"><font color="green" style="BACKGROUND-COLOR: #ffffff">游戏目录</font></td>
<td width="78"></td>
</tr>
<% do while not (rs.EOF or err)%>
<tr>
<td width="700">
<% if rs("picture")<>"" then response.write "<img border='0' src='" & rs("picture") & "' align='left'>"%><br>
    游戏名:<A HREF="1.asp"><%=rs("game")%></A><br>
    单价:<%=rs("price")%><br>
</td>
<td width="200">
<align="center">
<a href="BUY.asp?game=">购买这个游戏</a>
</td>
</tr>
<% rs.MoveNext
loop %>
<tr>
<td width="510" colSpan="2"> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<% rs.Close
set rs=nothing
conn.Close
set conn=nothing%>
BUY.ASP:
<!--#include file=conn.asp-->
<%
game=rs("game")
price=rs("price")
response.write "game:"&game
set rs=server.createobject("adodb.recordset")
rs.open"buy",conn,1,2
time()=session("time()")
rs.addnew array("guest","game","price","date"),_
array(session("guest"),session("game"),session("price"),time())
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<body>
<center>
<p><a href="SY.asp">返回继续看</a></p>
<p><a href="GWL.asp">查看我的购物篮</a></p>
</center>
</body>
</html>
时间可以写进去,但是其他数据都没有,纠结