<%@ language="vbscript"%> <%response.Expires = 0%> <% dim uid ,upwd uid=trim(Request.Form("uid")) upwd=trim(Request.Form("pwd")) set rs=server.createobject("adodb.recordset") sqltext="select * from admin where uid='" & uid & "' and pwd='" & upwd & "'" rs.open sqltext,conn,1,1 '尋找資料庫,檢查用戶是否存在 if rs.recordcount >= 1 then session("adminok")=true session("txtClass")="高階學員" Response.Redirect "manage.asp" response.end rs.close else response.write "" response.end rs.close end if %>