📄 regok.asp

📁 ASP仿QQ程序 web版的
💻 ASP
字号:
<link href="main.css" rel="stylesheet" type="text/css"> 
<!--#include file="right.asa" -->
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false" onkeydown='if((event.ctrlKey)||(event.keyCode==8)||(event.keyCode==116)){event.keyCode=0;return false}'>
<form name="login" action="check.asp" method="post">
<%
if session("regtrue")=true then
response.write("<input name='nmb' type='hidden' id='nmb' value='"&session("myid")&"'>")
response.write("<input name='pwd' type='hidden' id='pwd' value='"&session("pwd")&"'>")
response.write("<script>window.onload=login.submit()</script></form>")
session("regtrue")=""
response.end()
end if
cname=session("name")
sex=session("sex")
old=session("old")
pwd=session("pwd")
turename=session("turename")
face=session("face")
star=session("star")
prov=session("prov")
city=session("city")
mail=session("mail")
home=session("home")
code=request("code")
addr=request("addr")
phone=request("phone")
job=request("job")
school=request("school")
content=request("content")
problem=request("problem")
answer=request("answer")
safemail=request("safemail")
rs.open "userinfo",conn,1,3
rs.addnew
rs("name")=cname
rs("sex")=sex
rs("old")=old
rs("pwd")=pwd
rs("turename")=turename
rs("face")=face
rs("star")=star
rs("prov")=prov
rs("city")=city
rs("mail")=mail
rs("home")=home
rs("code")=code
rs("addr")=addr
rs("phone")=phone
rs("job")=job
rs("school")=school
rs("content")=content
rs("problem")=problem
rs("answer")=answer
rs("safemail")=safemail
%>
<table width="490" height="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  <tr> 
    <td width="120" height="219" align="center" class="but"><img src="image/logo.gif" width="120" height="220"></td>
    <td align="center">
<%if err.number<>0 then%>
	<table width="80%" border="0" cellpadding="5">
        <tr> 
          <td align="center"><font color="#FF0000" size="5">注册失败!</font></td>
        </tr>
        <tr>
          <td> 　　对不起！由于各种原因你没有注册成功，你可以点击下面的“上一步”按钮再试一次，也可以点“取消”来关闭这个窗口。</td>
        </tr>
	</table>
<%
else
rs.update
myid=rs("user_id")
session("myid")=myid
rs.close
conn.close
set rs=nothing
set conn=nothing
session("regtrue")=true
%>
<table width="80%" border="0" cellpadding="5">
        <tr> 
            <td align="center"><font color="#ff0000" size="5">恭喜您！<font color=#000000>注册成功!</font><font color="#FF0000" size="5">&nbsp; 
              </font></td>
        </tr>
        <tr>
          <td> 　　欢迎<font color=red><%=cname%></font>加入<font color=blue>衢州博爱医院QQ</font>聊天站，你的QQ号码是： 
              <font color=red><%=session("myid")%></font>
              ，请你点击下面的“<font color=red>完成</font>”按钮直接登陆，也可以点“取消”来关闭这个窗口并且重新登陆。</td>
        </tr>
      </table>
<%end if%>
    </td>
  </tr>
  <tr> 
    <td height="50" colspan="3" align="right"> <hr width="95%"><input name="nmb" type="hidden" id="nmb" value="<%=myid%>">
<input name="pwd" type="hidden" id="pwd" value="<%=pwd%>"> <input name="Button" type="button" class="button" onClick="javascript:history.back(1)" value="上一步(B)" <%if err.number=0 then response.Write("disabled")%>>  
	  <input name="Submit" type="submit" class="button1" value="完成(F)"<%if err.number<>0 then response.Write("disabled")%>> <input name="button" type="button" class="button1" onClick="window.close()" value="取消(C)"> 
      <input name="button" type="button" disabled class="button1" value="帮助(H)">&nbsp;&nbsp;
      　</td>
  </tr>
</table>
</form>
</body>
⌨️ 快捷键说明

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