<%
If request.form("name") <> "" and request.form("memo") <>""
and request.form("title") <>"" Then //만일 기입이 제대로 되었다면
Set gesidb = Server.CreateObject("ADODB.Connection")
gesidb.Open "guestbook"
데이타베이스를 열어 준비를 합니다.이제 SQL문을 작성하는데 잘해야합니다.
가장 에러가 많이 나는 부분이니까요.
gesiSQL = "INSERT INTO guestbook (name,mail,title,memo,read,writeday) VALUES "
gesiSQL = gesiSQL & "('" & request.form("name") & "'"
gesiSQL = gesiSQL & ",'" & request.form("mail") & "'"
gesiSQL = gesiSQL & ",'" & request.form("title") & "'"
gesiSQL = gesiSQL & ",'" & request.form("memo") & "'"
gesiSQL = gesiSQL & "," & 0 & ""
gesiSQL = gesiSQL & ",'" & date & "')"
순서를 잘 맞추어서 필드의 위치에 맞게 기입합니다.
아까 폼에서 건너온 정보는 4가지인데 여기서 우린 2가지를 스스로 추가하여 데이타베이스에
저장을 시킵니다. 그것은 바로 조회수와 글쓴날짜이지요.
조회수(read)부분은 처음 기입하니깐 0으로 맞춰줍니다. 조회수가 0이라는 것이지요.
0을 쓸때 "(따옴표) 안에는 아무것도 들어가지 않음을 주의합니다.
date부분에는 현재의 시간을 넣어줍니다. 'date'가 그 일을 하지요.
date는 자동으로 현재 시간을 건네줍니다. ASP에서 제공하는 거지요.
다 했으면 아래처럼 SQL문을 실행합니다.
gesidb.Execute gesiSQL
인서트 시킬때는 레코드셋을 열필요는 없습니다. 바로 디비에 실행을 시켜도 되는 것이지요.
만약 에러가 gesidb.Execute gesiSQL에서 났다면 그 이유의 90%는 SQL문의 이상입니다.
gesidb.close
Set gesidb = Nothing
이제 데이타베이스에 기록했으니 데이타베이스를 닫아줍니다.
%>
<%
Select Case Request.QueryString("page")
Case ""
Session("CurrentPage") = 1
Case "next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "previ"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
%>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open("guestbook")
SQL = "SELECT * FROM guestbook"
Set Grs = Server.CreateObject("ADODB.Recordset")
Grs.PageSize = 5
Grs.Open SQL,db,1
Grs.AbsolutePage = Session("CurrentPage")
%>
<% If Not (Grs.EOF and Grs.BOF) then %>