📄 upthe1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
Dim FormData,FormSize,DataStart,CLStr,DivStr,fullpath,data
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
CLStr=ChrB(13)&ChrB(10)
DataStart=InStrB(FormData,CLStr&CLStr)+4
'4是两对回车换行符的长度
DivStr=LeftB(FormData,InStrB(FormData,CLStr)-1)
DataSize=InStrB(DataStart+1,FormData,DivStr)-DataStart-2
'FormData=MidB(FormData,DataStart,DataSize)
set src=server.CreateObject("ADODB.Stream")
src.Mode=3
src.Type=1
src.Open
set dest=server.CreateObject("ADODB.Stream")
dest.Mode=3
Dest.Type=1
dest.Open
src.Write FormData
src.position = DataStart
src.copyto dest, DataSize
fullpath = "C:\Inetpub\wwwroot\wordth\aaa.txt"
dest.SaveToFile fullpath,2
dest. Close
Set dest=nothing
src. Close
Set src=nothing
data = dest.read
Response.BinaryWrite data
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -