?? adduser.asp
字號(hào):
<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">注冊(cè)成功！！點(diǎn)擊返回目錄</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>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -