| Author |
 Topic Search  Topic Options
|
gölge 
Groupie
Joined: 16 April 2005
Location: Turkey
Status: Offline
Points: 182
|
 Post Options
 Thanks(0)
 Quote  Reply
 Topic: Dynamic Avatar Mod
Posted: 23 April 2006 at 7:37pm |
dynamic avatar mod for version 8
the mod automatically lists the avatars that you adding later...
replace select_avatar.asp to your own:
object FSO version (most servers support this component, except mine  ):
note: i cant tried it cos my server doesnt support fso but it must be work if i didnt make any mistake...
persits upload version (my server support this component):
Edited by gölge - 23 April 2006 at 11:56pm
|
 |
sunrise
Newbie
Joined: 25 March 2006
Location: Turkey
Status: Offline
Points: 11
|
Post Options
Thanks(0)
Quote Reply
Posted: 25 April 2006 at 9:10pm |
|
Thanks gölge for all your mods an HELPS
|
|
BrownGhost
Groupie
Joined: 26 November 2002
Status: Offline
Points: 193
|
Post Options
Thanks(0)
Quote Reply
Posted: 24 June 2006 at 5:53pm |
|
file not on server for avatar persits upload version
i use thet also. please put it online again so we can download it :)
|
|
|
|
gölge
Groupie
Joined: 16 April 2005
Location: Turkey
Status: Offline
Points: 182
|
Post Options
Thanks(0)
Quote Reply
Posted: 24 June 2006 at 6:31pm |
file is already in server, just click that link for direct download:
|
|
BrownGhost
Groupie
Joined: 26 November 2002
Status: Offline
Points: 193
|
Post Options
Thanks(0)
Quote Reply
Posted: 24 June 2006 at 9:09pm |
|
well i dont understand "#&&#¤/(/%(#// that language LOL
so i cant download it. but i have found my old forum, and take a Dynamic Avatar Mod i udes there, thet works great, also for V8 :)
see my post here:
http://forums.webwiz.net/forum_posts.asp?TID=20414
|
|
|
|
viet47772
Newbie
Joined: 04 June 2006
Status: Offline
Points: 13
|
Post Options
Thanks(0)
Quote Reply
Posted: 01 July 2006 at 5:02am |
|
This code follow you to select avatar in any sub-folders in your avatar folders.
<%
Function RemoveAvatarStrings(strInput)
strInput = Replace(strInput, ".jpg", "")
strInput = Replace(strInput, ".jpeg", "")
strInput = Replace(strInput, ".gif", "")
strInput = Replace(strInput, ".png", "")
strInput = Replace(strInput, "_", " ")
RemoveAvatarStrings = strInput
End Function
Response.Write(vbCrLf & "<optgroup label=' - General Avatars - ' />")
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim rootFolder
Set rootFolder = fso.GetFolder(Server.MapPath("avatars"))
Dim files
Dim file
Set files = rootFolder.Files
For Each file in files
If Instr(file.Type, "JPEG") <> 0 OR Instr(file.Type, "JPG") <> 0 OR Instr(file.Type, "GIF") <> 0 OR Instr(file.Type, "PNG") <> 0 Then
Response.Write "<option value=""avatars/" & file.Name & """>" & RemoveAvatarStrings(file.Name) & "</option>"
End If
Next
Set files = Nothing
Dim subFolders
Dim folder
Set subFolders = rootFolder.SubFolders
For Each folder in subFolders
Response.Write(vbCrLf & "<optgroup label=' - " & folder.Name & " - ' />")
Set files = folder.Files
For Each file in files
If Instr(file.Type, "JPEG") <> 0 OR Instr(file.Type, "JPG") <> 0 OR Instr(file.Type, "GIF") <> 0 OR Instr(file.Type, "PNG") <> 0 Then
Response.Write "<option value=""avatars/" & folder.Name & "/" & file.Name & """>" & RemoveAvatarStrings(file.Name) & "</option>"
End If
Next
Set files = Nothing
Next
Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing
%>
|
|
jsaren
Groupie
Joined: 15 April 2006
Location: China
Status: Offline
Points: 95
|
Post Options
Thanks(0)
Quote Reply
Posted: 02 July 2006 at 4:25am |
viet47772 is great mod creater ! 
|
|
