水晶报表(crystal report8)"User Session has expired"如何解决?

源创科技 2005-03-23 05:24:38
Crystal Report Viewer提示:
User Session has expired
具体要如何解决?

附一:如图(只有链结,没办法CSDN不支持贴图)
http://blog.csdn.net/images/blog_csdn_net/yewin/108749/o_crystal.jpg

附二:ASP代码:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" Content="VBScript">

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY topmargin=0 leftmargin=0>
<%
if (trim(Request.Form("rq1"))<>"") and (trim(Request.Form("rq2"))<>"") and (trim(Request.Form("sj1"))<>"") and (trim(Request.Form("sj2"))<>"") then
tmp1=trim(Request.Form("rq1"))&" "&trim(Request.Form("sj1"))
tmp2=trim(Request.Form("rq2"))&" "&trim(Request.Form("sj2"))
end if
%>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
If Not IsObject ( session("oApp") ) Then
Set session ("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If

Path = Request.ServerVariables("PATH_TRANSLATED")
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend
ReportName = path & "rpt\bbcltrade.rpt"

If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if
Set session("oRpt") = session("oApp").OpenReport(ReportName,1)
Session("oRpt").MorePrintEngineErrorMessages = FALSE
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData

set session("ParamCollection") = Session("oRpt").Parameterfields
set Param1 = session("ParamCollection").Item(1)
Call Param1.SetCurrentValue (CStr(tmp1), 12)
set Param2 = session("ParamCollection").Item(2)
Call Param2.SetCurrentValue (CStr(tmp2), 12)

On Error Resume Next
session("oRpt").ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured. Please check the ASP page."
Else
If IsObject(session("oPageEngine")) Then
set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
End If

response.write ReportName

</SCRIPT>
<OBJECT ID="CRViewer1"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100%
HEIGHT=100%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,371">
<param name="EnableGroupTree" value=1>
<param name="DisplayGroupTree" value=1>
<param name="EnableRefreshButton" value=1>
<param name="EnablePrintButton" value=1>
<param name="EnableExportButton" value=1>
<param name="EnableSearchControl" value=1>
<param name="EnableDrillDown" value=1>
<param name="EnableAnimationControl" value=1>
<param name="EnableZoomControl" value=1>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
Call Page_Initialize

Sub Page_Initialize
On Error Resume Next
Dim WebBroker1
Set WebBroker1 = CreateObject("WebReportBroker.WebReportBroker")
Call GetURL(URL)
if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
CRViewer1.ReportName = URL + "rptserver.asp"
else
Dim WebSource1
Set WebSource1 = CreateObject("WebReportSource.WebReportSource")
WebSource1.ReportSource = WebBroker1
WebSource1.URL = URL + "rptserver.asp"
WebSource1.PromptOnRefresh = true
CRViewer1.ReportSource = WebSource1
end if
CRViewer1.ViewReport
End Sub

Sub GetURL(ByRef URL)
HREF = Location.Href
URL= ""
nPos = InStr(HREF, "/")
While (nPos > 0)
URL = URL & Left( HREF, nPos )
HREF = Mid(HREF, nPos + 1)
nPos = InStr(HREF, "/")
Wend
End Sub
</SCRIPT>

<!--METADATA TYPE="DesignerControl" endspan-->



<P> </P>

</BODY>
</HTML>
...全文
481 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
班门弄斧 2005-09-06
  • 打赏
  • 举报
回复
mark!
源创科技 2005-06-23
  • 打赏
  • 举报
回复
这么少人用这报表,

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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