Advertisement
Advertisement
| 03.27.2008 at 11:43PM PDT, ID: 23276550 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
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: 92: 93: 94: 95: 96: 97: 98: |
ASPX PAGE
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="progressbar.aspx.vb" Inherits="progressbar" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Progress...</title>
<meta http-equiv="expires" content="Tue, 01 Jan 1981 01:00:00 GMT"/>
<% = Meta %>
<script type="text/javascript" language="javascript">
<!--
if (<% = Percent %> >= 100) top.close();
//-->
</script>
</head>
<body bgcolor="#cccccc">
<table border="0" width="100%">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Uploading:</b></font></td>
</tr>
<tr bgcolor="#999999">
<td>
<table border="0" width="<% = Percent %>%" cellspacing="1" bgcolor="#0033ff">
<tr><td><font size="1"> </font></td></tr>
</table>
</td>
</tr>
<tr>
<td>
<table border="0" width="100%">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Estimated Time Left:</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><% = State %></font>
</td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Transfer Rate:</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><% = Kbps %> KB/sec</font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Information:</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><% = Note %></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Uploading File:</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><% = FileName %></font></td>
</tr>
</table>
</td>
</tr>
<tr>
</tr>
</table>
</body>
</html>
CODE BEHIND PAGE
Imports WebSupergoo.ABCUpload6
Public Class progressbar
Inherits System.Web.UI.Page
Protected State As String
Protected Meta As String
Protected Percent As String
Protected Kbps As String
Protected Note As String
Protected FileName As String
Protected Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Dim theProgress As Progress = New Progress(Request.QueryString("ProgressID"))
Dim theID As String = theProgress.ID.ToString()
Dim theMins As String = CInt(theProgress.SecondsLeft / 60).ToString()
Dim theSecs As String = (CInt(theProgress.SecondsLeft) Mod 60).ToString()
Meta = "<meta http-equiv=""refresh"" content=""2,progressbar.aspx?ProgressID=" + theID + """>"
Percent = theProgress.PercentDone.ToString()
Kbps = Math.Round(theProgress.BytesPerSecondCurrent / 1024, 1).ToString()
Dim theKbdone As String = Math.Round(CDbl(theProgress.BytesDone) / 1024, 1).ToString()
Dim theKbtotal As String = Math.Round(CDbl(theProgress.BytesTotal) / 1024, 1).ToString()
Note = theProgress.Note
FileName = theProgress.FileName
If theProgress.Finished = True Then Meta = ""
State = theMins + " min " + theSecs + " secs (" + theKbdone + " KB of " + theKbtotal + " KB uploaded)"
End Sub
End Class
Partial Class progressbar
Inherits System.Web.UI.Page
End Class
|
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 03.28.2008 at 05:17AM PDT, ID: 21229633 |
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: |
HtmlMeta metaDesc = new HtmlMeta();
metaDesc.Name = "DESCRIPTION";
metaDesc.Content = "Meta content";
HtmlMeta metaKeywords = new HtmlMeta();
metaKeywords.Name = "KEYWORDS";
metaKeywords.Content = "Your meta keywords";
HtmlMeta metaAuthor = new HtmlMeta();
metaAuthor.Name = "author";
metaAuthor.Content = "Meta Author";
HtmlMeta metaRobots = new HtmlMeta();
metaRobots.Name = "robots";
metaRobots.Content = "";
HtmlMeta metaLanguage = new HtmlMeta();
metaLanguage.Name = "language";
metaLanguage.Content = "en";
HtmlMeta metaCategory = new HtmlMeta();
metaCategory.Name = "category";
metaCategory.Content = "";
HtmlMeta metaSearchEngines = new HtmlMeta();
metaSearchEngines.Name = "search engines";
metaSearchEngines.Content = "";
//Add Meta controls to HtmlHead
HtmlHead head = (HtmlHead)Page.Header;
head.Controls.Add(metaDesc);
head.Controls.Add(metaKeywords);
head.Controls.Add(metaAuthor);
head.Controls.Add(metaRobots);
head.Controls.Add(metaLanguage);
head.Controls.Add(metaCategory);
head.Controls.Add(metaSearchEngines);
head.Visible = true;
|
| 03.28.2008 at 07:10AM PDT, ID: 21230507 |
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: |
Imports WebSupergoo.ABCUpload6
Public Class progressbar
Inherits System.Web.UI.Page
Protected State As String
Protected Meta As String
Protected Percent As String
Protected Kbps As String
Protected Note As String
Protected FileName As String
Protected Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Dim metadesc As HtmlMeta = New HtmlMeta()
metadesc.Name = "DESCRIPTION"
metadesc.Content = "Meta content"
Dim metakeywords As HtmlMeta = New HtmlMeta()
metakeywords.Name = "KEYWORDS"
metakeywords.Content = "Your meta keywords"
Dim metaAuthor As HtmlMeta = New HtmlMeta()
metaAuthor.Name = "author"
metaAuthor.Content = "Meta Author"
Dim metaRobots As HtmlMeta = New HtmlMeta()
metaRobots.Name = "robots"
metaRobots.Content = ""
Dim metaLanguage As HtmlMeta = New HtmlMeta()
metaLanguage.Name = "language"
metaLanguage.Content = "en"
Dim metaCategory As New HtmlMeta
metaCategory.Name = "category"
metaCategory.Content = ""
Dim metaSearchEngines As HtmlMeta = New HtmlMeta
metaSearchEngines.Name = "search engines"
metaSearchEngines.Content = ""
Dim metaScript As HtmlMeta = New HtmlMeta
metaScript.Name = "search engines"
metaSearchEngines.Content = "script type=""text/javascript"" language=""javascript"" " & _
" if (<% = Percent %> >= 100) top.close()</script>"
' //Add Meta controls to HtmlHead
Dim head As HtmlHead = Page.Header
head.Controls.Add(metadesc)
head.Controls.Add(metakeywords)
head.Controls.Add(metaAuthor)
head.Controls.Add(metaRobots)
head.Controls.Add(metaLanguage)
head.Controls.Add(metaCategory)
head.Controls.Add(metaSearchEngines)
head.Controls.Add(metaScript)
head.Visible = True
Dim theProgress As Progress = New Progress(Request.QueryString("ProgressID"))
Dim theID As String = theProgress.ID.ToString()
Dim theMins As String = CInt(theProgress.SecondsLeft / 60).ToString()
Dim theSecs As String = (CInt(theProgress.SecondsLeft) Mod 60).ToString()
Meta = "<meta http-equiv=""refresh"" content=""2,progressbar.aspx?ProgressID=" + theID + """>"
Percent = theProgress.PercentDone.ToString()
Kbps = Math.Round(theProgress.BytesPerSecondCurrent / 1024, 1).ToString()
Dim theKbdone As String = Math.Round(CDbl(theProgress.BytesDone) / 1024, 1).ToString()
Dim theKbtotal As String = Math.Round(CDbl(theProgress.BytesTotal) / 1024, 1).ToString()
Note = theProgress.Note
FileName = theProgress.FileName
If theProgress.Finished = True Then Meta = ""
State = theMins + " min " + theSecs + " secs (" + theKbdone + " KB of " + theKbtotal + " KB uploaded)"
End Sub
End Class
|
| 03.28.2008 at 08:17AM PDT, ID: 21231175 |