send.asp

都乐电子书店!!! !!! !!! !1

<%@ Language=VBScript %>
<%




''''''''''''''''''''
'提交会员购买信息
''''''''''''''''''''

Function user(username,pwd,arraylength)

set conn = server.CreateObject ("ADODB.Connection")
    conn.open application("dtbase"),application("user"),application("pwd") 

sql = "select userid from users where username = '"&username&"' and userpwd = '"&pwd&"' order by userid DESC"

set rs_user = server.CreateObject ("ADODB.Recordset")

rs_user.Open sql,conn,3

if  rs_user.RecordCount > 0  then

'把购买信息插入购买信息表

conn.Execute "insert into shoppingsignal (userid,takebook,needs) values('"&rs_user("userid")&"','"&Request("takebook")&"','"&rep(Request("needs"))&"')"

'选取购买信息ID
set rs_signalid = Server.CreateObject ("ADODB.Recordset")
    rs_signalid.Open "select top 1 shoppingsignalid from shoppingsignal order by shoppingsignalid DESC",conn,3

'把书籍信息插入到书籍信息表

for i = 0 to arraylength-1

    conn.Execute "insert into shoppingbook (shoppingsignalid,bookid,num) values('"&rs_signalid("shoppingsignalid")&"','"&Request("bookid"&i)&"','"&Request("num"&i)&"')"

next

rs_signalid.Close

'返回成功信息
Session("send") = "yes"
Response.Redirect "feedback/ok1.asp"

else 

  Response.Write "Sory!你还不是我们都乐的会员！ 请到<a href='default.asp?job=counter2'>普通柜台</a>结帐"

end if                    

rs_user.Close
conn.Close

end Function



'''''''''''''''''''''
'提交非会员购买信息
'''''''''''''''''''''


Function general(name_1,address_1,zipcode_1,email_1,telnumber_1,Bpnumber_1,occupation_1,age_1,sex_1)
if name_1 = "" then
   Response.Write "姓名没有填写，请<onclick='history.back()'>回去重填</a>"
  else if address_1 = "" then
     Response.Write "地址没有填写，请<a href='history.back()'>回去重填</a>"
     else if zipcode_1 = "" then
         Response.Write "邮政编码没有填写，请<a href='history.back()'>回去重填</a>"
         else if email_1 = "" then
             Response.Write "邮件没有填写，请<a href='history.back()'>回去重填</a>"
         else
         
         

' 传送购买信息

set conn = server.CreateObject ("ADODB.Connection")
    conn.open application("dtbase"),application("user"),application("pwd") 


'注册新用户
sql = "insert into users (name,address,zipcode,email,telnumber,BPnumber,occupation,age,sex) values ('"&_
       name_1&"','"&address_1&"','"&zipcode_1&"','"&email_1&"','"&telnumber_1&"','"&BPnumber_1&"','"&_
       occupation_1&"','"&age_1&"','"&sex_1&"')"    

 conn.Execute (sql)

'取得最新用户ID

set rsnew = server.CreateObject ("ADODB.Recordset")
    rsnew.Open "select top 1 userid from users order by userid DESC",conn,3

'把购买信息插入购买信息表 
conn.Execute "insert into shoppingsignal (userid,takebook,needs) values('"&rsnew("userid")&"','"&Request("takebook")&"','"&Request("needs")&"')"

 
'选取购买信息ID
set rs_signalid = Server.CreateObject ("ADODB.Recordset")
    rs_signalid.Open "select top 1 shoppingsignalid from shoppingsignal order by shoppingsignalid DESC",conn,3

'把书籍信息插入到书籍信息表

for i = 0 to Request("arraylength")-1

   sql = "insert into shoppingbook (shoppingsignalid,bookid,num) values('"&rs_signalid("shoppingsignalid")&"','"&Request("bookid"&i)&"','"&Request("num"&i)&"')"
 conn.Execute (sql)
next

rs_signalid.Close
rsnew.Close
conn.close

'返回成功信息
Session("send") = "yes"
Response.Redirect "feedback/ok2.asp"


        end if
     end if
  end if
end if             

end Function


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  if isempty(Request("Arraylength")) or Request("Arraylength") < 1 then
     Response.Redirect "http://dule.gbsource.net"   
  else 
    if isempty(Request("username")) or isempty(Request("pwd")) then
        if isempty(Request("name")) or isempty("Request(address)") or isempty(Request("zipcode")) or isempty(request("email")) then
           Response.Redirect "http://dule.gbsource.net"
        else
          general Request("name"),request("address"),request("zipcode"),Request("email"),request("telnumber"),Request("Bpnumber"),Request("occupation"),Request("age"),Request("sex")
        end if
     else 
        user Request("username"),Request("pwd"),Request("arraylength")  
     end if
  end if
%>