fso_gif.asp

来自「全站生成htm静态页面」· ASP 代码 · 共 44 行

<!--#include file="function.asp"-->
<%CheckAdmin3%>
<!--#include file="top.asp"-->
<%
Server.ScriptTimeout=999999 '设置超时时间
Set conn=Server.CreateObject("ADODB.CONNECTION")

msgdata="DBQ="+server.mappath("../mdb/#53331pic.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

conn.open msgdata

set rs=server.createobject("ADODB.recordset")
if request("start")<>"" and request("end")<>"" then
strsql="select img,id from images where id>="&request("start")&" and id<="&request("end")
else
if not isempty(request("id")) then
strsql="select img,id from images where id="&request("id")
else
strsql="select img,id from images order by id"
end if
end if
rs.open strsql,msgdata,1,1

dim st,imgdir
	imgdir=server.mappath("../picid") '这个图片的相对路径
while not rs.eof
    set st = Server.CreateObject("adodb.stream")
    st.Type = 1
    st.Open
    st.Write(rs("img"))
    st.SaveToFile imgdir&"\"&rs("id")&".jpg",2
    st.close
rs.movenext
wend


rs.close

set rec=nothing

set conn=nothing
Response.Write "<center><div><tr><td><font color=red>图片生成完毕。。。</font></td></tr></div></center>"
%>