The new toolbar from Digg shortens URLs, and let's you share content directly through Facebook, Twitter, or email. Although it is probably not a replacement for the full Digg experience, it does offer some unique features for sharing content on the go. Check out the quick video of the DiggBar in action below.
Digg directly on the destination site: No more awkward toggling between the story page and Digg.
Easily share stories: You can now create a shortened Digg URL to share on Twitter, Facebook or via email. You can also type digg.com/ before the URL of any page you’re on to create a short URL.
Access additional analytics: See how many times a story has been viewed.
View comments while on the story page: Clicking the ‘Comments’ button expands the DiggBar to show the top comment, latest comment, and most controversial without leaving the page.
Discover related stories: Clicking the ‘Related’ button expands the DiggBar to highlight similar stories.
See more stories from the same source: Clicking the ‘Source’ button expands the DiggBar to show you more Digg stories from that source site.
Discover random stories: Click the ‘Random’ button and you’ll be brought to an entirely new, unexpected story.
The DiggBar is also serving up ads adjacent to the pane for reviewing comments, related stories, and additional source content:
One potential drawback of the URL shortener however relates to tracking. With other tools like bit.ly, you can track the number of clicks on a link over time. So far, it looks like the short Digg URLs will go untracked.
To get DiggBar, visit http://digg.com/tools/diggbar.
<%
'-- add your label directory here
labelDir = "m:\web\users\V029U45EBY\html\ovrdrv\blog\labels\"
'-- Check for Directory
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(labelDir) Then
Response.Write "
"
Set labelFolder = FSO.GetFolder(labelDir)
Set labelBlogs = labelFolder.Files
For each label in labelBlogs
Set labelFile = FSO.GetFile(label)
Set labelStream = labelFile.OpenAsTextStream (1, -2)
iLabelCount = -1
'-- Read the file line by line
Do While Not labelStream.AtEndOfStream
Line = labelStream.readline
LineCount = Sgn(InStr(Line,"blogger-labels"))
iLabelCount = iLabelCount + LineCount
Loop
Response.Write "
One potential drawback of the URL shortener however relates to tracking. With other tools like bit.ly, you can track the number of clicks on a link over time. So far, it looks like the short Digg URLs will go untracked.
