|
|
 |
|
채영이 / 2001-12-01 / 오후 5:21:19 / 203.255.3.190
조회수 : 131
|
| [질문] 자료실 수정부분인데.... |
> 아무런 반응이 없어요.. 수정도 못하구.... 에러도 없구... 왜 이러는지...
>
> 자료실 수정부분 소스 입니다.
>
> 에러도 없는데 반응도 없네요... 그냥 빈공간만 덜렁~
>
>
>
> 자료실 수정부분인데.... 수정페이지에서 아무런 에러메세지도 없이 암것도 안나와요.. 왜 이럴까요...
>
>
> 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
>
>
>
-----------------------------------------------------------
아무것도 안 나온다면... 소스 보기를 해서 소스를 보세요...
혹시 태그가 잘못 닫쳐서 안 나올 수도 있거던요...
그렇치 않다면 redirect가 안 일어나는 문제일 수도 있지요...
수정후에 url 창이 이동하는지 살펴 보세요....
아니면 이동시에 넘어가는 파라메트의 잘못으로
넘어간 페이지에서 잘못된 연산이 수행될 수 있구요...
발생할 수 있는 가능성에 대해 차근차근 분석해 보세요..
그럼 좋은 결과가 있을겁니다.
수고하세요...
|
|
|
|