home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 9
/
Freelog009.iso
/
BAS
/
Internet
/
Abb
/
doadmtopics.asp
< prev
next >
Wrap
Text File
|
2000-03-02
|
4KB
|
134 lines
<% @ LANGUAGE="VBScript" lcid="1036" %>
<!--#include file="include.asp"-->
<%
Nom3=Replace(request.QueryString("Noma"), "'", "''")
Passe2=Replace(request.QueryString("Passe"), "'", "''")
quoi2=Replace(request.form("quoi"), "'", "''")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ABB</title>
<style type="text/css">
<!--
A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
-->
</style>
</head>
<body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
<p align="center"><font face="Arial"><b>
<%
If quoi2 = "modif" Then
Titre2=Replace(request.form("Titre"), "'", "''")
Desc2=Replace(request.form("Desc"), "'", "''")
Suppr2=Replace(request.form("Suppr"), "'", "''")
Topic2=Replace(request.form("Topic"), "'", "''")
Admin2=Replace(request.form("Admin"), "'", "''")
If Suppr2 <> "ON" Then
SQLStmt = "UPDATE Topic "
SQLStmt = SQLStmt & "SET topicdesc = ('" & Titre2 & "'), topicinfo = ('" & Desc2 & "'), topicadm = (" & Admin2 & ") "
SQLStmt = SQLStmt & "WHERE topicid=" & Topic2 & " "
Set RS = ConnectionBD.Execute(SQLStmt)
%>
Modification effectuΘe
<%
Else
strPostSQL = "SELECT * FROM Post WHERE posttopic=" & Topic2 & " "
set PostRes=ConnectionBD.Execute(strPostSQL)
Do Until PostRes.EOF = True
SQLStmt1 = "DELETE FROM Postcn "
SQLStmt1 = SQLStmt1 & "WHERE postcnpo=" & PostRes("postid") & " "
Set RS1 = ConnectionBD.Execute(SQLStmt1)
PostRes.MoveNext
Loop
SQLStmt2 = "DELETE FROM Post "
SQLStmt2 = SQLStmt2 & "WHERE posttopic=" & Topic2 & " "
Set RS2 = ConnectionBD.Execute(SQLStmt2)
SQLStmt3 = "DELETE FROM Topic "
SQLStmt3 = SQLStmt3 & "WHERE topicid=" & Topic2 & " "
Set RS3 = ConnectionBD.Execute(SQLStmt3)
%>
Sujet supprimΘ
<%
End If
Else
Nom2=Replace(request.form("Nom"), "'", "''")
Desc2=Replace(request.form("Desc"), "'", "''")
Admin2=Replace(request.form("Admin"), "'", "''")
If Nom2<>"" Then
SQLStmt18 = "INSERT INTO Topic (topicdesc,topicadm,topicinfo) "
SQLStmt18 = SQLStmt18 & "VALUES ('" & Nom2 & "'," & Admin2 & ",'" & Desc2 & "')"
Set RS18=ConnectionBD.Execute(SQLStmt18)
%>
Sujet ajoutΘ
<% Else %>
Vous devez mettre un nom de thΦme...
<%
temps=Now()
While DateDiff("s",temps,Now())<3
Wend
%>
<script language="javascript">
history.back();
</script>
<% End If
End If
%>
</b></font>
<p align="center">
</p>
<%
longeur1=Len(Nom3)
longeur2=Len(Passe2)
J=1
For I=1 To longeur2
char1=Mid(Nom3,J,1)
char2=Mid(Passe2,I,1)
char3=Mid(Passe2,I,1)
code1=Asc(char1)
code2=Asc(char2)
code2=code2-code1
If code2<0 Then
code2=code2+255
End If
char2=Chr(code2)
Passe2=Replace(Passe2,char3,char2,1,1)
J=J+1
If J>longeur1 Then
J=1
End If
Next
'DΘ-Cryptage du mot de passe
%>
<p align="center"><font face="Arial" size="2"><b><a href="doadmincheck.asp?Nom=<% =Nom3 %>&Passe=<% =Passe2 %>">Retour au menu d'administration</a>
</b></font></p>
<p align="center">
<font face="Arial"><b>
<script language="javascript">
parent.abbdown.location="default.asp";
</script>
<!--#include file="basdepage.asp"-->
</b></font>
</p>
</body>
</html>