kan ju hjalpa dig med forsta har....
<%Session.Lcid = 1053
if request.querystring("session") = "logout" then
session.abandon
'redirect kanske?
Else
if request.form("pwd") = "CruelTiger" then session("inloggad") = "ja"
response.redirect "?"
Frågan#1
Uppdaterat:
Undrar om någon skulle kunna hjälpa mig så att när man klickar på "Ta bort" s som finns bredvid att titta på andra så kommer man till ett request form där man ska skriva in lösenordet som finns i kolumnen: losen och om dom stämmer så ska den ta bort det ID
<%response.buffer=true%>
<title>Paste your script here - #CTirc</title>
<link href="../style.css" rel="stylesheet">
<%Session.Lcid = 1053
if request.querystring("session") = "logout" then
session.abandon
response.redirect "?"
elseif request.querystring("session") = "login2" and request.form("pwd") = "crueltiger" then
session("inloggad") = "ja"
response.redirect "?"
end if
Set cn = server.createobject("adodb.connection")
cn.open "driver={Microsoft access driver (*.mdb)};dbq=" & server.MapPath("databas.mdb")
%>
<body bgcolor="#0A2750" text="#64BDFF" link="#64BDFF" vlink="#64BDFF" alink="#64BDFF">
<%
if request.querystring("iframe") = "" then
%>
<img src="darkblue.jpg" border="0">
<font face="Verdana" size="1"><hr color="#000000"><a href="default.asp?skickain">Skicka in</a> - <a href="default.asp?session=login">Admin</a><hr color="#000000"></font>
<%
end if
%>
<%
function h(q)
h = server.HTMLencode(q)
end function
if request.querystring("tabort") <> "" then
cn.execute("delete * from script where id=" & request.querystring("tabort"))
response.redirect "?"
end if
if request.querystring("iframe") <> "" then
set rs = server.createobject("adodb.recordset")
rs.open "select scriptet from script where id=" & request.querystring("iframe"), cn, 3, 3
response.write replace(h(rs("scriptet")),vbCrLf,"<br>")
rs.close
set rs=nothing
elseif request.querystring("visa") <> "" Then
set rs = server.createobject("adodb.recordset")
rs.open "Select * from script where id=" & request("visa"), cn, 3, 3
%>
Script namn: <%=h(rs("namn"))%><br>
Skribent: <a href="mailto:<%=h(rs("email"))%>"><%=h(rs("skribent"))%></a><br>
Skickat: <%=h(rs("datum"))%><br>
<iframe src="default.asp?iframe=<%=rs("id")%>" height=70% width=70% scrolling=yes></iframe><br>
<font face="Verdana" size="1"><a href="default.asp?tabort2=<%=rs("id")%>">Ta bort</a> - <a href="default.asp">Titta på andra script</a></font>
<%
rs.close
set rs=nothing
elseif request.form("script") > "" Then
set rs=server.CreateObject("ADODB.recordset")
rs.open "Select * from script", cn, 3, 3
rs.addnew
rs("namn") = request.form("namn")
rs("email") = request.form("email")
rs("scriptet") = request.form("script")
rs("datum") = now
rs("skribent") = request.form("skribent")
rs("losen") = request.form("losenord")
rs.update
response.redirect "?"
elseif request.querystring = "skickain" then%>
<form method=post>
<font face="Verdana" size="1">Script Namn</font><input name="namn"><br>
<font face="Verdana" size="1">Din email</font><input name="email"><br>
<font face="Verdana" size="1">Ditt namn</font><input name="skribent"><br>
<font face="Verdana" size="1">Lösenord</font><input name="losenord"><br>
<textarea rows="20%" cols="70%" name=script wrap=off></textarea><br>
<input type=submit value="Skicka in">
</form>
<%
else
set rs = server.createobject("adodb.recordset")
rs.open "Select * from script order by id desc", cn, 3, 3
do until rs.eof
response.write "<a href=""default.asp?visa=" & rs("id") & """>" & rs("namn") & "</a>"
if session("inloggad") = "ja" Then response.write " <a href=""default.asp?tabort=" & rs("id") & """>Ta bort</a>"
response.write "<br>"
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
<%
set cn=nothing
%>
<%if session("inloggad") = "" and request.querystring("session") = "login" Then%>
<form method=post action="?session=login2">
<input name="pwd">
<input type="submit" value="Logga in">
</form>
<%
end if
%>
<%
if session("inloggad") = "ja" then
%>
<br><font face="Verdana" size="1"><hr color="#000000"><a href="default.asp?session=logout">Logga ut</a></font>
<%
end if
%>
<hr color="#000000"><font face="Verdana" size="1">#CTirc - Where the best meets the rest</font>
Jag vet att det är mycket jag begär men ni behöver inte försöka om ni inte vill...
Jag vet inte men om ni kanske behöver det så heter db tabellen script
och kolumnerna heter: ID, namn, email, scriptet, datum, skribent, lösen
