您所在位置：主题：[求助]大家帮帮忙,保存功能出了问题.
hair123
[专家分：0] 发布于 2007-08-19 16:36:00
这是交友程序,其中一个文件出了问题,会员在布置套房后,里面的物品(图片)布置后无法保存移动后的位置,虽然提示保存成功,但刷新后,所有的物品又恢复到原来的位置,挤在一块了,请大家帮我修改下程序,谢谢!
程序代码如下:
<!--#include file="const.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%if Session("weight")<0 then
Response.Redirect "error.asp?cause=4"
end if%>
<%
set rs2=server.CreateObject("adodb.recordset")
sql="select * from room_obj where username='"&Session("Current_user")&"'"
rs2.open sql,conn,1,3
for i=1 to rs2.recordcount
if DateDiff("d",rs2("endtime"),date)>0 then
rs2("selected")=0
rs2("typeid")=5
rs2.update
end if
rs2.movenext
next
rs2.close
set rs2=nothing
%>
<SCRIPT LANGUAGE="JavaScript">
<!-- // RightClickMenu
function showmenu(){
var rightedge=event.clientX
var bottomedge=event.clientY
if (rightedge>480)
ie5menu.style.left=480
else
ie5menu.style.left=rightedge+20
if (bottomedge>480)
ie5menu.style.top=480
else
ie5menu.style.top=bottomedge
ie5menu.style.visibility="visible"
return false
}
function showmenu2(){
var rightedge=event.clientX
var bottomedge=event.clientY
if (rightedge>480)
ie5menu2.style.left=480
else
ie5menu2.style.left=rightedge+20
if (bottomedge>480)
ie5menu2.style.top=480
else
ie5menu2.style.top=bottomedge
ie5menu2.style.visibility="visible"
return false
}
// -->
</SCRIPT>
<SCRIPT language=JavaScript>
var cursorX,cursorY,obj=null;
var moveAble=true;
function enableMove(index){
cursorX=event.clientX;
cursorY=event.clientY;
obj=index;
}
function img_border(obj){
obj.className="img_border"
}
function no_img_border(obj){
obj.className=""
}
function disableMove() {obj=null;}
function move_ie(){
if(obj && moveAble){
DIV_name=obj.id;
moveX=event.clientX;
moveY=event.clientY;
if(moveX>550)
moveX=550;
if(moveX<10)
moveX=10;
if(moveY>480)
moveY=480;
if(moveY<10)
moveY=10;
document.all[DIV_name].style.posLeft+=moveX-cursorX;
document.all[DIV_name].style.posTop+=moveY-cursorY;
cursorX=moveX;
cursorY=moveY;
}
}
</SCRIPT>
<%
str="<script type='text/javascript' language='JavaScript1.2'>"& vbcrlf
str=str& " function hidemenuie5() "& vbcrlf
str=str&" { "& vbcrlf
str=str& "ie5menu.style.visibility='hidden'" & vbcrlf
str=str& "ie5menu2.style.visibility='hidden'" & vbcrlf
set rs=server.CreateObject("adodb.recordset")
sql="select * from room_obj where username='"&Session("Current_user")&"' and selected=1 and room_kind=1 order by id desc"
rs.open sql,conn,1,1
for i=1 to rs.recordcount
str=str& "ie5menu"&rs("id")&".style.visibility='hidden'" & vbcrlf
rs.movenext
next
rs.close
str=str&" } "&vbcrlf
str=str&"</script>"&vbcrlf
response.write str
%>
<%
'/////////用asp 生成 SavePos() 以便获得移动物品后的位置//////////////////////////////
str="<script type='text/javascript' language='JavaScript1.2'>"& vbcrlf
str=str& " function SavePos() "& vbcrlf
str=str&" { "& vbcrlf
str=str&"RoomForm.user_left.value=document.all.DIV_user.style.posLeft;"& vbcrlf
str=str&"RoomForm.user_top.value=document.all.DIV_user.style.posTop;"& vbcrlf
'str=str&"RoomForm.user_z.value=document.all.DIV_user.style.z-index;"& vbcrlf
set rs_obj=server.CreateObject("adodb.recordset" )
sql="select * from room_obj where username='"&Session("Current_user")&"' and selected=1 and room_kind=1 order by id desc"
rs_obj.open sql,conn,1,1
for i=1 to rs_obj.recordcount
str=str&" RoomForm.posleft_"&rs_obj("id")&".value = document.all.DIV_GIFT_"&rs_obj("id")&".style.posLeft "& vbcrlf
str=str&" RoomForm.postop_"&rs_obj("id")&".value = document.all.DIV_GIFT_"&rs_obj("id")&".style.posTop "& vbcrlf
rs_obj.movenext
next
str=str&"RoomForm.friend_left.value=document.all.DIV_friend.style.posLeft;"& vbcrlf
str=str&"RoomForm.friend_top.value=document.all.DIV_friend.style.posTop;"& vbcrlf
str=str&" } "&vbcrlf
str=str&"</script>"&vbcrlf
response.write str
rs_obj.close
set rs_obj=nothing
'////////////////////////////////////////////////////////////////////////////////////////////////////////
程序代码如下:
<!--#include file="const.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%if Session("weight")<0 then
Response.Redirect "error.asp?cause=4"
end if%>
<%
set rs2=server.CreateObject("adodb.recordset")
sql="select * from room_obj where username='"&Session("Current_user")&"'"
rs2.open sql,conn,1,3
for i=1 to rs2.recordcount
if DateDiff("d",rs2("endtime"),date)>0 then
rs2("selected")=0
rs2("typeid")=5
rs2.update
end if
rs2.movenext
next
rs2.close
set rs2=nothing
%>
<SCRIPT LANGUAGE="JavaScript">
<!-- // RightClickMenu
function showmenu(){
var rightedge=event.clientX
var bottomedge=event.clientY
if (rightedge>480)
ie5menu.style.left=480
else
ie5menu.style.left=rightedge+20
if (bottomedge>480)
ie5menu.style.top=480
else
ie5menu.style.top=bottomedge
ie5menu.style.visibility="visible"
return false
}
function showmenu2(){
var rightedge=event.clientX
var bottomedge=event.clientY
if (rightedge>480)
ie5menu2.style.left=480
else
ie5menu2.style.left=rightedge+20
if (bottomedge>480)
ie5menu2.style.top=480
else
ie5menu2.style.top=bottomedge
ie5menu2.style.visibility="visible"
return false
}
// -->
</SCRIPT>
<SCRIPT language=JavaScript>
var cursorX,cursorY,obj=null;
var moveAble=true;
function enableMove(index){
cursorX=event.clientX;
cursorY=event.clientY;
obj=index;
}
function img_border(obj){
obj.className="img_border"
}
function no_img_border(obj){
obj.className=""
}
function disableMove() {obj=null;}
function move_ie(){
if(obj && moveAble){
DIV_name=obj.id;
moveX=event.clientX;
moveY=event.clientY;
if(moveX>550)
moveX=550;
if(moveX<10)
moveX=10;
if(moveY>480)
moveY=480;
if(moveY<10)
moveY=10;
document.all[DIV_name].style.posLeft+=moveX-cursorX;
document.all[DIV_name].style.posTop+=moveY-cursorY;
cursorX=moveX;
cursorY=moveY;
}
}
</SCRIPT>
<%
str="<script type='text/javascript' language='JavaScript1.2'>"& vbcrlf
str=str& " function hidemenuie5() "& vbcrlf
str=str&" { "& vbcrlf
str=str& "ie5menu.style.visibility='hidden'" & vbcrlf
str=str& "ie5menu2.style.visibility='hidden'" & vbcrlf
set rs=server.CreateObject("adodb.recordset")
sql="select * from room_obj where username='"&Session("Current_user")&"' and selected=1 and room_kind=1 order by id desc"
rs.open sql,conn,1,1
for i=1 to rs.recordcount
str=str& "ie5menu"&rs("id")&".style.visibility='hidden'" & vbcrlf
rs.movenext
next
rs.close
str=str&" } "&vbcrlf
str=str&"</script>"&vbcrlf
response.write str
%>
<%
'/////////用asp 生成 SavePos() 以便获得移动物品后的位置//////////////////////////////
str="<script type='text/javascript' language='JavaScript1.2'>"& vbcrlf
str=str& " function SavePos() "& vbcrlf
str=str&" { "& vbcrlf
str=str&"RoomForm.user_left.value=document.all.DIV_user.style.posLeft;"& vbcrlf
str=str&"RoomForm.user_top.value=document.all.DIV_user.style.posTop;"& vbcrlf
'str=str&"RoomForm.user_z.value=document.all.DIV_user.style.z-index;"& vbcrlf
set rs_obj=server.CreateObject("adodb.recordset" )
sql="select * from room_obj where username='"&Session("Current_user")&"' and selected=1 and room_kind=1 order by id desc"
rs_obj.open sql,conn,1,1
for i=1 to rs_obj.recordcount
str=str&" RoomForm.posleft_"&rs_obj("id")&".value = document.all.DIV_GIFT_"&rs_obj("id")&".style.posLeft "& vbcrlf
str=str&" RoomForm.postop_"&rs_obj("id")&".value = document.all.DIV_GIFT_"&rs_obj("id")&".style.posTop "& vbcrlf
rs_obj.movenext
next
str=str&"RoomForm.friend_left.value=document.all.DIV_friend.style.posLeft;"& vbcrlf
str=str&"RoomForm.friend_top.value=document.all.DIV_friend.style.posTop;"& vbcrlf
str=str&" } "&vbcrlf
str=str&"</script>"&vbcrlf
response.write str
rs_obj.close
set rs_obj=nothing
'////////////////////////////////////////////////////////////////////////////////////////////////////////