addteacherok.asp

一个关于学校网站教育资源的网站,能实现文件的上载,可以实现教育资源的共响

<!--#include file="conn.asp"-->
<!--#include file="fenlei.asp"-->
<%
fenlei1 = server.htmlencode(trim(request("fenlei1")))
fenlei2 = server.htmlencode(trim(request("fenlei2")))
teacher = server.htmlencode(trim(request("teacher")))
loginname = trim(request("loginname"))
email = server.htmlencode(trim(request("email")))
homepage = server.htmlencode(trim(request("homepage")))
address = server.htmlencode(trim(request("address")))
qq = server.htmlencode(trim(request("qq")))
intro = server.htmlencode(trim(request("intro")))
password = request("password")
password1 = request("password1")
ask = trim(request("ask"))
answer = trim(request("answer"))

if fenlei1 = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请输入教师所在的"&strfenlei1&"');history.go(-1);</script>"
 response.end
end if
if fenlei2 = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请输入教师所在的"&strfenlei2&"');history.go(-1);</script>"
 response.end
end if
if teacher = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请输入教师姓名');history.go(-1);</script>"
 response.end
end if
if len(teacher) > 10 then
 conn.close
 set conn = nothing
 response.write "<script>alert('教师姓名不得超过10个汉字');history.go(-1);</script>"
 response.end
end if
if loginname = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请输入登录名');history.go(-1);</script>"
 response.end
end if
if len(loginname) > 10 then
 conn.close
 set conn = nothing
 response.write "<script>alert('登录名不得超过10个汉字');history.go(-1);</script>"
 response.end
end if
if IsNumeric(loginname) then
 conn.close
 set conn = nothing
 response.write "<script>alert('登录名不得全为数字');history.go(-1);</script>"
 response.end
end if

set rs = server.createobject("adodb.recordset")
sql = "select count(teacherid) from teacher where loginname='"&loginname&"'"
rs.open sql,conn,1,1
if rs(0) > 0 then
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
 response.write "<script>alert('该登录名已经有人使用了');history.go(-1);</script>"
 response.end
end if
rs.close

sql = "select * from teacher where teacherid is null"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if  (rs.bof and rs.eof) then
 rs.addnew
 rs("teacher")=teacher
 rs("password")=password
 rs("fenlei1")=fenlei1
 rs("fenlei2")=fenlei2
 rs("email")=email
 rs("address")=address
 rs("intro")=intro
 rs("homepage")=homepage
 rs("qq")=qq
 rs("answer")=answer
 rs("ask")=ask
 rs("loginname")=loginname
 rs.update
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
end if
response.write "<script>alert('添加成功');window.location.href='adminsearchteacher.asp';</script>"
%>