| T O P I C R E V I E W |
| Lon2 |
Posted - 15 February 2009 : 11:01:31
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?< |
| 15 L A T E S T R E P L I E S (Newest First) |
| garyrobar |
Posted - 18 June 2009 : 08:00:08
quote:
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.]
<%
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
%>
|
| Carefree |
Posted - 01 March 2009 : 00:21:35
quote:
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? |
| garyrobar |
Posted - 28 February 2009 : 17:51:43
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.
<%
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>
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.
|
| bobby131313 |
Posted - 26 February 2009 : 08:46:21
I agree, a picture is worth a thousand words. Teach a person to fish....< |
| HuwR |
Posted - 26 February 2009 : 01:38:26
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< |
| texanman |
Posted - 25 February 2009 : 17:26:05
quote:
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!!!!< |
| bobby131313 |
Posted - 25 February 2009 : 16:46:20
quote:
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.  < |
| Lon2 |
Posted - 25 February 2009 : 14:15:25
quote:
Originally posted by HuwR
Why should it be the admins choice as to whether or not I can view signatures?
The 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!
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.< |
| HuwR |
Posted - 25 February 2009 : 13:34:56
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.< |
| texanman |
Posted - 25 February 2009 : 13:10:08
Hmmm mine is commented too.
Anyway, what are you trying to do. I don't really get it.< |
| HuwR |
Posted - 25 February 2009 : 13:02:30
it was probably commented out because the code was simply copied from the previous section, and it was deemed inappropriate for an admin to be able to set these values so they were commented out.
Why should it be the admins choice as to whether or not I can view signatures ?< |
| Lon2 |
Posted - 25 February 2009 : 12:29:22
Ok strangest thing, after looking at the code in pop_profile.asp I noticed it was already there but commented out. What?
if strSignatures = "1" and strDSignatures = "1" then
strSql = strSql & ", M_VIEW_SIG = " & cLng("0" & Request.Form("ViewSig"))
end if
if strSignatures = "1" then
strSql = strSql & ", M_SIG_DEFAULT = " & cLng("0" & Request.Form("fSigDefault"))
end ifI uncommented the 6 lines and it works perfectly. Weird!
If anyone wants to add the code and don't already have it, insert the above 6 lines after this:
if strSignatures = "1" then
strSql = strSql & ", M_SIG = '" & chkString(Request.Form("Sig"),"message") & "'"
end ifAnd before this:
strSql = strSql & ", M_LEVEL = " & cLng("0" & Request.Form("Level"))Toward the end of case "ModifyIt" around line 1480 of an unmodified pop_profile.asp.
P.S. If anyone knows why it would have been commented out of the original, I would appreciate knowing why.
< |
| AnonJr |
Posted - 19 February 2009 : 16:21:12
Its been a while since I last looked at the profile code... couldn't say off the top of my head.< |
| Lon2 |
Posted - 19 February 2009 : 13:13:40
You are correct, AnonJr. As admin, when I change the options and submit, they don't stay changed. How involved would it be to change the code to allow this?< |
| Lon2 |
Posted - 17 February 2009 : 10:42:14
That was easy! Thank you Carefree! 
P.S. You can move this topic to your Mod w/Code forum. < |
