Her er koden:
<%
If Request.Form(\"Action\") = \"Fjern\" Then
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"links.mdb\")
SQLstring=\"DELETE FROM Links WHERE Link =\'\" & Request.Form(\"adresse\") & \"\'\"
SET RS=myConn.Execute(SQLstring)
myConn.Close
end if
%>
<%
If Request.Form(\"Action\") = \"Tilføj\" Then
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"links.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From Links\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs(\"Kategori\") = Request.Form(\"kategori\")
rs(\"Link\") = Request.Form(\"adresse\")
rs(\"hits\") = \"0\"
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
End If
%>
<%
Response.Buffer = True
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"links.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Links WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs(\"hits\") = rs(\"hits\") + 1
strURL = rs(\"Link\")
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Clear
\'---Bruger---\'
If Session(\"Bruger\") <> \"\" Then
brugerlogfil = Session(\"Bruger\")
Else
brugerlogfil = \"Gæst\"
End If
Response.Redirect(strURL)
End If
End If
%>
<%
If Request.Form(\"Action\") = \"Vis links\" Then
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"links.mdb\")
SQLstring=\"SELECT * from links WHERE kategori =\'\" & Request.Form(\"kategori\") & \"\' ORDER BY hits DESC\"
SET RS=myConn.Execute(SQLstring)
End if
%>
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<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>Ny side 1</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"index2.css\">
</head>
<body bgcolor=\"#000000\" link=\"#000000\" vlink=\"#000000\">
<table border=\"1\" width=\"100%\" bordercolor=\"#000000\" cellspacing=\"0\" cellpadding=\"0\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
<tr>
<td width=\"100%\" colspan=\"2\" class=\"morkgra1\" id=\"morkgra1\"><b>Links:</b></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\" class=\"lysgra1\" id=\"lysgra1\">Vælg Kategori:
<form method=\"POST\" action=\"links.asp\">
<p><select size=\"1\" name=\"kategori\" class=\"knap\" id=\"knap\">
<option value=\"søgesteder\">søgesteder</option>
<option value=\"tvstationer\">tvstationer</option>
<option value=\"chatsteder\">chatsteder</option>
<option value=\"bilmarked\">bilmarked</option>
<option value=\"auktion\">auktion</option>
<option value=\"Software\">Software</option>
<option value=\"Gratis Ting\">Gratis Ting</option>
<option value=\"Computergrafik\">Computergrafik</option>
</select><input type=\"submit\" value=\"Vis links\" name=\"Action\" class=\"knap\" id=\"knap\"></p>
</form>
</td>
</tr>
<tr>
<td width=\"50%\" class=\"lysgra1\" id=\"lysgra1\"><b>Link:</b></td>
<td width=\"50%\" class=\"lysgra1\" id=\"lysgra1\"><b>Hits:</b></td>
</tr>
<% If Request.Form(\"Action\") = \"Vis links\" Then %>
<%
Do until RS.EOF
%> <tr>
<td width=\"50%\" class=\"lysgra1\" id=\"lysgra1\"><% Response.Write \"<a href=links.asp?id=\" & rs(\"Id\") & \" \" & \"target=\" & \"_blank\" & \">\" & rs(\"Link\") %></td>
<td width=\"50%\" class=\"lysgra1\" id=\"lysgra1\"><%=RS(\"hits\")%></td>
</tr>
<%
RS.MoveNext
Loop
%>
<tr>
<td width=\"100%\" colspan=\"2\" class=\"morkgra1\" id=\"morkgra1\"><b><font color=\"#CC0000\"></font>Antal Link: <%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"links.mdb\")
Set myConn2 = Server.CreateObject(\"ADODB.Connection\")
myConn2.Open strDSN
strSQL = \"SELECT COUNT(Id) AS Antal FROM Links WHERE kategori =\'\" & Request.Form(\"kategori\") & \"\'\"
Set rs2 = myConn2.Execute(strSQL)
Response.Write rs2(\"Antal\")
myConn2.Close
Set myConn2 = Nothing
%></b></td>
</tr>
</table>
<%
RS.Close
myconn.Close
%>
<% End If %>
<% If Session(\"btype\") <> \"\" Then %>
<br>
<form method=\"POST\" action=\"links.asp\">
<table border=\"1\" width=\"100%\" bordercolor=\"#000000\" cellspacing=\"0\" cellpadding=\"00\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\" height=\"91\">
<tr>
<td width=\"100%\" colspan=\"2\" height=\"19\" class=\"morkgra1\" id=\"morkgra1\"><b>Tilføj link:</b></td>
</tr>
<tr>
<td width=\"50%\" height=\"19\" class=\"lysgra1\" id=\"lysgra1\">Kategori:</td>
<td width=\"50%\" height=\"19\" class=\"lysgra1\" id=\"lysgra1\"><select size=\"1\" name=\"kategori\" class=\"knap\" id=\"knap\">
<option value=\"søgesteder\">søgesteder</option>
<option value=\"tvstationer\">tvstationer</option>
<option value=\"chatsteder\">chatsteder</option>
<option value=\"bilmarked\">bilmarked</option>
<option value=\"auktion\">auktion</option>
<option value=\"Software\">Software</option>
<option value=\"Gratis Ting\">Gratis Ting</option>
<option value=\"Computergrafik\">Computergrafik</option>
</select></td>
</tr>
<tr>
<td width=\"50%\" height=\"1\" class=\"lysgra1\" id=\"lysgra1\">Adresse:</td>
<td width=\"50%\" height=\"1\" class=\"lysgra1\" id=\"lysgra1\"><input type=\"text\" name=\"adresse\" size=\"20\" value=\"
http://\" class=\"skriverfelt\" id=\"skriverfelt\"></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\" height=\"27\" class=\"lysgra1\" id=\"lysgra1\">
<p><input type=\"submit\" value=\"Tilføj\" name=\"Action\" class=\"knap\" id=\"knap\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\" height=\"19\" class=\"morkgra1\" id=\"morkgra1\"><b>Bruger: <% Response.Write Session(\"Bruger\") %></b></td>
</tr>
</table>
</form>
<% End If %>
<% If Session(\"btype\") = \"admin\" Then %>
<p><br>
</p>
<form method=\"POST\" action=\"Links.asp\">
<table border=\"1\" width=\"100%\" bordercolor=\"#000000\" cellspacing=\"0\" cellpadding=\"0\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
<tr>
<td width=\"100%\" colspan=\"2\" class=\"morkgra1\" id=\"morkgra1\"><b>Fjern link:</b></td>
</tr>
<tr>
<td width=\"50%\" class=\"lysgra1\" id=\"lysgra1\">Adresse:</td>
<td width=\"50%\" class=\"lysgra1\" id=\"lysgra1\"><input type=\"text\" name=\"adresse\" size=\"20\" class=\"skriverfelt\" id=\"skriverfelt\"></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\" class=\"lysgra1\" id=\"lysgra1\"><input type=\"submit\" value=\"Fjern\" name=\"Action\" class=\"knap\" id=\"knap\"></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\" class=\"morkgra1\" id=\"morkgra1\"> </td>
</tr>
</table>
</form>
<% End If %>
</body>
</html>
Info om Scriptet:
For at scriptet skal virke skal du lige downloade en database det gør du ved at trykke på linket nedenunder:
http://www.urgh.dk/plexx/links.mdb
