Avatar Listesinden Direk Avatar Seçimi..

[AdmiN]

Eğer çok fazla avatarınız varsa ve avatar isimleri numaralardan falan oluşuyorsa, avatar seçmek biraz zorlaşır. Aşağıdaki kod değişikliği, "bütün avatarların gösterildiği pencerede" , istediğiniz avatarın üzerine tıklayarak onu seçmenizi saglar..

bu kodu skyportal.net'ten wingflap yazmıştır.

açılacak dosya: pop_portal.asp

değişecek fonksiyon: avatarLegend()


**************************************************
sub avatarLegend()
response.Write("

")
spThemeBlock1_open(intSkin)
%>
<script type="text/javascript">
function changeAvatar(a_url) {
for(var x=0; x < opener.document.formEle.url2.length; x++) {
if(opener.document.formEle.url2.options

• .value == a_url) {

opener.document.formEle.url2.selectedIndex = x
opener.document.formEle.url2.options

• .selected = true

opener.document.formEle.url2.value = opener.document.formEle.url2.options

• .value

opener.document.formEle.url2.fireEvent('onchange');
}
}
}
</script>
<table class="tPlain">
<tr>
<td class="tSubTitle"><a name="avatars">[/url]<span class="fSubTitle">
<%= txtAvatars %></span></td></tr>
<tr><td class="tCellAlt1" align="center">
<%= txtSiteAvtrs %>


<table border="0" align="center" cellpadding="5">
<%
strSql = "SELECT " & strTablePrefix & "AVATAR2.A_HSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_WSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
set rsav = my_Conn.Execute(strSql)

strSql = "SELECT " & strTablePrefix & "AVATAR.A_ID"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_URL"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_NAME"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_MEMBER_ID"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR "
strSql = strSql & " WHERE " & strTablePrefix & "AVATAR.A_MEMBER_ID = 0 "
strSql = strSql & " ORDER BY " & strTablePrefix & "AVATAR.A_NAME ASC;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = 20
rs.open strSql, my_Conn, 3
if rs.EOF or rs.BOF then '## No replies found in DB %>
<tr><td class="tCellAlt0" colspan="5"><%= txtNoAvFnd %></td></tr>
<%
else
rs.movefirst
rs.pagesize = strPageSize
maxpages = cint(rs.pagecount)
intRowCounter = 0
%>
<tr valign="top"><td>
<table border="0" align="center">
<tr>
<%
do until rs.EOF %>
<td class="tCellAlt1" align="center">
<a href="javascript:void(0)" onClick="changeAvatar('<%=rs("A_URL")%>'); window.close()" title="<%= txtAddMem %>">
<img src="<%= strHomeURL & rs("A_URL") %>" border=<% =rsav("A_BORDER") %> hspace=0 alt="<% =rs("A_NAME") %>">
[/url]


<% =rs("A_NAME") %></font></td>
<%
rs.MoveNext
intRowCounter = intRowCounter + 1
if (intRowCounter mod 7) = 0 and not rs.EOF then %>
</tr><tr>
<%
end if
loop %>
</tr></table>
<%
end if
rs.close
set rs = nothing
set rsav = nothing %>
</td>
</tr>
</table>
</td>
</tr></table>
<%
spThemeBlock1_close(intSkin)
end sub
%>


Yazan: skyquakes

Not: Bu değişiklik maxwebportalda da çalışmaktadır.