关闭当前页面

forget87 2009-09-19 04:59:31
<%
dim WS_OfficeManageName
action=request("action")
if action="update" then

columnName="":TableName="HX_Office":Orderby=" where WS_OfficeID="&OFID
set rs=WS_S.HX_SetRSD(columnName,TableName,Orderby)

WS_OfficeUnitPrice=WS_S.HX_Replace(request.form("WS_OfficeUnitPrice"))
WS_OfficeNum=WS_S.HX_Replace(request.form("WS_OfficeNum"))
WS_OfficeManageName=WS_S.HX_Replace(request.form("WS_OfficeManageName"))
WS_OfficeMeasurement=WS_S.HX_Replace(request.form("WS_OfficeMeasurement"))
WS_OfficeContent=WS_S.HX_Replace(request.form("WS_OfficeContent"))

rs("WS_OfficeUnitPrice")=WS_OfficeUnitPrice
rs("WS_OfficeNum")=WS_OfficeNum
rs("WS_OfficeManageID")=WS_OfficeManageName

rs("WS_OfficeMeasurement")=WS_OfficeMeasurement


rs("WS_OfficeContent")=WS_OfficeContent
rs.update()
end if
window.close();
window.parent.location.reload();
%>
报错:Microsoft VBScript 运行时错误 (0x800A01F4) 变量未定义: 'window'
哪位大哥帮忙解决一下
先谢谢了。
...全文
314 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Q2565093493 2012-09-12
  • 打赏
  • 举报
回复
response.write "<div style='width:600px;padding:3px 0;font-size:12px;color:#000090;border:solid 1px;border-color:#cccccc #000090 #000090;background:#cccccc;'>©right&</div>"&vbcrlf&"</center>"
Web_Team 2009-11-19
  • 打赏
  • 举报
回复
当前当前页面不就是那三句话么,有这么复杂吗??客户端脚本可以解决这个问题的呀
caicai10 2009-09-25
  • 打赏
  • 举报
回复
大哥,你的概念没有搞清楚,关闭当前页面应该是在浏览器那边用JS来做的。


<%
dim WS_OfficeManageName
action=request("action")
if action="update" then

columnName="":TableName="HX_Office":Orderby=" where WS_OfficeID="&OFID
set rs=WS_S.HX_SetRSD(columnName,TableName,Orderby)

WS_OfficeUnitPrice=WS_S.HX_Replace(request.form("WS_OfficeUnitPrice"))
WS_OfficeNum=WS_S.HX_Replace(request.form("WS_OfficeNum"))
WS_OfficeManageName=WS_S.HX_Replace(request.form("WS_OfficeManageName"))
WS_OfficeMeasurement=WS_S.HX_Replace(request.form("WS_OfficeMeasurement"))
WS_OfficeContent=WS_S.HX_Replace(request.form("WS_OfficeContent"))

rs("WS_OfficeUnitPrice")=WS_OfficeUnitPrice
rs("WS_OfficeNum")=WS_OfficeNum
rs("WS_OfficeManageID")=WS_OfficeManageName

rs("WS_OfficeMeasurement")=WS_OfficeMeasurement


rs("WS_OfficeContent")=WS_OfficeContent
rs.update()
end if
%>
<script>
window.parent.location.reload();
window.close();
</script>

4,007

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧