手机WAP编程

开发平台：
ASP/ASPX

Download.Asp：源码内容
							﻿<!--#include file="wml.ini"-->
<!--#include file="CommentDAOClass.asp" -->
<%  
id=request("id")
page=cint(request("page")) 
p=cint(request("p"))
pp=cint(request("pp")) 
%>
<% 
Set commentDAO=new CommentDAOClass
  	set rs=conn.execute("select * from [Picture] WHERE id=" & id & "")
  
			do while not rs.eof
			v1=wap.rndc()
			call wmlbegin(wap.filter("wml",rs("Title")),"wrap")
if wap.ftype(rs("File_Url"))="gif" then
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
fso.copyfile server.mappath(replace(rs("File_Url"),"/","")),server.mappath("") & "imagestemp"
set objfso=nothing  
end if
if wap.ftype(rs("File_Url"))<>"gif" then
Call (new ImageClass).zoom(rs("File_Url"),"images/temp/"& v1 & rs("id") &"_176x220." & wap.ftype(rs("File_Url")) & "",176,220)
call wmlimg("/images/temp/" & v1 & rs("id") & "_176x220." & wap.ftype(rs("File_Url")) & "",wap.filter("wml",rs("Title")),true) 
else
call wmlimg("/images/temp/" & Split(rs("File_Url"),"/")(4) & "",wap.filter("wml",rs("Title")),true) 
end if		
		
			'call wmlimg(wap.filter("wml",rs("File_Url")),wap.filter("wml",rs("Title")),true)
			if wap.ftype(rs("File_Url"))<>"gif" then
			call wmllink("Downloads.Asp?id=" & rs("id") & "&amp;t=176&amp;h=220","下载原图",false)
			else
			call wmllink("/images/temp/" & Split(rs("File_Url"),"/")(4) & "","下载原图",false)
			end if
call wmllink("Graffiti.Asp?id=" & id & "&amp;page=" & pp & "&amp;p=" & p & "","涂鸦文字",true)
			'call wmllink("OtherDownload.Asp?id=" & rs("id") & "&amp;p=" & p & "&amp;pp=" & pp & "","其他尺寸",false)
%>
			=常见尺寸下载=<br/>
			<a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=128&amp;h=128">128x128</a>
			<a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=176&amp;h=220">176x220</a>
			<a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=176&amp;h=208">176x208</a><br/>
			<a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=128&amp;h=160">128x160</a>
			<a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=174&amp;h=131">174x131</a>
			<a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=240&amp;h=320">240x320</a><br/>	
			=自定义尺寸下载=<br/>
      宽:<input size="3" type="text" name="t" value="128"/>
      高:<input size="3" type="text" name="h" value="128"/><br/>
      <a href="Downloads.Asp?id=<%=rs("id")%>&amp;t=$(t)&amp;h=$(h)">[确定下载]</a><br/>
<%
			ClassID=rs("ClassID")
			AlbumID=rs("AlbumID")
			rs.movenext
			loop
	Closers()
			
		'统计分析
		Set picture=load(AlbumID)
	Public Sub analyze(ByVal is_dcount)
		if(is_dcount) then
			Dim statDAO
			Set statDAO=new StatDAOClass
			Call statDAO.analyze(date,"pid",AlbumID,"down_count")
			Set statDAO=nothing
		end if
		Dim analysisDAO
		Set analysisDAO=new AnalysisDAOClass
		Call analysisDAO.analyze(date,"pic_down")
		Set analysisDAO=nothing
	End Sub
	
	Call analyze(picture.getIs_dcount())
	
    %>
<br/>
<%
if Download_Ad_Top<>0 then
	 ads(cint(Download_Ad_Top))
	end if
set rs=conn.execute("select * from [Class] WHERE id=" & ClassID & "")
			do while not rs.eof
			Class_Title=wap.filter("wml",rs("Class_Title"))
			rs.movenext
			loop
	Closers()
	sql="select * from [Album] WHERE id=" & AlbumID
	set rs=getRecordSet(conn,sql,1,2)
			do while not rs.eof
			Album_Title=rs("Album_Title")
			rs("Down_count")=rs("Down_count")+1
			rs("Down_count_f")=rs("Down_count_f")+1
			if(datediff("d",now(),rs("Last_down_time"))=0) then
			rs("Down_count_today")=rs("Down_count_today")+1
		
		else
			if(datediff("d",now(),rs("Last_down_time"))=-1) then
			rs("Down_count_yes")=rs("Down_count_today")
			
			else
			rs("Down_count_yes")=0
				
			end if
			rs("Down_count_yes")=1
		end if
			if(datediff("ww",now(),rs("Last_down_time"))=0) then
			rs("Down_count_week")=rs("Down_count_week")+1
		else
		rs("Down_count_week")=1
		end if
		if(datediff("m",now(),rs("Last_down_time"))=0) then
		rs("Down_count_month")=rs("Down_count_month")+1
		else
		rs("Down_count_month")=1
		end if
		rs("Last_down_time")=now
			rs.movenext
			loop
	Closers()
	'  call wmlimg("/images/DIY.gif",".",false)
 ' call wmllink2("Graffiti.Asp?id=" & id & "&amp;page=" & pp & "&amp;p=" & p & "","DIY","制作涂鸦图片",true)
  
		Dim inputName
		inputName=wap.formId("comment")
		
		call wmlimg("Clear_temporary_files.Asp",".",false)
		response.Write("<input type=""text"" name=""comment"" /><anchor title=""发表评论"">发表评论<go method=""GET"" href=""Comment.Asp"" ><postfield name=""content"" value=""$comment"" /><postfield name=""action"" value=""post"" /><postfield name=""id"" value="""&id&""" /></go></anchor><br/>")
		Set rs=commentDAO.show(1,id,3)
		if not rs.eof then
			Dim ic,cc
			ic=0
			cc=commentDAO.counts(1,id)
			do while not rs.eof
				response.Write((cc-ic)&"."&wap.cut(rs("content"),11,"..")&"<br/>")
				ic=ic+1
			rs.movenext
			loop
			response.Write("<a href=""comment.asp?id="&id&""">更多评论("&cc&"条)</a><br/>")
		end if
		rs.close
		Set rs=nothing
		
	call wmllink("View.Asp?id=" & AlbumID & "&amp;page=" & pp & "&amp;p=" & p & "","返回" & Album_Title,true)
	set rs=conn.execute("select top " & Download_Top_download_Show_Amount & " * from [Album] WHERE Show=1 order by newid(),last_down_time")
		if not rs.eof then
call wmlwrite("+热门下载+",false)
call wmllink("explore.asp?action=rank&amp;datetime=Finally","更多",true)
			
			do while not rs.eof
			
			call wmllink("View.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Album_Title")) & "",true)
			rs.movenext
			loop
		end if
	Closers()
if Download_Ad_Medium<>0 then
	 ads(cint(Download_Ad_Medium))
	end if
	set rs=conn.execute("select top " & Download_Latest_recommend_Show_Amount & " * from [Album] WHERE Show=1 order by last_view_time desc")
		if not rs.eof then
call wmlwrite("+最新推荐+",false)
call wmllink("explore.asp?action=rank&amp;datetime=new","更多",true)
			
			do while not rs.eof
			
			call wmllink("View.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Album_Title")) & "",true)
			rs.movenext
			loop
		end if
	Closers()
	if Download_Ad_Bottom<>0 then
	 ads(cint(Download_Ad_Bottom))
	end if
	
call wap.navs(Class_Title&",Categories.Asp?id="& ClassID &"&amp;page=" & p & "|"&wap.filter("wml",Album_Title)&",View.Asp?id=" & AlbumID & "&amp;page=" & pp & "&amp;p=" & p & ",")
call wmlend
%>

						