1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
|
<%@ Language=VBScript %>
<%option ausdrücklich
Response.CacheControl = „Keinpufferspeicher“
Response.AddHeader „Pragma“, „Keinpufferspeicher“
Response.Expires = -1
Response.Buffer = richten aus
'Auf Störungszusammenfassung zunächst
Wenn Lernabschnitt („Benutzer“) = "" dann
Response.Write „Performance Teilhaberschaft Timeout
“
Response.Write „Your Leistungs-Teilhaberschafts-Lernabschnitt hat heraus Zeit festgesetzt!
Follow diese Anweisungen, LOGON-Seite neu zu laden: das
after, das dieses Fenster schließt, erneuern das prior Fenster, indem es F5 auf einem PC betätigt, oder, wenn Sie ein Mac benutzen, „erneuern“ das Vorwählen Wahl vom menu.
“
Response.End
ElseIf Anwendung („verriegelte sich“), =True dann
Response.Write „Performance Teilhaberschaft Unavailable
schließen nicht dieses Fenster!
“
Response.Write „The Leistungs-Teilhaberschafts-System ist für einige minutes.
, wenn das System wieder Sie vorhanden ist, nimmt exactly, wo Sie weg ohne irgendeinen Informationsverlust verließen, nur wenn Sie die Anweisungen befolgen, die below.
1. dieses Fenster erneuern, indem sie F5 auf einem PC betätigen oder, wenn Sie ein Mac benutzen, das Vorwählen „erneuern“ Wahl vom menu.
2. Klicken „Wiederholung“ wieder auf, wenn prompted.
3. Schritte 1 und 2 mindestens jede wenige Minuten wiederholen, bis das System wird available.
“
Response.End
Beenden wenn
Schwaches vExport, lngRandom, blnRetVal, obj, vDetail, objXL
%>
Export
<%
'Die Überschrift laden
Load_Basic_Header („Export“) benennen
wenn Request.QueryString („Art“) = dann „vorwählen“
Response.Write „
Select eine Organisation vor dem Export.“
Response.End
beenden wenn
Response.write „, das verursacht einen Excel-Verteilungsbogen von der aktiven Vorwähler….“
Response.Flush
vExport=Session („Export“)
Wenn IsEmpty (vExport) dann
Response.Write „
diese Vorwähler ist nicht z.Z. in der Lage, exported zu sein“
Sonst
Response.Write („
")
Response.Write („Export-Funktionalität Started.")
Randomisieren
lngRandom = int ((9000000000 - 1000000000 + 1) * Rnd + 1000000000)
vExport (C_EXPORT_FILE_NAME) =CStr (vExport (C_EXPORT_PLAN)) u. „_“ u. session.SessionID u. „_“ u. lngRandom
Obj = Server.CreateObject („HRW_Execute.CExecute“) einstellen
Response.Write („
")
Response.Write („
")
Response.Write vExport (C_EXPORT_QUERY)
Response.Write („
")
Response.Write („
")
Response.Write (C_EXPORT_FIELDS)
vDetail = obj.SelectRows (C_DB_NAME, C_RDAHR_ID, C_RDAHR_PW, vExport (C_EXPORT_QUERY), vExport (C_EXPORT_FIELDS))
Obj einstellen = nichts
objXL = CreateObject (C_TCP_EXPORT) einstellen
Response.Write („
")
Response.Write („
")
Response.Write (C_EXPORT_PLAN)
Response.Write („
")
Response.Write („
")
Response.Write („erstes Mal“) + „
“
Response.Write („
")
Response.Write („
")
Response.Write (vExport (C_EXPORT_FILE_NAME) + „
")
Response.Write („
")
Response.Write („
")
Response.Write (vExport (c_EXPORT_PLAN) + „
")
Response.Write („
")
Response.Write („
")
vExport (C_EXPORT_FILE_NAME) =CStr (vExport (C_EXPORT_PLAN)) u. „_“ u. session.SessionID u. „_“ u. lngRandom
'Response.Write („
")
'Response.Write („
")
Response.Write („zweites Mal“) + „
“
Response.Write („
")
Response.Write („
")
Response.Write (vExport (C_EXPORT_FILE_NAME) + „
")
Response.Write („
")
Response.Write („
")
Response.Write (CStr (vExport (C_EXPORT_PLAN)))
Response.Write (CStr (Lernabschnitt („Pword“)))
Response.Write (C_EXPORT_FIELDS)
'Response.Write (vDetail (0.0))
Response.Write (C_TCP_EXPORT_DIR)
Response.Write (vExport (C_EXPORT_FILE_NAME))
Response.Write (vExport (C_EXPORT_FREQUENCY))
'UBound (arrayname [, Maß])
'arrayname erforderte. Der Name der Feldvariable
'Maß wahlweise freigestellt. Oberes Limit welches Maßes zum zurückzugehen. 1 = bemessen zuerst, 2 = zweites Maß, und so weiter. Rückstellung ist 1
'Hier ist der Reihenname vDetail
'Maß ist 2
I, J verdunkeln
Für i = 0 zum ubound (vDetail, 2)
Für J = 0 zum ubound (vDetail, 2)
Response.Write („der Wert ist“ u. vDetail (i, j) u. „
")
Zunächst
Zunächst
Fall CStr (vExport (C_EXPORT_PLAN) vorwählen)
„Verdienst“ umkleiden
blnRetVal = objXL.ExportMerit (Lernabschnitt („Pword“), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME), vExport (C_EXPORT_FREQUENCY))
'vExport (C_EXPORT_FREQUENCY))
'Response.Write „Wert von blnRetVal ist“ + blnRetVal + „
“
Fall „VCP“
blnRetVal = objXL.ExportMIP (Lernabschnitt („Pword“), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))
'Response.Write blnRetVal + „
“
'Response.Write „Wert von blnRetVal ist“ + blnRetVal + „
“
Fall „AIP“
blnRetVal = objXL.ExportAIP (Lernabschnitt („Pword“), vExport (C_EXPORT_PLAN), vDetail, C_TCP_EXPORT_DIR, vExport (C_EXPORT_FILE_NAME))
'Response.Write blnRetVal + „
“
'Response.Write „Wert von blnRetVal ist“ + blnRetVal + „
“
Fall sonst
Response.Write „das
“ u. vExport (C_EXPORT_PLAN) u. „Plan ist nicht z.Z. in der Lage, exported zu sein“
objXL einstellen = nichts
Response.End
Auserwähltes beenden
objXL einstellen = nichts
Wenn blnRetVal dann
%>
ein Microsoft Excel-Verteilungsbogen ist mit Realzeitinformationen verursacht worden. Dieser Verteilungsbogen ist mit Ihrem Leistungs-Teilhaberschafts-Systemskennwort geschützt worden (in Kleinschreibung). Nachdem die Akte, bitte außer ihr zu einem lokalen Festplattenlaufwerk oder zu einem schlaffen disk.
geöffnet worden ist
 Click, zum des Verteilungsbogens oder des Right-click für anderes options.
<% zu öffnen
Sonst
Response.Write „“
Response.End
Beenden wenn
Beenden wenn
%>
|
