|
<%
set conn = server.createobject("ADODB.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("datebase.mdb")
set rs= server.createobject("ADODB.Recordset")
sql= "select * from [UserInfo] where [user] like '" & trim(lcase(request.Form("user"))) & "'"
rs.open sql, conn, 1, 3
if rs.recordcount <> 0 then
%>
<SCRIPT LANGUAGE="VBScript">
<!--
MsgBox "对不起,用户名已存在,请重新输入!"
-->
</SCRIPT>
<%
else
rs.addnew
rs("user")=trim(lcase(request.Form("user")))
rs("name")=request.Form("name")
rs("class")=request.Form("class")
rs("specialty")=request.Form("specialty")
rs("pwd")=request.Form("pwd")
rs("email")=trim(lcase(request.Form("email")))
rs("value")=0
rs("admin")=0
rs("time")=now()
rs.update
rs.close
end if
%> |
|