check.asp

用户界面 一次作业

<!--#include file="conn.asp" -->
<%

if Request.form("check")="add" then
dim UserName,PassWord1,classname
UserName=request.form("UserName")
PassWord1=request.form("PassWord1")
classname=request.form("classname")

sql="insert into userinfo(name,password,classname)values('"&UserName&"' ,'"&PassWord1&"','"&classname&"')"
set rs2=server.CreateObject("ADODB.RECORDSET")
rs2.Open sql,conn_sql,0,1
%>
<script LANGUAGE='javascript'>
alert("恭喜你！注册成功！");
</script>
<meta HTTP-EQUIV=REFRESH CONTENT='1; URL=login.asp'>

<%
End if

if Request.form("check")="into" then
UserName=request.form("username")
PassWord1=request.form("password")
sql2="select *from userinfo where name='"&UserName&"' and password='"&PassWord1&"'"
set rs3=server.CreateObject("ADODB.RECORDSET")
rs3.Open sql2,conn_sql,0,2
	if rs3.eof then
	%>
	<script LANGUAGE='javascript'>
	alert("对不起!密码与用户名不匹配！");
	</script>
	<meta HTTP-EQUIV=REFRESH CONTENT='1; URL=login.asp'>

	<%
	else
	Session("ID")=rs3("ID")
	Session("name")=rs3("name")
	Session("classname")=rs3("classname")
	%>
	<meta HTTP-EQUIV=REFRESH CONTENT='1; URL=index.asp'>
	<%
	End if

End if

if Request.QueryString("check")="out" then
Session.Abandon
%>
	<script LANGUAGE='javascript'>
	alert("成功退出！");
	</script>
	<meta HTTP-EQUIV=REFRESH CONTENT='1; URL=login.asp'>
<%
End if

if Request.QueryString("check")="addkc" then
dim cname,cteacher,ctime,cxuefen,cadder,cjshao
cname=request.QueryString("cname")
cteacher=request.QueryString("cteacher")
ctime=request.QueryString("ctime")
cxuefen=request.QueryString("cxuefen")
cadder=request.QueryString("cadder")
cjshao=request.QueryString("cjshao")

sql="insert into kecheng(cname,cteacher,ctime,cxuefen,cadder,cjshao)values('"&cname&"' ,'"&cteacher&"','"&ctime&"','"&cxuefen&"','"&cadder&"','"&cjshao&"')"
set rs2=server.CreateObject("ADODB.RECORDSET")
rs2.Open sql,conn_sql,0,3

%>
	<script LANGUAGE='javascript'>
	alert("课程添加成功！");
	</script>
	<meta HTTP-EQUIV=REFRESH CONTENT='1; URL=guanli.asp?lastnf=tjkc&ccnf=kc'>
<%
End if

if Request.QueryString("check")="addzy" then
dim cnum,zyname,fenzhi,shuoming
cnum=request.QueryString("cnum")
zyname=request.QueryString("zyname")
fenzhi=request.QueryString("fenzhi")
shuoming=request.QueryString("shuoming")

sql="insert into zy(cnum,zyname,fenzhi,shuoming)values('"&cnum&"' ,'"&zyname&"','"&fenzhi&"','"&shuoming&"')"
set rs2=server.CreateObject("ADODB.RECORDSET")
rs2.Open sql,conn_sql,0,4

%>
	<script LANGUAGE='javascript'>
	alert("作业添加成功！");
	</script>
	<meta HTTP-EQUIV=REFRESH CONTENT='1; URL=guanli.asp?lastnf=tjzy&ccnf=zy'>
<%
End if
%>