| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 383 人关注过本帖
标题:[求助]拖动后无法保存位置!
只看楼主 加入收藏
hair123
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-8-10
收藏
 问题点数:0 回复次数:0 
[求助]拖动后无法保存位置!

物品拖动后无法保存拖动后的位置,刷新后又回到了原来的位置,不知道哪里出了问题,请大家帮忙改下,谢谢!
<%


set rs_obj=server.CreateObject("adodb.recordset" )
set rs_2=server.CreateObject("adodb.recordset" )
sql="select * from room_obj where username='"&Session("Current_user")&"' and selected=1 order by id desc"
rs_obj.open sql,conn,1,3
for i=1 to rs_obj.recordcount

id=rs_obj("id")
posleft="posleft_"& id
postop="postop_"& id
pos_left=request.Form(posleft)
pos_top=request.Form(postop)


if pos_left="" then
pos_left=rs_obj("pos_left")
end if
if pos_top="" then
pos_top=rs_obj("pos_top")
end if



sql3="select pos_left,pos_top from room_obj where id="&id
rs_2.open sql3,conn,1,3
rs_2("pos_left")=pos_left
rs_2("pos_top")=pos_top
rs_2.update
rs_2.close


rs_obj.movenext

next

response.write"<script>alert('恭喜您,设置保存成功!');self.close();parent.reload();</script>"

%>
<%

rs_obj.close
set rs_obj=nothing
set rs_2=nothing
%>

搜索更多相关主题的帖子: 拖动 位置 保存 
2007-08-20 00:03
快速回复:[求助]拖动后无法保存位置!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034389 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved