您现在的位置: 军旅同心 >> 读书赏析 >> 学习园地 >> 电脑网络 >> 技术文章 >> 文章正文
用户注册及跟踪代码(三)
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005-9-10 14:19:53
66">请查看上述信息的正确性,我们将据此来确认您的真实身份。
                                            </font></td>
                                        </tr>
                                      </table>
                                    </td>
                                  </tr>
                                </table>
                              </form>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
                <td width="146" valign="top" height="367">&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>

</html>


---文件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
%>
<!-- #include file = "../inc/adovbs.inc" -->
<!-- #include file = "../inc/begin.asp" -->
<html>
<head>
<title>详细信息填写</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/lotsty1.css">
<link rel="stylesheet" href="../css/sty1.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" text="#333333">
<table width="750" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="50">&nbsp;</td>
  </tr>
  <tr>
    <td>
      <table width="777" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="149" valign="top">&nbsp; </td>
          <td width="628" valign="top">
            <table width="620" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="474" height="12" valign="top">&nbsp;</td>
                <td width="146" height="12" valign="top">&nbsp;</td>
              </tr>
              <tr>
                <td width="474" valign="top">
                  <table width="471" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="14" valign="top">&nbsp;</td>
                      <td width="457" valign="top" class="txt105">
<%
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 %>
    <table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr align="center">
                            <td width="400" class="txt9" height="120"><font color="#CC0000">出生日期输入错误,<a href="javascript:history.go(-1)" class="link8">返回。</a></font></td>
        </tr>
      </table>
      <%
Response.write "</body></html>"
Response.end
end if
else%>
      <table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr align="center">
                            <td width="400" class="txt9" height="120"><font color="#CC0000">出生日期输入错误,<a href="javascript:history.go(-1)" class="link8">返回。</a></font></td>
        </tr>
      </table>
      <%
Response.write "</body></html>"
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.Execut

上一页  [1] [2] [3] [4] [5] [6] 下一页


 
免责声明:作品版权归所属媒体与作者所有!!本站刊载此文不代表同意其说法或描述,仅为提供更多信息。如果您认为我们侵犯了您的版权,请告知!本站立即删除。有异议请联系我们。
文章录入:烟灰缸    责任编辑:烟灰缸 
网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | 管理登录 |