|
|
|
|
 |
|
food / 2000-10-20 / 오후 7:46:36 / 210.219.185.189
조회수 : 125
|
| [질문] 데이터 베이스에 패스워드가 안들어가요 |
다 잘들어가는데 패스워드만 안들어가네요
알려주세요. 에러는 없는데 패스워드만 문제입니다
<%
' 사용자 정보 입력
USER_ID = Request("USER_ID")
USER_PASSWORD = Request("USER_PASSWORD")
USER_NAME = Request("USER_NAME")
USER_NAME1 = Request("USER_NAME1")
COUNTRY = Request("COUNTRY")
TEL = Request("TEL")
FAX = Request("FAX")
EMAIL = Request("EMAIL")
ADDRESS = Request("ADDRESS")
'시리얼 넘버 생성엔진 소스----------------------------------
'**************************************************************************
set DBconnection = server.CreateObject("ADODB.connection")
DBconnection.Open ("DSN=sql;UID=sa;PWD=")
'위의 ADOdb커넥션 개체가 들어가야지 데이타베이스와 연결
'#########################################################################
sql = "select top 1 num from member order by num desc"
'커넥션 인자를 바꿔줬음 DBconnection
set aa = DBconnection.execute (sql)
if aa.EOF then
num_1 = 1 + 1 '넘버가 하나도 없으면
else
num_1 = 1 + aa("num") '넘버가 있으면 가장큰수의 +1 : 보라넷 전용
end if
'else
' num_1 = 1 + aa("no") '넘버가 있으면 가장큰수의 +1 지우지 말것
num = len(num_1) '넘버의 길이
'#############################################################################
'이부분이 잘못 되었다면...아래 부분의 no 라는 필드가 없어서 no 대신에 num을 넣었읍니다.
'response.write num_1 & "/" & aa("no")& "|"
'위의 것이 아니라...
'response.write num_1 & "/" & aa("num_1")& "|" '이부분에러난다
'이걸로 바뀌어야 겠죠..,.
'###########################################################################
totalnum = 13 - num '13자에서 빼기 넘버의 길이
number = 1
Result = left("0000006000000" & CStr(Number), totalnum) '13자리숫자에서 남은 수 오른쪽부터 자르기
jumin = Result & num_1 '오른쪽부터 자른수 에 순차넘버 붙이기
response.write jumin & "
"
'여기까지-------------------------------------------------
' 작은 따옴표 저장을 위한 Replace 사용
INTRO = Request("INTRO")
INTRO = Replace(INTRO,"'","''")
' 데이터베이스 연결 설정
Set dbCon = Server.CreateObject("ADODB.Connection")
dbCon.Open ("DSN=sql;UID=sa;PWD=;")
' 아이디 중복 여부 검사
sqlstr = "select Count(Num) from member where USER_ID ='" & USER_ID & "'"
set Rs = dbCon.execute(sqlstr)
if Rs(0) = 0 then
' 중복되는 아이디가 없을 경우 테이블에 회원정보 저장
sqlstr = "INSERT INTO member(USER_ID, USER_PASSWORD, USER_NAME,USER_NAME1,COUNTRY,TEL,FAX, EMAIL,ADDRESS,INTRO,REGISTER,JUMIN)"
sqlstr = sqlstr & " VALUES ('" & USER_ID & "','" & USER_PASSWORD & "','" & USER_NAME & "','" & USER_NAME1 & "','" & COUNTRY & "','" & TEL &"','" & FAX & "','" &EMAIL & "','" & ADDRESS & "','" & INTRO & "',getdate(),'" & JUMIN &"')"
Set MemberInsert = dbCon.execute(sqlstr)
%>
<% else ' 중복되는 아이디가 있는 경우 중복 메시지 출력 %>
<%end if%>
boranet
<%time1 = date() & " " &hour(now) & ":" & minute(now) & ":" & second(now)%>
<%'로딘이 수정 SQL 로 날짜 만드는법...
Que = "select convert(varchar(24), getdate(), 113)"
Set Rs = DBconnection.Execute(QUE)
time2 = Rs(0)
'reg1 & reg2
%>
의
회원이 되신것을
축하드립니다.
|
|
|
|
|
