125
ПРИЛОЖЕНИЕ 3
Примеры кодов, используемых для доработки Системы.
1.
',
If UCase(Request.ServerVariables("URL")) = UCase("/MakeActive.asp")
Then '
If Request("Active")<>"" Then '
If InStr(UCase(Session("CurrentClassDoc")), UCase(""))
= 1 Then '
Set dsTemp1 = Server.CreateObject("ADODB.Recordset")
'
'
sSQL = "select * from Comments where DocID = " &
sUnicodeSymbol & "'" & MakeSQLSafeSimple(Request("DocID"))
& "' and CommentType = 'FILE' and (Subject is NULL or Subject
<> 'ESIGNATURE') and Amount = 0"
dsTemp1.CursorLocation = 3
dsTemp1.Open sSQL, Conn, 3, 1, &H1
dsTemp1.ActiveConnection = Nothing
bError = False
If dsTemp1.EOF Then
Session("Message") = Session("Message") & VbCrLf &
"<font color=red>!</font>
"
bError = True '
End If
dsTemp1.Close '
If bError Then
'
Response.Redirect GetURL("showdoc.asp", "?docid=",
127
127
Request("DocID")) & "&template=" &
Trim(Request("template"))
End If
End If
End If
End If
\UserASP\
PayDox.
2.
If InStr(UCase(Session("CurrentClassDoc")), UCase("
")) > 0
Then ' .
Set dsTemp = Server.CreateObject("ADODB.Recordset") '
sSQL = "select * from Docs where DocID = " & sUnicodeSymbol & "'" &
MakeSQLSafeSimple(S_DocIDParent) & "'" '
dsTemp.Open sSQL, Conn, 3, 1, &H1 '
If not dsTemp.EOF Then '
If CStr(dsTemp("NameApproved")) = "" Then '
'
If InStr(VAR_ButtonsNotToShow & ",", "ClickApprove,") = 0
Then
VAR_ButtonsNotToShow = VAR_ButtonsNotToShow &
"ClickApprove,"
128
128
End If
'
If InStr(VAR_ButtonsNotToShow & ",", "ClickRefuseApp,") =
0 Then
VAR_ButtonsNotToShow = VAR_ButtonsNotToShow &
"ClickRefuseApp,"
End If
Else '
'
VAR_ButtonsNotToShow = Replace(VAR_ButtonsNotToShow &
",", "ClickApprove,", "")
VAR_ButtonsNotToShow = Replace(VAR_ButtonsNotToShow &
",", "ClickRefuseApp,", "")
End If
End If
dsTemp.Close '
End If
\UserASP\
CurrentClassDoc
CurrentDocFieldOrder (
Docs)
3.
129
129
If not IsAdmin() Then '
If UCase(MyCStr(dsComments("CommentType"))) = "FILE" Then
'
If UCase(Left(MyCStr(dsComments("SpecialInfo")) & " ", 4)) <>
"RESP" Then '
If DateDiff("n", dsComments("DateCreation"), Now()) > 10
Then '10
VAR_CanDeleteComment = "N" '
Else
VAR_CanDeleteComment = "" '
End If
End If
End If
End If
USERSHOWLISTCOMMENTS.ASP
comments
\UserASP\
dsComments
4.
130
130
', ,
If Request("create") <> "y" Then
',
If CurrentClassDoc="" Then
'User1 User2,
If Session("UserID")="User1" or Session("UserID")="User2" Then
',
()
S_Department_Set=S_Department
', ,
,
If S_Department="" Then
bDepartment=""
End If
',
()
S_PartnerName_Set=S_PartnerName
', ,
,
If S_PartnerName="" Then
bPartnerName=""
End If
',
()
131
131
S_Rank_Set=S_Rank
', ,
,
If S_Rank="" Then
bRank=""
End If
',
()
S_DateCompletion_Set=S_DateCompletion
', ,
,
If S_DateCompletion="" Then
bDateCompletion=""
End If
End If 'Session("UserID")="User1" or Session("UserID")="User2"
End If 'CurrentClassDoc=""
End If 'Request("create") <> "y"
\UserASP\
132
132
S_DocID_Set
S_NameAproval_Set
S_NameResponsible_Set
S_NameControl_Set
S_ListToReconcile_Set
S_ListToReconcile_Comment
5.
\
Select Case CurrentClassDoc
Case "" ' ,
CurrentDocFieldOrder="DocID,Department,Description"
End Select
6.
Select Case CurrentClassDoc
Case "" ' ,
133
133
CurrentDocFieldOrder="DocID,Department,Description"
End Select
7.
-
If Request("create")="y" Then
If S_ClassDoc=""
Then Set dsTemp =
Server.CreateObject("ADODB.Recordset")
dsTemp.Open "select count(*) as N from Docs where
ClassDoc=""
and YEAR(DateCreation)=YEAR(GETDATE()) and
MONTH(DateCreation)=MONTH(GETDATE()) and
DAY(DateCreation)=DAY(GETDATE())", Conn, 3, 1, &H1
If Not dsTemp.EOF Then
N=CStr(dsTemp("N")+1)
Else
N="1"
End If
dsTemp.Close
S_DocID=""+Trim(Mid(CStr(Year(Date))+" ",
3))+CStr(Month(Date))+CStr(Day(Date))+ "-"+N
If Not IsAdmin() Then
S_DocID_Set=S_DocID
End If
End If
End If
134
134
8.
N2 ,
N1 .
If Request("create") = "y"
Then '
If S_ClassDoc=""
Then '
If S_ActDoc<>""
Then '
'
S_ListToReconcile=GetUserDirValue("",
S_ActDoc, 1, 2)
'S_ListToReconcile_Set=S_ListToReconcile '
End If
End If
End If