📄 checklogin.asp

📁 作业提交评分管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="tcconn.asp" -->
<html>
<head>
<title>Management System</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="title" content="Management System" />
</head>
<%
dim username ,password
username=trim(Request.Form("username"))
password=trim(Request.Form("password"))
username = Replace(username, "'", "")
password = Replace(password,"'", "")
if username="" then
 	response.write "<script language=JavaScript>{window.alert('用户不能为空!');window.location.href='index.asp';}</script>"
    response.end
end if
Dim sql,Rs
if password="" then
sql = "select top 1 * from [dbo_student] where [snumber] = '" & username & "'"
else
sql = "select top 1 * from [dbo_student] where [snumber] = '" & username & "'and [password]='" & password & "'"
end if
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,conn,1,1

If Rs.Recordcount=0  Then

   response.write "<script language=JavaScript>{window.alert('用户和密码错误!');window.location.href='index.asp';}</script>"
    Response.End()
End If
If Rs("password")<>password Then
   response.write "<script language=JavaScript>{window.alert('用户和密码错误!');window.location.href='index.asp';}</script>"
    Response.End()
End If
 session("userid") = Rs("id")
 session("number") = Rs("snumber")
 session("username") = Rs("sname")
 session("password") = Rs("password")
 session("user_logged_in")=true
 session("img1")=""
 session("img11")=""
 session("img2")=""
 session("img22")=""
 if password="" Then
   response.write "<script language=JavaScript>{window.alert('密码为空,请立即设置密码!');}</script>"
 End If
  Rs.close
 '新建学生答案文件
set objfso=server.createobject("scripting.filesystemobject") 
 if objfso.folderExists(server.mappath("manage/student_work")) then 
 else
objfso.createfolder(server.mappath("manage/student_work")) 
end if 

'新建答案文件
 if objfso.folderExists(server.mappath("manage/student_work/"+session("number"))) then 
 else
    objfso.createfolder(server.mappath("manage/student_work/"+session("number"))) 
end if

set objfso=nothing
 Response.Redirect "layout.asp"

 
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
</body>
</html>
⌨️ 快捷键说明

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