pc_register.asp

来自「j2me lan 聊天 server 基于 servlet 使用向导: 」· ASP 代码 · 共 103 行

ASP
103
字号
<%@ codepage=65001%>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">  
<title>SanChat手机聊天平台 用户注册</title>
</head>
<body>


<form name=fr action="pc_getsanchatid.asp" method="post" accept-charset="UTF-8"
onsubmit="document.fr.truename.value+='_';document.fr.nickname.value+='_';" >
  <table width="365" border="1" cellpadding="0" cellspacing="0" align=center>
    <tr> 
      <td width="255" class="form"> 
        <div align="center"><font color=blue size=2>昵称[必填]</font></div>
      </td>
      <td width="105" class="form"> 
        <div align="center"> 
            <input type="text" name="nickname" size="10">
        </div>
      </td>
    </tr>
    <tr> 
      <td width="255" class="form"> 
        <div align="center"><font color=blue size=2>密码[必填 6-15位]</font></div>
      </td>
      <td width="105" class="form"> 
        <div align="center"> 
            <input type="password" name="password" size="15">
        </div>
      </td>
    </tr>
	    <tr> 
      <td width="255" class="form"> 
        <div align="center"><font color=green size=2>真实姓名[选填 找回密码用]</font></div>
      </td>
      <td width="105" class="form"> 
        <div align="center"> 
            <input type="text" name="truename" size="10">
        </div>
      </td>
    </tr>
    <tr> 
      <td width="255" class="form"> 
        <div align="center"><font color=blue size=2>身份证号码[必填 乱填清理]</font></div>
      </td>
      <td width="105" class="form"> 
        <div align="center"> 
            <input type="text" name="trueid" size="20">
        </div>
      </td>
    </tr>
	<tr> 
      <td width="255" class="form"> 
        <div align="center"><font color=green size=2>邮箱[选填 找回密码用]</font></div>
      </td>
      <td width="105" class="form"> 
        <div align="center"> 
            <input type="text" name="mailbox" size="25">
        </div>
      </td>
    </tr>
	<tr> 
      <td width="255" class="form"> 
        <div align="center"><font color=green size=2>请输入验证码:</font></div>
      </td>
      <td width="105" class="form"> 
        <div align="center"> 
            <input name="ccc" type="text"> <%=getcode1()%>
        </div>
      </td>
    </tr>


<%
Function getcode1()
	Dim test
	On Error Resume Next
	Set test=Server.CreateObject("Adodb.Stream")
	Set test=Nothing
	If Err Then
		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("GetCode") = zNum
		getcode1= Session("GetCode")		
	Else
		getcode1= "<img src=""pc_regGetcode.asp"">"		
	End If
End Function
%>

    <tr> 
      <td colspan="2" class="form"> 
        <div align="center"></div>
        <div align="center"> 
          <input type="submit" name="Submit" value="提交">
          <input type="reset" name="ReSet" value="重设">
        </div>
      </td>
    </tr>
  </table>
</form>
</body>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?