asp打印问题
这事错误信息："正在生成报表，请等待。。。。。。"PSWDBToXML错误'800a004b'Path/Fileaccesserror/newnatcm/Print.as...
这事错误信息："正在生成报表，请等待。。。。。。"
PSWDBToXML 错误 '800a004b'
Path/File access error
/newnatcm/Print.asp，行 47
PSWDBToXML .dll这个文件我也注册组件，是什么错误，
代码我贴出来是什么问题：
<%
dim aArr
dim i
dim aDBToXml
dim sWhere
dim relField
dim rOBY
UserName=Session("UserName")
if UserName = "" then
Response.Write "非法登录，请退出重新登录！"
Response.End
end if
%>
<!--#include File="inc\dbConn.inc"-->
<html>
<head>
<title>报表生成</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="expires" content="0">
</head>
<body>
<h1>"正在生成报表，请等待。。。。。。"</h1>
<script language=javascript>
document.referrer;
</script>
<%
aArr=split(Request("PV"),",",-1,1)
relField=Request("RF")
rOBY=Request("OBY")
sWhere=""
for i=lbound(aArr) to ubound(aArr)
if sWhere="" then
sWhere=relField & "='" & aArr(i) & "'"
else
sWhere="((" & sWhere & ") OR (" & relField & "='" & aArr(i) & "'))"
end if
next
set aDBToXml=Server.CreateObject("PSWDBToXML.TDBToXML")
aDBToXml.ConnSource = conn.ConnectionString '"Data Source=SilverWin;Initial Catalog=natcm;user id=netlogin;Password=123;"
If aDBToXml.OpenConn Then
If aDBToXml.SaveTableToA4ReportXML("f_BoxFileNum,f_ZRZ,f_WJZ,f_TM,f_CWRQ,f_YS,f_BZ","foa_WJ","f_BM,f_BMQX","SELECT * FROM foa_WJ WHERE " & sWhere & " ORDER BY " & rOBY,"SWPrint","f_BM,f_BMQX")=true Then
'if 1=1 then
Set aDBToXml = Nothing
%>
<script language=javascript>
// function OpenXML(v){
// if (v==1)
window.open("SWPrint.xml","_self","scrollbars=yes,resizable=yes,toolbar=no,left=100,top=25,width=" + (window.screen.availWidth - 200) + ",height=" + (window.screen.availHeight - 125));
// window.close();
// }
</script>
<%
' Response.Write "<a href=SWPrint.xml>查看</a>"
End If
End If
on error resume next
conn.close
set conn = nothing
on error goto 0
%>
</body>
</html> 展开
PSWDBToXML 错误 '800a004b'
Path/File access error
/newnatcm/Print.asp，行 47
PSWDBToXML .dll这个文件我也注册组件，是什么错误，
代码我贴出来是什么问题：
<%
dim aArr
dim i
dim aDBToXml
dim sWhere
dim relField
dim rOBY
UserName=Session("UserName")
if UserName = "" then
Response.Write "非法登录，请退出重新登录！"
Response.End
end if
%>
<!--#include File="inc\dbConn.inc"-->
<html>
<head>
<title>报表生成</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="expires" content="0">
</head>
<body>
<h1>"正在生成报表，请等待。。。。。。"</h1>
<script language=javascript>
document.referrer;
</script>
<%
aArr=split(Request("PV"),",",-1,1)
relField=Request("RF")
rOBY=Request("OBY")
sWhere=""
for i=lbound(aArr) to ubound(aArr)
if sWhere="" then
sWhere=relField & "='" & aArr(i) & "'"
else
sWhere="((" & sWhere & ") OR (" & relField & "='" & aArr(i) & "'))"
end if
next
set aDBToXml=Server.CreateObject("PSWDBToXML.TDBToXML")
aDBToXml.ConnSource = conn.ConnectionString '"Data Source=SilverWin;Initial Catalog=natcm;user id=netlogin;Password=123;"
If aDBToXml.OpenConn Then
If aDBToXml.SaveTableToA4ReportXML("f_BoxFileNum,f_ZRZ,f_WJZ,f_TM,f_CWRQ,f_YS,f_BZ","foa_WJ","f_BM,f_BMQX","SELECT * FROM foa_WJ WHERE " & sWhere & " ORDER BY " & rOBY,"SWPrint","f_BM,f_BMQX")=true Then
'if 1=1 then
Set aDBToXml = Nothing
%>
<script language=javascript>
// function OpenXML(v){
// if (v==1)
window.open("SWPrint.xml","_self","scrollbars=yes,resizable=yes,toolbar=no,left=100,top=25,width=" + (window.screen.availWidth - 200) + ",height=" + (window.screen.availHeight - 125));
// window.close();
// }
</script>
<%
' Response.Write "<a href=SWPrint.xml>查看</a>"
End If
End If
on error resume next
conn.close
set conn = nothing
on error goto 0
%>
</body>
</html> 展开
2个回答
展开全部
这种要求最好采用WEB打印控件，我用过一个免费的明数叫激好首“楚琳WEB打印控件”就可以很好的实现此功能，你袜岩可以下载一份试试看。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
