求救！！！改写网络代码！

<img src='0.gif' alt='最新推荐'/><br/>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where shou=0 order by diantime desc"
rs.open sql,conn,1,1

if rs.eof and rs.bof then
response.write "还没有任何站点，赶快添加吧！<br/>"
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =shu
total = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize

%>
<%

dim i
i=1
do while not rs.eof and i<=mypagesize

if session("admin")="" then

if rs("bz")="f" then
Response.write ""&r

ASP代码改写 QQ空间代码怎么改写 QQ空间代码改写在哪里？ 求助:下拉菜单代码怎么改写啊 php/mysql 代码改写，高分求解 急需答案，英语句子改写，求救！！！ 文件名被改写，无法删除~~~求救啊~~~ 网络求救！ 改写~~~`````!!! 由ACCISS数据库转换成SQL怎样改写连接代码