loading.asp

来自「都乐电子书店!!! !!! !!! !1」· ASP 代码 · 共 33 行

<%@ Language=VBScript %>
<%
if isempty(Request("username")) or isempty(Request("pwd")) then
   Response.Redirect "../user.asp"
end if 
   
if  Request("username") = "" or Request("pwd") = "" then
        Response.Redirect "../user.asp"
else

 Session("username") = ""
 Session("userid") = ""
  
  set conn = server.CreateObject ("ADODB.Connection")
      conn.Open application("dtbase"),application("user"),application("pwd")
  sql = "select userid from users where username = '"&Request("username")&"' and userpwd = '"&Request("pwd")&"'"
 
  set rs_user = server.CreateObject ("ADODB.Recordset")
      rs_user.Open sql,conn,3
  
  if rs_user.RecordCount = 1 then
     Session("username") = Request("username")
     Session("userid") = rs_user("userid")
  rs_user.Close  
  
end if

Response.Redirect "../user.asp?job=feedback"
  
end if

%>