28,391
社区成员
发帖
与我相关
我的任务
分享消息: 对象不支持此属性或方法: 'obj.Init'
操作系统：win7旗舰版、office2012、ie8、sql2008
发现执行asp网页中的js中的此行obj.Init时，
报错 消息: 对象不支持此属性或方法: 'obj.Init'
代码图片：
出错图片：
发现执行asp网页中的js中的此行obj.Init时，
报错 消息: 对象不支持此属性或方法: 'obj.Init'
代码图片：
出错图片：
...全文
请发表友善的回复…
发表回复
cd731107 2013-05-20
- 打赏
- 举报
wsreport.ocx的信息如下：
cd731107 2013-05-20
- 打赏
- 举报
代码的第218行的代码如下：
<object codebase="../../../OCX/wsReport.ocx#version=4,5,0,1" classid="clsid:08D91289-1761-4006-8294-FDE48B9F29BD" width="956" height="600" id="obj">
前面的obj应该就是加载这个打印控件的
cd731107 2013-05-20
- 打赏
- 举报
原来在xp的机器上使用ie6都是正常的，升级到win7和ie8出现引问题
此打印网页的asp全部代码如下：
<!--#include file="../../../include/conn.asp"-->
<!--#include file="../../../include/ut.asp"-->
<%
djh=request("djh")
DWBH=session("DWBH")
sql="SELECT KHSDM_DWQC, PZH, CKDH, DZ, DH, KDRQ,HSJE_DX, HSJE FROM V_XSCK where ckzl=0 and ckdh='"&djh&"'"
set rt=conn.execute(sql)
sql="SELECT DWQC, LXDZ, DH FROM XTSZ where DWBH='"&DWBH&"'"
set rt2=conn.execute(sql)
set rt1 = Server.CreateObject("ADODB.Recordset")
sql="SELECT HPBM,HPBM_HPMC,KWDM,HPBM_HPJC,HPBM_HPCDID, UNITID, isnull(CKSL,0) as CKSL, isnull(HSDJ,0) as HSDJ, isnull(HSJE,0) as HSJE FROM V_XSCKMX where ckdh='"&djh&"'"
if rt1.state then rt1.close()
rt1.cursorlocation=3
rt1.open sql,conn,0,1
%>
<script language="VBScript">
Function test()
obj.Init
obj.Width = 956
obj.Height = 600
obj.PageSize = 0
obj.CurrentPosY = 20
obj.PageWidth = 240
obj.PageHeight = 140
obj.LeftMargin = 40
obj.TopMargin = 30
obj.LineInterval = 0
'obj.OutlineOffset = 20
obj.PFToMargin = 5
obj.PHToMargin =10
obj.SetFontSize 16
obj.DrawObject "", "", 1, "100,30", 5, "", "", "false,1"
obj.DrawObject "", obj.ReadImage("http://xiaoao/erp_asp_qp/images/printimg/11.jpg"), 1, "70,20", 5, "", "", "false,1"
'obj.DrawObject "", obj.ReadImage("http://bl001/ERP_ASP/images/printimg/11.jpg"), 1, "70,20", 5, "", "", "false,1"
obj.DrawObject "", "", 1, "100,30", 5, "", "", "false,1"
obj.DrawObject "<%=rt2("DWQC")%>销售清单", "", 1, "610,50", 2, "", "", "True,1"
obj.SetFontSize 13 '字号
obj.SetFontStyle 0, 0, 0 '是否斜体，是否粗体，是否下划线
obj.SetOutline 0, 0, 0, 0, RGB(255, 255, 255) '设置外框线
obj.SetBKMode 1 '背景模式. 1-背景透明，即单元格背景颜色无效 2-背景不透明，即用当前背景颜色填充单元格
obj.SetTextColor RGB(0, 0, 0)
obj.SetFont "宋体", 1
obj.DrawObject "", "", 1, "682,15", 5, "1,2,3,4", "", "True,1"
obj.DrawObject "购货单位: <%=rt("KHSDM_DWQC")%>","","1","280,15",2,"1,2,3,4","","false,1"
obj.DrawObject " 凭证号： <%=rt("PZH")%>","","1","215,15",5,"1,2,3,4","","false,1"
obj.DrawObject " 清单编号： <%=rt("CKDH")%>","","1","230,15",5,"1,2,3,4","","true,1"
obj.DrawObject "地 址: <%=rt("DZ")%>","","1","280,15",2,"","1,2,3,4","false,1"
obj.DrawObject "电 话： <%=rt("DH")%>","","1","215,15",5,"","1,2,3,4","false,1"
obj.DrawObject " 销售日期： <%=rt("KDRQ")%>","","1","230,15",2,"1,2,3,4","","true,1"
obj.SetOutline 0, 0, 1, 0, RGB(0, 0, 0)
obj.SetFontSize 13
obj.DrawObject "商品编号", "", 5, "70,18", 5, "", "", "false,1"
obj.DrawObject " 商品名称", "", 5, "110,18", 5, "", "", "false,1"
obj.DrawObject "车型", "", 5, "220,18", 5, "", "", "false,1"
obj.DrawObject "产地", "", 5, "40,18", 5, "", "", "false,1"
obj.DrawObject "库位", "", 5, "50,18", 5, "", "", "false,1"
'obj.DrawObject "单位", "", 5, "40,18", 5, "", "", "false,1"
obj.DrawObject "数量", "", 5, "50,18", 5, "", "", "false,1"
obj.DrawObject "单价", "", 5, "65,18", 5, "", "", "false,1"
obj.DrawObject "金额", "", 5, "70,18", 5, "", "", "false,1"
obj.DrawObject "备注", "", 5, "55,18", 5, "", "", "true,1"
<%
n=1
dim xj
dim sl
BlnIsEnd =false
if not rt1.eof then
rt1.movefirst
for i=0 to rt1.recordCount-1+(rt1.recordCount)/9
if n mod 10 =0 then
'写合计列
Response.write("obj.DrawObject ""合计金额："& rt("HSJE_DX") & rt("HSJE") & """, """", 0, ""400,18"", 2, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject ""本页小计"", """", 0, ""90,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """&sl&""", """", 0, ""50,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """&xj&""", """", 0, ""135,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""55,18"", 5, """", """", ""true,1"""&chr(13))
xj=0.00
sl=0
else
if BlnIsEnd then
Response.write("obj.DrawObject """","""",0,""70,18"" , 5,"""","""",""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""110,18"" ,5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""220,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""40,18"" , 5, """","""", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""50,18"" , 5, """","""", ""false,1"""&chr(13))
'Response.write("obj.DrawObject """", """", 0, ""40,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""50,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""65,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""70,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""55,18"", 5, """", """", ""true,1"""&chr(13))
else
Response.write("obj.DrawObject """ & right(rt1("HPBM"),8) & ""","""",0,""70,18"" , 5,"""","""",""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("HPBM_HPMC"),8) & """, """", 0, ""110,18"" ,5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("HPBM_HPJC"),16) & """, """", 0, ""220,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("HPBM_HPCDID"),4) & """, """", 0, ""40,18"" , 5, """","""", ""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("KWDM"),6) & """, """", 0, ""50,18"" , 5, """","""", ""false,1"""&chr(13))
'Response.write("obj.DrawObject """ & left(rt1("UNITID"),1) & """, """", 0, ""40,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("CKSL"),4) & """ , """", 0, ""50,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("HSDJ"),6) & """, """", 0, ""65,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """ & left(rt1("HSJE"),7) & """, """", 0, ""70,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""55,18"", 5, """", """", ""true,1"""&chr(13))
xj=CSng(xj)+Csng(rt1("HSJE"))
sl=CSng(sl)+Csng(rt1("CKSL"))
end if
if not rt1.eof then
rt1.movenext
else
BlnIsEnd = true
end if
end if
n=n+1
next
if rt1.recordcount / 9 <> 0 then
for i=1 to (9-(rt1.recordcount mod 9))
Response.write("obj.DrawObject """","""",0,""70,18"" , 5,"""","""",""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""110,18"" ,5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""220,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""40,18"" , 5, """","""", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""50,18"" , 5, """","""", ""false,1"""&chr(13))
'Response.write("obj.DrawObject """", """", 0, ""40,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """" , """", 0, ""50,18"" , 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""65,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""70,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""55,18"", 5, """", """", ""true,1"""&chr(13))
next
Response.write("obj.DrawObject ""合计金额："& rt("HSJE_DX") & rt("HSJE") & """, """", 0, ""400,18"", 2, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject ""本页小计"", """", 0, ""90,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """&sl&""", """", 0, ""50,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """&xj&""", """", 0, ""135,18"", 5, """", """", ""false,1"""&chr(13))
Response.write("obj.DrawObject """", """", 0, ""55,18"", 5, """", """", ""true,1"""&chr(13))
end if
end if
%>
obj.SetFontSize 13
obj.PFToMain = 5
obj.DrawObject "-------第%p页------","",2,"700,15",8,"1,2,3,4","","true,1"
obj.SetFontSize 12
obj.DrawObject "地址: <%=rt2("LXDZ")%>","","2","320,18",2,"1,2,3,4","","false,1"
obj.DrawObject "电话： <%=rt2("DH")%>","","2","150,18",5,"1,2,3,4","","false,1"
obj.DrawObject "发货：","","2","150,18",5,"1,2,3,4","","false,1"
obj.DrawObject "制单： <%=DWBH%>","","2","120,18",5,"1,2,3,4","","true,1"
obj.DrawObject "注意事项：1.货物当面点清，离柜后短缺或损坏客户自理","","2","470,18",2,"1,2,3,4","","false,1"
obj.DrawObject "送货：","","2","148,18",5,"1,2,3,4","","false,1"
obj.DrawObject "签收：","","2","80,18",5,"1,2,3,4","","true,1"
obj.DrawObject " 2.白单：结算联 红单：客户联 黄单：提货联","","2","450,18",2,"1,2,3,4","","false,1"
obj.PrintPreview
End Function
</script>
<Script Language='javascript'>
function tdfy123()
{
alert("123");
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body onload="test()">
<p>
<object codebase="../../../OCX/wsReport.ocx#version=4,5,0,1" classid="clsid:08D91289-1761-4006-8294-FDE48B9F29BD" width="956" height="600" id="obj">
<param name="_Version" value="65536">
<param name="_ExtentX" value="25294">
<param name="_ExtentY" value="15875">
<param name="_StockProps" value="0">
</object>
</p></body>
</html>
jodgen 2013-05-20
- 打赏
- 举报
看起来这个是客户端的脚本，obj作为一个对象，你需要初始化，至少也要建立这个对象
functionsub 2013-05-20
- 打赏
- 举报
。。。。。。。。。。
都不知道你obj是什么东西，就调用init方法，。
Go 旅城通票 2013-05-20
- 打赏
- 举报
没有下载acx到客户端或者客户端没有理会acx安装提示。。楼主自己找找acx相关的知识看看
