手机WAP编程

开发平台：

ASP/ASPX

Ads.Asp：源码内容

							<%
Public Sub ads(ByVal ids)
	set rs=conn.execute("select top 1 * from [Ad_Location] WHERE id=" & ids & "")
		if not rs.eof then
		Locations=rs("Locations")
		Show_Amount=rs("Show_Amount")
		Show1=rs("Show")
		Randoms=rs("Randoms")
		if Randoms=1 then
		newids="newid()"
		else
		newids="id"
		end if
		if Show1=1 then
			set rs1=conn.execute("select top " & Show_Amount & " * from [ad] WHERE Locations=" & ids & " and Show=1 order by " & newids & "")
				do while not rs1.eof
				call wmllink("Ad.Asp?id=" & rs1("id") & "","" & wap.filter("wml",rs1("Title")) & "",true)
					rs1.movenext
			loop
			
			'Closers1()
			end if
		end if
	Closers()
End Sub
%>

						