|
Проблема с двойным сохранением
#32231641
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
2 VIG
Объясните мне пожалуйста, зачем надо открывать рекордсет запросом INSERT... ?
Может я чего то не понимаю?
Не знаю, код не я писал (это я так, в свое оправдание ;)). Поубирал
Код вообще очень интересный какой-то:
в файле SMailCompose.asp есть такие строчки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
if request( "action" ) = "draft" then
sql = "SELECT userid FROM Profile WHERE username='" & request("To_Username") & "'"
set rst2 = Server.CreateObject( "ADODB.Recordset" )
rst2.Open sql, objDB, adOpenStatic
if rst2.EOF then response.redirect( "SMailCompose.asp?error=nullto" )
to_id = rst2( "userid" )
while not rst2.EOF
response.write(to_id)
rst2.MoveNext
wend
set rst2 = nothing
from_id = Request.Cookies( "Agape" )( "UserId" )
message = replace(request( "Message" ), "'","''")
message = replace(message,"""","""")
sql = "INSERT INTO Mail (From_FK,To_FK,Subject,Body,Datesent,Sent,Draft,Deleted,Inbox,Read)" & _
" VALUES ('" & from_id & "','" & _
to_id & "','" & _
request( "Subject" ) & "','" & _
message & "','" & _
Date() & "','No','Yes','No','No','No')"
'set rst3 = Server.CreateObject(" ADODB.Recordset ")
'rst3.Open sql, objDB, adOpenStatic
'set rst3 = nothing
objDB.Execute sql
Response.Redirect " SMailMainDrafts.asp"
end if
в файле же SMailMainDrafts.asp:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
if request( "action" ) <> "" then
for counter=1 to Request("action ")
id = request(counter)
if request(counter) <> checked then
sql = " UPDATE Mail SET Sent='No', Draft='No', Deleted='Yes', Inbox='No' "
sql = sql & " WHERE ID = " & request(counter)
'set rst = Server.CreateObject("ADODB.Recordset")
'rst.Open sql, objDB, adOpenStatic
'set rst = nothing
objDB.Execute sql
end if
next
end if
более ничего подозрительного вроде нет (одни селекты). Этот код вообще удивление вызывает:
for counter= 1 to Request( "action" )
т.е. action должен быть числовой. Мы же не передаем вообще action
Response.Redirect "SMailMainDrafts.asp"
следовательно этот код вообще не должен выполняться
результаты "тестов":
1. комментируем в SMailCompose.asp execute - не выполняется ничего
2. комментируем в SMailMainDrafts.asp execute -добавляет в базе 2 записи (абсолютно одинаковые и такие же по остальным параметрам, что и предыдущие, что следует, что в этот кусок не попадает вообще).
т.е. вся проблема в
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
sql = "SELECT userid FROM Profile WHERE username='" & request("To_Username") & "'"
set rst2 = Server.CreateObject( "ADODB.Recordset" )
rst2.Open sql, objDB, adOpenStatic
if rst2.EOF then response.redirect( "SMailCompose.asp?error=nullto" )
to_id = rst2( "userid" )
while not rst2.EOF
response.write(to_id)
rst2.MoveNext
wend
set rst2 = nothing
from_id = Request.Cookies( "Agape" )( "UserId" )
message = replace(request( "Message" ), "'","''")
message = replace(message,"""","""")
sql = "INSERT INTO Mail (From_FK,To_FK,Subject,Body,Datesent,Sent,Draft,Deleted,Inbox,Read)" & _
" VALUES ('" & from_id & "','" & _
to_id & "','" & _
request( "Subject" ) & "','" & _
message & "','" & _
Date() & "','No','Yes','No','No','No')"
'set rst3 = Server.CreateObject(" ADODB.Recordset ")
'rst3.Open sql, objDB, adOpenStatic
'set rst3 = nothing
objDB.Execute sql
Response.Redirect " SMailMainDrafts.asp"
|
|
|
