手机WAP编程

开发平台：
ASP/ASPX

index.Asp：源码内容
							﻿<!--#include file="wml.ini"-->
<% 
dim rss
set rss = server.CreateObject ("adodb.recordset")
sql="select * from Config where id=1 order by id desc"
   set rss=conn.execute(sql)
if not rss.eof and not rss.bof then
   do while not rss.eof
'wapurl=rss("zc")
'wapname=rss("sm")
Class_Style=Index_Class_Style
     call wmlbegin(""&wap.filter("wml",rss("Title"))&"",""&rss("p")&"")
     if rss("logo")<>"" then
	     call wmlimg(""&wap.filter("wml",rss("logo"))&"",""&wap.filter("wml",rss("title"))&"",true)
	     end if
	rss.movenext
	loop	
end if
rss.close
set rss=Nothing
    call wmllink("Explore.Asp?action=rank&amp;datetime=new","最新",false)
    call wmllink("explore.asp?action=rank","排行",false)
    call wmllink("explore.asp?action=rank&amp;datetime=commend","推荐",false)
  call wmllink("Search.Asp","搜索",true)
	set rs=conn.execute("select top " & Index_New_Amount & " * from [Album] WHERE Show=1 order by Add_Time desc")
		if not rs.eof then
			call wmlwrite("=*今日精彩推荐*=",true)
		
			do while not rs.eof
						ci=ci+1
				if(ci<Index_New_Pic_Amount+1) then
				set rs1=conn.execute("select top 1 * from [Picture] WHERE AlbumID=" & rs("id") & " order by newid()")
				do while not rs1.eof
				vv=wap.rndc()
	set   fso=Server.CreateObject   ("Scripting.FileSystemObject")   
    fpath=server.mappath(replace(rs1("File_Url"),"/",""))   
    if   fso.FileExists(fpath)   then   
  Call (new ImageClass).zoom(rs1("File_Url"),"images/temp/" & vv & rs1("id") &"_60x70." & wap.ftype(rs1("File_Url")) & "",60,70) 
   call wmlimgl("/images/temp/" & vv & rs1("id") & "_60x70." & wap.ftype(rs1("File_Url")) & "",wap.filter("wml",rs1("Title")),"View.Asp?id=" & rs("id") & "",wap.filter("wml",rs1("Title")),false)
  end   if
       			 
			
				 
				 if ci = Index_New_Pic_Amount then
				 response.write("<br/>")
				 end if
				rs1.movenext
			loop
			
			Closers1()
				else
			call wmllink("View.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Album_Title")) & "",true)
			end if
			rs.movenext
			loop
		end if
	Closers()
	
	if Index_Ad_Top<>0 then
	 ads(cint(Index_Ad_Top))
	end if
    call wmllink("Explore.Asp?action=rank&amp;datetime=new","更多最新...",true)
'---------------------------------------------------------------------------------
	set rs=conn.execute("select top " & Index_Recommend_Amount & " * from [Album] WHERE Show=1 and Recommend=1 order by newid()")
		if not rs.eof then
			call wmlwrite("=*辣图推荐*=",true)
			dim ci
			
			do while not rs.eof
			ci1=ci1+1
				if(ci1<Index_Recommend_Pic_Amount+1) then
				set rs1=conn.execute("select top 1 * from [Picture] WHERE AlbumID=" & rs("id") & " order by newid()")
				do while not rs1.eof
				v1=wap.rndc()
				'call wmlwrite(rs1("File_Url"),true)
        Call (new ImageClass).zoom(rs1("File_Url"),"images/temp/"& v1 & rs1("id") &"_60x70." & wap.ftype(rs1("File_Url")) & "",60,70)
				
				  call wmlimgl("/images/temp/" & v1 & rs1("id") & "_60x70." & wap.ftype(rs1("File_Url")) & "",wap.filter("wml",rs1("Title")),"View.Asp?id=" & rs("id") & "",wap.filter("wml",rs1("Title")),false)
				 if ci1 = Index_Recommend_Pic_Amount then
				 response.write("<br/>")
				 end if
				rs1.movenext
			loop
			
			Closers1()
				else
			call wmllink("View.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Album_Title")) & "",true)
			end if
			rs.movenext
			loop
		end if
	Closers()
		
	if Index_Ad_Medium<>0 then
	 ads(cint(Index_Ad_Medium))
	end if
    call wmllink("explore.asp?action=rank&amp;datetime=commend","更多推荐...",true)
'---------------------------------------------------------------------------------
select case Class_Style
case 1
	set rs=conn.execute("select * from [Class] order by ids asc")
		if not rs.eof then
			call wmlwrite("=*精彩分类*=",true)
			
			do while not rs.eof
			dim br
				if rs("Newline")=1 then
			br=True
		else
			br=False
		end if
			call wmllink("Categories.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Class_Title")) & "",br)
			rs.movenext
			loop
		end if
	Closers()
	case 2
		set rs=conn.execute("select * from [Class] order by newid() asc")
		if not rs.eof then
		call wmlwrite("=*精彩分类*=",true)
			do while not rs.eof
			call wmllink1("Categories.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Class_Title")) & "",false)
			set rs1=conn.execute("select top 2 * from [Album] WHERE Album_ClassID=" & rs("id") & " order by newid()")
				do while not rs1.eof
				call WMLLink("View.Asp?id=" & rs1("id") & "","" & wap.filter("wml",rs1("Album_Title")) & "",false)
				response.write("|")
					rs1.movenext
			loop
				call wmllink("Categories.Asp?id=" & rs("id") & "","更多..",true)
			Closers1()
			
			rs.movenext
			loop
		end if
	Closers()
	end select
			
	if Index_Ad_Bottom<>0 then
	 ads(cint(Index_Ad_Bottom))
	end if
	set rs=conn.execute("select top 1 * from [analysis] order by anid desc")
		if not rs.eof then
			call wmlwrite("=*今日统计*=",true)
			
			do while not rs.eof
			call wmlwrite("新增",false)
			call WMLLink("Explore.Asp?action=rank&amp;datetime=new","" & wap.filter("wml",rs("pic_new")) & "",false)
			call wmlwrite("浏览",false)
			call WMLLink("Explore.Asp?action=rank","" & wap.filter("wml",rs("pic_view")) & "",false)
			call wmlwrite("下载",false)
			call WMLLink("Explore.Asp?action=rank&amp;datetime=Finally","" & wap.filter("wml",rs("pic_down")) & "",false)
			rs.movenext
			loop
		end if
	Closers()
  wt=request("wt")	
  if wt="ok" then
  Application.Lock
  sql="insert into [wt](ip) values ("
  sql=sql & sqlstr(wap.ip()) & ")"
  conn.execute(sql)
  Application.Unlock
  end if
%>
<br/><a href='LinkIndex.Asp'>友链排行榜</a>
<%
call wmlend
%>

						