Web Wiz - Green Windows Web Hosting

  New Posts New Posts RSS Feed - Avatar dimensions
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Avatar dimensions

 Post Reply Post Reply
Author
melodik View Drop Down
Newbie
Newbie
Avatar

Joined: 26 March 2003
Location: Turkey
Status: Offline
Points: 19
Post Options Post Options   Thanks (0) Thanks(0)   Quote melodik Quote  Post ReplyReply Direct Link To This Post Topic: Avatar dimensions
    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

Back to Top
melodik View Drop Down
Newbie
Newbie
Avatar

Joined: 26 March 2003
Location: Turkey
Status: Offline
Points: 19
Post Options Post Options   Thanks (0) Thanks(0)   Quote melodik Quote  Post ReplyReply Direct Link To This Post Posted: 20 April 2003 at 8:58am
Why not answer?
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.


Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.