% if request("login") <> "" then username=request("username") password=request("password") sql = "Select * From admin Where username='"&username&"' And password='"&password&"'" set rs=conn.execute (sql) If rs.EOF Then response.write "" response.end Else session("pass")="passed" session("username")=username response.redirect"p1.asp" End If Conn.Close Set Conn=Nothing else %>
<%RESPONSE.Write "今天日期是:" & Date & ""%>
|
||
寶覺小學 |
||
|
||
|
||
|
||
|