טוב הנה קודם כל העמודים -אינדקס-
<%@ language="vbscript" %>
<% pageTitle = "Outpodt News" %>
<!--#include file="page.asp"--><html> <head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title><%= pageTitle %></title>
</head> <body>
<p><%= "Today is monday." %><p> <P>Today is <%= Now %>.<p> <P>Today is <% Response.write Now %>.<p>
<br>
<P>Today is <%= Now %>.
<%
if Weekday(now) = vbSaturday then
response.write "Have a good weekend!"
else
Response.Write "hang in there, the week will get better!"
end if
%>
<p> <%
set AdvObject = Server.CreateObject("MSWC.AdRotator")
adHTML = AdvObject.GetAdvertisement("admon.txt")
Response.Write adHTML
%> <% set pageCount = Server.createObject("MSWC.PageCounter") %><br>
this page has been accessed <%= pageCount.pageHit %> times. </body> </html>
|
admon.txt -
admon1.asp
<%@ LANGUAGE="VBSCRIPT" %>
<%
sponsorURL = Request.querystring("url")'Create the object
set outpostDB = Server.CreateObject("ADODB.Connection")
'Open the connection
outpostDB.open "outpost" 'Insert the record here
sqlText = "insert into ad_log (sponsor, clickDate) values('"
sqlText = sqlText & sponsorURL
sqlText = sqlText & "', '"
sqlText = sqlText & Now
sqlText = sqlText & "')"
outpostDB.Execute(sqlText) 'close the connection
outpostDC.Close
'Destroy the connection
set outpostDB = Nothing Response.Redirect sponsorURL
%>
|
טוב אז תכנסו לכאן עכשיו -
http://red-board.co.il/escalade/asp/index.asp
עכשיו....תראו מה קורה שלוחצים על הבאנר..כמו שבטח שמתם לב זה לא נכנס ללינק....בעע אני לא מבין למה...
ויותר מזה זה גם לא רושם את השעה של הכניסה ואת האתר במסד הנתונים כמוש הוא אמור לכתוב...
תודה רבה לעוזרים
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
