%
dim mspecial, MakeOffer
mspecial = false '1
fn = request.querystring("fn")
if (fn="") then response.end
%>
PC-Magic Software Download
Your download should start immediately. If not then just click here
|
Please take a moment to visit our newest creation: TopSellers.com
The Web's Top Sellers updated hourly
Great for Gift Ideas and Hot Deals! Start your online shopping here!
|
|
<%
'if request.querystring("test")<>1 then response.end
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={MySQL ODBC 3.51 Driver};server=pcm50.db.3047109.hostedresource.com;uid=pcm50;pwd=SirScott50;database=pcm50"
if instr(1,fn,"/") <> 0 then
x = len(fn)
while (mid(fn,x,1)<>"/")
x= x-1
wend
fn = mid(fn,x+1)
end if
fn = replace(fn,":",".")
fn = lcase(fn)
dait = sqldate(date())
'response.write "fn: " & fn & " dait: " & dait
sql = "SELECT cnt FROM downloads WHERE file= '"+fn+"' AND date='"+dait+"'"
'response.write "
sql: " & sql
set rs = conn.execute(sql)
if rs.eof= true then
sql = "INSERT INTO downloads (file,date,cnt) VALUES ('"+fn+"','"+dait+"',1)"
else
sql = "UPDATE downloads SET cnt=" & (rs("cnt")+1) & " WHERE file='" & fn & "' AND date='" & dait & "'"
end if
'response.write "
sql: " & sql
conn.execute(sql)
rs.close
set rs=nothing
if mspecial = true then
'read cookie
if a = Request.Cookies("session")= "" then
if fn = "mfx.exe" or fn="mfx64.exe" then
'set madeoffer cookie
Response.Cookies("session") = "847592"
Response.Cookies("session").Expires = Now + 365
Response.Cookies("session2") = "847592"
Response.Cookies("session2").Expires = Now + 365
Response.Cookies("session2").Domain = "http://reconnecthere.com/"
MakeOffer = true
end if
end if
end if
'end if
conn.close
set conn = nothing
'delete old files in download folder
on error resume next
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=fs.GetFolder(server.mappath("downloads"))
Set colFiles = objFolder.Files
If colFiles.Count > 0 Then
For Each objFile In colFiles
created = objFile.DateCreated
if datediff("n",created,now()) > 4 then
objFile.Delete()
else
response.write "
" & objFile & " " & created & " " & datediff("n",created,now())
end if
Next
End If
response.end
function SqlDate(a)
if isdate(a) then SqlDate= Pd(YEAR(a),4) & "-" & Pd(MONTH(a),2) & "-" & Pd(DAY(a),2)
end function
Function pd(n, totalDigits)
if totalDigits > len(n) then
pd = String(totalDigits-len(n),"0") & n
else
pd = n
end if
End Function
'
'src of js.php...
'
'//Copyrighted 2008 PC-Magic Software Inc - all rights reserved
'function strip(a){
' return a.replace(',','');
}
%>