%
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
 |
| 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