<% IF request.querystring("step") = "2" THEN adoCon.Open cstring str_Username = Request.Form ("username") str_Password = Request.Form ("password") strSQL = "SELECT code " & _ "FROM tbl_Authors WHERE name = '" & str_Username & "' AND Password = '" & str_Password & "'" 'Create a new recordsheet Set rs_login = Server.CreateObject ("ADODB.RecordSet") 'Open the record sheet and execute SQL rs_login.open strSQL,adoCon 'If the username and password combination does not exist then redirect the user If rs_login.EOF _ Or rs_login.BOF Then Response.Redirect "badlogin.asp" Else 'Write the user code to the cookie Response.Cookies("Login")("userCode") = rs_login("code") 'Redirect to main page Response.redirect("main.asp") End If End if %> www.bcadsoft.com

  Home 
 Introduce 



 
Interface of Data Input (BSDS)
 
Information of Control
Information of Deck Element
Information of Non Deck Element
Information of Cable Element
Information of Bearing Element
Information of Prestressing Cable
Information of Construction Phase
Information of Use phase
Information of Section
Information of Reading *.DXF File Changing into Section
Information of Materials

Back  BSDS

Tel/Fax:8610-62361969、82012341
E-mail:master@bcadsoft.com、lujianming@263.net
ADD:8Xi Tu Cheng Road Beijing China;Post Code:100088