繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP基础 >> ASP Call Crystal Report with Store Procedure(3)

ASP Call Crystal Report with Store Procedure(3)

2006-06-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:'framepage.ASP

'framepage.ASP

<%

' 05/02/98

' Added the following features:

' Page Expiry Time

' - The page will expire when downloaded by browser so that user is insured that all data

' will be current.

Response.Expires = 0

%>

<%

qs = request.querystring

if qs <> "" then

qs = "&" & qs

end if

%>

">

<% response.write qs %>">

'htmstart.ASP

<%

' 05/02/98

' Added the following features:

' Tab Query String Parameter

' - This is the selected tab's tabArray index value.

' Page Expiry Time

' - The page will expire when downloaded by browser so that user is insured that all data

' will be current.

Response.Expires = 0

On Error Resume Next

qs = request.querystring

if qs <> "" then

qs = "&" & qs

else

' Need to make this call for backward compatibility. Users may be referencing htmstart.ASP in their web pages.

Call InitializeFrameArray

end if

dim tmpArray

dim index

dim brch

dim val

if request.querystring("TAB") <> "" then

tmpArray = session("tabArray")

index = Cint(request.querystring("TAB"))

if tmpArray(index + 1) <> "" then

brch = tmpArray(index + 1)

qs = "&" & "BRCH=" & brch

end if

session("CurrentPageNumber") = tmpArray(index + 2)

session("lastknownpage") = tmpArray(index + 3)

session("LastPageNumber") = tmpArray(index + 4)

' clear out all of the other arrays

if index = 0 then

Call InitializeFrameArray

else

redim preserve tmpArray(index - 1)

session("tabArray") = tmpArray

end if

else

session("CurrentPageNumber") = "1"

session("lastknownpage") = "0"

session("LastPageNumber") = ""

end if

' This function initializes the tabArray.

SUB InitializeFrameArray()

'initialize the HTML_frame array

set session("tabArray") = Nothing

session("lastBrch") = ""

dim tmpArray

tmpArray = Array(4)

redim tmpArray(4)

'Initialize the sequence number

tmpArray(0) = "EMPTY"

session("tabArray") = tmpArray

END SUB

%>

">

<% response.write qs %>">

'JavaPluginViewer.ASP

Seagate Java Viewer using Java Plug-in

classid="clsid:8AD9C840-044E-11D1-B3E9-00805F499D93"

width=100%

height=100%

codebase="/viewer/JavaPlugin/Win32/jre1_2_2-win.exe#Version=1,2,2,0">

width=100%

height=90%

type="application/x-java-applet;version=1.2.2"

pluginspage="/viewer/JavaPlugin/Win32/jre1_2_2-win.exe"

java_code="com.seagatesoftware.img.ReportViewer.ReportViewer"

java_codebase="/viewer/javaviewer/"

java_archive="ReportViewer.jar"

Language="en"

ReportName="rptserver.ASP"

ReportParameter=""

HasGroupTree="true"

ShowGroupTree="true"

HasRefreshButton="false"

HASPrintButton="true"

HasExportButton="true"

HasTextSearchControls="true"

CanDrillDown="true"

HasZoomControl="true"

PromptOnRefresh="true"

>

责任编辑:admin
相关文章