| Author |
 Topic  |
|
DoraMoon
Average Member
Taiwan
661 Posts |
 Posted - 12 December 2002 : 11:03:36
|
hi~
before i made this mod, i use a stupid but super easy way to do this job... i announce one set of "public" username/password Guest/guest to let anonymous users posting! and people really like using this account to posting, i do'nt know why... even register a member is so easy and did'nt take him 10sec. 
so we can see a lots Guest posts on my forum... it seem not so bad as far. but after a while... i found the same one anonymous author name really not so good.. even i diable that account to edit/delete posts, but someone Guest will pretend another Guest to post!! it really a bad thing for a forum discussing.
but i also do'nt like the "nickname" design.... so the Guest1234 -- that's why the suffix number come from. 
as my mentioned, if you know how it working, you can try another method to deal with this anonymity author name issue.
and regarding the "break above line......", sorry again for my bad instruction.  but i think these stuff... remove & _ , add ", response.write..... will become the "basic" modify skill for 3.4 new snitz code soon.  in generally, it's just for the syntax of Response.Write, even i know it really hard to explain clearly by my poor english.  |
 |
|
|
M@DG33K
Starting Member
19 Posts |
Posted - 16 February 2003 : 10:44:59
|
Can one restrict the guest posting to a specific forum only?
MG |
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 16 February 2003 : 12:28:06
|
quote:
Originally posted by M@DG33K
Can one restrict the guest posting to a specific forum only?
yes!
it's a feature you can setup on a specific forum by editing individual Forum Properties.
 |
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 16 February 2003 : 12:45:39
|
Go into your Admin Options and be sure to set Private Forums to "on" first.
Then, as DM says, you'll be in business ... works great. I have it installed on 3 boards. The only problem is that sometimes a registered user doesn't realize that they're not logged in and posts anonymously [even though there is a warning message!]. No biggie! |
Rich
[size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1] |
|
|
|
M@DG33K
Starting Member
19 Posts |
Posted - 17 February 2003 : 06:32:57
|
| yeh, I figured it out from the other posts... but thanks anyway... |
|
|
|
M@DG33K
Starting Member
19 Posts |
Posted - 18 February 2003 : 04:02:44
|
| sorry to revive this again... but the readme says it'll work only for an access db and local webserver... I have a sql db and running IIS on Win2k. Will this work there? |
|
|
|
M@DG33K
Starting Member
19 Posts |
Posted - 18 February 2003 : 23:37:19
|
| bump... |
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 19 February 2003 : 17:39:36
|
quote:
Originally posted by M@DG33K
sorry to revive this again... but the readme says it'll work only for an access db and local webserver... I have a sql db and running IIS on Win2k. Will this work there?
hi~ M@DG33K,
i only can "test" my mod works on Access db, coz i did'nt have a SQL environment to test. but it did'nt mean it "only" work on Access.
and unfortunately, not so many people have tried this mod, so i'm also can't guarantee it work fine on SQL...
i think you can try it, the mod code not so difficult..(as my program knowledge, it should be a easy mod code.. ) and it really base on a simple rule when anonymous posting. i can't think about what reason it can't work on SQL. (by my limited knowledge to SQL)
|
|
|
|
vmplanet
Junior Member
112 Posts |
Posted - 01 March 2003 : 17:07:24
|
It works great on MySQL!! I got one error on admin_anony_active.asp:
Microsoft OLE DB Provider for ODBC Drivers error '80040e09'
[TCX][MyODBC]You have an error in your SQL syntax near 'SELECT TOP 1 R_DATE FROM FORUM_REPLY WHERE (FORUM_REPLY.TOPIC_ID = FORUM_TOPICS.' at line 1
/forum02/admin_anony_active.asp, line 1000
Line 985: strSql2 = strSql2 & "(SELECT TOP 1 R_DATE FROM " & strTablePrefix & "REPLY WHERE "
Line 1000: set rsMyReply = my_Conn.Execute(strSql2)
Changing TOP 1 to LIMIT 1 didn't help.
For the rest the mod works fine on MySQL.
|
|
|
|
Mike-E
Starting Member
23 Posts |
Posted - 28 May 2003 : 01:59:25
|
Hello Dora,
I'm not a very experienced ASP programmer and I have a problem with installing the MOD. I’ve installed it following the steps in your readme file. The only thing I’ve changed was the username and password.
After the installation I get an error on every edited page. It sais:
- - - - - - - -
Microsoft VBScript runtime error ‘800a000d’
Type mismatch: ‘GuestIP’
/scripts/internet/forum/default.asp, line 538
- - - - - - - -
Ofcourse the last line of the error is different on each page, because the GuestIP is used in different parts of the code.
Should it be set somewehere? Should the changed username and password be changed in some of the files?
For your information, I'm using MS SQL server 7.
Please help.
Regards,
Maik
|
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 28 May 2003 : 11:46:06
|
hi~ Maik,
the GuestIP is a new added function in inc_func_common.asp
if you've done the Step.2 code modified, according to the sample file eza_inc_func_common.asp, there should be a new function like this..
'##### EZ Anony 2-1 : add below 1 new functions
function GuestIP(Topic_ID,rMode,rValue)
' rMode: 0 - get ip, 1 - by topic_id, 2 - by reply_id, 3 - by topic_replies
dim rsGuestIP, gIP
if rMode = "0" and Topic_ID = "0" then
gIP = Request.ServerVariables("REMOTE_ADDR")
:
:
:
end function
'########## EZ Anony ##########
you can place this function anywhere in inc_func_common.asp, just "seperate" with other functions. 
and i think if it get error on every page that have used this function, then it may just mean you missing this extra function added code in inc_func_common.asp file.
so please check inc_func_common.asp modification again, and make sure you have this GuestIP function added. |
|
|
|
Mike-E
Starting Member
23 Posts |
Posted - 28 May 2003 : 18:45:01
|
It's working
Thanks for your quick response and help! |
|
|
|
golfmann
Junior Member
United States
450 Posts |
Posted - 09 June 2003 : 23:58:06
|
ok, installed your mod, seems to work great, BUT!!!
It has WIPED OUT my slash mod we use in the portal page!!!
below is the slash main code (I left out the snitz stuff at the top)
See anything I should change??
HELP PLEASE!!!
'#########################################################################################
'## Do not modify anything else below
'#########################################################################################
dim slash(), objDict
dim slPosts, slLength, slSort
dim DTString
dim M_NAME, T_SUBJECT, T_AUTHOR, T_MESSAGE
dim T_REPLIES, T_DATE, TOPIC_ID
dim stForums, stUser, stID, stUsers, stTopics, stPosts
dim lastPost, lastPostLink
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
'## Forum_SQL
strSQL = "SELECT m_code, m_value FROM " & strTablePrefix & "mods WHERE m_name = 'slash';"
set objRec = my_conn.Execute(strSQL)
while not objRec.EOF
objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value
objRec.moveNext
wend
slPosts = cint(objDict.Item("slPosts"))
slLength = cint(objDict.Item("slLength"))
slSort = cint(objDict.Item("slSort"))
slEncode = cint(objDict.Item("slEncode"))
strIMGInPosts = cStr(objDict.Item("slImages"))
strIcons = 0
set objDict = nothing
'## Forum_SQL
strSQL = "SELECT TOP " & slPosts & " " & strTablePrefix & "TOPICS.TOPIC_ID, "
strSQL = strSql & strTablePrefix & "TOPICS.T_SUBJECT, "
strSQL = strSql & strTablePrefix & "TOPICS.T_AUTHOR, "
strSQL = strSql & strTablePrefix & "MEMBERS.M_NAME, "& strTablePrefix & "MEMBERS.M_LEVEL, "& strTablePrefix & "MEMBERS.M_POSTS,"
strSQL = strSql & strTablePrefix & "TOPICS.T_REPLIES, "
strSQL = strSql & strTablePrefix & "TOPICS.T_DATE, "
strSQL = strSql & strTablePrefix & "TOPICS.T_MESSAGE "
strSQL = strSql & "FROM " & strTablePrefix & "TOPICS, "
strSQL = strSql & strTablePrefix & "FORUM, "
strSQL = strSql & strMemberTablePrefix & "MEMBERS "
strSQL = strSql & "WHERE " & strTablePrefix & "FORUM.F_PRIVATEFORUMS = 0 AND "
strSQL = strSql & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID AND "
strSQL = strSql & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSQL = strSql & strCustomSQL & " "
Select Case slSort
Case "2" '## last post
strSQL = strSQL & "ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC;"
DTString = "Latest News On " & strForumTitle
Case "3" '## hot topics
strSQL = strSQL & "ORDER BY " & strTablePrefix & "TOPICS.T_REPLIES DESC;"
DTString = "The hottest topics on " & strForumTitle
Case Else '## last created
strSQL = strSQL & "ORDER BY " & strTablePrefix & "TOPICS.TOPIC_ID DESC;"
DTString = "The latest topics submitted to " & strForumTitle
End Select
set objRec = my_Conn.Execute(strSql)
if strUseExtendedProfile then
%>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openWindow3(url) {
popupWin = window.open(url,'new_page','width=400,height=450,scrollbars=yes')
}
// done hiding -->
</script>
<% end if %>
<table cellspacing="1" cellpadding="3" border="0" bgcolor="<%= strTableBorderColor %>" width="100%">
<tr>
<td align=center bgcolor="<%= strHeadCellColor %>" colspan="3"><font color="<%= strHeadFontColor %>" face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>"><img src="images/head.gif"></font></td>
</tr>
<%
counter = 1
While NOT objRec.EOF
counter = counter + 1
Topic_Message = objRec("T_SUBJECT")
Topic_Subject = objRec("T_SUBJECT")
TMemberID = objRec("T_AUTHOR")
Member_Name = objRec("M_NAME")
Member_Level = objRec("M_LEVEL")
Member_Posts = objRec("M_POSTS")
Topic_REPLIES = objRec("T_REPLIES")
Topic_DATE = objRec("T_DATE")
TOPIC_ID = objRec("TOPIC_ID")
if slEncode = 1 then
Topic_Message = FormatStr(Topic_Message)
else
Topic_Message = (CleanCode(Topic_Message))
end if
If strIMGInPosts = 1 Then
Topic_Message = ClearHTMLTags( Topic_Message, "img" )
End If
If Len(Topic_Message) > CInt(slLength) Then
tmpMessage = Left(Topic_Message, slLength) & "..."
closeTag = InstrRev(tmpMessage,"[/",1)
openTag = InstrRev(tmpMessage,"[",1)
if openTag > closeTag then
closeTag = Instr(openTag,Topic_Message,"]",1)
tmpMessage = Left(Topic_Message, closeTag) & "..." & closeTag
end if
Topic_Message = tmpMessage
Else
Topic_Message = Topic_Message
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small><b><span class=""spnMessageText"">" & profileLink(ChkString(Member_Name,"display"),TMemberID) & "</span></b></font><br />" & vbNewLine
if strShowRank = 1 or strShowRank = 3 then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Member_Title, Member_Level, Member_Posts),"display") & "</small></font><br />" & vbNewLine
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write " " & getStar_Level(Member_Level, Member_Posts) & "<br />" & vbNewLine
end if
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Country & "</small></font><br />" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ width=""" & strTopicWidthRight & """"
Response.Write (" colspan=""2"" ")
Response.Write "valign=""top"">" & vbNewLine
if Topic_Status = 2 then
Response.Write " <font color=""" & strForumVisitedLinkColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>NOT MODERATED!!!</font>" & vbNewline
elseif Topic_Status = 3 then
Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""1""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>ON HOLD</font>" & vbNewline
end if
Response.Write " <font color=""" & strForumVisitedLinkColor & """ face=""" & strDefaultFontFace & ";font-size:15pt;"" ><span class=""spnMessageText"">"
Response.Write Topic_Message
Response.Write "</font></span>" & vbNewLine
Response.Write "<P><div align""right"" style=""font-face:" & strDefaultFontFace & ";font-size:9pt;"" > <a href=""" & strForumURL & "link.asp?TOPIC_ID=" & TOPIC_ID & """><img src='images/complete.gif' alt='Click here to view and comment'></a> [ <b>" & Topic_REPLIES & "</b> reply(s) | " & ChkDate(Topic_DATE, " : " ,false) & " ]</div>" & vbNewLine
Response.write "</td></tr>"
objRec.MoveNext()
Wend
%>
</td>
</tr>
</table>
<%
'#################################################################################
'# Function ClearHTMLTags().
'# by Jóhann Haukur Gunnarsson
'#
'# Variables needed to be defined before calling this
'# function are the following:
'#
'# @strHTML - String defining the config parameteres for SlashMod
'# @strTag - "" - (Empty) if you want to remove all HTML tags
'# Tag - To remove an especific tag ( img, p, b, etc )
'#################################################################################
Function ClearHTMLTags( strHTML, strTag )
' Variables used in the function
dim regEx, strTagLess
' regEx initialization
set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "<" & strTag & "[^>]*>"
strHTML = regEx.Replace( strHTML, "" )
set regEx = nothing
ClearHTMLTags = strHTML
end function
%>
|
|
|
|
golfmann
Junior Member
United States
450 Posts |
Posted - 10 June 2003 : 00:00:34
|
Anybody?
NO POSTS show up now!
|
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 10 June 2003 : 07:29:54
|
hi~ golfmann,
the forum that allow anonymous posting have a special F_PRIVATEFORUMS id 119
rather than normal "open" forum(F_PRIVATEFORUMS=0).
so if you also want those posts show on portal page by your Slash Mod... try this..
modify this line in above your sql string...
strSQL = strSql & "WHERE " & strTablePrefix & "FORUM.F_PRIVATEFORUMS = 0 AND "
to this..
strSQL = strSql & "WHERE (" & strTablePrefix & "FORUM.F_PRIVATEFORUMS = 0 OR " & strTablePrefix & "FORUM.F_PRIVATEFORUMS = 119) AND "
let me know if this can solve your problem. |
|
|
|
Topic |
|
|
|
Topic Locked
