Classic ASP and AJAX

I am creating an image gallery in classic asp using a access database. I display the thumbnails and story on the page. When a user clicks on the image, I popup the full image. Popup is necessary to help to combat people taking the images. I am trying to count the number of views or clicks each photo has, I am storing this in an Access database.

I can't or don't know how to have the onclick event fire both the javascript to popup the window and the vbscript to write to the database.

I believe AJAX or XMLHttpRequest is the proper way to do this, I truly do not want a complete page refresh and then the popup. The problem is, I have no clue as to how to do this.

Thank you in advance for your time,
JR

Jun 5 '07 #1

Follow Post Reply

4473

VvvJRvvV

I think I have this figured out. However, I do have a problem. This will only increment each ID once, if you open this window in a new browser, you can increment the values again. I have only tested in IE6. There is a link to a demo at the bottom.

testit.asp

Expand|Select|Wrap|Line Numbers

 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
 
<HTML>

<HEAD>

<TITLE>AJAX Test</TITLE>

<style>

body {

 font-family: Verdana;

 font-size: 9pt;

}
 
h3 {

font-family: verdana;

text-align: center;

}
 
a {

  color: #FF0033;

}
 
a:hover {

  color: #000;

}

</style>

<script>

function createRequestObject() {

    var ro;

    var browser = navigator.appName;

    if(browser == "Microsoft Internet Explorer"){

        ro = new ActiveXObject("Microsoft.XMLHTTP");

    }else{

        ro = new XMLHttpRequest();

    }

    return ro;

}
 
var http = createRequestObject();
 
function sndReq(imageid) {

    http.open('get', 'connect.asp?imageid='+imageid);

    http.onreadystatechange = handleResponse;

    http.send(null);

}
 
function handleResponse() {

    if(http.readyState == 4){

        var response = http.responseText;

        var update = new Array();
 
        if(response.indexOf('|' != -1)) {

            update = response.split('|');

            document.getElementById("image_id").innerHTML = "You clicked to increment Image ID : " + update[0];

            document.getElementById("num").innerHTML = "Incremented Number of Clicks : " + update[1];

        }

    }

}

</script>

</HEAD>
 
<BODY>

This is the original pull from the database.

<br><br>

<%
 
set conn = server.createobject("adodb.connection")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("cgi-bin/test.mdb")

conn.Open DSNtemp

sqlstmt = "SELECT * from Table1 Order by ImageID" 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, conn, 3, 3

Do While Not rs.EOF    

imgid = rs("ImageID")

click = rs("num")

response.write ("Image ID : " & imgid)

response.write ("<br>")

response.write ("Number of clicks : " & click)

response.write ("<br><br>")

rs.movenext

loop

rs.close

set rs = nothing

conn.close

set conn = nothing

%>

<br>

Click on one of the links to increment the count.

<br><br>

<a onClick="javascript:sndReq('1');" onmouseover="this.style.cursor='pointer'">Click to Increment 1</a>

<br><br>

<a onClick="javascript:sndReq('2');" onmouseover="this.style.cursor='pointer'">Click to Increment 2</a>

<br><br><br>

<div ID="image_id">The image ID you clicked will show here once you click the increment.</div>

<br>

<div ID="num">The new data will show here once you click the increment.</div>

<br><br><br>

There is something going on here that I can not figure out.

<br>

This will only increment each ID once, if you open this window in a new browser, you can increment the values again.

</BODY>

</HTML>

connect.asp

Expand|Select|Wrap|Line Numbers

 
<%

Set theID = Request.QueryString("imageid")
 
set conn = server.createobject("adodb.connection")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("cgi-bin/test.mdb")

conn.Open DSNtemp

sqlstmt = "SELECT * from Table1 WHERE ImageID=" & theID

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, conn, 3, 3

num = rs("num")

numC = num + 1

rs.Fields("num") = numC

rs.update

response.write (theID & "|" & numC)

rs.close

set rs = nothing

conn.close

set conn = nothing
 
%>

I am still trying to work out why you would have to reload the page to increment either count more than once.

A small demo

Thanks for taking a look at this,
JR

Jun 5 '07 #2

Classic ASP and AJAX

Post your reply

Similar topics