<td width="434" height="376" valign="top" class="txt105">
                        <p>
                          <%

if trim(u_name)="" then
Response.write "<div align='center'><a class='link8' href='javascript:history.go(-1)'>用户名不能为空格,返回。</a></div>"
Response.write "</body></html>"
Response.end
else
u_name=rtrim(trim(u_name))
end if

if instr(u_name," ")<>0 then
Response.write "<div align='center'><a class='link8' href='javascript:history.go(-1)'>用户名中不能包含空格,返回。</a></div>"
Response.write "</body></html>"
Response.end
end if

if instr(u_pass," ")<>0 then
Response.write "<div align='center'><a class='link8' href='javascript:history.go(-1)'>密码中不能包含空格,返回。</a></div>"
Response.write "</body></html>"
Response.end
end if

Set MyCommand=Server.CreateObject("ADODB.Command")
Set MyCommand.ActiveConnection=Con
MyCommand.CommandType=adCmdStoredProc
MyCommand.CommandText="proc_UserRegBase"

MyCommand.Parameters.Append MyCommand.CreateParameter("u_name",adVarChar,adParamInput,30)
MyCommand.Parameters.Append MyCommand.CreateParameter("u_pass",adVarChar,adParamInput,30)

MyCommand.Parameters("u_name")=u_name
MyCommand.Parameters("u_pass")=u_pass


Set RS=MyCommand.Execute()

'Set RS=Server.CreateObject("ADODB.RecordSet")
'strSql="proc_userRegBase '"&u_name&"','"&u_pass&"'"
'SET RS=Con.Execute(strSql)

check_reg=RS("resultID")

if check_reg=0 then
set RS=rs.NextRecordSet
VailCodeLogin=rtrim(trim(RS("ValidCodeLogin")))
Session("lotto_isLogin")=rtrim(trim(RS("ValidCodeLogin")))
Session("lotto_username")=u_name

end if

RS.Close
Con.Close
%>
                          <%if check_reg=0 then%>
                        </p>
                        <table width="400" border="0" align="center" cellspacing="0" cellpadding="0">
                          <tr>
                            <td class="txt105" align="center"><font color="#336600">注
                              册 成 功！</font></td>
                          </tr>
                          <tr>
                            <td class="txt105" align="center">
                              <hr size="1" color="#669999">
                            </td>
                          </tr>
                          <tr>
                            <td class="txt105" align="center" height="35">
                              <p>用户名：<b><%=u_name%></b><br>
                                密码：<b><%=u_pass%></b></p>
                            </td>
                          </tr>
                          <tr>
                            <td class="txt9" height="188">
                              <hr size="1" color="#669999">
                              <table width="320" border="0" cellspacing="0" cellpadding="0" align="center">
                                <tr align="center">
                                  <td class="txt105" colspan="2">按<a href="reg_step2.asp?VailCodeLogin=<%=VailCodeLogin%>&name=<%=u_name%>"><font color="#336600">这里</font></a>，<a href="reg_step2.asp?VailCodeLogin=<%=VailCodeLogin%>&name=<%=u_name%>"><font color="#336600">填写详细的个人资料</font></a>。</td>
                                </tr>
                                <tr>
                                  <td class="txt105" colspan="2">&nbsp;</td>
                                </tr>
                                <tr>
                                  <td class="txt105" width="18">&nbsp;</td>
                                  <td class="txt105" width="302"><font color="#000000">注意，请仔细阅读下列事项：</font></td>
                                <

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

	输入您的搜索字词 提交搜索表单
	军旅同心论坛 军旅同心博客 军旅同心网