WebSVN – DevTools – Diff – /ManagerSuite/Access_Manager/trunk/web/WikiAsp/Wiki.Asp



Dim gHttpDomain , gDebug, gEngineVersion, gDbTableName
Dim gProvider, gDataConn, gDataSource, gDataSourceName
Dim gDocRootDir, gDataSourceDir, gDataSourceFile, gSpaceNames
Dim gScript, gScriptURL, giEditAreaRows, giEditAreaCols, giNumRecentFiles
Dim gHomeTopic, gStyleSheet, gIconName
Dim glsTopic, glsTopicClean, glsMode  , gHideLastEditor,  gLoginFlag, gRemoveHtml,gBlackListedIps
Dim gRE, gHighlightFlag, gHideWikiSource, gHideWikiFooter, gHideLogin, gHtmlHeadStr
Dim gDisableSave,gTimeZoneOffset, gRssStyle, gRedirectURL
Dim gBannerTemplate, gWikiBodyPrefix, gHideTopSearch, gDisableScripting
Dim gMdbExtension , gSearchLabel, gBlackListedIpsRE
Dim gFooterHtml, gEnableEdit, gDevNotePrefix, gBulkDelete

Else
   glsMode = "browse"
End If
 
' Determine the topic otherwise use home topic.
' Provide a clean version for use in file systems
'     glsTopicClean - Replace space with _
glsTopic = "WikiAsp"
If Not isEmpty(request("o")) Then
   glsTopic = request("o")
Else
   glsTopic = gHomeTopic
End If
glsTopicClean=replace(glsTopic, " ", "_" )
 
 
' Determine if RSS contains highlighting or not
If Not isEmpty(request("h")) then
   gHighlightFlag = true
Else

      on error resume next
      set rsResult = connObject.execute(queryString)
      on error goto 0
      
      If  isEmpty(rsResult) then
	    Response.Redirect gRedirectURL
        Response.End
      End If
  End If
  Set WrappedQueryExecute = rsResult
End Function
 

  If right(newText,2) <> vbcrlf Then
    newText = newText & vbcrlf
  End If
 
  'David Purdie
  newText=replace(newText, "$Page$", glsTopicClean )
  newText=replace(newText, "$image$", "local:images/page_" + glsTopicClean )
  newText=replace(newText, "$domain$", glsTopicClean )
 
  ' toc david
  newText = AddAnchors(newText)
 
  'Elrey Ronald

 
 
 
    'End If
 
    Session("CurrentEditPage") = "# "  & strTitle 
    If gHideWikiSource then
       exit sub
    end if
 
    'History of changes

 
    'Original Text
    response.Write("<textarea name=""pagetextorig"" rows=0 cols=0 style='width:0;'>" & strPageData & "</textarea></form>" )
    response.Write("<script language=javascript>form1.pagetext.rows=window.screen.height/26;</script>")
 
 
end sub
 
 
sub handleSearch
 

          deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&delVerified=1" & """>[Delete Page]</td>"
      End If
 
      Response.Write("<td class='tabular'>" & i & ".</td><td class='tabular'><a href=""" &_
                  gScriptURL & "&o=" & rs("Title") & """>" & rs("Title") & "</a></td> <td class='tabular'>" & _
                  GetRFC822date(rs("LastUpdate")) & " by " & rs("LastEditor")& "</td>" &  deleteColumn & _
                  "</tr>" &  vbcrlf)
      i= i+1
      rs.MoveNext
    Loop
    Response.write("</table>" & vbcrlf)

      EmitDebug 46, 2, "Record already exists....<br/>" & vbcrlf
 
      ' check if someone has updated the record while you were editing (ElreyRonald)
      if  Trim(Cstr( rs("lastupdate"))) <> Trim(sLupdt) then
        response.write("<html><head></head><body>")
        Response.Write(  "["& Trim(Cstr( GetRFC822date(rs("lastupdate")))) & "]["& Trim(sLupdt)& "]<br>" )
        Response.Write("<b>Sorry! That page is being edited by another user or is in the process of being saved. <br>Your changes were not saved.</b>" )
 
        response.write( "<br><br> <a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click here to re-edit the page. </a>" )
        response.end
      else

          response.write "<div id=wikifooter class=footer ><form method='POST' action=""" & gScript & """ id=""formFooter"" name=""formFooter""><br>"
          response.write "<hr size=1 noshade=true>"
 
          If Not gHideLastEditor Then
            if lastUpdate <> "" Then
                response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ ><font size=-1>Last Updated " & GetRFC822date(lastUpdate) & " by '" & lastEditor &  "' </font></span><br/>"
            End If
          end if
          response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"
 
'          response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> | "

Rev 5512	Rev 6657
Line 30...	Line 30...
30	`Dim gHttpDomain , gDebug, gEngineVersion, gDbTableName`	30	`Dim gHttpDomain , gDebug, gEngineVersion, gDbTableName`
31	`Dim gProvider, gDataConn, gDataSource, gDataSourceName`	31	`Dim gProvider, gDataConn, gDataSource, gDataSourceName`
32	`Dim gDocRootDir, gDataSourceDir, gDataSourceFile, gSpaceNames`	32	`Dim gDocRootDir, gDataSourceDir, gDataSourceFile, gSpaceNames`
33	`Dim gScript, gScriptURL, giEditAreaRows, giEditAreaCols, giNumRecentFiles`	33	`Dim gScript, gScriptURL, giEditAreaRows, giEditAreaCols, giNumRecentFiles`
34	`Dim gHomeTopic, gStyleSheet, gIconName`	34	`Dim gHomeTopic, gStyleSheet, gIconName`
35	`Dim glsTopic, glsMode , gHideLastEditor, gLoginFlag, gRemoveHtml,gBlackListedIps`	35	`Dim glsTopic, glsTopicClean, glsMode , gHideLastEditor, gLoginFlag, gRemoveHtml,gBlackListedIps`
36	`Dim gRE, gHighlightFlag, gHideWikiSource, gHideWikiFooter, gHideLogin, gHtmlHeadStr`	36	`Dim gRE, gHighlightFlag, gHideWikiSource, gHideWikiFooter, gHideLogin, gHtmlHeadStr`
37	`Dim gDisableSave,gTimeZoneOffset, gRssStyle, gRedirectURL`	37	`Dim gDisableSave,gTimeZoneOffset, gRssStyle, gRedirectURL`
38	`Dim gBannerTemplate, gWikiBodyPrefix, gHideTopSearch, gDisableScripting`	38	`Dim gBannerTemplate, gWikiBodyPrefix, gHideTopSearch, gDisableScripting`
39	`Dim gMdbExtension , gSearchLabel, gBlackListedIpsRE`	39	`Dim gMdbExtension , gSearchLabel, gBlackListedIpsRE`
40	`Dim gFooterHtml, gEnableEdit, gDevNotePrefix, gBulkDelete`	40	`Dim gFooterHtml, gEnableEdit, gDevNotePrefix, gBulkDelete`
Line 169...	Line 169...
169	`Else`	169	`Else`
170	`glsMode = "browse"`	170	`glsMode = "browse"`
171	`End If`	171	`End If`
172		172
173	`' Determine the topic otherwise use home topic.`	173	`' Determine the topic otherwise use home topic.`
-		174	`' Provide a clean version for use in file systems`
-		175	`' glsTopicClean - Replace space with _`
174	`glsTopic = "WikiAsp"`	176	`glsTopic = "WikiAsp"`
175	`If Not isEmpty(request("o")) Then`	177	`If Not isEmpty(request("o")) Then`
176	`glsTopic = request("o")`	178	`glsTopic = request("o")`
177	`Else`	179	`Else`
178	`glsTopic = gHomeTopic`	180	`glsTopic = gHomeTopic`
179	`End If`	181	`End If`
-		182	`glsTopicClean=replace(glsTopic, " ", "_" )`
-		183
180		184
181	`' Determine if RSS contains highlighting or not`	185	`' Determine if RSS contains highlighting or not`
182	`If Not isEmpty(request("h")) then`	186	`If Not isEmpty(request("h")) then`
183	`gHighlightFlag = true`	187	`gHighlightFlag = true`
184	`Else`	188	`Else`
Line 345...	Line 349...
345	`on error resume next`	349	`on error resume next`
346	`set rsResult = connObject.execute(queryString)`	350	`set rsResult = connObject.execute(queryString)`
347	`on error goto 0`	351	`on error goto 0`
348		352
349	`If isEmpty(rsResult) then`	353	`If isEmpty(rsResult) then`
350	`Response.Redirect gRedirectURL`	354	`Response.Redirect gRedirectURL`
351	`Response.End`	355	`Response.End`
352	`End If`	356	`End If`
353	`End If`	357	`End If`
354	`Set WrappedQueryExecute = rsResult`	358	`Set WrappedQueryExecute = rsResult`
355	`End Function`	359	`End Function`
356		360
Line 907...	Line 911...
907	`If right(newText,2) <> vbcrlf Then`	911	`If right(newText,2) <> vbcrlf Then`
908	`newText = newText & vbcrlf`	912	`newText = newText & vbcrlf`
909	`End If`	913	`End If`
910		914
911	`'David Purdie`	915	`'David Purdie`
912	`newText=replace(newText, "$Page$", glsTopic )`	916	`newText=replace(newText, "$Page$", glsTopicClean )`
913	`newText=replace(newText, "$image$", "local:images/page_" + glsTopic )`	917	`newText=replace(newText, "$image$", "local:images/page_" + glsTopicClean )`
914	`newText=replace(newText, "$domain$", gHttpDomain )`	918	`newText=replace(newText, "$domain$", glsTopicClean )`
915		919
916	`' toc david`	920	`' toc david`
917	`newText = AddAnchors(newText)`	921	`newText = AddAnchors(newText)`
918		922
919	`'Elrey Ronald`	923	`'Elrey Ronald`
Line 1522...	Line 1526...
1522		1526
1523		1527
1524		1528
1525	`'End If`	1529	`'End If`
1526		1530
-		1531	`Session("CurrentEditPage") = "# " & strTitle`
1527	`If gHideWikiSource then`	1532	`If gHideWikiSource then`
1528	`exit sub`	1533	`exit sub`
1529	`end if`	1534	`end if`
1530		1535
1531	`'History of changes`	1536	`'History of changes`
Line 1534...	Line 1539...
1534		1539
1535	`'Original Text`	1540	`'Original Text`
1536	`response.Write("<textarea name=""pagetextorig"" rows=0 cols=0 style='width:0;'>" & strPageData & "</textarea></form>" )`	1541	`response.Write("<textarea name=""pagetextorig"" rows=0 cols=0 style='width:0;'>" & strPageData & "</textarea></form>" )`
1537	`response.Write("<script language=javascript>form1.pagetext.rows=window.screen.height/26;</script>")`	1542	`response.Write("<script language=javascript>form1.pagetext.rows=window.screen.height/26;</script>")`
1538		1543
1539	`Session("CurrentEditPage") = "# " & strTitle`	-
1540	`end sub`	1544	`end sub`
1541		1545
1542		1546
1543	`sub handleSearch`	1547	`sub handleSearch`
1544		1548
Line 1961...	Line 1965...
1961	`deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&delVerified=1" & """>[Delete Page]</td>"`	1965	`deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&delVerified=1" & """>[Delete Page]</td>"`
1962	`End If`	1966	`End If`
1963		1967
1964	`Response.Write("<td class='tabular'>" & i & ".</td><td class='tabular'><a href=""" &_`	1968	`Response.Write("<td class='tabular'>" & i & ".</td><td class='tabular'><a href=""" &_`
1965	`gScriptURL & "&o=" & rs("Title") & """>" & rs("Title") & "</a></td> <td class='tabular'>" & _`	1969	`gScriptURL & "&o=" & rs("Title") & """>" & rs("Title") & "</a></td> <td class='tabular'>" & _`
1966	`rs("LastUpdate") & " by " & rs("LastEditor")& "</td>" & deleteColumn & _`	1970	`GetRFC822date(rs("LastUpdate")) & " by " & rs("LastEditor")& "</td>" & deleteColumn & _`
1967	`"</tr>" & vbcrlf)`	1971	`"</tr>" & vbcrlf)`
1968	`i= i+1`	1972	`i= i+1`
1969	`rs.MoveNext`	1973	`rs.MoveNext`
1970	`Loop`	1974	`Loop`
1971	`Response.write("</table>" & vbcrlf)`	1975	`Response.write("</table>" & vbcrlf)`
Line 2033...	Line 2037...
2033	`EmitDebug 46, 2, "Record already exists....<br/>" & vbcrlf`	2037	`EmitDebug 46, 2, "Record already exists....<br/>" & vbcrlf`
2034		2038
2035	`' check if someone has updated the record while you were editing (ElreyRonald)`	2039	`' check if someone has updated the record while you were editing (ElreyRonald)`
2036	`if Trim(Cstr( rs("lastupdate"))) <> Trim(sLupdt) then`	2040	`if Trim(Cstr( rs("lastupdate"))) <> Trim(sLupdt) then`
2037	`response.write("<html><head></head><body>")`	2041	`response.write("<html><head></head><body>")`
2038	`Response.Write( "["& Trim(Cstr( rs("lastupdate"))) & "]["& Trim(sLupdt)& "]<br>" )`	2042	`Response.Write( "["& Trim(Cstr( GetRFC822date(rs("lastupdate")))) & "]["& Trim(sLupdt)& "]<br>" )`
2039	`Response.Write("<b>Sorry! That page is being edited by another user or is in the process of being saved. <br>Your changes were not saved.</b>" )`	2043	`Response.Write("<b>Sorry! That page is being edited by another user or is in the process of being saved. <br>Your changes were not saved.</b>" )`
2040		2044
2041	`response.write( "<br><br> <a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click here to re-edit the page. </a>" )`	2045	`response.write( "<br><br> <a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click here to re-edit the page. </a>" )`
2042	`response.end`	2046	`response.end`
2043	`else`	2047	`else`
Line 2162...	Line 2166...
2162	`response.write "<div id=wikifooter class=footer ><form method='POST' action=""" & gScript & """ id=""formFooter"" name=""formFooter""><br>"`	2166	`response.write "<div id=wikifooter class=footer ><form method='POST' action=""" & gScript & """ id=""formFooter"" name=""formFooter""><br>"`
2163	`response.write "<hr size=1 noshade=true>"`	2167	`response.write "<hr size=1 noshade=true>"`
2164		2168
2165	`If Not gHideLastEditor Then`	2169	`If Not gHideLastEditor Then`
2166	`if lastUpdate <> "" Then`	2170	`if lastUpdate <> "" Then`
2167	`response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ ><font size=-1>Last Updated " & lastUpdate & " by '" & lastEditor & "' </font></span><br/>"`	2171	`response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ ><font size=-1>Last Updated " & GetRFC822date(lastUpdate) & " by '" & lastEditor & "' </font></span><br/>"`
2168	`End If`	2172	`End If`
2169	`end if`	2173	`end if`
2170	`response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"`	2174	`response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"`
2171		2175
2172	`' response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> \| "`	2176	`' response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> \| "`

Subversion Repositories DevTools

(root)/ManagerSuite/Access_Manager/trunk/web/WikiAsp/Wiki.Asp – Rev 5512 → 6657