|
|
 |
|
ㅡㅜ / 2001-12-01 / 오후 3:48:42 / 211.245.244.179
조회수 : 137
|
| [질문] 자료실 수정부분인데.... |
아무런 반응이 없어요.. 수정도 못하구.... 에러도 없구... 왜 이러는지...
자료실 수정부분 소스 입니다.
에러도 없는데 반응도 없네요... 그냥 빈공간만 덜렁~
자료실 수정부분인데.... 수정페이지에서 아무런 에러메세지도 없이 암것도 안나와요.. 왜 이럴까요...
elseif method="edit" then
num=cint(UploadForm("num"))
page=cint(UploadForm("page"))
content_num = UploadForm("content_num")
content_num = Replace(content_num," ","....")
content_num = trim(Replace(content_num,"'","''"))
record_date = UploadForm("record_date")
record_date = Replace(record_date," ","....")
record_date = trim(Replace(record_date,"'","''"))
hname = UploadForm("hname")
hname = Replace(hname," ","....")
hname = Trim(Replace(hname,"'","''"))
place = UploadForm("place")
place = Replace(place," ","....")
place = Trim(Replace(place,"'","''"))
branch = UploadForm("branch")
branch = Replace(branch," ","....")
branch = Trim(Replace(branch,"'","''"))
couplet_title = UploadForm("couplet_title")
couplet_title = Replace(couplet_title," ","....")
couplet_title = Trim(Replace(couplet_title,"'","''"))
announcement = UploadForm("announcement")
announcement = Replace(announcement," ","....")
announcement = Trim(Replace(announcement,"'","''"))
issue = UploadForm("issue")
issue = Replace(issue," ","....")
issue = Trim(Replace(issue,"'","''"))
summary = UploadForm("summary")
summary = Replace(summary," ","....")
passwd=Trim(UploadForm("passwd"))
sqlmStr="select passwd from uos_uis where num='"&num&"'"
Set rsm = DbCon.Execute(sqlmStr)
rsm_pass=rsm(0)
rsm.close
set rsm=nothing
if rsm_pass=passwd then
sql="UPDATE test SET content_num='"&content_num&"', record_date='"&record_date&"',
hname='"&hname&"',place='"&place&"', writeday=now(),
branch='"&branch& "',couplet_title='"&couplet_title&"',announcement='"&announcement&"',issue='"&issue&"',s
ummary='"&summary&"' "
sql = sql & " WHERE num=" & num
DbCon.Execute(sql)
else
response.redirect "edit.asp?sort1="&sort1&"&sort2="&sort2&"&page="&page&"&num="&num
end if
re="couplet_list.asp?sort1="&sort1&"&sort2="&sort2&"&page="&page
response.redirect re
DbCon.Close
자료실 수정부분 소스 입니다.
에러도 없는데 반응도 없네요... 그냥 빈공간만 덜렁~
자료실 수정부분인데.... 수정페이지에서 아무런 에러메세지도 없이 암것도 안나와요.. 왜 이럴까요...
elseif method="edit" then
num=cint(UploadForm("num"))
page=cint(UploadForm("page"))
content_num = UploadForm("content_num")
content_num = Replace(content_num," ","....")
content_num = trim(Replace(content_num,"'","''"))
record_date = UploadForm("record_date")
record_date = Replace(record_date," ","....")
record_date = trim(Replace(record_date,"'","''"))
hname = UploadForm("hname")
hname = Replace(hname," ","....")
hname = Trim(Replace(hname,"'","''"))
place = UploadForm("place")
place = Replace(place," ","....")
place = Trim(Replace(place,"'","''"))
branch = UploadForm("branch")
branch = Replace(branch," ","....")
branch = Trim(Replace(branch,"'","''"))
couplet_title = UploadForm("couplet_title")
couplet_title = Replace(couplet_title," ","....")
couplet_title = Trim(Replace(couplet_title,"'","''"))
announcement = UploadForm("announcement")
announcement = Replace(announcement," ","....")
announcement = Trim(Replace(announcement,"'","''"))
issue = UploadForm("issue")
issue = Replace(issue," ","....")
issue = Trim(Replace(issue,"'","''"))
summary = UploadForm("summary")
summary = Replace(summary," ","....")
passwd=Trim(UploadForm("passwd"))
sqlmStr="select passwd from uos_uis where num='"&num&"'"
Set rsm = DbCon.Execute(sqlmStr)
rsm_pass=rsm(0)
rsm.close
set rsm=nothing
if rsm_pass=passwd then
sql="UPDATE test SET content_num='"&content_num&"', record_date='"&record_date&"',
hname='"&hname&"',place='"&place&"', writeday=now(),
branch='"&branch& "',couplet_title='"&couplet_title&"',announcement='"&announcement&"',issue='"&issue&"',s
ummary='"&summary&"' "
sql = sql & " WHERE num=" & num
DbCon.Execute(sql)
else
response.redirect "edit.asp?sort1="&sort1&"&sort2="&sort2&"&page="&page&"&num="&num
end if
re="couplet_list.asp?sort1="&sort1&"&sort2="&sort2&"&page="&page
response.redirect re
DbCon.Close
|
|
|
|