📄 uptheo.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>
<%
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
Dim FormData,DataStart,CLStr,DivStr
FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
CLStr = ChrB(13)&ChrB(10)
DataStart = InStrB(FormData,CLStr&CLStr)+4
DivStr = LeftB(FormData,InStrB(FormData,CLStr)-1)
DataSize = InStrB(DataStart+1,FormData,DivStr)-DataStart-2
FormData = MidB(FormData,DataStart,DataSize)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 2 'adTypeBinary-1 adTypeText--2
objStream.Mode = 3 'adModeReadWrite
objStream.Open
'objStream.WriteText "好"
'objStream.Write FormData
objStream.Position = 0
'objStream.LoadFromFile "aaa.txt"
'objStream.SaveToFile "aaa.txt"
'objStream.Close
'Set objStream = nothing
%>
<body>
<%
Response.Write("1")
Response.Write("2")
Response.Write(FormSize)
Response.Write(DataSize)
Response.Write(objStream.Size)
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -