The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
As admin (ID=1), I would like to be able to see, and perhaps change, the "View Signatures in Posts?" and "Signature checkbox checked by default?" drop-down menus in member's profile. Has this mod been done before?<
Posted
everyones is commented out, it is commented out in the base code and allways has been.
he is trying to allow the admin the ability to change these values for a members profile, which currently is not possible.<
he is trying to allow the admin the ability to change these values for a members profile, which currently is not possible.<
Posted
Originally posted by HuwRThe reason we want to be able to change the settings is to help our forum members. We would not change the setting to view signatures if the member does not want to view them. Many times when our members sign up they set these two options to "No" not knowing exactly what they do or having an incorrect idea of what they do. Then they forget. We have had members ask why they can't see something that other members make reference to in a signature. You and I know the options are available in our profile but for new members, until they learn their way around, they'll never find it. I don't know how it is for you and any forums you run, but for ours, I would say less than half of all members actually read FAQs, instructions, policies, etc. Case in point, texanman above. No offense, texanman!
Why should it be the admins choice as to whether or not I can view signatures?
It has always been our goal to try and educate our frequent visitors on the different features of our online applications and how they work. And it helps if they are as user friendly as possible.<
Posted
Many times when our members sign up they set these two options to "No" not knowing exactly what they do or having an incorrect idea of what they do. Then they forget.Well this is funny, I come here and this topic is in the active topics and I just had this topic pop up in my support section a few hours ago.
<
Posted
Case in point, texanman above. No offense, texanman!I invented the FAQS, what are you talking about??!!!!!!!
I also invented the internet, right before Al Gore!!!!<
Posted
so why not just tell them how to change them themselves ? after all changing them for them is not educating them. better to just tell them how to rather than rewrite the code so you can do it for them<
Posted
I agree, a picture is worth a thousand words. Teach a person to fish....<
Posted
sounds like you want to monitor the signatures of your members, and so thought you might find this useful...It's a quick view admin page I build to display members WITH profiles that include hyperlinks. It would be easy to mod for members with links in their signatures.
of course it's not the complete code, but it's what you need to dump a list of members with hyperlinks in their profile.
Code:
<%
response.write "<table cellpadding=""0"" cellspacing=""0""><tr><td>" & theMessageToShowNow & "</td></tr></table>"
%>
<p>This table shows the contents of the url fields in the user profiles.</p>
<table cellpadding="3" class="stattable" style="border-collapse: collapse;">
<tr bgcolor="#e0e0e0">
<td align="center">Member ID</td>
<td align="center">Posts</td>
<td align="center">Member Name</td>
<td align="center">IP Address</td>
<td align="center">Email</td>
<td align="center">Links URLs</td>
<td align="center">Signature URLs</td>
</tr>
<%
dim gfn, grs, gSQL
Set gfn = Server.CreateObject("ADODB.Connection")
gfn.Open strdbpathforum
Set grs = Server.CreateObject("ADODB.RecordSet")
gSQL = "select * from forum_members where (m_homepage <> null and m_homepage <> '') or (m_link1 <> null and m_link1 <> '') or (m_link2 <> null and m_link2 <> '')"
grs.Open gSQL, gfn, adOpenStatic
if grs.eof then
response.write "<tr><td> -na- </td><td>0</td><td>0</td></tr>"
else
do while not grs.eof
i=i+1
response.write "<tr><td><a href=""_remove_links.asp?id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td>"
response.write "<td>" & grs("m_email") & "</td><td>"
if grs("m_homepage") = "" or isnull(grs("m_homepage")) or grs("m_homepage") = " " then
else
response.write "<strong>homepage:</strong> " & grs("m_homepage") & ""
end if
if grs("m_link1") = "" or isnull(grs("m_link1")) or grs("m_link1") = " " then
else
response.write "<br /><strong>Link 1:</strong> " & grs("m_link1") & ""
end if
if grs("m_link2") = "" or isnull(grs("m_link2")) or grs("m_link2") = " " then
else
response.write "<br /><strong>Link 2:</strong> " & grs("m_link2") & ""
end if
response.write "</td><td>" & grs("m_sig") & "</td></tr>"
grs.movenext
loop
end if
grs.Close
Set grs = Nothing
gfn.Close
Set gfn= Nothing
Set gSQL = Nothing
%>
</table>
Posted
Code:
response.write "<tr><td><a href=""_remove_links.asp?id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td>"
Hey Gary, you have the code for your referenced link?
Posted
Originally posted by Carefree
Hey Gary, you have the code for your referenced link?
Yah, it's real simple/basic, and there is probably a better way, but here ya go...
[word of warning...this code is susceptible to SQL injection if available outside of your secure admin area. I have not accommodated for it, since this was my own little app...not available to public users of my site.]
Code:
<%
dim gfn, grs, gSQL, m_id
'---get the id out of the querystring
m_id = request.querystring("id")
'---check for null id
'---check for empty id
'---check for val can't be converted to integer
if (isnull(m_id) or m_id = "") or isnumeric(m_id) = 0 then
'---bad value passed, redirect to error page
response.redirect "URL OF YOUR CHOICE---when error happens"
else
'---convert string to integer
m_id = cInt(m_id)
'---open the connection
Set gfn = Server.CreateObject("ADODB.Connection")
gfn.Open strdbpathforum
'---clear out their spammy crap
upd = "update forum_members set m_homepage = null, m_link1 = null, m_link2 = null where member_id = " & m_id
gfn.execute(upd)
'---back to the list
response.redirect "monitor_member_links.asp?done=1"
'---close connections
gfn.Close
Set gfn= Nothing
Set upd = Nothing
end if
%>