ProjectMultiBrowser.vbs
4.42 KB
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
36
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
'*********************************
'Show the multi projects selecting browser.
'@author lupeng
'@version 04/08/12
'*********************************
'****************************************************************************************
'Show the multi projects selecting browser, not needed.
'@param inputname the hidden or not input object name, it stores the selected projects' id.
'@param spanname the span object name, it shows the selected projects' name.
'****************************************************************************************
Sub onShowMultiProject(inputname, spanname)
Call onShowMultiProjectBase(inputname, spanname, false)
End Sub
'****************************************************************************************
'Show the multi projects selecting browser, needed.
'@param inputname the hidden or not input object name, it stores the selected projects' id.
'@param spanname the span object name, it shows the selected projects' name.
'****************************************************************************************
Sub onShowMultiProjectNeeded(inputname, spanname)
Call onShowMultiProjectBase(inputname, spanname, true)
End Sub
'****************************************************************************************
'Show the multi projects selecting browser, the base function.
'@param inputname the hidden or not input object name, it stores the selected projects' id.
'@param spanname the span object name, it shows the selected projects' name.
'@param needed the flag that whether or not to need input.
'****************************************************************************************
Sub onShowMultiProjectBase(inputname, spanname, needed)
tmpIds = document.all(inputname).value
retValue = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/proj/data/MultiProjectBrowser.jsp?projectids="&tmpIds)
If (Not IsEmpty(retValue)) Then
If retValue(0) <> "" Then
resourceids = retValue(0)
resourcename = retValue(1)
sHtml = ""
resourceids = Mid(resourceids,2,len(resourceids))
document.all(inputname).value = resourceids
resourcename = Mid(resourcename,2,len(resourcename))
While InStr(resourceids,",") <> 0
curid = Mid(resourceids,1,InStr(resourceids,",")-1)
curname = Mid(resourcename,1,InStr(resourcename,",")-1)
resourceids = Mid(resourceids,InStr(resourceids,",")+1,Len(resourceids))
resourcename = Mid(resourcename,InStr(resourcename,",")+1,Len(resourcename))
sHtml = sHtml&"<A href=/proj/data/ViewProject.jsp?ProjID="&curid&" target='_blank'>"&curname&"</A> "
Wend
sHtml = sHtml&"<A href=/proj/data/ViewProject.jsp?ProjID="&resourceids&" target='_blank'>"&resourcename&"</A> "
document.all(spanname).innerHtml = sHtml
Else
document.all(inputname).value = ""
If needed Then
document.all(spanname).innerHtml = "<IMG src='/images/BacoError.gif' align=absMiddle>"
Else
document.all(spanname).innerHtml = ""
End If
End If
End If
End Sub
Sub onShowMultiProjectCowork(inputname, spanname)
c_tmpIds = document.all(inputname).value
c_retValue = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/proj/data/MultiProjectBrowser.jsp?projectids="&c_tmpIds)
If (Not IsEmpty(c_retValue)) Then
if (Len(c_retValue(0)) > 500) then '500为表结构相关项目字段的长度
result = msgbox("您选择的相关项目数量太多，数据库将无法保存所有的相关项目，请重新选择！",48,"注意")
document.all(spanname).innerHtml =""
document.all(inputname).value=""
elseif c_retValue(0)<> "" then
resourceids = c_retValue(0)
resourcename = c_retValue(1)
sHtml = ""
resourceids = Mid(resourceids,2,len(resourceids))
document.all(inputname).value = resourceids
resourcename = Mid(resourcename,2,len(resourcename))
While InStr(resourceids,",") <> 0
curid = Mid(resourceids,1,InStr(resourceids,",")-1)
curname = Mid(resourcename,1,InStr(resourcename,",")-1)
resourceids = Mid(resourceids,InStr(resourceids,",")+1,Len(resourceids))
resourcename = Mid(resourcename,InStr(resourcename,",")+1,Len(resourcename))
sHtml = sHtml&"<A href=javascript:openFullWindowForXtable('/proj/data/ViewProject.jsp?ProjID="&curid&"')>"&curname&"</A> "
Wend
sHtml = sHtml&"<A href=javascript:openFullWindowForXtable('/proj/data/ViewProject.jsp?ProjID="&resourceids&"')>"&resourcename&"</A> "
document.all(spanname).innerHtml = sHtml
Else
document.all(inputname).value = ""
document.all(spanname).innerHtml = ""
End If
End If
End Sub