📄 adduser.asp

📁 在线教育系统包括答疑问题提问课程介绍可见下载等模块设计
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 3</title>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
<meta name="Microsoft Theme" content="sumipntg 011, default">
</head>

<body leftMargin="0" topMargin="0" background="_themes/sumipntg/sumtextb.jpg" bgcolor="#FFFFFF" text="#000066" link="#3333CC" vlink="#666699" alink="#990099"><!--mstheme--><font face="宋体"><%response.buffer=true%>
<!--mstheme--></font><TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=c width=760>
<tr>
<td width=100% height="197" align="center"><!--mstheme--><font face="宋体"><!--mstheme--></font><table border="0" cellspacing="0" cellpadding="0" height="85" bgcolor="#eeeeee" width="100%">
<tr>
<td align="center"><!--mstheme--><font face="宋体">
<%
username=trim(request.form("login"))
passwd=trim(request.form("passwd"))
realname=trim(request.form("name"))
num=trim(request.form("num"))
email=trim(request.form("email"))
department=request.form("department")
yourclass=trim(request.form("yourclass"))
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
mySQL = "SELECT * FROM user where IDname='" & username & "'"
rs.Open mySQL,conn,1,3
if not (rs.Bof or rs.eof) then
   isun="true"
 end if
If not isun="true" Then
   rs.addnew
   rs("IDname")=username
   rs("passwd")=passwd
   rs("name")=realname
   rs("num")=num
   rs("email")=email
   rs("dept")=department
   rs("class")=yourclass
   rs("enroltime")=date()
   rs.update
   sql= "UPDATE class Set amount=amount+1 where dept = '"&department&"'"
   conn.Execute(sql)
end if
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>
<%if isun="true" then%>
<font color="#FF0000">用户名已存在!!</font>
<p><br>
<a href="javascript:window.history.go(-1);">返回</a>
<%else%>     
<a href="index.asp">注册成功！！点击返回目录</a>     
<script>     
setTimeout("location.replace('index.asp')",1500)
</script>
<%end if%>     
</p>
<!--mstheme--></font></td>
</tr>
</table><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<td valign="middle" align="center"><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
 </tr>
 </table><!--mstheme--><font face="宋体"><!--mstheme--></font></BODY>
</html>
⌨️ 快捷键说明

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