200分求ASP+XML的应用小例子，受到后，即可发令100分贴

PrimerCC 2003-11-22 01:16:47

EMAIL:supeiwang@163.net

...全文

52 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

heroqxn 2003-11-22

打赏
举报

晕，贴错了

heroqxn 2003-11-22

打赏
举报

index.htm
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<html>
<head>
<title>::::DownLoad::::</title>
<SCRIPT LANGUAGE=javascript>

</SCRIPT>
<SCRIPT LANGUAGE=vbscript>
Sub sendmail(filename)
Dim xmlhttp1
set xmlhttp1=createobject("Msxml2.xmlhttp")
xmlhttp1.open "post","server.asp?filename="&filename,False
xmlhttp1.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp1.send
sendmail=xmlhttp1.responseText
set xmlhttp1=nothing
end sub
Dim xmlHttp
Function GetFile(path, suffix)

Set xmlHttp = CreateObject("Msxml2.XMLHTTP")

xmlHttp.OnReadyStateChange = GetRef("GetStatus")
xmlHttp.Open "POST", "server.asp?path=" & path & "&suffix=" & suffix, true
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.Send

'GetFile = xmlHttp.responseText
'
End Function
Set xmlHttp = nothing
Sub GetStatus()
if xmlHttp.readyState=1 or xmlHttp.readyState=2 or xmlHttp.readyState=3 then
document.all.filelist.innerhtml="<font color=red>Load...</font>"
'msgbox "1.2"
elseif xmlHttp.readyState=4 then
document.all.filelist.innerHTML=xmlHttp.responseText
'msgbox "3.4"
end if
End Sub

sub showfile()
dim path,suffix
'document.all.filelist.innerhtml="<font color=red>Load...</font>"
path=document.all.fpath.value
if right(path,1)<>"/" then
path=path&"/"
end if
suffix=document.all.fsuffix.value
call GetFile(path,suffix)
end sub

</SCRIPT>
<style>

</style>
</head>
<body onload="showfile()" oncontextmenu="window.status='^_^......';return false;" background="../image/bg.gif" leftmargin="20" topmargin="10">
<div id="cc" style="position:absolute;left:0px;top:100px;width:100%;height:20px;background:#f0f0f0;display:;filter: Alpha(opacity=50);z-index:0;" align="right">
<marquee direction=left width=200px height=18px scrollamount="1" scrolldelay="60">如果你有什么好东西的话,一定要共享哦...</marquee>
</div>
<input type=hidden size=15 id="fpath" value="<%=qs%>"> <input type=hidden size=15 id="fsuffix">
<table width="680" cellspacing="0" cellpadding="2" bordercolor="#009900" border="1">
<tr>
<td bordercolor="#FFFFFF">
<input type=button onclick="showfile()" id=button1 name=button1 value=" 刷新 "> <input type=button value=" 返回首页 " onclick="window.location='../';">
</td>
</tr>
</table>
<br>
<div id="filelist"><font color=red>Load...</font></div>
<br>
</body>
</html>

heroqxn 2003-11-22

打赏
举报

server.asp
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<%@ Language=VBScript %>
<%Response.ContentType = "text/xml; charset=gb2312"
f_path=request("path")
f_suffix=request("suffix")
if f_path<>"" then
Dim fso, f, fc, fi,f_path,f_suffix,fd,fdc,fdcf

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(Server.MapPath(f_path))) Then
Set f = fso.GetFolder(Server.MapPath(f_path))
set fd= f.SubFolders
Response.Write "<br><font color=green><b><u>"&server.MapPath (f_path)&"</u></b></font><br><br>"
for each fdc in fd
Response.Write "<img src=f.gif border=0 alt=文件夹> <a target='_blank' href=default.asp?"&server.URLEncode(f_path)&server.URLEncode(fdc.name)&"><font color=green><b id="&fdc.name&">"&fdc.name&"</b></font></a><br>"
next
Set fc = f.Files

for each fi in fc
response.write " <img src=ff.gif alt=文件><a onclick='return affirm(this);' href="&server.htmlEncode(f_path)&server.htmlEncode(fi.name)& " id="&fi.name&">" &fi.name&"</a> size:"&fi.size&"<br>"
next
Set fc = Nothing
Set f = Nothing
Else
Response.Write "<br><font color=red>Error: No such virtual path - " & f_path &"</font>"
End If
Set fso = Nothing

end if

%>