|
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
#151
|
||||
|
||||
|
I made it to the 25th spot of the DevFolders. And it looks like that's where I'll be staying for some time unless someone knocks me out of it. I've got a few laps to go before I can pass anyone else.
Look at this, 'tis close: Code:
25 medialint 48374 283 26 StrikeEagle 48075 626 27 Axweildr 48018 304 28 ChiefWigs1982 48017 292
__________________
medialint.com "Energy has the opportunity to change the climate if it's done right." - Sen. John Ensign, R-Nev. (quoted out of context) |
|
#152
|
||||
|
||||
|
80th place in overall team rank, and also part of the 20 Top Producers
for some time now... the real reason I post here is because of neat idea given by bubbablaze in aspfree - so here is the steps required to have your own folding signature:
Code:
<% Option Explicit %>
<%
Const BASE_URL="http://folding.extremeoverclocking.com/sigs/sigimage.php?un=%user&t=12912"
Sub CheckUsername
Dim strUsername, objFSO, objFile
Dim strFileName, strFilePath
strUsername = Request("username")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFileName = "sig_" & strUsername & ".asp"
strFilePath = Server.MapPath(strFileName)
If objFSO.FileExists(strFilePath) Then
Response.Write("file already exists.<br />")
Else
Set objFile = objFSO.CreateTextFile(strFilePath)
objFile.WriteLine("<" & "%" & " Response.Redirect(""" & Replace(BASE_URL, "%user", strUsername) & """) " & "%" & ">")
objFile.Close
Set objFile=Nothing
Response.Write("file created successfully!<br />")
End If
Set objFSO=Nothing
Response.Write("[IMG]" & GetProtocol & "://" & GetServerName & GetCurrentDir & strFileName & "[/IMG]<br />")
End Sub
Function GetProtocol
Dim strFullProt, arrTemp
strFullProt = Request.ServerVariables("SERVER_PROTOCOL")
arrTemp = Split(strFullProt, "/")
GetProtocol = arrTemp(0)
Erase arrTemp
End Function
Function GetServerName
GetServerName = Request.ServerVariables("SERVER_NAME")
End Function
Function GetCurrentDir
Dim strScriptName, arrTemp, x
Dim result
strScriptName = Request.ServerVariables("SCRIPT_NAME")
arrTemp = Split(strScriptName, "/")
result = "/"
For x=0 To UBound(arrTemp)-1
result = result & arrTemp(x) & "/"
Next
GetCurrentDir = result
End Function
%>
<html>
<head>
<title>DevFolding Signature Generator</title>
</head>
<body>
<% If Request("username")<>"" Then Call CheckUsername %>
<form>
Username: <input type="text" name="username" value="<%=Request("username")%>" /><button type="submit">Submit</button>
</form>
</body>
</html>
good luck, congrats everyone for the great folding and happy folding! ![]()
__________________
Last edited by Shadow Wizard : February 20th, 2006 at 02:52 AM. |
|
#153
|
||||
|
||||
|
Broke 2k over the weekend!
__________________
Did this help? If so, please add to my Reputation by clicking the at the top of this postMy Folding: -
|
|
#154
|
||||
|
||||
|
Quote:
You posted ASP code on Dev Shed? The place is tainted now! I feel so dirty... I need to go wash my eyes with soap! ![]() ---John Holmes... Last edited by Sepodati : February 20th, 2006 at 04:54 AM. |
|
#155
|
||||
|
||||
|
Quote:
![]() and feel free to convert it into PHP if you like so that it can be hosted on linux servers as well. ![]() |
|
#156
|
||||
|
||||
|
hmm how does this icon thing works, i though that everytime you finish a job.. you get an extra icon no? i read that you have to wait for the system to update it... but i finished the job almost 2 days ago... just wondering.
__________________
IE QUOTE | PHP Manual | Google | C/C++ Compiler | Linux Tutorials | General Stuff Game Dev |
|
#157
|
||||||
|
||||||
|
Quote:
Quote:
![]()
__________________
Free Willy and the Whalers Quote:
|
|
#158
|
||||
|
||||
|
No, every 1000 points. each job is a different length, so worth different points.
__________________
~James [Not currently seeking freelance work] Like philosophy or interested in spirituality? Philosophorum. Game Dev Experts Forums Foresight Linux - Because your desktop should be cool! Linux FAQ FedoraFAQ UbuntuGuide |
|
#159
|
||||
|
||||
|
Quote:
|
|
#160
|
||||
|
||||
|
Quote:
Converted to php, finished version here, source here. Limited offer, get your free sig hosted by me with no ads... Use the first link. |