-- 作者：dogog
-- 发布时间：5/5/2007 11:51:00 PM
-- 麻烦高手解析下下面的这段代码，关于脚本语言中的binaryread
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
'
' 档案名称：s.asp
' 原创作者：seavoice
' 作者邮件：mang_man@sina.com
' 创建日期：星期六，2007年05月05日 16:01:01
' 版权所有(C)西北农林科技大学
'--------------------------------------------------------------%> <HTML>
<HEAD>
<Title>s.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD> <BODY> <!-- 请在这里输入您的HTML代码 -->
<%
if request.QueryString("query")<>"s" then
%>
<FORM name="form1" action="?query=s" method="post">
<input type="file" name="file">
<label>
<input type="submit" name="submit" value="提交">
</label>
</FORM>
<div align="center">
<%
else
response.ContentType="image/gif" '设置输出的内容为图片类型
data=request.BinaryRead(request.totalbytes) '获取客户端传送的所有数据
tcrlf=chr(13) & chr(10) '回车换行符
flag=leftb(data,instrb(data,tcrlf)-1)'获取图象结束标志
datastart=instrb(data,tcrlf & tcrlf)+4'获取图象数据开始位置
datalength=InStrB(datastart+1,data,flag)-datastart
response.BinaryWrite midb(data,datastart,datalength)
end if
response.Write("你的浏览器名称：" & request.ServerVariables("HTTP_USER_AGENT") & "<br>")
response.Write("你请求的地址是：" & request.ServerVariables("URL") & "<br>")
response.Write("你的IP地址是：" & request.ServerVariables("REMOTE_ADDR") & "<br>")
response.Write("你的远程主机是：" & request.ServerVariables("REMOTE_HOST") & "<br>")
response.Write("你请求的字符是：" & request.ServerVariables("QUERY_STRING") & "<br>")
response.Write("你的客户端的路径信息是：" & request.ServerVariables("PATH_INFO") & "<br>")
response.Write("你执行脚本的名称是：" & request.ServerVariables("SCRIPT_NAME") & "<br>")
response.Write("你请求的服务器的端口号是：" & request.ServerVariables("SERVER_PORT") & "<br>")
response.Write("你的服务器使用的协议和版本是：" & request.ServerVariables("SERVER_PROTOCOL") & "<br>")
response.Write("你接受请求的服务器地址是：" & request.ServerVariables("LOCAL_ADDR") & "<br>")
response.Write("你刚才传送的字节数是：" & request.TotalBytes)
%>
</div>
</BODY> </HTML>
|