hyjz.asp

大家好

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->
<!--#include file="util.asp" -->
<%
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then 
Response.Redirect "Nothing.asp"
end if
DbPath = SERVER.MapPath("bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="select * from huiyuan where username='"&request("username")&"' and pw='"&request("pw")&"' "
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.eof and rs.bof then
  response.write"您非会员"
  response.write"<br>"
  response.write"<br>"
  response.write"<a href='javascript:window.history.go(-1)'>返回</a>"
  rs.close
  conn.close
  response.end
else 
  name=rs("name")
  sex=rs("sex")
  zip=rs("zip")
  phone=rs("phone")
  email=rs("email")
  address=rs("address")
  pays=rs("pays")
  rs.close
end if
  
sqlinsert="insert into customer (lxr,sex,zip,phone,email,address,pays,inputtime,staus) values('"&name &"','"& sex &"','"& zip &"','"& phone &"','"& email &"','"& address &"', '"& pays &"',now,'0')"

conn.execute sqlinsert

sqlselect="select custid from customer order by inputtime desc"
rs.open sqlselect,conn,adOpenkeyset,adlockoptimistic,adcmdtext
a=rs(0)
rs.close
%>
<%
set rs=server.createobject("adodb.recordset")
'session("productlist")=productlist
sql = "Select bookbm,bookname,size,dw,price,yhj,Num From book"
sql = sql & " Where bookbm In (" & ProductList & ")"
sql = sql & " Order By bookbm"
Set rs = conn.Execute( sql )
%>
<%
if session(rs("bookbm"))=0 then
   session(rs("bookbm"))=1
end if
while not rs.eof
sql1="insert into shiplist values('"&rs("bookbm")&"','"&rs("bookname")&"','"&rs("size")&"','"&rs("dw")&"','"&cint(session(rs("bookbm")))&"','"&ccur(rs("yhj"))&"','"&a&"',now)"
conn.execute sql1
sql1="Update book set Num="&rs("Num")+cint(session(rs("bookbm")))&" where bookbm='"&rs("bookbm")&"'" 
conn.execute sql1
rs.movenext
wend
session.abandon
response.redirect"success.asp?custid="&a&" "
rs.close
conn.close
%>