reg.asp

来自「一个不错的论坛原代码」· ASP 代码 · 共 329 行 · 第 1/2 页

            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input type="radio" name="openemail" value="0" checked>显示<input type="radio" name="openemail" value="1" size="20">不显示
            </td>
          </tr>
           <tr>
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">
            出生日期</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="23"> 
&nbsp;<select size="1" name="cyear" class="bdtj3">
               
                <option value="" selected>-</option>
                <%for ib=1949 to 2005
                response.write("<option value="""&ib&""">"&ib&"</option>")
                next%>
             
            
                
              </select>
              年             
              <select size="1" name="cmonth" class="bdtj3">
                
                <option value="" selected>-</option>
                
                <%for ib=1 to 12
                response.write("<option value="""&ib&""">"&ib&"</option>")
                next%>              </select>
              月             
              <select size="1" name="cday" class="bdtj3">
                
                <option value="" selected>-</option>
                
               <%for ib=1 to 31
                response.write("<option value="""&ib&""">"&ib&"</option>")
                next%>                
              </select>
              日            
            </td>
          </tr>
          <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            问题:</td>
            <td bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input type="text" name="question" size="50" class="bdtj3">(用于找回密码，100字内)
            </td>
          </tr>
            <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            答案:</td>
            <td bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input type="text" name="answer" size="50" class="bdtj3">(用于找回密码，200字内)
            </td>
          </tr>

		         <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="21">性别:</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input name="sex" type="radio" value="男" checked>
              男            
              <input type="radio" name="sex" value="女">
              女 </td>            
          </tr>
          <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">来自:</td>
            <td width="82%"bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input TYPE=TEXT NAME=Address  SIZE=20 MAXLENGTH=50 class="bdtj3">
            </td>
          </tr>
          <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">OICQ:</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input TYPE=TEXT NAME=OICQ  SIZE=10 MAXLENGTH=10 class="bdtj3">
            </td>
          </tr>
         
          <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">MSN:</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input TYPE=TEXT NAME=MSN  SIZE=10 class="bdtj3">
            </td>
          </tr>
          <tr> <%face=cpbfaces&""&cpbfacestitle&""&cpbface&""&cpbfaceslb%>
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="32"><img id=face src=<%=face%> alt="头像">头像:</td>
            <td width="18%" bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<select name="face" class="bdtj3" onChange="document.images['face'].src=options[selectedIndex].value;">
                <% 
                for i=1 to cpbface 
Response.Write "<option "

facestr=cpbfaces&""&cpbfacestitle&"" & i & ""&cpbfaceslb
if facestr=cpbfaces&""&cpbfacestitle&""&cpbface&""&cpbfaceslb then Response.Write "SELECTED "
Response.Write "value='" & facestr &"'>头像" &i &"</option>"
next%>
              </select> <a href=headface.asp target=_blank>查看头像列表</a>            
            </td>
          </tr>
          
          <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="66"><%response.write("<img src=""""  width=0 height=0 name=""imgheadfy"">")%>自定义头像:</td>
            <td width="18%" bgcolor=<%=tColor2%> class=tdc height="66"> 
              &nbsp;<input type="text" name="imghead" size="25" class="bdtj3">(自定义头像路径,如果不定义请留空,注册成功后，您可以上传您的头像)<input type="button" name="Submit2" value="预览" onClick="imghead1()" class=bdtj3><BR>
              &nbsp;头像宽度:<input type="text" name="imgwidth" size="3" value="32" class="bdtj3">(最大不超过120)
              <BR>&nbsp;头像高度:<input type="text" name="imgheight" size="3" value="32" class="bdtj3">(最大不超过120)
            </td>
          </tr>

  
          <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="19">主页:</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="19"> 
              &nbsp;<input NAME=URL SIZE=30 MAXLENGTH=100 class="bdtj3">
            </td>
          </tr>
          <tr> 
            <td valign=top width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="83"> 
              <p>个人签名:</p>
              <p>您的签名将会显示在您帖子的下面</p>
            </td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="83"> 
              &nbsp;<textarea NAME=Signature ROWS=8 COLS=50 WRAP=VIRTUAL class="bdtj3"></textarea>(本论坛只支持ubb格式,不超过250个字符)  <a href=help.asp#UBb target=_blank>ubb帮助</a>            
            </td>
          </tr>
          <tr > 
            <td valign=top width="18%" bgcolor=<%=tColor2%> class=tdc height="26">　</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="26"> 
              <input type=SUBMIT name=Submit value=提交 class=bdtj >
              <input type=RESET name=Reset value=重置 class=bdtj>
            </td>
          </tr>
        </table>
      </td>
    </tr></form>
  </table>
<%end sub
sub adduser()
errornum=0
if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
errornum=1
errormsg="<li>非法提交数据，请不要从外部提交数据</li>"
end if
username=chktopic(trim(Request.Form("username")))
password=chktopic(trim(Request.Form("password")))
password1=chktopic(trim(Request.Form("password1")))
email=chktopic(trim(Request.Form("email")))
sex=chktopic(trim(Request.Form("sex")))
qq=chktopic(trim(Request.Form("oicq")))
address=chktopic(trim(Request.Form("Address")))
home=chktopic(trim(Request.Form("url")))
face=chktopic(trim(Request.Form("face")))
msn=chktopic(trim(Request.Form("msn")))
sign=chktopic(trim(Request.Form("Signature")))
imghead=lcase(chktopic(trim(Request.Form("imghead"))))
imgwidth=chktopic(trim(Request.Form("imgwidth")))
imgheight=chktopic(trim(Request.Form("imgheight")))
question=chktopic(trim(Request.Form("question")))
answer=chktopic(trim(Request.Form("answer")))
cyear=chktopic(trim(Request.Form("cyear")))
cmonth=chktopic(trim(Request.Form("cmonth")))
cday=chktopic(trim(Request.Form("cday")))
openemail=chktopic(trim(request.form("openemail")))
if username="" then
errornum=1
errormsg="<li>用户名不能为空</li>"
end if
if Instr(username,"=")>0 or Instr(username,"%")>0 or Instr(username,chr(32))>0 or Instr(username,"?")>0 or Instr(username,"&")>0 or Instr(username,";")>0 or Instr(username,",")>0 or Instr(username,"'")>0 or Instr(username,",")>0 or Instr(username,chr(34))>0 or Instr(username,chr(9))>0 or Instr(username,"