📄 madeframexml.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>相框Xml生成</title>
<link href="images\table.css" rel="stylesheet" type="text/css">
<%
sub showf()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("image_frame"))
Set fc = f.SubFolders
For Each f1 in fc
response.Write( "<input type=""text"" name=""fn"" value="""&f1.name&"""/>"&"<br>")
next
set f1=nothing
set fc=nothing
set f=nothing
set fso=nothing
end sub
'-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
function ReadFromTextFile (FileUrl,CharSet)
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
end function
'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
'----------------------------------------------------
Sub WriteToTextFile (FileUrl,byval Str,CharSet)
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Close
set stm=nothing
end Sub
sub makexml()
fhead="<?xml version=""1.0"" encoding=""gb2312""?>"&vbCrLf&"<photoframes>"&vbCrLf
fend="</photoframes>"
fnode=""
Set fso = CreateObject("Scripting.FileSystemObject")
tend=request.Form("fn").count
for i= 1 to tend
MyArray = Split(request.Form("fn").item(i),"|")
Set f = fso.GetFolder(server.MapPath("image_frame\"&myarray(0)))
Set fc = f.Files
fnode=fnode&"<frame name="""&myarray(1)&""" url="""&"image_frame\"&myarray(0)&""">"&vbCrLf
For Each f1 in fc
if (instr(1,Ucase(f1.name),"PNG")<>0) or (instr(1,Ucase(f1.name),"GIF")<>0) or (instr(1,Ucase(f1.name),"JPG")<>0) then
fnode=fnode&"<pic url="""&"image_frame\"&myarray(0)&"\"&f1.name&"""/>"&vbCrLf
end if
next
fnode=fnode&"</frame>"&vbCrLf
next
call WriteToTextFile ("iframesetting.xml",fhead&fnode&fend,"GB2312")
set f1=nothing
set fc=nothing
set f=nothing
set fso=nothing
response.Write("相框添加完毕!")
response.end
end sub
%>
</head>
<body>
<% if(request.Form("submit")<>"") then call makexml %>
<form id="form1" name="form1" method="post" action="">
下面您所看到的是系统 自动找寻到的文件集合<br>
注意文件只能够为英文的,您可以在其后输入"|中文名"<br>
<% call showf %>
<input name="submit" type="submit" id="submit" value="生成XML文件" />
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -