<% if request("login") <> "" then username=request("username") password=request("password") sql = "Select * From info Where 用戶名='"&Username&"' And 密碼='"&Password&"'" set rs=conn.execute (sql) If rs.EOF Then response.write "" response.end Else session("pass")="passed" session("username")=username response.redirect"info.asp" End If Conn.Close Set Conn=Nothing else %> 學生登錄
<%RESPONSE.Write "今天日期是:" & Date & ""%>
學生內聯網
Student Intranet System
使用者名稱
LoginName
登錄密碼
Password


上載功課

<% end if %>