Script
Demo
This part will be hidden in 500 milliseconds.
This part will be hidden in 1 second.
This part will be hidden in 3 seconds.
This part will be hidden in 5 seconds.
Refresh page to view again. Click here to download the script.
VB.Net.DOTNETNUKE.EntitySpaces.jQuery
' Make sure we only have one record for this load
Dim esqUsers As New UserCollectionQuery("uv")
esqUsers.es.Top = 1
esqUsers.es.PageSize = 10
esqUsers.es.PageNumber = _PageNumber
' this part will give us an entry point for insertion of call to our custom database function it will generate this string "uv.[UserID] IN ('-2')"
esqUsers.Where(esqUsers.UserID.OP(esWhereOperand.In, "-2".Split("!"c)))
' more filters, join and grouping here.
' Make the call so we can generate the LastQuery
esUsers = New UserCollection
esUsers.Load(esqUsers)
' Get last query
Dim strLastQuery As String = esqUsers.es.LastQuery
' Insert the call to the function
strLastQuery = strLastQuery.Replace("uv.[UserID] IN ('-2')", "database function & params")
' Make sure we have the data
strLastQuery = strLastQuery.Replace("TOP 1", "")
' You also need to update some parameters if needed.
' Now we call our custom load
esUsers.CustomLoad(strLastQuery)
Public Function CustomLoad(ByVal sSQL As String) As UserCollection
MyBase.Load(esQueryType.Text, sSQL)
Return Me
End Function
<script language="javascript" src="http://vreboton.googlepages.com/jquery-1.3.2.min.js"></script>
<script language="javascript" src="http://vreboton.googlepages.com/jquery.vreboton.UniqueRadioButton.js"></script>
Public Shared Function TableExist(ByVal tableName As String) As Boolean
Dim strSQL As String = "SELECT Count(*) FROM dbo.sysobjects WHERE id = object_id(N'{databaseOwner}[{objectQualifier}" & tableName & "]') AND OBJECTPROPERTY(id, N'IsTable') = 1"
strSQL = strSQL.Replace("{databaseOwner}", DotNetNuke.Common.Utilities.Config.GetDataBaseOwner())
strSQL = strSQL.Replace("{objectQualifier}", DotNetNuke.Common.Utilities.Config.GetObjectQualifer())
Dim util As New esUtility()
If util.ExecuteScalar(esQueryType.Text, strsql) > 0 Then
Return True
Else
Return False
End If
End Function
01.
Public
Sub
InjectClientScript(
ByVal
page
As
System.Web.UI.Page,
ByVal
scriptKey
As
String
,
ByVal
scriptSrc
As
String
,
Optional
ByVal
scriptValue
As
String
=
""
)
02.
Dim
objHead
As
Control = page.FindControl(
"Head"
)
03.
If
objHead IsNot
Nothing
Then
04.
If
objHead.FindControl(scriptKey)
Is
Nothing
Then
05.
Dim
jQueryControl
As
New
HtmlGenericControl(
"script"
)
06.
jQueryControl.ID = scriptKey
07.
jQueryControl.Attributes.Add(
"type"
,
"text/javascript"
)
08.
If
scriptValue =
""
Then
09.
jQueryControl.Attributes.Add(
"src"
, scriptSrc)
10.
Else
11.
jQueryControl.InnerHtml = scriptValue
12.
End
If
13.
objHead.Controls.Add(jQueryControl)
14.
End
If
15.
End
If
16.
End
Sub
1.
InjectClientScript(page,
"jquery.1.3.2.min.js"
,
"/js/jquery.1.3.2.min.js"
)
1.
<
script
id
=
"jquery.1.3.2.min.js"
type
=
"text/javascript"
src
=
"/js/jquery.1.3.2.min.js"
></
script
>
1.
InjectClientScript(page,
"jQueryNoConflict"
,
""
,
"jQuery.noConflict();"
)
1.
<
script
id
=
"jQueryNoConflict"
type
=
"text/javascript"
>jQuery.noConflict();</
script
>
(function($){
$.fn.ShowElementInFullScreen = function() {
return this.each(function(){
$(this).parents().each(function(i){$(this).siblings().hide()});
});
};
})(jQuery);
jQuery('#YourElementId').ShowElementInFullScreen();