| Wizza |
05-10-2012 06:57 AM |
Custom Page
I wonder if anyone can help me, I'm looking to create some custom pages in VB4 or even in the CMS.
I'm following this tutorial:
http://www.modmysite.com/other-3rd-p...ions/10619.htm
However I have no idea how to turn a php script into a page in VB4.
I understand that there are parts of php code that needs to be changed in VB4 so could you help me and change the following code into code I can put into a template and use?
Code:
<?php
include('scripts/linkpopularity.class.php');
$linkpop = New LinkPOP();
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html>
<head>
<title>Check your Link Popularity</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="scripts/style.css" rel="stylesheet" type="text/css" />
</head>
<body >
<div id="container">
<div id="main">
<p>Once submitted, please be patient as this process can take upto 30 seconds.</p>
<form id="frm" method="post" action="<?= $PHP_SELF; ?>">
<input type="hidden" name="mr" value="<?= $today_date; ?>" />
<table cellpadding="0" cellspacing="0">
<tr>
<td width="1">http://</td>
<td width="1"><input id="url" class="check_box" type="text" name="url" value="ex: www.yourdomain.com" onfocus="value = '';" /></td>
<td width="1" class="button"><input type="submit" style="height: 20px;" class="check_button" value="submit" /></td>
<td> </td>
</tr>
<tr>
<td colspan="4" class="engines">
<input type="checkbox" name="engines[]" value="google" checked="checked">Google
<input type="checkbox" name="engines[]" value="bing" checked="checked">Bing
<input type="checkbox" name="engines[]" value="yahoo" checked="checked">Yahoo
<input type="checkbox" name="engines[]" value="alltheweb" checked="checked">AlltheWeb
<input type="checkbox" name="engines[]" value="altavista" checked="checked">Altavista
<input type="checkbox" name="engines[]" value="ask" checked="checked">Ask
<input type="checkbox" name="engines[]" value="alexa" checked="checked">Alexa Rating
<input type="checkbox" name="engines[]" value="dmoz" checked="checked">DMOZ
</td>
</tr>
</table>
</form>
<?php
if (isset($_POST['url']) && $_POST['url'] != "" )
{
$linkpop->allowed_engines = $_POST['engines'];
$linkpop->GetData($_POST['url']);
?>
<h2>Your Link Popularity results</h2>
<table cellspacing="0" cellpadding="0" id="linkpop">
<tr class="subtitle" >
<td colspan="10"><?=$linkpop->domain; ?></td>
</tr>
<tbody>
<tr class="engine-bar">
<?php
foreach($linkpop->results as $subdata)
{
print '<td>'.$subdata['name'].'</td>';
}
?>
</tr>
<tr class="result-line">
<?php
foreach($linkpop->results as $subdata)
{
?>
<td>
<?php
if (is_numeric($subdata['value'])){
echo '<span class="result-value">'.number_format($subdata['value'],0,'.',',').'</span>';
} else {
echo '<span class="result-value">'.strtolower($subdata['value']).'</span>';
}
if ($subdata['name'] != 'invalid url'){
print '<br><a class="check" href="'.$subdata['url'].'">(check)</a>';
}
?>
</td>
<?php
}
?>
</tr>
<?php
if (is_array($linkpop->directories))
{
?>
<?php
foreach($linkpop->directories as $subdata)
{
?>
<tr>
<td><?=$subdata['name']; ?></td>
<td style="text-align: right; padding-right: 3px;">
<?php
if (is_numeric($subdata['value'])) { echo number_format($subdata['value'],0,'.',',');
} else { echo strtolower($subdata['value']); }
?>
<a href="<?=$subdata['url']; ?>">(check)</a></td>
</tr>
<?php
}
}
?>
</tbody>
<tr class="total">
<td>Total</td>
<td style="text-align: right;"><?=number_format($linkpop->total,0,'.',','); ?></td>
<td colspan="10"> </td>
</tr>
<?
}
?>
<tr>
<td colspan="10" style="margin-left:115px;"><span style="font-size:10px;">Powered by </span><a href="http://www.siteexpert.net/" target="_blank" style="font-size:10px; color:#666666;">Site Expert</a></td>
</tr>
</table>
</div>
</div>
</body>
</html>
Obviously the head and title and what not can go as it will be using the skin. |
More Information