묻고답하기
page_full_width" class="col-xs-12" |cond="$__Context->page_full_width">
[ASP] 게시판을 만드는데요.. insert가 두번됩니다..
2002.08.29 16:12
insert가 두번됩니다..
이것때문에 참 며칠 고생하거 있는데 잘 모르겠네요...
코드에는 별문제가 없는것 같은데요..
똑같은 내용이 두번 insert되는거면 submit이 두번되는건데..
저같은경우는 한번은 글쓰기 폼에서 넘어온 데이터로 저장이되고..
한번은 아무내용없는 레코드가 생성됩니다..
이유를 알수가 없네요....
답변좀 부탁드립니다..
insert관련 소스도 같이 올립니다..
답변좀 꼭 부탁드립니다.
<!--METADATA TYPE="typelib" NAME="ADODB Type Library" FILE="C:Program FilesCommon FilesSYSTEMADOmsado15.dll" -->
<%Option Explicit%>
<!--#include file= "config.asp"-->
<%
Dim name, mail, title, url, memo, pwd
name = Request.form("name")
pwd = Request.form("pwd")
mail = Request.form("mail")
url = Request.form("url")
title = Request.form("subject")
memo = Request.form("memo")
Dim Dbcon, Rs
Set Dbcon = Server.CreateObject("ADODB.Connection")
Dbcon.Open strConnect
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "myboard", Dbcon, adOpenStatic, adLockPessimistic, adCmdTable
with Rs
.AddNew
.Fields("bName") = name
.Fields("bEmail") = mail
.Fields("bTitle") = title
.Fields("bUrl") = url
.Fields("bPwd") = pwd
.Fields("bReadnum") = 0
.Fields("bDate") = now()
.Fields("bIpadr") = Request.ServerVariables("REMOTE_ADDR")
.Fields("bContent") = memo
.Update
.Close
end with
Dbcon.Close
Set Rs = nothing
Set Dbcon = nothing
response.redirect("list.asp")
%>
이것때문에 참 며칠 고생하거 있는데 잘 모르겠네요...
코드에는 별문제가 없는것 같은데요..
똑같은 내용이 두번 insert되는거면 submit이 두번되는건데..
저같은경우는 한번은 글쓰기 폼에서 넘어온 데이터로 저장이되고..
한번은 아무내용없는 레코드가 생성됩니다..
이유를 알수가 없네요....
답변좀 부탁드립니다..
insert관련 소스도 같이 올립니다..
답변좀 꼭 부탁드립니다.
<!--METADATA TYPE="typelib" NAME="ADODB Type Library" FILE="C:Program FilesCommon FilesSYSTEMADOmsado15.dll" -->
<%Option Explicit%>
<!--#include file= "config.asp"-->
<%
Dim name, mail, title, url, memo, pwd
name = Request.form("name")
pwd = Request.form("pwd")
mail = Request.form("mail")
url = Request.form("url")
title = Request.form("subject")
memo = Request.form("memo")
Dim Dbcon, Rs
Set Dbcon = Server.CreateObject("ADODB.Connection")
Dbcon.Open strConnect
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "myboard", Dbcon, adOpenStatic, adLockPessimistic, adCmdTable
with Rs
.AddNew
.Fields("bName") = name
.Fields("bEmail") = mail
.Fields("bTitle") = title
.Fields("bUrl") = url
.Fields("bPwd") = pwd
.Fields("bReadnum") = 0
.Fields("bDate") = now()
.Fields("bIpadr") = Request.ServerVariables("REMOTE_ADDR")
.Fields("bContent") = memo
.Update
.Close
end with
Dbcon.Close
Set Rs = nothing
Set Dbcon = nothing
response.redirect("list.asp")
%>
이소스가 아니구..
글쓰기 폼에 문제가 있었더군요.. ㅡㅡa..