nogen der kan over sætte asp til php
hey er der en der kan oversætte det her til php.(do_frame)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>www.Pornolink.dk</title>
</head>
<%
Spl = Split(Request.QueryString,"_,_,_ID:")
LinkShow = Spl(0)
CatID = Spl(1)
LinkID = Spl(2)
%>
<frameset rows="110,*" frameborder="NO" border="0" framespacing="0">
<frame src="../do_ads/default.asp?CatID=<%=CatID%>" name="directsite_topFrame" scrolling="NO" noresize >
<frame src="<%=LinkShow%>" name="directsite_mainFrame">
</frameset>
<noframes><body>
</body></noframes>
</html>
ny fil...
(do_direct)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual = "connection.asp" -->
<%
Spl = Split(Request.QueryString,",")
CatID = Spl(0)
NullA = Spl(1)
strSQL = "SELECT * from Link where CatID = '" & CatID & "' Limit 0,1 Order by Random()"
strSQL = "select * from Link where CatID = '" & CatID & "' order by rand() limit 1"
set r = ObjConn.execute(strSQL)
LinkID = r("ID")
CatID = r("CatID")
'response.Redirect("GoGo.Asp?" & LinkID & "," & CatID & "")
%>
<script>
location.href = 'GoGo.asp?<%=LinkID%>,<%=CatID%>,<%=Now%>';
</script>
ny fil....
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual = "connection.asp" -->
<%
Spl = Split(Request.QueryString,",")
LinkID = Spl(0)
CatID = Spl(1)
SQL = "SELECT * from Link where ID = " & LinkID & ""
set rsLink = objConn.execute(SQL)
if rsLink.eof then
response.write "Fejl, prøv igen!"
else
StatNow1 = rsLink("Stat")+1
strQ = "Update Link set "
strQ = strQ & "stat= " & StatNow1 & " "
strQ = strQ & "Where id = " & LinkID & ""
objConn.execute(strQ)
LoadCat = "SELECT * from Cat where id = " & CatID & ""
set rsCat = ObjCOnn.execute(LoadCat)
CatStat = rsCat("Stat")
StatNow2 = CatStat+1
strQ = "Update Cat set "
strQ = strQ & "stat= " & StatNow2 & " "
strQ = strQ & "Where id = " & CatID & ""
objConn.execute(strQ)
response.redirect "/do_frame/default.asp?" & rsLink("link") & "_,_,_ID:" & CatID & "_,_,_ID:" & LinkID & "_,_,_Range:" & StatNow1 & "/" & StatNow2
end if
%>
ny fil....
