http://www.is21.cn/ zh-cn PBlog2 v2.4 http://www.is21.cn/images/logos.gif http://www.is21.cn/ 21 工作室 http://www.is21.cn/default.asp?id=777 lianxiangpanjin@163.com(admin) Sun,15 Jul 2012 22:36:12 +0800 http://www.is21.cn/default.asp?id=777
添加如下MIME类型即可。 

·WML text/vnd.WAP.wml 

·WMLC application/vnd.WAP.wmlc 

·WMLS text/vnd.WAP.wmlscript 

·WMLSC application/vnd.WAP.wmlscriptc 

·WBMP image/vnd.WAP.wbmp 

---------------------------------------------------------------- 
例入：扩展名输入：·WML ， MIME类型 输入：text/vnd.WAP.wml 


同理，比如.dwt是模板格式，默认情况下win2003虚拟主机不支持，可以通过设置mime设其支持，设置格式是： 
扩展名： .dwt MIME类型 输入：application/octet-stream

"引用http://www.xkzzz.com/zz/webyy/zzjs/200812/17-6377.html]]> http://www.is21.cn/default.asp?id=748 lianxiangpanjin@163.com(admin) Thu,12 May 2011 01:24:55 +0800 http://www.is21.cn/default.asp?id=748 iis 7中，iis中，asp中，调试属性，将错误发到浏览器
2.下面几行，启用父目录
3.打开IIS管理器--双击“IIS”中的“ASP”-- 打开“行为”--展开“限制属性”；
修改“最大请求实体主体限制”的值，默认值为200000（即不到200KB）；
把它修改为你想修改的大小，如：52000000（50MB）


4.iis7默认不带asp asp.net 
报错   404.3 - Not Found
模块    StaticFileModule
通知    ExecuteRequestHandler
处理程序    StaticFile
错误代码    0x80070032
于没装全，控制面板，程序，左边“打开或关闭windows功能”


5 安装完iis后，启用一些组件



6.如果是64位操作系统，需要设置：（不设置后操作数据库时特别慢）
左边应用程序池-> defaultappPool->高级设置->常规->启用32位应用程序->true


------------------------------------------------------
windows7 下  Microsoft JET Database Engine (0x80004005)
打开数据库的同时，系统会在临时文件夹 %SystemRoot%/temp/ 下创建临时文件，而 %
SystemRoot%/temp/ 的权限不够
解决：%SystemRoot%/temp/ 的权限加上(IUSER_电脑名的读写)]]> http://www.is21.cn/default.asp?id=699 lianxiangpanjin@163.com(admin) Sun,02 Aug 2009 20:47:40 +0800 http://www.is21.cn/default.asp?id=699
2.因为国外时间显示格式与国内不一致,所以改上传文件名  要过滤  "/'  号

]]> http://www.is21.cn/default.asp?id=685 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:06:07 +0800 http://www.is21.cn/default.asp?id=685 <%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb")
conn.open connstr
'----------------------------------------
function getextendname(filename)
 extname=lcase(filename)
 extname=right(extname,3)
 extname=right(extname,3-instr(extname,"."))
 getextendname=extname
end function
'---------------------------------------------------

'-------------------------------------------------------
function filename()
 filename=now()
 filename=replace(filename,"-","")
 filename=replace(filename,":","")
 filename=replace(filename," ","")
 filename=filename
end function
'----------------------------------------------------------

'-------------------------------------------------------------------
set upload=new upload_5xsoft

set upfile=upload.file("files")
title=upload.form("t1")
info=upload.form("t2")

if upfile.filesize>0 and upfile.filename<>"" then
 if instr("jpg,bmp,gif",getextendname(upfile.filename))>0 then
  if upfile.filesize<204800 then
   fname=filename&"."&getextendname(upfile.filename)
   upfile.saveas server.mappath("pic/"&fname)
   
   sql="insert into img (title,info,imgpath)values('"+ title +"','"+ info +"','"+ fname +"')"
   conn.Execute sql
   conn.close
  response.write "<script>alert('添加图片成功！');top.location.href='index.asp';</script>"
  else
   response.write "<script language='javascript'> alert('文件上传失败,大小超过了200K!');history.back(); </script>"
  end if
 else
  response.write "<script language='javascript'> alert('文件上传失败,其不为图片格式!');history.back(); </script>"
 end if
end if
'--------------------------------------------------------



'引用自http://www.jscode.cn/arthtml/art4459.htm]]> http://www.is21.cn/default.asp?id=683 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:04:28 +0800 http://www.is21.cn/default.asp?id=683 On Error Resume Next
Dim r
Set r = New Rar

r.Add Server.MapPath("a.gIf")
r.Add Server.MapPath("a.txt")
r.Add Server.MapPath("test")
r.Add Server.MapPath("file.asp")
r.packname = Server.MapPath("xxx.dat")
r.Pack
r.rootpath = Server.MapPath("xxx")
r.packname = Server.MapPath("xxx.dat")
r.UnPack

Response.Write(Err.Description)
Set r = Nothing
%>
<script Language="Vbscript" Runat="server">
'-----------------------------------------------------
' 描述: Asp打包类
' 作者: 小灰(quxiaohui_0@163.com)
' 链接: http://asp2004.net http://blog.csdn.net/iuhxq http://bbs.asp2004.net
' 版本: 1.0 Beta
' 版权: 本作品可免费使用，但是请勿移除版权信息
'-----------------------------------------------------
Class Rar
 Dim files,packname,s,s1,s2,rootpath,fso,f,buf
 Private Sub Class_Initialize
  Randomize
  Dim ranNum
  ranNum = Int(90000 * Rnd) + 10000
  packname = Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)&ranNum&".asp2004"

  rootpath = Server.MapPath("./")

  Set files = server.CreateObject("Scripting.Dictionary")
  Set fso = Server.CreateObject("Scripting.FileSystemObject")

  Set s = server.CreateObject("ADODB.Stream"):s.Open:s.Type = 1
  Set s1 = server.CreateObject("ADODB.Stream"):s1.Open:s1.Type = 1
  Set s2 = server.CreateObject("ADODB.Stream"):s2.Open:s2.Type = 2
 End Sub

 Private Sub Class_Terminate
  s.Close:Set s = Nothing
  s1.Close:Set s1 = Nothing
  s2.Close:Set s2 = Nothing

  Set fso = Nothing
 End Sub

 Public Sub Add(obj)
  If fso.FileExists(obj) Then
   Set f = fso.GetFile(obj)
   files.Add obj,f.Size
  ElseIf fso.FolderExists(obj) Then
   files.Add obj,-1
   Set f = fso.GetFolder(obj)
   Set fc = f.Files
   For Each f1 in fc
    Add(LCase(f1.Path))
   Next
  End If
 End Sub

 Public Sub Pack
  Dim str
  a = files.Keys
  b = files.Items
  for i=0 to files.count-1
   If b(i)>=0 Then
    s.LoadFromFile(a(i))
    buf = s.Read
    If Not IsNull(buf) Then s1.Write(buf)
   End If
   str = str & b(i)&">"&Replace(a(i),rootpath,"")&vbCrLf
  next
  str = CStr(Right("000000000"&len(str),10)) & str
  buf = TextToStream(str)
  s.Position = 0
  s.Write buf
  s1.Position = 0
  s.Write s1.Read
  s.SetEOS
  s.SaveToFile(packname)
 End Sub

 Public Sub UnPack

  If Not fso.FolderExists(rootpath) Then
   fso.CreateFolder(rootpath)
  End If
  Dim size
  '转换文件大小
  s.LoadFromFile(packname)
  size = CInt(StreamToText(s.Read(10)))
  str = StreamToText(s.Read(size))
  arr = Split(str,vbCrLf)

  for i=0 to Ubound(arr)-1
   arrFile = Split(arr(i),">")
   If arrFile(0) < 0 Then
    If Not fso.FolderExists(rootpath&arrFile(1)) Then
     fso.CreateFolder(rootpath&arrFile(1))
    End If
   ElseIf arrFile(0) >= 0 Then
    If fso.FileExists(rootpath&arrFile(1)) Then
     fso.DeleteFile(rootpath&arrFile(1))
    End If
    s1.Position = 0
    buf = s.Read(arrFile(0))
    If Not IsNull(buf) Then s1.Write(buf)
    s1.SetEOS
    s1.SaveToFile(rootpath&arrFile(1))
   End If
  Next
 End Sub

 Public Function StreamToText(stream)
  If IsNull(stream) Then
   StreamToText = ""
  Else
   Set sm = server.CreateObject("ADODB.Stream"):sm.Open:sm.Type = 1
   sm.Write(stream)
   sm.Position = 0
   sm.Type = 2
   sm.charset = "gb2312"
   sm.Position = 0
   StreamToText = sm.ReadText()
   sm.Close:Set sm = Nothing
  End If
 End Function

 Public Function TextToStream(text)
  If text="" Then
   TextToStream = "" '这里该如何写？空流？
  Else
   Set sm = server.CreateObject("ADODB.Stream"):sm.Open:sm.Type = 2:sm.charset = "gb2312"
   sm.WriteText(text)
   sm.Position = 0
   sm.Type = 1
   sm.Position = 0
   TextToStream = sm.Read
   sm.Close:Set sm = Nothing
  End If
 End Function
End Class
</script>


'引用自http://www.jscode.cn/arthtml/art4689.htm]]> http://www.is21.cn/default.asp?id=682 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:03:56 +0800 http://www.is21.cn/default.asp?id=682
　　在html.asp中用<script src="js.asp"></script>方式来显示内容，在html.asp代码中，设置一个session，在js.asp进行判断，如果是设置的值就显示正常内容，如果不是，就隐藏或显示其它内容，在js.asp的结尾把session值改变，在html.asp和js.asp中都加一段代码，使得游览器不缓存页面只能做到简单的隐藏，使用工具软件可以看到源文件，示例代码：

　　html.asp程序代码：

<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看代码 - www.51windows.Net</title>
<style>
<!--
td { font-family: Tahoma; font-size: 8pt; color: #000080; line-height: 150%; 
border: 1 solid #666666; padding: 4 }
-->
</style>
</head>
<body>
<%
session("haiwa") = "hw"
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="480">
<tr>
<td id="tmp"><SCRIPT LANGUAGE="javascript" src="js.asp" id="js"></SCRIPT></td>
</tr>
</table>
</center>
</div>
</body>
</html>

js.asp程序代码：

<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
if session("haiwa") <> "hw" then
response.write "//欢迎查看源文件"
response.end
end if
%>
//高，这你都能看得出来。我没有招了。。哈哈
document.write ("　　先做后想，先想后做，边想边做；只想不做，只做不想，不想不做。------世界是几乎都被这六种人涵盖了，如果作为个人能清楚的分析并看出自己属于哪一类人，至少证明你自己是个聪明人。")
<%
session("haiwa") = ""
%>


'引用自http://www.jscode.cn/arthtml/art4687.htm]]> http://www.is21.cn/default.asp?id=681 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:03:27 +0800 http://www.is21.cn/default.asp?id=681   同理，可以改造成JS脚本。 
   
  <% 
  Dim AppealNum,AppealCount 
  AppealNum=10 '同一IP60秒内请求限制10次 
  AppealCount=Request.Cookies("AppealCount") 
  If AppealCount="" Then 
  response.Cookies("AppealCount")=1 
  AppealCount=1 
  response.cookies("AppealCount").expires=dateadd("s",60,now()) 
  Else 
  response.Cookies("AppealCount")=AppealCount+1 
  response.cookies("AppealCount").expires=dateadd("s",60,now()) 
  End If 
  if int(AppealCount)>int(AppealNum) then 
  response.write "抓取很累，歇一会儿吧！" 
  response.end 
  End If 
  %> 


'引用自http://www.jscode.cn/arthtml/art4656.htm]]> http://www.is21.cn/default.asp?id=680 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:02:54 +0800 http://www.is21.cn/default.asp?id=680
　　· 控制缓存和有效期。

　　· 创建状态和定制的HTTP报头。

　　· 指定MIME类型或内容类型。

　　· 添加PICS标签。

　　接下来将简要地研究每一个方面。可在“Response Object”主页（show_response.asp）上，单击相关属性名或方法名，来检查我们所说的属性和方法。 

　　1. 缓存和“到期”ASP网页

　　用户的浏览器以及他们和服务器这间的任一代理服务器，都可以缓存HTML和用ASP创建的网页。当用户随后请求页面时，浏览器就发送一个“最新修改”的请求到服务器（使用一个包含缓存版本的日期的HTTP_IF_MODIFIED_SINCE报头），询问网页是否已被修改。

　　若没有被修改，服务器应用状态码和消息“304 Not Modified”来响应，浏览器将使用缓存的内容而不会通过网络下载一个副本。若已经存在已修改的版本，它就会与“200 OK”状态码和消息一道被发送出去。

　　1) Response.CacheContol属性

　　其他的一些因素也会影响这一处理过程。然而，任一被网页使用的网络路由内的代理服务器（一般位于客户机端），能被通过设置Response.CacheControl属性为Private来放弃缓存网页。在ASP 3.0中对ASP网页这是缺省的，不用设置。但在网页为个别访问者特别定制时尤其有用。这可以阻止别的在同一网络上的用户进入同一网页。当CacheControl的属性值被设定为Public时，允许服务器缓存网页。注意，一些代理服务器可能表现得不尽相同，或忽视或越过这个报头。

　　在IE4中，在代理服务器缓存可用时，有可能得到一个虚假的“This page has expired”消息。我们已提供了一个网页（expiretest_form.asp），可以通过自己的代理服务器在网络上做试验，来检查这一属性的影响。可以通过在“Response Object”主页中单击“Response. CacheControl”链接来显示这个网页。如下图所示：

　　这一页面提交到expiretest_result.asp网页时，能够设置Response.CacheControl属性，然后在网页中插入值和脚本被执行的时间：


＜%
If Request.Form(“public”) = “on” Then ‘Cache-Control check box was ticked
　Response.CacheControl = “Public”
Else
　Response.CacheControl = “Private”
End If
%＞
＜HTML＞
...
Cache-Control is: ＜B＞＜% = Response.CacheControl %＞＜/B＞＜P＞
Value in text box is: ＜B＞＜% Response.Write Request.Form(“textbox”) %＞
＜%
Response.Write Right(“0” & Hour(Now),2) & “:” & Right(“0” & Minute(Now),_
& 2) & “:” & Right(“0” & Second(Now),2)
%＞＜/B＞


　　通过单击浏览器上的“Back”和“Forward”，能看到代码是自动执行还是使用缓存的副本。

　　2) Response.Expires和Response.ExpiresAbsolute属性

　　控制缓存的网页存放时间的两个属性为Response对象的Expires和ExpriesAbsolute属性。Response.Expires定义了风页在从缓存区被丢弃前应保持有效的时间长度，以创建以来的分钟数形式表示。ExpiresAbsolute属性为到期时间设置了一个绝对的日期和时间。

　　我们提供一个命名为addheaders_form.asp的例子网页，用于演示如何使用这些属性。在“Response Object”主页中单击对这两种属性的链接。

　　在得到的页面中，可加入自己定制的HTTP报头，并可设置一些影响响应的HTTP报头的多种属性。在“提交查询内容”按钮上单击时，页面show_headers.asp在返回的数据流中添加所选的报头，然后显示用来完成此操作的代码，显示相应的执行时间，可用来检查页面是被缓存还是被再次执行。

　　show_headers.asp网页中的代码创建和添加HTTP报头，程序如下：


＜%
‘Write HTTP headers before any other output
If Request.Form(“expires”) = “on” Then _
　Response.Expires = Request.Form(“expires_value”)
If Request.Form(“expiresabs”) = “on” Then _
　Response.ExpiresAbsolute = Request.Form(“expiresabs_value”)
If Request.Form(“lastmod”) = “on” Then _
　Response.AddHeader “LAST-MODIFIED”, Cstr(Request.Form(“lastmod_value”))
If Request.Form(“pragma”) = “on” Then _
　Response.AddHeader “PRAGMA”, CStr(Request.Form(“pragma_value”))
If Request.Form(“refresh”) = “on” Then _
　Response.AddHeader “REFRESH”, CStr(Request.Form(“refresh_value”))
If Request.Form(“addheader”) = “on” And Len(Request.Form(“addheader_name”)) Then _
　Response.AddHeader CStr(Request.Form(“addheader_name”)), _
　　CStr(Request.Form(“addheader_value”))
If Request.Form(“status”) = “on” Then _
　Response.Status = Request.Form(“status_value”)
%＞
＜HTML＞
...
... Show code and execution time
...


　　其余部分仅仅是显示已被执行的代码和执行时间。读者会注意到包含在网页中的定制的报头“PRAGMA”（至今我们还没讨论过）。一些（先前的）代理服务器使用它作为网磁是否应被缓存的指示。缺省是网页被缓冲，除非接受到HTTP报头“PRAGMA=NO-CACHE“。

　　2. 创建状态码和定制的HTTP报头

　　可使用先前在实例网页中所看到的Response对象的AddHeader方法来创建自己的状态码或自己喜欢的定制的报头。这一方法需要两个参数：HTTP报头名称或一个包含其值或分配给它的值的字符串。作为一个例子，下面的代码在页面中添加REFRESH报头：


Response.AddHeader “REFRESH”, ”60;URL=newpath/newpage.asp”


　　这等同于客户机端＜META＞元素：


＜META HTTP-EQUIV=”REFRESH”, “60;URL=newpath/newpage.asp”＞


　　换句话说，也可配合Status属性使用AddHeader方法使浏览器载入一个新的页面：


Response.Status = “302 Object Moved”
Response.Addheader “Location”, “newpath/newpage.asp”


　　这等同于使用Response.Redirect方法：

　　Response.Redirect “newpath/newpage.asp”

　　Response.Status属性可被用来发送一些所需要的状态消息，例如添加如下几行：

　　Response.Status= “401 Unauthorized”

　　Response.Addheader “WWW-Authenticate”, “BASIC”

　　强制浏览器显示一个用户名/口令对话框，然后使用BASIC验证把它们发送回服务器（将在本系列后续部分看到验证方法）。

　　3. MIME类型和内容类型

　　当我们想向浏览器发送一个动态创建的字符串，而且它们自己提供给浏览器时没有直接指明内容类型，而是提供表示是否是磁盘文件的扩展名时，Response.ContentType是非常有用的。除非特别指定，所有ASP创建的网页缺省都为“text/type”。内容类型的标识符是MIME类型（MIME代表Multi-purpose Internet Multimedia Extension或Multi-pupose Internet Mail Extension，通常依据上下文来定）。

　　例如，若发送到客户的数据注解是通过从数据库读二进制值创建的图片，就需要在发送任何内容之前添加合适的CONTENT-TYPE报头：



Response.ContentType = “image/jpeg”


　　假如从一个数据库创建一个XML文件，使用MIEM类型“text/xml”；并且如果正在创建一个文本文件可以在文件编辑器中显示或作为一个磁盘文件在客户上被存储起来，使用“text/text”。

　　4. 添加PICS卷标

　　Respnse.Pics属性仅仅是添加一个PICS（Platform for Internet Content system）卷标到页面上，方式与通常用＜META＞标记所用的方式相同：


QUOT = Chr(34)
StrPicsLabel = “(PICS-1.0” & QUOT & “http://www.rsac.org/ratingsv01.html”_
& QUOT & “ 1 gen true comment “ & QUOT _
& “RSACi North America Server” & QUOT & “ for “ & QUOT _
& “http://yoursite.com” & QUOT & “ on “ & QUOT _
& “1999.08.01T03:04-0500” & QUOT & “ r (n 0 s 0 v 2 l 3))”
Response.Pics(strPicsLabel)


　　这段代码添加了如下的PICS卷标：


(PICS-1.0 “http://www.rsac.org/ratingsv01.html” 1 gen true comment “RSACi
North America Server” for “http://yoursite.com” on “1999.08.01T03:04-0500”
r (n 0 s 0 v 2 l 3))


　　要得到关于PICS的更多的信息，或了解更多的定义页面内容的方式，请检索http://www.rsac.org/站点。 

　　在Internet Service Manager中定义报头

　　在本系列文章的第一部分，已经说明了如何在Internet Service Manage(MMC插件)应用程序中设置每个Web网站和IIS 5.0目录的属性，这就定义了使用此站点或目录资源发送到客户机的所有请求的HTTP报头，也就提供了使用每个网页中的ASP脚本代码设置这些属性的替代方法。

　　在Web站点或目录上右击鼠标并选择“Properties”，在其对话框的“HTTP Headers”选项卡中，可设置页面内容有效期的相对时间或绝对日期，定义定制的报头，创建PICS内容等级标签，也可以通过MIME类型映射来定义内容类型。

　　那么可以看到已创建了自定义的REFRESH HTTP报头，应用于从此目录载入的所有网页。即每一分钟自动地重载（刷新）一次（对于显示棒球比赛的最近比分是非常理想的，但对服务器而言负担太重了）。

　　要在“MIME Map”框中添加自定义的内容类型映射，只需在“Properties”主对话框中单击“File Types”按扭把它们添加到清单中即可。

　　当使用HTTP报头开始试验时，你很快会发现不是所有的浏览器表现都相同，许多浏览器以不同的方式响应不同的HTTP报头，使得可靠地建立一个普遍适用的原则有时极为困难。

　　2. 使用客户证书

　　假如设立了一个安全的Web网站或部分内容具有安全机制的网站，可安装一个数字服务器证书，通过允许访问者使用证书中的加密的细节，来验证服务器。每一次对该站点或目录的页面请求，服务器都将发送证书的一个副本，浏览器可检查这个副本以确定正在和谁交谈。
同样，也可设置服务器，要求用户在进入网站时提供一个有效的数字证书。他们可从很多来源获得此证书，例如Verisign（http://www.verisign.com）或Thawte Consulting(http://www.thawte.com)。读者将在第25章看到这一处理过程的细节。

　　这些情况都使用了Request对象的ClientCertificate集合的值，本章的实例代码中，已包含了一个显示用户如何使用些集合值的一些方法的页面。

　　这一网页被命名为showcert.asp，而且其所做的一切就是遍历ClientCertificate集合显示其包含的所有值。可使用以前经常使用的简单代码来完成它，唯一的不同之处就是建立一个HTML表以容纳结果，并将其截为每60个字符一组。


＜TABEL CELLPADDING=0 CELLSPACING=0＞
＜%
For Each keyItem In Request.ClientCertificate()
　StrItemValue = Request.ClientCertificate(keyItem)
　If Len(strItemValue) ＞ 90 Then strItemValue = Left(strItemValue, 60) & “..etc.”
　Response.Write “＜TR＞＜TD＞” & keyItem & “ = “ & strItemValue & “＜/TD＞＜/TR＞”
Next
%＞
＜/TABLE＞


　　使用客户证书重定向

　　一旦要求所有访问网站或部分网站的浏览者给出的其客户证书，就可以使用其包含的信息来制作我们为此用户创建的网页。例如，可使用他们的证书的Organization条目来自动使他们重定向到该网站的指定部分，使别的访问者重定向到别的地方：


If Request.ClientCertificate(“SubjectO”) = “Wrox Press Inc” Then
　Response.Redirect “/wrox_staff/default.asp” ‘Wrox staff site
Else
　Response.Redirect “/public/Default.asp” ‘Normal public site
End If


　　相应地，可使用Country条目来使访问者重定向到一个相应的网站：


Select Case Request.ClientCertificate(“SubjectC”)
　Case “UK”: Response.Redirect “http://uk_site.co.uk/”
　Case “DE”: Response.Redirect “http://de_site.co.de/”
　Case “FR”: Response.Redirect “http://fr_site.co.fr/”
　‘... ect.
　Case Else: Response.Redirect “http://us_site.com/”
End Select


　　3. 读写二进制数据

　　有两个方法提供了对从浏览器发送到服务器的HTTP数据流和从服务器返回到浏览器的数据流的二进制数据访问。Request.BinaryRead方法可得到指定要读取的字节数的参数，并返回变体类型的数组，其中包含从请求的POST段中得到的字节（例如在ASP的Form集合中数据）。下面的程序读数据的头64个字节：


varContent = Request.BinaryRead(64)


　　假如使用了BinaryRead方法，以后就不能访问ASP的Request.Form集合。同样，一旦我们采用任何方式引用了Request.Form集合，就不能使用BinaryRead方法。

　　把二进制数据写进ASP创建的响应流中也是可能的，可采用BinaryWrite方法。需要给其提供想写到客户的字节的变体类型数组：


Response.BinaryWrite(varContent)


　　这些方法都很少使用，除非从一个数据库创建非HTML源才用到这些方法。使用的一个实例就是从数据库读取组成图像的字节，并使用BinaryWrite方法把它发送到客户。

　　4. 创建定制的日志消息

　　假如设置了服务器，以W3C Extended Log File Format格式将请求记录到一个文本文件，可使用Response.AppendToLog方法在日志文件条目的结尾处添加一条消息字符串。若想为特定的网页存储一些值或消息，或在脚本中出现了特定的情况时，这种方式是非常有用的。

　　例如，通过的Intranet的“stationary order”应用程序，可以记录超过特定的条目数目的雇员的部门号码：


...
If intItemCount ＞ 25 Then
　Response.AppendToLog “Large order from ‘” & strDept & department.”
End If
...


　　设置扩展的日志

　　要使用AppendToLog方法，必须激活W3C Extended Log File Format日志设置。该设置方法是，进入Properties对话框中的Web Site选项卡，选中Enable Logging复选框，选择W3C Extended Log File Format并单击Properties按钮，如下图所示：

　　在出现的Extended Logging Properties对话框中，可选择想包括进日志文件的条目。确保选中URI Stem，否则AppendToLog方法将失败。

　　我们提供了一个试图在日志文件中写入一个条目的简单实例页面，可从Request Object主页（show_request.asp）中的AppendToLog方法链接处打开它。这一页面所做的全部工作就是创建一个包含当前日期和时间的简单字符串，然后执行AppendToLog方法：


strToAppend = “Page executed on ” & Now
Response.AppendToLog strToAppend


　　小结

　　本文已经开始了对ASP 3.0的研究，而且我们也看到了ASP 3.0如何与Internet Informateion Server 5.0共同工作，以提供一个易用的、高效的创建动态Web网页和Web应用程序的方法。当然，仍有一些地方需要去研究，本章仅仅是学习了ASP内置的两个最基本的对象。
这两个最基本的对象是Request和Response对象，允许我们访问和使用作为客户机/服务器会话一部分的值，无论用户何时从Web网站请求和载入一个网页或资源，这种会话就会进行，意味着Request对象能够提供对用户请求的全部内容的访问，同时Response对象允许创建和修改服务器发回的响应。

　　这些对象能够通过集合和属性揭示会话的各个部分，并提供了多个能用来检索和修改各段的方法。假如把它们当作分解用户请求和使用相应的内容创建响应的工具，这有助你理解究竟发生了什么。这也将有助于理解各种方法如何影响客户、服务器和正在创建的网页。 


'引用自http://www.jscode.cn/arthtml/art4600.htm]]> http://www.is21.cn/default.asp?id=679 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:02:14 +0800 http://www.is21.cn/default.asp?id=679    set A=server.createobject("scripting.filesystemobject") 
   path="G:\count\0" 
   i=0 
   response.write "主目录：<br>"&path&"<ul>" 
   re 
   response.write "</li></ul>" '-----------------主目录 
   sub re() 
   B=B&i 
   C=C&i 
   D=D&i 
   E=E&i 
   set B=A.getfolder(path) '----------------------主目录下文件 
   if i>=2 then response.write "<ul>" 
   for each E in B.files 
   response.write "<li>"&E.name&"</li>" 
   next 
   if i>=2 then response.write "</ul>" 
   '----------------------End '---------------------------主目录下文件夹 set C=B.SubFolders 
   if i>=2 then response.write "<ul>" 
   for each D in C 
   response.write "<li><b>"&D.name&"</b><font color=#c0c0c0>(DIR)</font>" 
   i=i+1 
   path=D 
   re2 '显示子目录 
   next 
   if i>=2 then response.write "</ul>" 
   '---------------------------End 
   end sub '-----------------次目录 
   sub re2() 
   B=B&i 
   C=C&i 
   D=D&i 
   set B=A.getfolder(path) '-----------------------------次目录下文件 
   response.write "<ul>" 
   for each E in B.files 
   response.write "<li>"&E.name&"</li>" 
   next 
   response.write "</ul>" 
   '-----------------------------End '-----------------------------次目录下文件夹 
   set C=B.SubFolders 
   response.write "<ul>" 
   for each D in C 
   response.write "<li><b>"&D.name&"</b><font color=#c0c0c0>(DIR)</font></li>" 
   i=i+1 
   path=D 
   re '显示子目录 
   next 
   response.write "</ul>" '-----------------------------End 
   end sub 
   %> 


'引用自http://www.jscode.cn/arthtml/art4663.htm]]> http://www.is21.cn/default.asp?id=678 lianxiangpanjin@163.com(admin) Fri,15 May 2009 17:01:39 +0800 http://www.is21.cn/default.asp?id=678   **注意以下的讨论是对一个主题而言，就是对一棵树而言！ 
  如果加一新贴那么 order_value=0 
  如果跟贴查比父贴 order_value大的order_value 
  如果有假设为next_value,那么新帖的 
  order_value为父贴的(order_value+next_value)/2； 
  如果有那么新帖的order_value为父贴的order_value+1000 
  也就是说如果对A贴跟贴，如果A为末贴，A的字帖的order_value为order_value（父）+1000， 
  不是末贴既找出比A大的order_value,新的order_value为两者的一半! 
  排序实现: order by groupid,order_value desc 
  **技巧如果想实现层次多一点可以每次加的多一点+100000，那样应该会好一点 
   
  ***不足之处： 
  1：使用两个字段排序，速度有点慢 
  2：使用order_value是一个浮点数，使用float估计不够，还是使用double 
  3：只能实现理论上的无穷层实际上超过10层使用float有问题，使用double可能没有 
  4：插入是需要查找下一个order_value 
   
  Dim ordervalue, nextvalue As Double 
  sql = "select gorders where gId=" & gId & " and goders> " & gorders & " order by goders " 
  rs1.Open sql, conn1, adOpenForwardOnly, adLockOptimistic '查询比父贴大的 
   order_value 
  If (rs1.EOF And rs1.BOF) Then 
   gorders = gorders + 256 
   gLayer = gLayer + 1 
  Else 
   nextvalue = rs1("gorders") 
   If (nextvalue - gorders) > 1 Then 
   gorders = Int((gorders + nextvalue) / 2) 
   gLayer = gLayer 
   Else 
   'gorders,glayer跟回帖一样 
  End If 
  End If 
   
  End Sub 

'引用自http://www.jscode.cn/arthtml/art4478.htm]]>