DB로 데이타 저장하는 쿼리 > 기술자료

• 목록

2007-09-22  넘어온 값을 확인하는 코드 추가
2008-03-08  날짜 저장하는 코드 변경


' 넘어온 값을 함수에 저장
zip = request("zip1")&"-"&request("zip2")

dim now_year, now_month, now_day, now_hour, now_minute, now_second, now_micro 
now_year   = left(now(),4)
now_month  = mid(now(),6,2)
now_day    = mid(now(),9,2) 
now_hour   = right("0" & hour(now), 2)
now_minute = right("0" & minute(now), 2)
now_second = right("0" & second(now), 2)
now_micro  = right("000" & (timer * 1000) Mod 1000, 3)
'dd = now_year &"-"& now_month &"-"& now_day &" "& now_hour &":"& now_minute &":"& now_second &"."& now_micro   ' ex: 2016-08-30 04:37:05.855
dd = now()  ' 년-월-일 시:분:초 , 필드 데이타형식 varchar  -  길이 24   ex:  2016-08-30 오전 4:37:05
'dd= date()  ' 년-월-일 , 필드 10자  , 필드 데이타형식 datetime    ex: 2016-08-30
'dd = regdate()  ' SQL내장함수.. 오류날수 있음

' 올바르게 데이타가 왔는지 확인할때
Response.Write("zip=" & zip & "<br>")

'디비연결
Set DB =Server.CreateObject("ADODB.Connection")
ConnString = "Provider=SQLOLEDB; Server=데이터베이스서버이름; Database=데이터베이스이름; UID=사용자아이디; PWD=비밀번호;"
DB.open ConnString

'새글의 값을 데이타베이스에 저장한다
SQL = "INSERT INTO 테이블이름"
SQL = SQL & "(no,name,email,wdate) VALUES"
SQL = SQL & "('" & no & "'"
SQL = SQL & ",'" & name & "'"
SQL = SQL & ",'" & email & "'"
SQL = SQL & ",'" & dd &"'"
SQL = SQL & ")"

DB.Execute SQL

DB.Close
Set DB=nothing