|
|
|
|
 |
|
느림보 / 2002-07-26 / 오후 3:52:05 / 210.111.101.81
조회수 : 160
|
| [질문] 어디에 쓰는 걸까요!!!??? |
<%
Set DbCon = Server.CreateObject("ADODB.Connection")
DbCon.Open ("DSN=cm;UID=999;PWD")
'id = ConvertChar(LCase(Request("id")))
'pwd = ConvertChar(LCase(Request("pwd")))
id = Request("id")
pwd = Request("pwd")
if id = "" then
id = cid
end if
if pwd = "" then
pwd = cpwd
end if
SQLString= "SELECT id,pwd,name FROM sangpum WHERE id='" & id & "'"
Set rs1 = DbCon.Execute(SQLString)
CFlag = 0
IF rs1.eof THEN
CFlag = 2
msg = "##### - 인증된 사용자가 아니거나 혹은 암호가 틀렸습니다. 암호의 형식이나 CapsLock키등을 확인 하시고 암호를 다시 입력 해 주시기 바랍니다. 다시 암호를 입력 하시고도 암호가 틀리시면 <a href=mailto:webmaster@dom.co.kr><font color=red>webmaster@dom.co.kr</font></a>로 연락 주시기 바랍니다."
Response.Redirect "error.asp?title=인증실패&msg="&msg
END IF
If cid = rs1(0) and cpwd = rs1(1) then
stat = rs1(2)
Else
If Trim(rs1(1)) <> pwd Then
CFlag = 1
msg = "!!!!! - 인증된 사용자가 아니거나 혹은 암호가 틀렸습니다. 암호의 형식이나 CapsLock키등을 확인 하시고 암호를 다시 입력 해 주시기 바랍니다. 다시 암호를 입력 하시고도 암호가 틀리시면 <a href=mailto:webmaster@dom.co.kr><font color=red>webmaster@dom.co.kr</font></a>로 연락 주시기 바랍니다."
Response.Redirect "error.asp?title=인증실패&msg="&msg
Else
CFlag = 0
stat = rs1(2)
Session("msg") = "감사합니다. 접속에 성공하셨습니다."
Response.Cookies("id") = id
Response.Cookies("pwd") = pwd
End If
End if
%>
--------------------------------------------------
더운 날씨에 고생이 많으시네요...질문좀 하려구요
위에서 CFlag=0 이런건 왜 필요한건가요...0이 되었다 2가 되었다....20을 집어 넣어도 마찬가지고, 빼도 별 지장 없는것 같고...자세한 설명 꼭 부탁드립니다. |
|
|
|