Print Page | Close Window

Avatar dimensions

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums
Forum Description: Support forum for Web Wiz Forums application.
URL: https://forums.webwiz.net/forum_posts.asp?TID=1460
Printed Date: 31 March 2026 at 3:10am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Avatar dimensions
Posted By: melodik
Subject: Avatar dimensions
Date Posted: 29 March 2003 at 3:15pm

Hello, my name is ilhan yücel. I'm a user of 'web wiz forum 6.34' In my
forum,I have made options to use different dimensions for avatar and to
choose pictures from the opening page.Can you include these characteristics
in 'web wiz forum's version 7' ?
the codes I use:


______________profil_edit.asp_____________________________________

<SCRIPT language=JavaScript>

<!--
var resim = new Image;
function yenile()
{
resim.src = frmRegister.SelectAvatar.options[frmRegister.SelectAvatar.selectedIndex].value;
frmRegister.avatar.src = frmRegister.SelectAvatar.options[frmRegister.SelectAvatar.selectedIndex].value
w=resim.width
h=resim.height 
frmRegister.avatar.width=w
frmRegister.avatar.height=h
frmRegister.txtAvatar.value='http://'
frmRegister.oldAvatar.value='';
frmRegister.avatar_width.value =w
frmRegister.avatar_height.value =h
}
function control1()
{
resim.src = frmRegister.SelectAvatar.options[frmRegister.SelectAvatar.selectedIndex].value;
setTimeout("yenile()",1000)
}

function pencere(w,h,scroll) {
ac="width="+w+",height="+h+",resizable=no,status=no,scrollbars="+scroll;
var win2=window.open("avatars.asp","face",ac);
win2.focus();
}
// -->
</SCRIPT>

<SCRIPT language=JavaScript>

<!--
function control2()
{
if (frmRegister.txtAvatar.value != "http://")
{
resim.src = frmRegister.txtAvatar.value;  
w=resim.width
h=resim.height

if (w>100)
{
alert ("Seçtiğiniz resmin boyutları otomatik olarak ayarlanacaktir.")

ht = 100 / w
h= Math.round(ht * h)
w=100
}
if (h>150)
{
wt = 150 / h
w= Math.round(wt * w)
h=150
}

frmRegister.avatar.width =w
frmRegister.avatar.height =h
frmRegister.avatar.src = resim.src
frmRegister.avatar_width.value =w
frmRegister.avatar_height.value =h
}

else
{
alert("Lütfen bir resim adresi yazın.")
}
}
// -->
</SCRIPT>

 

<%
'dim baglanti
dim yaz
dim SQL
'Set baglanti = Server.CreateObject("ADODB.Connection")
'baglanti.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=......themgForum.mdb"
Set yaz = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from tblAvatar ORDER BY ID;"
yaz.open SQL,strCon,1,3
%>
<select name="SelectAvatar" onChange="control1()">
           <option value="Avatar_all/blank.gif"><% = strTxtNoneSelected %></option>
<%
Do while not yaz.eof
%>
<OPTION value="Avatar_all/<%= yaz("Avatar_Directory") %>/<%=yaz("Avatar_Name")%>"
<% if rsProfile("Avatar") = "Avatar_all/"&yaz("Avatar_Directory") &"/"&yaz("Avatar_Name") then
Response.Write"SELECTED"
end if
%>
><%=Replace(yaz("Avatar_Name"),"_",Chr(32))%></OPTION>
<%
yaz.movenext
loop
%>
</select>
<br>
<span style="font-size: <% = intSmallFontSize %>px;"><A onclick="pencere(500,580,'yes')" href="avatars.asp?grup=1&syf=1" target=face style="font-size: <% = intSmallFontSize %>px;">Tüm liste ve pratik seçim için tıkla</a></span>
         </td>
         <td width="128" align="center" height="100">

<img src="<%'If there is an avatar then display itIf strAvatar <> "" Then Response.Write(strAvatar)Else Response.Write("Avatar_all/blank.gif")End If  %>" width="<%=rsProfile("avatar_width")%>" height="<%=rsProfile("avatar_height")%>" name="avatar" ><!--Database den yükseklik ve genişlik çağır -->
          <input type="hidden" name="oldAvatar" value="<% = strAvatar %>">
          <input type="hidden" name="avatar_width" value="<%=rsProfile("avatar_width")%>">
          <input type="hidden" name="avatar_height" value="<%=rsProfile("avatar_height")%>"></td>
        </tr>
        <tr>
         <td colspan="2"> <br>
          <input type="text" name="txtAvatar" size="44" maxlength="100" value="<%
'If the avatar is the persons own then display the link
If InStr(1, strAvatar, "http://") > 0 Then
 Response.Write(strAvatar)
Else
 Response.Write("http://")
End If
 %>" onChange="oldAvatar.value=''" >
<center><input type="button" name="preview" value="<% = strTxtPreview %>" onClick="control2()"></center>

         </td>       
        </tr>
       </table>

_________________________avatars.asp____________________________

<SCRIPT language=javascript>
<!--
function SymError(){  return true;}
window.onerror = SymError;
var resim = new Image;
function yollaaa(neyi,nasil)
{  
resim.src='Avatar_all/'+nasil

window.opener.frmRegister.SelectAvatar.options[neyi].selected=true;  
window.opener.frmRegister.avatar.src="Avatar_all/"+nasil;

window.opener.frmRegister.avatar.width=resim.width
window.opener.frmRegister.avatar.height=resim.height
window.opener.frmRegister.avatar_width.value =resim.width
window.opener.frmRegister.avatar_height.value =resim.height
window.opener.frmRegister.txtAvatar.value='http://'
window.opener.frmRegister.oldAvatar.value='';
}
//-->
</SCRIPT>


<td width="100" height="110"><A onclick="yollaaa(<%=yaz("ID")%>,'<%= yaz("Avatar_Directory") %>/<%=yaz("Avatar_Name")%>');" style="cursor:hand"><center><img src="Avatar_all/<%= yaz("Avatar_Directory") %>/<%=yaz("Avatar_Name")%>"></center><br><center><%=Replace(yaz("Avatar_Name"),"_",Chr(32))%></center></a></td>
<%
yaz.MoveNext
avatar_diz=avatar_diz+1
if avatar_diz mod 4=0 then
%></tr><tr>

______________________upload_avatar.asp__________________________________

<SCRIPT language=javascript>
<!--
function upload()
{
window.opener.frmRegister.txtAvatar.value='Avatar_all/upload/<%= resim_ad %>'
window.opener.frmRegister.oldAvatar.value='';

window.opener.control2()
}
//-->
</SCRIPT>
<a href="javascript:window.close()" onClick="upload()" style="cursor:hand">
<img src="Avatar_all/upload/<%= resim_ad %>" border="0"></a>

http://www.melodik.net/forum/default.asp - http://www.melodik.net/forum/default.asp




Replies:
Posted By: melodik
Date Posted: 20 April 2003 at 8:58am
Why not answer?



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net