[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 187
  • Last Modified:

Images from asp pages

Hi folks.

Just a short one. I think we all have seen graphical hit counters from CGI pages. Can it be done with ASP?

Another expamle of this sort of thing would be ICQ's online graphic like the dll link below.

http://wwp.icq.com/scripts/online.dll?icq=120640177&img=7
Where a query gives a result and a suitable picture is displayed.


Cheers, Rob.
0
robjohnston
Asked:
robjohnston
1 Solution
 
redl1neCommented:
That doesn't seem so hard.. just create images for 0-9 and name them 0.jpg, 1.jpg and so on.

assume we store the recordcount into a variable called 'recordcount'

<%

' set recordcount equal to something
recordcount = 15556987

' get length of the count
recordlength = len(Recordcount)

' set position of count equal to starting point
position = 1

' go through each number in the count
for inti = 0 to recordlength
   "<IMG SRC=" & mid(recordcount, position, 1) & ".jpg>"
   
  ' up the default position by one.
   position = position + 1
next


%>

that should do it for ya.
0
 
John844Commented:
if you have a hit count available, you can just parse the number of hits and then show a small image file of the number, move the the next digin and show its number image.  Like 1234 you would show image for 1, image for 2, image for 3 and image for 4.  It is the easiest way to do this with pure asp and no dynamic image creation.
0
 
John844Commented:
that sucks, got beat by seconds..:o|
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
robjohnstonAuthor Commented:
Thank for the prompt replies, not quite what I'm looking for.

Something more like;
<IMG SRC="image.asp?x=y">

where the image shown would be generated by the page image.asp

Cheers, Rob.
0
 
John844Commented:
you can use something like the following:

<%
response.buffer=true
response.clear
response.contenttype="image/GIF"
response.binarywrite(<binary stream of data from sql or file system object>)
response.flush
%>
0
 
John844Commented:
you can search msdn(or microsofts site) for "Delivering Web Images from SQL Server"
0
 
robbertCommented:
Are you looking for the code to identify a referer and his hits number (and increment that, and so on), or just to send some picture by an ASP (from a database or from a file)? - Please think of it, and be straight.
0
 
robjohnstonAuthor Commented:
John844 is on the right line.

This type of thing has got loads of app it could be used it, logging visitors to your sites and other many more.

Trying to get it to work reading a gif file like below, but it comes ups with a red cross, any ideas?

File: Image.asp

<%
response.buffer=true
response.clear
response.contenttype="image/GIF"

Const ForReading = 1             ' Input OutPut Mode
Const Create = False              

' Declare local variables
Dim FSO                          ' FileSystemObject
Dim TS                           ' TextStreamObject
Dim strLine                      ' local variable to store Line
Dim strFileName                  ' local variable to store fileName
strFileName = Server.MapPath("1.gif")

' Instantiate the FileSystemObject
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(strFileName, ForReading, Create)
ImgLine = TS.Readall     ' Read the file

response.binarywrite ImgLine
response.flush
' close TextStreamObject and destroy local variables to relase memory
TS.Close        
Set TS = Nothing
Set FSO = Nothing
%>

Cheers, Rob.
0
 
John844Commented:
here is a link to something.  have not tried the code yet.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6142
0
 
John844Commented:
Have heard that aspUpload does the same thing as well.
0
 
John844Commented:
just got it to work.  Here is how I did it.

make a activeX dll.
set the project name to prjGetImage
set the class name to GetImage

add the following code to the class

Function GetImage(ByVal bfilename As String)
On Error GoTo errHandler
    Dim fl As Long
    Dim binbyte() As Byte
    Dim binfilestr As String
   
    Open bfilename For Binary Access Read As #1
    fl = FileLen(bfilename)
    ReDim binbyte(fl)
    Get #1, , binbyte
    Close #1
   
    GetImage = binbyte
   
    Exit Function
errHandler:
    Exit Function
End Function


compile the dll and put it onto the web server.  (i would put it in MTS to make it easier to recompile new versions)




















----------my asp page  --------

<%@ Language=VBScript %>

<%
response.buffer=true
response.clear
response.contenttype="image/GIF"

' Declare local variables
Dim strFileName                  ' local variable to store strFileName = Server.MapPath("curve.gif")

dim objGetImage
set objGetImage = server.CreateObject("prjGetImage.GetImage")
Response.binarywrite objGetImage.GetImage(strFileName)
set objGetImage = nothing

Response.End
%>
0
 
robjohnstonAuthor Commented:
Hi folks.

Well John844, you're solution works, but when I approached my hosting co about installing dll's they said "no way".

There is another solution though, outlined here:
http://www.4guysfromrolla.com/webtech/052400-1.shtml

Basically the method is to do the work in the asp page then use response.redirect to the required image. Easy as that!

Anyway points to John844 as his solution is valid. Thanks everyone for your help, Rob.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now