reginster1.asp

这是我自己设计的一个资源管理系统

<%
set conn=server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
dim loginName,userPassword,realName,userGender,userEmail,sex,sql
loginName=request.Form("loginName")
userPassword=request.Form("userPassword1")
realName=request.Form("realName")

userEmail=request.Form("userEmail")
sql="insert into TUser(login_name,user_password,real_name,user_email) values('"&loginName&"','"&userPassword&"','"&realName&"','"&userEmail&"')"
conn.execute(sql)
'response.Write("用户名："&loginName,"密码："&userPassword,"真实姓名："&realName,"E_mail:"&userEmail)
%><title>资源管理系统</title>
<table width="74%" border="1" align="center" cellspacing="0" bordercolor="#FFCC99">
  <tr> 
    <td height="73" bgcolor="#3399FF"> <p align="center"><font color="#FF9900" size="7"><strong>资源管理系统</strong></font></p></td>
  </tr>
  <tr> 
    <td height="31" bgcolor="#FFCC00"> <div align="center"><strong><font color="#000099">信息提示</font></strong></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFCC"><div align="center">
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p><font color="#006600">注册成功！请返回首页登录<font size="3">！</font></font></p>
        <p><font color="#006600" size="3"><a href="index.asp">返回</a></font> </p>
        <p>&nbsp; </p>
        <p>&nbsp; </p>
    </div></td>
  </tr>
  <tr> 
    <td height="32" bgcolor="#0099FF"> <div align="center"><font color="#000099" size="3">版权所有&copy;FGH</font></div></td>
  </tr>
</table>