用户注册及跟踪代码（三）

关注+2004-11-07作者：蓝点

2. ASP代码（设立一DSN,请改动begin.asp）

----------------------------------

-----文件reg_step2.asp

<%

ValidCodeLogin=Request.QueryString("VailCodeLogin")

u_name=Request.QueryString("name")

if ValidCodeLogin="" or u_name="" then

Response.Redirect "reg_step1.asp"

Response.end

end if

%>

详细信息填写

个人详细信息填写

真实姓名：

性别：

生日：

                                      年



                                      月



                                      日

身份证编号：

                                      作为取货凭证，请务必正确填写。

联系地址：

联系电话：

Email地址：

                                      中奖信息将以此E-mail地址发送。

请查看上述信息的正确性，我们将据此来确认您的真实身份。

---文件reg_step2_sub.asp

<%

islogin=Request("isLogin")

u_name=Request("u_name")

if islogin="" or u_name="" then

Response.Redirect "reg_step1.asp"

Response.end

end if

%>

详细信息填写

<%

true_name=Request("true_name")

sex=Request("sex")

birth=Request("year")&"-"&Request("month")&"-"&Request("date")

if IsDate(birth) then

birth=FormatDateTime(birth,1)

    if Year(birth)<=999 then %>

出生日期输入错误，返回。

      <%

Response.write ""

Response.end

end if

else%>

出生日期输入错误，返回。

      <%

Response.write ""

Response.end

end if

idcard=Request("idcard")

address=Request("address")

email=Request("email")

telephone=Request("telephone")

'response.write birth

'response.end

strSql="proc_UserInfoUpdate"

strSql=strSql & "  '" & islogin & "'"

strSql=strSql & " ,'" & true_name & "'"

strSql=strSql & " ,'" & sex & "'"

strSql=strSql & " ,'" & birth & "'"

strSql=strSql & " ,'" & idcard & "'"

strSql=strSql & " ,'" & address & "'"

strSql=strSql & " ,'" & email & "'"

strSql=strSql & " ,'" & telephone & "'"

Set rs = Con.Execute(strSql)

ret=rs.fields("resultID")

%>



                          <%if ret=0 then%>









































































                          <%elseif MyCommand("ReturnCode")=-1 then %>







                          <%elseif MyCommand("ReturnCode")=-2 then %>







                          <%elseif MyCommand("ReturnCode")=-3 then %>







                          <%else%>

                          <%end if%>

您的个人信息填写如下：

真实姓名：<%=true_name%>

性别：<%=sex%>

生日：<%=birth%>

身份证：<%=idcard%>

地址：<%=address%>

Email:<%=email%>

联系电话：<%=telephone%>

请查看上述信息的正确性，我们将据此来确认您的真实身份。

请注意您现在已处于登录状态。

>>登出--临时用<<

请先登录。

用户超时

用户资料输入错误

<%Con.Close%>

---文件winload.asp

<%

validlogin=Session("lotto_isLogin")

if validlogin<>"" then

Set MyComquit=Server.CreateObject("ADODB.Command")

Set MyComquit.ActiveConnection=Con

MyComquit.CommandType=adCmdStoredProc

MyComquit.CommandText="proc_UserLogout"

MyComquit.Parameters.Append MyComquit.CreateParameter("ReturnCode",adInteger,adParamReturnValue)

MyComquit.Parameters.Append MyComquit.CreateParameter("quitid",adVarChar,adParamInput,30)

MyComquit.Parameters("quitid")=validlogin

MyComquit.Execute()

end if

Session("lotto_isLogin")=""

Session("lotto_username")=""

Session("lotto_UserLevel")=""

%>

<%Con.Close%>