Kan disse Asp-filer flettes sammen?
Hej EksperterJeg har et bannersystem som ud fra en accessdatabase viser et random valgt banner, tæller antal visninger og antal klik.
Det består af to asp-dokumenter:
default.asp og redirect.asp
default.asp genererer random og tæller antal visninger og sender til redirect.asp som tæller klik og redirecter til url\'en.
Mit spørgsmål:
Kan disse to asp-dokumenter flettes sammen til et dokument, med de samme funktioner selvfølgelig, og hvordan?
Men i stedet for [redirect.asp?id=\" & rs(\"ID\") & \"] vil jeg gerne have [href=\'\" & rs(\"Url\") & \"]
Altså i stedet for redirect-urlen skrives den \"rigtige\" url.
Jeg håber godt nok i kan hjælpe mig derude, for det har godt nok givet mig grå hår :-(
Source-Koder:
\'--- default.asp - start ----------------
<%@ Language=VBScript %>
<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"banner.mdb\")
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
set rs = Server.CreateObject(\"ADODB.Recordset\")
strRS = \"SELECT * from Banner\"
rs.Open strRS, Conn, 1, 3
randomize
linie = int(rs.RecordCount * rnd)
rs.MoveFirst
rs.Move(linie)
rs(\"Shown\") = rs(\"Shown\") + 1
rs.Update
Response.Write \"<a href=\'redirect.asp?id=\" & rs(\"ID\") & \"\' target=\'_blank\'><img src=\'\" & rs(\"Filename\") & \"\' alt=\'\" & rs(\"Description\") & \"\' border=\'0\'></a>\" & vbCrLf
Response.Write \"<br>\"
Response.Write \"Vist \" & rs(\"Shown\") & \" gang(e).<br>\"
Response.Write \"\" & rs(\"Clicks\") & \" klik.\"
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
%>
</BODY>
</HTML>
\'--- default.asp - slut ------------------
\'--- redirect.asp - start ----------------
<%@ Language=VBScript %>
<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"banner.mdb\")
id = Request.QueryString(\"id\")
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM Banner WHERE ID=\" & id, Conn, 1, 3
rs(\"Clicks\") = rs(\"Clicks\") + 1
rs.Update
url = rs(\"Url\")
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
Response.Redirect(url)
%>
\'--- redirect.asp - slut -----------------
