cs_fraud
Messages postés8Date d'inscriptionjeudi 5 décembre 2002StatutMembreDernière intervention 7 mai 2005
-
7 mai 2005 à 11:07
cs_Nurgle
Messages postés1642Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention28 avril 2011
-
9 mai 2005 à 21:22
Bonjour
j'ai recupéré un forum en asp, il est en anglais et j'essaye de le traduire en français, mais il y a une page que je ne peux pas modifier. si l'on change la moindre lettre sur cette page elle ne fonctionne plus.
que peut il se passer??
<!--#include file="menubar.asp"-->
<table border=0 cellspacing=1 width=100% >, http://<% Response.Write Request.ServerVariables(\"Server_Name\") & Request.ServerVariables(\"Script_Name\") & \"?\" & Request.ServerVariables(\"Query_String\") & \"'>Email this thread to a friend
</td>\"
function HTMLFormat(sInput)
dim sAns
sAns = replace(sInput, \" \", \" \")
sAns = replace(sAns, chr(34), \""\")
sIllStart = \"<\" & chr(37)
sIllEnd = chr(37) & \">\"
if instr(sAns, sIllStart) > 0 or instr(sAns, sIllEnd) > 0 then
sAns = replace(sAns, \"<\" & chr(37), \"\")
sAns = replace(sAns, chr(37) & \">\", \"\")
bIllegal = true
end if
sAns = replace(sAns, \">\", \">\")
sAns = replace(sAns, \"<\", \"<\")
sAns = replace(sAns, vbcrlf, \"
\")
sAns = replace(sAns, \"[img]\", \"\")
sAns = replace(sAns, \"[b]\", \"\")
sAns = replace(sAns, \"/b\", \"\")
sAns = replace(sAns, \"[i]\", \"\")
sAns = replace(sAns, \"/i\", \"\")
sAns = replace(sAns, \"[u]\", \"\")
sAns = replace(sAns, \"/u\", \"\")
sAns = replace(sAns, \"
\", \"Quoted text:
<hr>\")
sAns = replace(sAns, \"
\", \"<hr>\")
sAns = replace(sAns, \"[sub]\", \"<sub>\")
sAns = replace(sAns, \"/sub\", \"</sub>\")
sAns = replace(sAns, \"[sup]\", \"<sup>\")
sAns = replace(sAns, \"/sup\", \"</sup>\")
sAns = replace(sAns, \"[center]\", \"<center>\")
sAns = replace(sAns, \"/center\", \"</center>\")
sAns = replace(sAns, \"[1]\", \"\")
sAns = replace(sAns, \"/1\", \"
\")
sAns = replace(sAns, \"[2]\", \"\")
sAns = replace(sAns, \"/2\", \"
\")
sAns = replace(sAns, \"[3]\", \"\")
sAns = replace(sAns, \"/3\", \"
\")
sAns = replace(sAns, \"[4]\", \"\")
sAns = replace(sAns, \"/4\", \"
\")
sAns = replace(sAns, \"[list]\", \"<li>\")
sAns = replace(sAns, \"[url=\", \"\")
sAns = replace(sAns, \"]\", \" target=_blank>\")
sAns = replace(sAns, \":)\", \"\")
HTMLFormat = sAns
end function
Dim rsMsgs, color, flag, count
strSQL \"SELECT Msgs.*, Topic.FForumJoinID, Topic.FID, Topic.FSubject, Topic.FLocked, Users.FUserID, Users.FUserName, Users.FAccess, Users.FNickName, Users.FEmail, Users.FICQ, Users.FAIM, Users.FJoined, Users.FNumOfPosts, Users.FHomePage, Users.FSignature, Users.FShowEmail FROM Topic INNER JOIN (Msgs LEFT JOIN Users ON Msgs.FMsgName Users.FUserID) ON Topic.FID = Msgs.FTopicID WHERE FID=\" & Request.Querystring(\"FTopicID\") & \" ORDER BY FMsgDate ASC\"
set rsMsgs = Server.CreateObject(\"ADODB.Recordset\")
flag = 0
count = 0
rsMsgs.Open strSQL, objConn
Session(\"FID\") = rsMsgs(\"FTopicID\")
If Not rsMsgs.EOF Then
Do While Not rsMsgs.EOF
sOrigMessage = HTMLFormat(rsMsgs(\"FMsg\"))
If rsMsgs(\"FSignature\") <> \"\" Then
sOrigSig = HTMLFormat(rsMsgs(\"FSignature\"))
End If
if flag=0 then
flag=1
color=\"#ffffff\"
else
flag=0
color=\"#eeeeee\"
end if
Response.Write _
If rsMsgs("FMsgProfile") = True Then
Response.Write rsMsgs("FNickName")
Else
Response.Write rsMsgs("FMsgGuest")
End If
Response.Write "
"
If rsMsgs("FMsgProfile") = True Then
If rsMsgs("FNumOfPosts") >= 0 AND rsMsgs("FNumOfPosts") < 50 Then
Response.Write "Newbie Member
= 50 AND rsMsgs("FNumOfPosts") < 100 Then
Response.Write "Jr. Member
"
Elseif rsMsgs("FNumOfPosts") >= 100 AND rsMsgs("FNumOfPosts") < 150 Then
Response.Write "Member
= 150 AND rsMsgs("FNumOfPosts") < 200 Then
Response.Write "Sr. Member
"
Elseif rsMsgs("FNumOfPosts") >= 200 Then
Response.Write "Master Member
" & _
" <TD vAlign=top>"
Else
Response.Write _
"Guest
</td>" & _
"<TD vAlign=top>"
End If
Response.Write ""
If rsMsgs("FMsgEmail") <> "" Then If rsMsgs("FShowEmail") True OR rsMsgs("FMsgProfile") False Then
Response.Write "Email "
' Response.Write "Email "
If rsMsgs("FMsgProfile") = True Then
Response.Write rsMsgs("FNickName")
Else
Response.Write rsMsgs("FMsgGuest")
End If
Response.Write ""
End If
If rsMsgs("FMsgProfile") = True Then
Response.Write " | View Profile"
Response.Write " | "
End If
If rsMsgs("FMsgProfile") = True AND rsMsgs("FHomePage") <> "" Then
Response.Write " | "
End If
End If If Session("Admin") True OR (Session("Mod") rsMsgs("FForumJoinID")) Then
Response.Write " | Delete Message"
End If
Response.Write "
"
If Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))Then
Response.Write "Delete Topic | "
End If
If (Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))) AND rsMsgs("FLocked") = False Then
Response.Write "Lock Topic"
Elseif (Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))) AND rsMsgs("FLocked") = True Then
Response.Write "Unlock Topic"
End If
Response.Write "
"
Else
Response.Write "<center>No Messages Listed
</center>"
End If
