手机WAP编程

开发平台：

ASP/ASPX

Out.Asp：源码内容

							﻿<!--#include file="wml.ini"-->
<%
id=wap.req("id","")
if id="" then response.redirect "/Index.Asp"
	sql="select * from [Link] WHERE id=" & id
	set rs=getRecordSet(conn,sql,1,2)
	if rs.eof then
	response.redirect "/Index.Asp"
	end if
			do while not rs.eof
	Sitename = wap.filter("wml",rs("Sitename"))
	SiteAddress = wap.filter("wml",rs("SiteAddress"))
	if wap.ipType(wap.ip())<>0 then
	rs("Chain_out")=rs("Chain_out")+1
	end if
	out=rs("Chain_out")
	counts=rs("counts")
			rs.movenext
			loop
	Closers()
call WMLGobegin("跳转中..",SiteAddress,100)
call wmlwrite("网站名称：" & Sitename,true)
call wmlwrite("网站地址：" & SiteAddress,true)
call wmlwrite("链入：" & counts,true)
call wmlwrite("链出：" & out,true)
call wap.navs("友链排行榜,LinkIndex.Asp|跳转中..,|")
call wmlend
%>

						