Downloads.Asp
上传用户:qfkgdy
上传日期:2020-06-18
资源大小:1888k
文件大小:1k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file="wml.ini"-->
  2. <%  
  3. t=cint(request("t")) 
  4. h=cint(request("h")) 
  5. id=request("id")
  6. %>
  7. <% 
  8.    set rs=conn.execute("select * from [Picture] WHERE id=" & id & "")
  9. do while not rs.eof
  10. Randomize 
  11.       v1=wap.rndc()
  12. Call (new ImageClass).zoom(rs("File_Url"),"images/temp/"& v1 &"." & wap.ftype(rs("File_Url")) & "",t,h)
  13. response.redirect "images/temp/"& v1 &"." & wap.ftype(rs("File_Url"))
  14. ClassID=rs("ClassID")
  15. AlbumID=rs("AlbumID")
  16. rs.movenext
  17. loop
  18.     Closers()
  19. %>