register3.asp

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

<%

Session.Abandon 

Function register(username_r,userpwd_r,name_r,address_r,zipcode_r,email_r,telnumber_r,BPnumber_r,sex_r,age_r,occupation_r)

 if isempty(Session("register")) then
 
   Response.Redirect "/dule/user.asp"
   
 else   
 
 set conn = server.CreateObject ("ADODB.Connection")
    conn.Open application("dtbase"),application("user"),application("pwd")
    
sql_register = "insert into users (username,userpwd,name,address,zipcode,email,telnumber,BPnumber,sex,age,occupation) values('"&_
                username_r&"','"&userpwd_r&"','"&name_r&"','"&address_r&"','"&zipcode_&"','"&email_r&"','"&telnumber_r&"','"&_
                BPnumber&"','"&sex_r&"','"&age_r&"','"&occupation_r&"')"
                
'Response.Write sql_register
conn.Execute sql_register
Response.Redirect "register_ok.asp"

end if

end Function


if Request("username")="" then
   Response.Redirect "user.asp?job=register"
   else if Request("pwd1") = "" then 
           Response.Write "请<a href='history.back()'>回去填写密码</a>"
          else if Request("pwd1")<>Request("pwd2") then
                  Response.Write "两次填写的密码不一样，请回去重填"
                  else if Request("name") = "" then
                          Response.Write "没有填写姓名，请回去重填"
                         else if Request("address")="" then
                                 Response.Write "没有填写地址，请回去重填"
                                 else if  Request("email")="" then
                                          Response.Write "没有填写EMAIL，请回去重填"
                                          else if Request("zipcode") = "" then
                                                  Response.Write "没有填写邮政编码，请回去重填"
                                          else
                                           register Request("username"),Request("pwd1"),Request("name"),Request("address"),Request("zipcode"),Request("email"),Request("telnumber"),Request("BPnumber"),Request("sex"),Request("age"),Request("occupation")
                                          end if 
                                  end if
                          end if
                   end if
         end if
   end if                                        
end if

%>