Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 18 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

Download counter Popup windowCode Snippet

Read Reviews | Report Errors

[+][+]

0
Reviews

0
Favor-It

With this script you can do links in a database it wil show the links wen you click on 1 to download you wil get a popup window wait up to 6sec and the download wil start (window closes automaticly after 5 sec) Code: ASP 3.0 & VBScript


		Code Snippet

Code Written By: Baboon - Mike

'-------------- Download.asp ----



<head>
<title>The Baboon.tk --- ASP coder!</title>
</head>

<body bgcolor="#000000">
<%
strDB = Server.MapPath("db/DB.mdb")
cnstring = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDB
Set show = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM downloads order by id DESC"
show.Open strSQL, cnstring
Do While not (show.EOF or show.BOF)
%>
<p align="center"><a target="_self" href="javascript:window.open('popup.asp?downloadID=<% Response.Write (show("ID")) %>','audio','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=555,height=255'); void(0);"><font color="#FFFFFF"><% Response.Write (show("linkname")) %></font></a></p>
<%
show.MoveNext
Loop
show.Close
Set show = Nothing
Set cnstring = Nothing
%>


'----------------- Popup.asp -------




<SCRIPT LANGUAGE="JAVASCRIPT" TYPE="TEXT/JAVASCRIPT">
var StayAlive = 5; // Number of seconds to keep window open
function KillMe(){
setTimeout("self.close()",StayAlive * 1000);
}
</SCRIPT>
<% 
if request.querystring("downloadID") = "" then
response.write "<p><b><hr><font size=6 face=Comic Sans MS>MALFUNCTION NO FILE SELECTED!!</font><br><hr><br>Please Contact A Webmaster At This Email Address  <a href=mailto:i_r_baboon_nl@hotmail.com>Click Here</a></b></p>"
else
%>
<%
download = request.querystring("downloadID")
strDB = Server.MapPath("db/DB.mdb")
cnstring = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDB
Set show = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM downloads WHERE ID=" & download
show.Open strSQL, cnstring
session("counter") = show("counter")
session("file") = show("file")
%>

<head>
<title></title>

<%
If request.cookies("'"& download & "'ID") <> download then
set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("db/db.mdb")
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
rs=("update downloads set counter = '"& session("counter")+1 &"' WHERE ID="& download &"")
conntemp.execute(rs)
response.cookies("'"& download & "'ID") = download
end if
%>



<meta http-equiv='refresh' content='3;URL=<%=session("file") %>'>

</head>

<body link="#FFFF00" vlink="#FFFF00" alink="#FFFF00" bgcolor="#000000" onload="KillMe();self.focus()">

<div align="center">
  <table border="0" width="460" height="137">
    <tr>
      <td width="460" height="27">
        <p align="center"><font color="#FFFFFF"><b>Download : <% Response.Write (show("linkname")) %></b></font></td>
    </tr>
    <tr>
      <td width="460" height="107">
        <p align="center"><b><font color="#FFFF00"><a href="<% Response.Write (show("file")) %>">Click here</a> 
        </font><font color="#FFFFFF"> if the download
        doesn't start within 6seconds.</font></b></p>
        <p align="center"><font color="#FFFFFF"><b>This file is <i><% Response.Write (show("counter")) %></i>
        Times Downloaded.</b></font><p align="center"><font color="#FFFFFF"><b>This
        window wil close in 5 seconds.</b></font></td>
    </tr>
    <tr>
      <td width="460" height="4" valign="middle">
        <p align="center"><font color="#FFFFFF"><b>Download Counter</b></font></td>
    </tr>
  </table>
</div>
<%
show.Close
Set show = Nothing
Set cnstring = Nothing
end if 
%>

'------------------------------------------
'-------- End -----------------------------
'-------- NOTE ----------------------------
'-------- You can rename download.asp -----
'-------- Wen you rename popup.asp --------
'-------- Change in download.asp the link -
'------------------------------------------

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2013 ezd.com, All rights reserved