loadfenxml.asp

FlashPicViewer电子相册 v2.6 繁体中文版

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!--#INCLUDE FILE="../aspjpg.asp"-->
<%
Dim objFSO
Dim objFolder
Dim objFile

Dim strFileName
Dim strFileExtension
Dim blnShowImages
response.write("<photos>")
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM picinfo where fname='" & unescape(request("fenlei")) & "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
loadtype=int(rs("loadtype"))

'======分类名字 所在 picinfo 表的纪录中的 loadtype 值为1,那么就载入cid所对应的photolist表中的所对应id的列表内容
if (loadtype=1) then 
cid=rs("cid")
set clist = Server.CreateObject("ADODB.Recordset")
clist.ActiveConnection = MM_hs_STRING
clist.Source = "SELECT * FROM photolist where id="&int(cid)&""
clist.CursorType = 0
clist.CursorLocation = 2
clist.LockType = 2
clist.Open()
response.write(clist("xml"))
response.write("</photos>")
response.write "<setup><bgimg>"&rs("bgimg")&"</bgimg><ydir>"&rs("ydir")&"</ydir><ieopen>"&rs("ieopen")&"</ieopen><comok>"&rs("comok")&"</comok><titleok>"&rs("titleok")&"</titleok><p>"&rs("password")&"</p><c>"&rs("count")&"</c><x>"&rs("xiazai")&"</x></setup>"
clist.close()
set clist=nothing
end if 


'=======如果loadtype 值为2，那么就载入 pic 表中的图片所在目录的所有记录
if (loadtype=2) then

ImageFilePath = "../"&rs("ydir")&"/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

''CreateDIR(Server.MapPath(ImageFilePath)  &"/s/")''建立"S"

For Each objFile In objFolder.Files
	strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
	If   lcase(strFileExtension) = "jpg" Or  lcase(strFileExtension) = "jpeg"  or  lcase(strFileExtension) = "png"  Then
	
  dir=ImageFilePath
  pic1=objFile.Name
  write="false"
  makeimg  dir, pic1, "",100,100,".jpg",write
  response.write("<photo><url>"&objFile.Name&"</url>")
  response.write("<thumb>s/"&objFile.Name&"</thumb>")
response.write("</photo>")
End If
Next ' objFile
Set objFolder = Nothing
Set objFSO = Nothing
response.write("</photos>")


response.write "<setup><bgimg>"&rs("bgimg")&"</bgimg><ydir>"&rs("ydir")&"</ydir><ieopen>"&rs("ieopen")&"</ieopen><comok>"&rs("comok")&"</comok><titleok>"&rs("titleok")&"</titleok></setup>"
response.write "<info>"
dir=rs("ydir")
set rdir = Server.CreateObject("ADODB.Recordset")
rdir.ActiveConnection = MM_hs_STRING
rdir.Source = "SELECT * FROM pic where picname='iloveyukiforever' AND picdir='"&dir&"'"
rdir.CursorType = 0
rdir.CursorLocation = 2
rdir.LockType = 2
rdir.Open()
rdir_numRows = 0
if rdir.Eof then


rdir.close
set rdir=nothing
set rdir = Server.CreateObject("ADODB.Recordset")
rdir.ActiveConnection = MM_hs_STRING
rdir.Source = "SELECT * FROM pic where picdir='"&dir&"'"
rdir.CursorType = 0
rdir.CursorLocation = 2
rdir.LockType = 2
rdir.Open()
rdir_numRows = 0

do while not rdir.Eof
%><ph><n><%=rdir("picname")%></n><p><%=rdir("title")%></p><p><%=rdir("info")%></p><d><%=rdir("down")%></d><d><%=rdir("pinglun")%></d><d><%=rdir("kuoinfo")%></d></ph><%
rdir.movenext
loop
rdir.close
set rdir=nothing

else
response.write "<ph><n>iloveyukiforever</n><t>"&rdir("title")&"</t><i>"&rdir("info")&"</i><d>"&rdir("down")&"</d><p>"&rdir("pinglun")&"</p><k>"&rdir("kuoinfo")&"</k></ph>"
rdir.close
set rdir=nothing
end if
response.write "</info>"

end if

'=======如果loadtype 值为3,3是直接从文件夹里读图片，用Fso ,
if (loadtype=3) then
ImageFilePath = "../"&rs("ydir")&"/"


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

''CreateDIR(Server.MapPath(ImageFilePath)  &"/s/")''建立"S"

For Each objFile In objFolder.Files
	strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
	If   lcase(strFileExtension) = "jpg" Or  lcase(strFileExtension) = "jpeg"  or  lcase(strFileExtension) = "png"  Then
	
  dir=ImageFilePath
  pic1=objFile.Name
  write="false"
  makeimg  dir, pic1, "",100,100,".jpg",write
  response.write("<photo><url>"&rs("ydir")&"/"&objFile.Name&"</url>")
  response.write("<thumb>"&rs("ydir")&"/s/"&objFile.Name&"</thumb>")
response.write("</photo>")
End If
Next ' objFile
Set objFolder = Nothing
Set objFSO = Nothing
response.write("</photos>")
response.write "<setup><bgimg>"&rs("bgimg")&"</bgimg><ydir>"&rs("ydir")&"</ydir><ieopen>"&rs("ieopen")&"</ieopen><comok>"&rs("comok")&"</comok><titleok>"&rs("titleok")&"</titleok></setup>"
end if
rs.close
set rs=nothing
%>