<%dim comms comms=request.QueryString("comms")%> <% 'on error resume next Response.Cookies("car")("npicshow")="" msgga="會員註冊及使用條款" file= "reglaw.cgi" Set FSOM = Server.CreateObject("Scripting.FileSystemObjectgresryrjtyujhrghfgfds_hg4y57498") Set TxtM = FSOM.OpenTextFile("c:\ecommdt\" & Request.Cookies("car")("account") & "\" & file) ContentMA = TxtM.ReadAll ContentM=replace(ContentMA,chr(13)&chr(10),"
") If Not TxtM.Atendofstream Then ContentMA = TxtM.ReadAll ContentM=replace(ContentMA,chr(13)&chr(10),"
") End If set FSOM=nothing set TxtM=nothing Set FSO_payway = Server.CreateObject("Scripting.FileSystemObjectgresryrjtyujhrghfgfds_hg4y57498") Set txt_payway = FSO_payway.OpenTextFile(Server.MapPath("/setup/helppi.cgi")) Content_helppi = txt_payway.ReadAll Response.Cookies("car")("helppi")=Content_helppi set FSO_payway=nothing set txt_payway=nothing mspic="help_c.gif" if Request.Cookies("car")("helppi")="目前不顯示" then Response.Cookies("car")("npicshow")="OK" %> <% Set FSO_helpc = Server.CreateObject("Scripting.FileSystemObjectgresryrjtyujhrghfgfds_hg4y57498") Set txt_helpc = FSO_helpc.OpenTextFile(Server.MapPath("/setup/myhelpc.cgi")) Content_helpc = txt_helpc.ReadAll Response.Cookies("car")("helpc")=Content_helpc Response.Cookies("car")("userhidden") = 2 Response.Cookies("car").path="/" Response.Cookies("car")("usercookies") = 1 Response.Cookies("car").Expires=Date+1 %> <%=webname%>--新會員註冊 <%select case comms case ""%>

 

<%if Request.Cookies("car")("npicshow")<>"" then%> <%end if%>
>
<%=webname%>註冊條約

<%=msgga%>
<%=ContentM%>  
_buttonj2.gif" >    _buttonk2.gif" border="0">

 

<%case "yes"%>
請填寫會員資料
登入帳號:   *(英文或數字最多14個字)。
電子郵件:   (會員認證審核通知用,請確實填寫)。
密碼:  *(長度6~14個字,英文、數字,如:abcd5678等)。
確認密碼:  *(請再次輸入您的密碼)。 
真實姓名:  *寄發會員贈品或收件人資料,請確實填寫
詳細地址: *寄發會員贈品或收件人資料,請確實填寫
郵遞區號: *
聯絡電話: *
行動電話
傳真:
性別: *
推薦人帳號: (如果沒有,則此欄免填)
_buttonac.gif">
按下送出後,請等待25秒系統自動驗證時間,驗證完成即可正式加入會員。

<%case "save"%> <%call saveuser()%> <% end select%> <%sub tiaoyue() set rs=server.CreateObject("adodb.recordset") rs.Open "select regtiaoyue from shop_config",conn,1,1 response.Write trim(rs("regtiaoyue")) rs.Close set rs=nothing end sub sub saveuser() if Request.Cookies("car")("regtimes")=1 then response.Write "
對不起,您重覆註冊囉
請稍後再進行註冊
" response.End end if set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where useremail='"&trim(request("useremail"))&"' or username='"&trim(request("username"))&"'",conn,1,1 'if rs.recordcount>0 then if aa="bfrghefg" then 'call usererr() rs.close else rs.close set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user]",conn,1,3 rs.addnew rs("username")=trim(request("username")) rs("userpassword")=md5(trim(request("userpassword"))) if trim(request("useremail"))="" then rs("useremail")=webemail else rs("useremail")=trim(request("useremail")) end if rs("userzhenshiname")=trim(request("userzhenshiname")) rs("adddate")=now() rs("lastlogin")=now() rs("logins")=1 rs("youbian")=trim(request("zip")) 'rs("babybirth")=trim(request("mobie")) 'rs("babyname")=trim(request("babybirth")) rs("sign")=trim(request("fax")) rs("oicq")=trim(request("mobie")) rs("reglx")=1 rs("jifen")=0 rs("jiaoyijine")=0 rs("userlastip")=Request.ServerVariables("REMOTE_ADDR") 'rs("dadyname")=trim(request("dadyname")) 'rs("szSheng")=trim(request("szSheng")) 'rs("szShi")=trim(request("szShi")) rs("shouhuodizhi")=trim(request("taddress")) 'rs("youbian")=trim(request("youbian")) rs("usertel")=trim(request("usertel")) 'rs("MoMname")=trim(request("MoMname")) 'rs("MoMNo")=trim(request("MoMNo")) 'rs("yuchan")=trim(request("yuchan")) rs("title")=trim(request.Cookies("title")) '特約商家 rs("sex")=trim(request("babysex")) 'rs("songhuofangshi")=trim(request("songhuofangshi")) 'rs("zhifufangshi")=trim(request("zhifufangshi")) rs("face")="userface/image1.gif" Rs("width")=request("width") Rs("height")=request("height") rs("bbstype")=request("bbstype") rs("userclass")="新手上路" rs("userWealth")=100 rs("userEP")=50 rs("usercP")=50 rs("lockuser")=0 Rs("showRe")=1 rs("userinfo")="||||||||||||||||||||||||||||||||||||||||||" rs("usersetting")="1|||0" rs("titlepic")="level0.gif" rs("UserGroup")=request("UserGroup") rs("usergroupid")=4 rs.update 'conn.execute("update config set usernum=usernum+1,lastuser='"&username&"'") rs.close set rs=nothing set rs=conn.execute("select top 1 userid,face from [user] order by userid desc") userid=rs(0) response.Cookies("songxf")("username")=trim(request("username")) response.Cookies("songxf")("jiaoyijine")=0 response.Cookies("songxf")("jifen")=0 response.Cookies("songxf")("reglx")=1 response.Cookies("shangcheng").expires=date+1 Response.Cookies("aspsky")("username") = trim(request("username")) Response.Cookies("aspsky")("password") = trim(request("userpassword")) Response.Cookies("aspsky")("userclass") = "新手上路" Response.Cookies("aspsky")("userid") = userid Response.Cookies("aspsky")("userhidden") = 2 Response.Cookies("aspsky").path="/shop/bbs/" Response.Cookies("aspsky")("usercookies") = 1 Response.Cookies("aspsky").Expires=Date+1 Response.Cookies("car")("regtimes")=1 session.Timeout=999 Response.Cookies("car")("userhidden") = 2 Response.Cookies("car").path="/" Response.Cookies("car")("usercookies") = 1 Response.Cookies("car").Expires=Date+1 set rs=server.CreateObject("adodb.recordset") rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1 mailaddress=rs("mailaddress") mailusername=rs("mailusername") mailuserpass=rs("mailuserpass") mailname=webname mailsend=webemail rs.close set rs=nothing 'if Forum_Setting(47)=1 then on error resume next topic="您的會員註冊資料於" & webname getpass=trim(request("userpassword")) mailbody="" mailbody=mailbody & "註冊完成通知" mailbody=mailbody & "" mailbody=mailbody & "
" mailbody=mailbody & trim(request("username")) & "您好:

" mailbody=mailbody & "歡迎您註冊" & webname & "我們將提供給您全新體驗的服務
" mailbody=mailbody & "以下是您在" & webname & "的會員註冊資料:

" mailbody=mailbody & "帳號:"&trim(request("username"))&"
" mailbody=mailbody & "密碼:"&getpass&"
" mailbody=mailbody & "
" mailbody=mailbody & "
" mailbody=mailbody & "趕快到" & webname & "享受購物樂趣吧!" mailbody=mailbody & "


" mailbody=mailbody & "" mailbody=mailbody & "" on error resume next Set JMail=Server.CreateObject("JMail.Message") JMail.Charset="big5" JMail.ContentType = "text/html" jmail.from = mailsend jmail.silent = true jmail.Logging = true jmail.FromName = mailname 'jmail.mailserverusername = mailusername 'jmail.mailserverpassword = mailuserpass jmail.AddRecipient trim(request("useremail")) jmail.body=mailbody JMail.Subject=topic if not jmail.Send ( mailaddress ) then SendMail="" else SendMail="OK" end if ' if SendMail="OK" then ' sendmsg="
  • 您的註冊資料已經發往您的信箱,請查看喔。
  • " ' else ' sendmsg="
  • 由於系統錯誤,給您發送的註冊資料未成功。
  • " ' end if 'response.write mailbody 'end if response.Write "
    " response.Write "
    會員註冊成功
    " response.Write "
  • 恭喜您已註冊成為["&webname&"]正式會員,請牢記好您的帳號及密碼。

  • " response.Write sendmsg&"
    " response.Write "
  • 首頁
  • " end if end sub sub usererr() response.write " " response.write "
    " response.write "
    會員註冊失敗
    ·您輸入的帳號或Email地址已存在,請返回重新輸入!
    ·按返回上一頁
    " end sub %>