Question

请帮我把这段ASP代码转换成php或者静态的代码 谢谢！

下面这段代码是asp的，可惜我的空间只支持php的 ，那位帮我把它转换成php 或者是 静态页面的，主要是用来做转跳的，但是现在我把这个代码的页面后缀 asp 直接改为 html 后缀的 但是还是不能访问呢 ！！谢谢了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
Dim sAgent
sAgent = Request.ServerVariables("HTTP_USER_AGENT")
tempage = split("Windows NT|Windows 98|Windows ME|http://|HaoDew","|")
for k = 0 to ubound(tempage)
if instr(sAgent,tempage(k))>0 then response.redirect "index.shtml"
next
Response.redirect "e/wap/index.php"
%>

Answer 1

<?php
$sAgent = $_SERVER['HTTP_USER_AGENT'];
$tempage = explode("|","Windows NT|Windows 98|Windows ME|http://|HaoDew")
for($ k = 0; $k<= count($tempage);$k++)
{
if (strpos($sAgent,$tempage[$k])>0)
header("location:index.shtml");
else
header("location:e/wap/index.php");
}
?>

不太懂asp，写了半天才搞出来，不知道行不？呵呵

Answer 2

<option value="<%=rs("categoryid")%>" ><%=rs("category")%></option> <!--查询数据库并读取显示栏目下拉框-->
<%
rs.movenext '移动到下一条
loop '循环
rs.close '关闭查询
%>

</select>
<input name="Submit" type="submit" class="inputstyle" value="快速搜索">
<input type="button" name="Submit2" value="高级搜索" onClick="location='search.asp'">
<img src="images/line.gif" width="568" height="9">

</form></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF"><div align="left"><img src="images/main_12.gif" width="245" height="42"></div></td>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#E0EBFC">

<!--上面几行是静态html代码，这个就不用具体说了吧-->

<table width="568" border="0" cellpadding="0" cellspacing="0">
<%
rs.open "select top 6 id,detail,discount,vipprice,author,desc,price1,price2,name,pic,mark from product order by id desc",conn,1,1 '查询数据库
if rs.eof and rs.bof then '如果没有查询到符合条件的结果就输出下面一行
response.write " 对不起，暂时还没有商品！"
end if
i=0 '给i赋值0
do while not rs.eof '进入查询结果循环
%>
请参考