2007年05月07日

最近几天,我站点的pr值回升到了5.http://www.buzhizhe.com

 

2006年04月06日

在家里也早就装过这个浏览器,只是偶尔用用而已。用于打开特定的网页速度还是蛮快的,今天在公司特地下了个最新的用着。
  细细地看它的各个功能,有些非常棒,使用还比较方便的。于是我详细地设置了下,虽然有很多地方支持的不是太好,这是预料中的事情,无防,先试用一下吧。
  可恶的是,貌似有些网页打开的快,有些打开的慢的样子,这就是预料外的事情了,难道还有一个适应期?如果opera在速度上时快时慢的话,那是我所不能接受的。
  不管了,先习惯一下opera的风格再说。

2006年01月02日

刚刚上兰色论坛,发现一个悄悄话,N久没悄悄话拉,好感动~~

5do8告诉我的的网站PR值达到6啦,挖哈哈

N个月前就关闭了,居然今天的PR值还如此之高,我不得不佩服我高深摸册的建站技术啦,怎么会这样呢?老天呀,真不公平,反过来查查公司的2个网站,PR值均为0。嘘,小声点,别让他们听见。。。

恩,明个去买个空间,域名也续上费,把那些东动挂上去

2005年12月03日

本来想着三个人,周末了吃点好的。

谁知道他们俩都出去吃去,哼哼,偶一个人更要多吃点,照样做了三个人的菜,然后一个人吃光。哈哈。

单身的人呀,更要对自己好些 -_-

亲爱的悟空:  
在天庭住好一阵子了,不知你在花果山过得可好?我这封信写得很慢,因为知道你看字不快。我们已经搬家了,不过地址没改,因为搬家时顺便把门牌带来了  
这礼拜下了两次雨,第一次下了3天,第二次下了4天。  
昨天我们去买比萨,店员问道:请问要切成8片还是12片,你勤俭的师母说:切8片好了,切12片恐怕吃不完。
那间店比萨还不错,改天我们全家再一起去街口的餐馆吃牛排。
还有你观音阿姨说你要我寄去的那件外套,因为邮寄时会超重,所以我们把扣子剪下来放在那件外套的口袋里了。  
你嫦娥姐姐早上生了。因为我还不知道到底是男的还是女的,所以我不知道你要当阿姨还是舅舅。
最近没什么事,我会再写信给你。                                师傅  
又及:我们本来要寄钱给你但是信封已经粘好了自:


悟空回唐僧的一封信
师傅:
您好!
 上次的信收到了,寄来的东西也收到了。这次我给您寄去了一个摄像头和一副耳麦,以后咱们视频吧。我写字还是不行,每次还得总麻烦人家代笔。qq号我也给你申请了12315密码是你的生日。要是八戒和沙师弟也一起的话就更好了,八戒自从回了高老庄就再也没有和我联系过,这个呆子,大概还在生我的气,沙师弟去年带着他的小儿子来过一次,这家伙快要做爷爷了。
前一阵我去看玉帝了,他很烦,现在到处都在全球化,他手底下的那些公务员不是跟不上形势 ,就是被形势腐化,弄得他很无奈。
杨二郎您知道吧,因为嫖娼,刚被放出来,一只天眼也瞎了,据说是警察冲进来时他逃跑结果眼睛正好撞到一枝树杈上。被拘了15天。本来找找人罚款就没事的,可他的狼狗咬坏了一个警察的下半身,人家家属不干,媒体也跟着推波助澜,这次我看他非倾家荡产不可。玉帝想保也没法保,刚出来时想让他去做个弼马温,但纪检部门始终不下结论,他也不好轻易安排。
还有托塔天王李静,因涉嫌侵吞国有资产,买官卖官,接受巨额贿赂,结果被审计署的李金华大哥曝了光,中纪委接着就成立了专案组,和反贪部门一起联手调查,不久就把他双规了。还带出了一大堆买官者,可笑的是买官的里面竟然还有太白金星,文武两个曲星,媒体把这事热炒了好一阵。
 此事把他3个儿子都给气坏了,尤其哪吒,本来他们父子感情就不好,这次他索性直接从家里搬了出来,他昨天给我打电话特别想到我这里来喝酒,可警察限制他们家人离境,转移财产。连他的工作都受到了影响,他现在是高新技术开发区的主任,和我是很要好的朋友。自从他父亲出事以后好多投资意向都取消或延后了。他父亲的二奶整天带个孩子来找他哭哭啼啼的,弄得他一点招没有,因为家产被封,他的那个小弟弟连学费都交不起了,他只好背着老婆从家里拿了2万块给他们,还不敢让老娘知道。
牛郎和织女也离婚了,长期两地分居,听说男的在外面包了二奶,七月七那天耽搁了见面。 女的去找结果人家一家还在睡大觉。女方看事已至此,也只好认了。没想这事被月老知道了,跑来非要和我撮合 ,被我给挡了。因为我…..,还是留在最后说吧 。
现在最烦的可能是东海龙王,他现在和环保局一起和沿海几省打官司,他的海全被污染了,鱼虾也快死光了,报纸说,他不久就快成一条死龙了。他的3个儿子也因为98年那场大水现在还在被公安部通缉,因为他们涉嫌酒后纵水为患,给人民造成了天文数字的损失。那天我见到他时他的须发全白了,完全不像个水利部长的模样。
 这次去看玉帝,他很高兴,他说他没想到我会去看他,说我自从入了党以后比以前可进步多了。他让我好好把握这次保持党员先进性教育的机会。看得出来他有点感动,还问我想不想回去任职,他那儿正好有个机会,他想换掉足协的谢亚龙,说他和阎世铎一样,一点创意没有,想让我去接这个掌门的位置。原本是让赵本山的,可这家伙招呼也不打就跑到辽足当了董事长,为此惹得国家体育总局那边好多人对他有意见。如果换了我相信会赢得好多人的支持,毕竟我跟师傅西天取过经。我婉言谢绝了,我哪懂什么足球啊,尤其这么敏感的位置,干不好还会连累了师傅您的名声,我干不了。
对了,师傅,您应该去看看太上老君,他快不行了,是铅中毒,医生说他的仙丹里含铅量1000倍超标。现在医生每天给他排铅,但没人时他还是总偷着吃仙丹,他家人说他现在是得了仙丹妄想症。医生也说在这样下去估计熬不过今夏。为这事我专门跑去问过如来,因为当年我也……,呵呵。如来说我没有事的,当年我偷吃的那些仙丹全是假的,当时他根本就没有练出什么仙丹,全是骗人的。临走时还说我的筋斗云不如以前了让我抓紧时间练习。
最后我要告诉师傅一件喜事,我想要结婚了,女的你认识的,白骨精。我们是从网上认识的,起初只是聊得很投缘。原来她身世很惨,出生时因为是女孩,就被父母抛弃了,被一个拾荒的老太好心收养可十岁时,老太得病死去,她从此无依无靠,先后几次被人贩子拐卖,长大后嫁了一户人家,没想这人吸毒,还强迫她去卖淫供他吸毒,她不肯就被毒打,她性子烈,就跳楼了。我还记得我们第一次见面时的情景,他看到我就跑,我使劲追才拦住了她。她看着我,我看着她 。当时我们就认定了对方就是我们彼此一直要找的人,因为已聊得太久太熟悉了,所以我们以前的那段经历就成了一段不打不相识的爱恋。
师傅,现在就等着您来给我们主持婚礼了,我的把兄弟牛魔王还提前送了一辆奥迪A8给我。他现在是牛魔王奶业的董事局主席,就在花果山的山下,我们常在一起。他建议让我再办个旅游公司,名字都想好了叫唐僧佛旅公司,旅游线路就叫西天取经缅怀之旅。我也做过调查,到时一定很火爆。我已给白龙马师弟打过电话了,让他继续给您开车,您做董事长,A8做您的专车。 不过这事还得等您来了我们再细商量。
 另外,您来时千万不要走海上,因为中俄两国马上要在海上进行联合军演了,我怕您过不来。

此致
敬礼!

  想念您的悟空
 2005年11月24日姜太公代笔
百视网:唐僧写给悟空的信和悟空的回信(爆笑)  
from:http://www.100tv.com/read.bbscs?bid=96&id=7446&page=1

2005年03月23日

一天,我走在大街上,什么也没有说.一个人孤独地走在大街上,转如小巷里,绕了一个圈,最后竟然有回来了.因为,我也不知道自己的目的地.

想想这险恶的江湖,以我个人微不足道的能力,我又能做些什么呢?

自古以来,铁血的江湖,弱肉强食,仁义道德根本就没有说话的余地,或许,有些人会顾忌些什么,然而,一旦他能作到杜绝人口的时候,一旦在别人看不到的时候,你知道他会怎么做?古人云:”慎独”二字为人生修养的最高界,诚不欺我也.

2005年02月22日

  我先是学ASP,现在ASP可以说有点小成了,不敢在高手前说这样的话,但最起码俺现在能用这东西混点饭吃.也在想如何把ASP学的更精一些,更深一些,能够成为真正的ASP高手不亦爽也.

  奈何小子修身之学太不到位,看到网上喧喧嚷嚷的大炒特炒就忍不住动心,就禁不住开始浮躁起来.想想,咱也学点时髦的东西吧,说就做,从网络上搜索到.NET教程就开始搞,好象最初弄了个<十天学会..NET>吧,于是就看了起来,费了两天半的时间把哪个教程吃了一便,上面的程序也调试了一些,呵呵,算学会..NET了吧?可是我知道,我其实什么也不会,要我真正去编那东西还是不行,有一些机制必须我慢慢地看来.一时间没发现比较好的教程(事实上是我看了那么多长长的教程望而生畏,打退堂鼓了),就暂时告一段落了.

  过了N天,老板来了,说你赶快学学JSP的,听说这东西是很先进的,我对JSP也不大懂,给他讲了一通什么程序的好坏在于程序员而不仅仅在于哪中开发语言,又说了.net如何如何的好,但他老人家总觉得JSP好,(其实他懂什么),唉.老板说了算,我就跟着盲从下好了,还是学JSP吧.

  费了老大工夫把JSP的调试环境给调好了,就学啊学,晕啊,我学网络编程从来就没有看过什么书,都是靠网络搜索的教程.好象入门了,似乎又没有入门.在入门和未入门之间徘徊着,目前还是如此.

  然后公司发生了一系列不愉快的事情,我也心情低落,一阵子,动学学,西学学,老感觉自己的ASP还太差,就一个劲地补ASP,又觉得自己对XML还不了解,先学学这个吧.又一天发现了一个好网站,好好看看.虽然也学了不少东西,但没有很系统地学什么.慢满地过来的,然后经常上经典论坛冒充高手,给那些比我还菜些的兄弟门一个一个地解决问题...

  到现在,感觉好累,老板,你还给我给我加工资,否则我可就要找你去了$_$

  不是我不想写日志,而是速度实在是太慢了,找了若干天也没有发现那里有速度比较快的日志.

  按说既然是免费的东西,就不要那么苛求了,但我实在是感觉不爽,你说该怎么办?点一个连接得等老半天才出来一些什么的东西,真实很晕啊.所以从前段时间起我就开始弄自己的日志,简单地说就是把日志写在本地机子上,做了一个勉强还可以的程序,然后什么东西都往里面放,经过这一段时间,也放了不少东西了.确实也不错.

  但这些东西毕竟是在计算机上,等那一天我不在公司工作了,这些东西该怎么办呢?

  我寻思,是不是我被自己给惯坏了,本来网络的速度就不是很快的,我却立马想看到自己的东西,今天给一个新来的同时纠正一点错误,她只有用到一个很烂的机子,我真为她痛苦.应该说知足常乐吧,我还是马马乎乎重新开始写网络日志吧,毕竟,总是要走的.在网上,方便些,以后换了工作不至于什么东西都从头开始.

  OK,一切重新开始.

2005年01月13日

http://www.viphot.com/infoview/Article_1763.html

日期:2004年3月12日 作者: 人气: 查看:[大字体 中字体 小字体]


先看看这个,以上传一个文件名为1111.txt里面内容为1111111111111111的文本文件为例。
以下是表单提交到服务器的数据,文件存储就是找到文件域中的数据存放为文件即可。


—————————–7d36022d06d8
Content-Disposition: form-data; name=”file1″; filename=”E:\1111.txt”
Content-Type: text/plain

1111111111111111
—————————–7d36022d06d8
Content-Disposition: form-data; name=”Submit”

提交
—————————–7d36022d06d8–

************************************************


<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_Stream

Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize 
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormvalue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=”LYL上传系统,5xSoft主编,纯生注释。”
if Request.TotalBytes<1 then Exit Sub ”TotalBytes,返回浏览器发送的字节数

”””””””””””””””””””””””””””””””””””
”创建两个集合,Form用于存放非文本域数据,File用于存放文本域数据。
”””””””””””””””””””””””””””””””””””” 
set Form=CreateObject(“Scripting.Dictionary”)
set File=CreateObject(“Scripting.Dictionary”)

””””””””””””””””””””””””””””””””””””
”创建一个二进制的数据数,用于存放表单提交上来的所有数据
”BinaryRead是返回一个POST请求发送到服务器的二进制信息
””””””””””””””””””””””””””””””””””””
set upfile_Stream=CreateObject(“Adodb.Stream”)
upfile_Stream.mode=3
upfile_Stream.type=1
upfile_Stream.open
upfile_Stream.write Request.BinaryRead(Request.TotalBytes)


””””””””””””””””””””””””””””””””
”下面就是戏肉了!!
”下面有两个自己定义函数,首先解释一下先。
”inString,返回形参第二个参数在数据流里的位置。两个形参:1.起始位置;2.字符串。
‘’subString,返回两个位置间的字符串。两个形参:1.起始位置;2.结束位置。

””””””””””””””””””””””””””””””””’
vbEnter=Chr(13)&Chr(10) ”Chr(13)是回车,Chr(10)是换行(这句也注,高手们又要骂街了!)
iDivLen=inString(1,vbEnter)+1 ”找到第一个表单间隔符的结束位置
strDiv=subString(1,iDivLen) ”找到表单里的间隔符,赋给strDiv
iFormStart=iDivLen ”表单中第一个元素的开始位置
iFormEnd=inString(iformStart,strDiv)-1 ”表单第一个元素的结束位置


””””””””””””””””””””””””””””””””””””’
while iFormStart < iFormEnd ”这句不用注释了吧!!??
iStart=inString(iFormStart,”name=”"”) ”找到元素名的开始位置
iEnd=inString(iStart+6,”"”") ”找到元素名结束的位置
mFormName=subString(iStart+6,iEnd-iStart-6) ”找到元素名
iFileNameStart=inString(iEnd+1,”filename=”"”) ”找文件域中文件名


””””””””””””””””””””””””””””””””””’
”如果找到有文件名,即是此元素是一个文件域,否则是其它的元素
””””””””””””””””””””””””””””””””””’ 
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+10,”"”") ”找到文件名的结束位置
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)”找到文件名
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter) ”找到该文件的开始位置
iEnd=inString(iStart+4,vbEnter&strDiv) ”找到该文件的结束位置

””””””””””
”得到文件的大小
””””””””””’
if iEnd>iStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if

””””””””””””””””’
”FileInfo是自定义类,用于存放文件信息和将文件数据保存为文件 
””””””””””””””””’
set theFile=new FileInfo
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
theFile.FormName=FormName
file.add mFormName,theFile

”””””””””””””””””””””
”下面是处理非文件域元素

”””””””””””””””””””””
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)

if iEnd>iStart then
mFormvalue=subString(iStart+4,iEnd-iStart-4)
else
mFormvalue=”" 
end if
form.Add mFormName,mFormvalue
end if

iFormStart=iformEnd+iDivLen ”将iFormStart指向下一个元素的开始
iFormEnd=inString(iformStart,strDiv)-1 ”将iFormEnd指向下一个元素的结束
wend
End Sub



”””””””””””””””””””
”以下是两个自定义函数和一些获取文件信息的过程,基于算法不算复杂,请自行分析。
”注:upfile_Stream.Position 设置数据流的位置;
” upfile_Stream.Read(1) 从数据流中读取一个字节,(是ASCII码) 
”””””””””””””””””””
Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_Stream.Position=theStart-1
stemp=”"
for i=1 to theLen
if upfile_Stream.EOS then Exit for
c=ascB(upfile_Stream.Read(1))
If c > 127 Then
if upfile_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_Stream.Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function
”””””””””””””””””””
”自定义函数toByte,返回一个字符串


”””””””””””””””””””
Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_Stream.Size-theLen
if i>upfile_Stream.size then exit Function
upfile_Stream.Position=i-1
if AscB(upfile_Stream.Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if upfile_Stream.EOS then 
inString=0
Exit for
end if
if AscB(upfile_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
InString=0
Exit For
end if
next
if InString<>0 then Exit Function
end if
next
End Function

Private Sub Class_Terminate 
form.RemoveAll
file.RemoveAll
set form=nothing
set file=nothing
upfile_Stream.close
set upfile_Stream=nothing
End Sub


Private function GetFilePath(FullPath)
If FullPath <> ”" Then
GetFilePath = left(FullPath,InStrRev(FullPath, ”\”))
Else
GetFilePath = ”"
End If
End function

Private function GetFileName(FullPath)
If FullPath <> ”" Then
GetFileName = mid(FullPath,InStrRev(FullPath, ”\”)+1)
Else
GetFileName = ”"
End If
End function
”””””””””””””””””””
”Hex 返回表示十六进制数字值的字符串


”””””””””””””””””””
Private function toByte(Str)
dim i,iCode,c,iLow,iHigh
toByte=”"
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode<0 Then iCode = iCode + 65535
If iCode>255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB(“&H”&iLow) & chrB(“&H”&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class


””””””””””””””””””””””””””””””””””””””””””””
”定义FileInfo类



””””””””””””””””””””””””””””””””””””””””””””

Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileStart
Private Sub Class_Initialize 
FileName = ”"
FilePath = ”"
FileSize = 0
FileStart= 0
FormName = ”"
End Sub

”””””””””””””””””””
”存放文件


””””””””””””””””””” 
Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)=”" or FileSize=0 or FileStart=0 or FileName=”" then exit function
if FileStart=0 or right(fullpath,1)=”/” then exit function
set dr=CreateObject(“Adodb.Stream”)
dr.Mode=3
dr.Type=1
dr.Open
upfile_Stream.position=FileStart-1
upfile_Stream.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing 
SaveAs=0
end function
End Class
</SCRIPT>


下面是调用方法
<!–#include FILE=”upload.inc”–>
<!–#include FILE=”setup.asp”–>
<%
dim upload,file,formName,iCount
set upload=new upload_wilton ”建立上传对象

”在目录后加(/)
if right(formPath,1)<>”/” then formPath=formPath&”/” 

iCount=0

for each formName in upload.file ”列出所有上传了的文件
set file=upload.file(formName) ”生成一个文件对象


file.SaveAs Server.mappath(formPath&file.FileName) ”保存文件

response.write file.FilePath&file.FileName
response.Write(“<br>”)
response.write file.FileSize

set file=nothing
next
set upload=nothing ”删除此对象
%>

还有一个setup.asp是设置一些限制文件的参数

<%
dim formPath,uploadsize,FileType,maxpage
uploadsize= ”64″ ”设置文件大小,单位是 K

maxpage= ”10″ ”上传文件列表每页显示的个数

formPath= ”pic/” ”设置保存目录,以程序所在目录为相对目录,可自己修改或创建。

FileType= ”.gif.jpg” ”设置限制上传文件类型,只支持三个字母的扩展名。

(出处:www.viphot.com)

转自:http://www.viphot.com/infoview/Article_2597.html

实现页面重定向
日期:2004年4月1日 作者: 人气: 查看:[大字体 中字体 小字体]



实现页面重定向
用 Redirect 方法可将浏览器重定向到另一个 URL,而不是将内容发送给用户。例如,如果您想确认用户是否已从主页进入了您的应用程序,以便能收到一个客户 ID,则可以检验他们是否有客户 ID 号;如果没有,就可以将其重定向到主页。以下就是具体例子:

<%If Session(“CustomerID”) = 0 Then Response.Redirect “homepage.asp” End If%>

  除非缓冲区已经打开,否则,在任何内容或标题返回给浏览器之前,您必须重定向浏览器。将 Response.Redirect 语句放在页的顶部和<HTML> 标记之前可确保没有任何内容返回给浏榔鳌H绻诜祷馗榔鞯哪谌莼虮晏夂笫褂?Response.Redirect,将看到一个错误信息。

  如果在页的中间使用 Response.Redirect,请将其与 Response.Buffer 属性一起使用,这是因为在默认情况下,Web 服务器返回 HTML 和在处理 ASP 页时的脚本处理结果。但是,您可以设置 Response 对象的 Buffer 属性以便在向用户发送任何内容之前,先处理页上的所有的服务器脚本命令。

  可以使用缓冲技术来确定在页处理过程中的某个点,而您并不想将该点之前的内容发送给用户。也可以用 Response 对象的 Redirect 方法将用户重定向到另一页,或者用 Response 对象的 Clear 方法清除缓冲区并将不同的内容发送给用户。下面的例子使用了以上两种方法。

  例子一:

<% ‘下一句程序必须放在程序在<HTML> 标识符前Response.Buffer = True %><html><body>…
例子二:
<%If Request (“FName”) = “” Then Response.Clear Response.Redirect “.. /test.html”Else Response.Write Request(“FName”)End If%></body></html>

  以上就是Response对象的在程序中经常用到的功能。

  Server对象有那些属性方法以及怎样使用

  Server对象提供对服务器访问的方法和属性。其中大多数方法和属性是作为实用程序的功能提供的。
Server对象有哪些基本属性和方法?

  (1).语法:
   Server.property|method
  (2).属性(property)
   Server对象只有一个属性:ScriptTimeout 程序能够运行的最大时间
  (3).方法(Methods)
   CreateObject 建立一个对象实例.
   Execute 执行一个asp文件
   GetLastError 返回一个错误代码
   HTMLEncode 对指定的HTML代码进行转换.
   MapPath 将一个相对路径转化为一个绝对路径.
   Transfer 将当前的所有状态信息发送给另一个asp文件
URLEncode 以URL形式转化指定的代码,包括空格

  如何使用Server对象的属性和方法?

  (1).CreateObject

   语法
   Server.CreateObject ( progID )
   参数
    progID
    指定要创建的组件名称,格式如下: [Vendor.]Component[.Version]。
   要点:
    一般来说,用由Server.CreateObject方法创建的对象的生存期在该页面范围内。这就说,当这页的asp程序执行完后,这个对象会自动地消失。

  为了创建一个拥有Session或Application范围的对象,你就要在Global.asa文件中使用CreateObject方法

  (2).Execute

  Execute 方法是呼叫一个ASP文件并且执行它,像被呼叫的ASP文件存在这个ASP文件中一样。这很与许多语言中的类的调用相似。
  语法
    Server.Execute ( Path )
  参数
    Path
  指定将执行的那个asp文件的路径。如果它是一个相对路径,那么它必须是一个和这个ASP应用程序相同的地方(目录)的文件。

  讲解
  Server.Execute 方法提供了一个将复杂ASP应用程序分化为小块单位来执行的方法。通过这种方法,你能够建一个ASP图书馆,你能够随便在你需要时调用你图书馆中的ASP文件。

  当IIS根据指定的ASP文件路径执行完这个ASP文件之后,就会自动返回以前的ASP文件。这个刚刚执行完的ASP文件有可能改变了HTTP head。但是和其它的ASP文件一样,当程序试图改变http head时,就会报错!

  这个path参数可以包括一个询问信息。

  如果在被呼叫和呼叫的ASP文件中都含有相同的子函数,那么这些子函数只在本ASP文件中起作用。举个例子,如果在下面的ASP1和ASP2两个文件中都含有放弃程序的子函数。首先ASP1呼叫ASP2,那么ASP2中的的OnTransactionAbort开始执行,当ASP2执行完毕,ASP1中的OnTransactionAbort才开始执行。

  ASP1:
<%@ Transaction = Required %><%  Server.Execute (“Page22.asp”)  Sub OnTransactionAbort Sub OnTransactionCommit%>
  Asp2.asp:
< %@ Transaction = Required Sub OnTransactionAbort Sub OnTransactionCommit%>
 例子:
ASP1
<% Response.Write ( “I am going to execute ASP2 ” )Server.Execute ( “/myasps/asp2.asp” )%>
ASP2
<% Response.Write ( “Here I am” ) %>

  (3).GetLastError方法

  GetLastError 方法返回一个ASPError Object 来描述一个错误信息.这个方法只适用于在asp文件发送任何内容给用户机之前.
  语法
   Server.GetLastError ( )
  要点:
  如果一个500;100 用户错误已经被定义在一个asp应用程序中,它是指的一个以.asp为后缀的文件。这种情况下,在这个程序运行时当一个错误发生时,服务器就会自动的以Server.Transfer这种方式传送到这个正在执行的ASP页面。ASP应用程序就会将有效的处理这个错误。另外,这个ASPError Object一定要有效,这样你就能够看到服务器提供给你的错误信息来改这个文件了!

  一般的Web Site 都是根据文件\iishelp\common\500-100.asp来构造的。你能够用它来执行一个asp错误,当然你能够自己定义了!。如果你想改变为另外一个asp文件的来执行这些用户错误。那么你可以用IIS中的snap-in。

  注意:当IIS发现了一个asp文件或者global.asa文件中的一个错误,那么一个500;100用户错误产生。以下的程序将不能执行!

  下面的三个例子证明不同的错误会产生的用户错误。三个错误是:

   编译错误
   运行错误
   逻辑错误

  第一个例子证明了一个编译错误,就是当IIS试图包含一个文件时产生的。这个错误会产生是因为在这个包含文件中没有定义所需的参数。第二个例子显示的是一个运行错误,这个程序中断的原因是程序中没有”next”。第三个例子显示的是一个逻辑错误,因为这个程序试图除以一个0。 

  例子01:

< %  response.write “hello”%>
例子02:
< %  dim I  for I = 1 to 1  nxt%>
例子03:
<%  dim i , j  dim sum  sum = 0  j = 0  for i = 1 to 10   sum = sum+1  next  sum = sum/j%>

  (4).HTMLEncode方法:

  HTMLEncode方法对指定的字符串进行HTML编码。
  语法
   Server.HTMLEncode ( string )
  参数
   string 要进行编码的字符
  例子
   下面的程序:
  <%= Server.HTMLEncode ( “The paragraph tag: ” ) %>
  输出为:
  The paragraph tag:
  注意 程序执行后在浏览器中看到的是:
  The paragraph tag:

  但是如果你用”查看源文件”看一下的话,源代码就不是了。

  (5).MapPath

  MapPath 方法将相对路径转化为服务器上的物理路径
  语法
  Server.MapPath ( Path )
  参数
  Path

  这个路径是以”/”或”\”开头的路径,如果这个路径中没有”\”,那么MapPath方法就会返回以当前目录为基础的路径。

  讲解
  MapPath 方法不能检查路径在这个服务器下是否存在。因为 MapPath 转化路径时是不管这个路径是否在这个服务器下存在的。

  你能够用它来将一个相对路径转化为一个物理路径,然后再在这个路径下进行各种操作。

  在下面的例子中,data.txt文件存在 C:\Inetpub\Wwwroot\Script 目录中,而一个test.asp 文件包括下面的代码。C:\Inetpub\Wwwroot 是该服务器的主目录 。

  下面的例子中,首先用环境变量”PATH_INFO”获得当前文件的物理路径。

  下面是Script 代码:

  <%= server.mappath ( Request.ServerVariables ( “PATH_INFO” ) ) %>
  显示为:
c:\inetpub\wwwroot\script\test.asp
  因为下面的例子中路径参数没有以”/”开头,所以它是以当前目录转化的,asp文件是放在C:\Inetpub\Wwwroot\Script中的.以下是 scripts的内容: 
 <%= server.mappath ( ” data.txt ” ) %> <%= server.mappath ( ” script/data.txt ” ) %>
  显示为:
  c:\inetpub\wwwroot\script\data.txt  c:\inetpub\wwwroot\script\script\data.txt
  以下的两个例子是以”\”开头的.以下是scripts的内容:
  <%= server.mappath ( ” \script ” ) %>
  显示为:
  c:\inetpub\wwwroot\script\data.txt  c:\inetpub\wwwroot\script
  直接用”/”或”\”就会得到服务器的主目录:
  <%= server.mappath ( ” \ ” ) %>
  显示为:
  c:\inetpub\wwwroot

(6).Transfer方法:

  transfer 方法会把一个正在执行的asp文件的所有信息传给另外一人asp文件。
  语法
   Server.Transfer ( path )
  参数
  Path
  将要接收信息的asp文件的位置。
  要点:
  当你调用Server.Transfer时,所有内建对象的状态信息都会包含在这次传送之中。这就是说,所有在保存在Session或Application中的信息都会被传送,而且所有当前请求的信息都会被接收信息的asp文件所接受。

  下面的例子示范了从一个asp文件传送到另一个asp文件例子!

  ASP1
<% Dim sessvar1 Response.Write Session.SessionID Response.Write ( ” ” ) Response.Write ( “I am going to ASP2 ” ) Server.Transfer ( “/Myasps/ASP2.asp” )%>
  ASP2
<% Response.Write Session.SessionID %>

  (7).URLEncode方法:

  URLEncode 方法可以将指定字符串进行URL编码。
  语法
   Server.URLEncode ( string )
  参数
   string 指定要转化的字符串
  下面是代码:
  <% Respones.Write ( Server.URLEncode ( http://www.microsoft.com ) ) %>
  显示为:
  http%3A%2F%2Fwww%2Emicrosoft%2Ecom

  (8).属性:ScriptTimeout

  ScriptTimeout 属性规定了程序的最大运行时间。
  语法
   Server.ScriptTimeout = NumSeconds
  参数
   NumSeconds
   规定了程序的最大的运行时间(以秒计算)。缺省值是90秒
  Remarks

   Web sertvic 或 Web server上缺省的Scritpt Timeout的值能通过ASPScriptTimeOUT属性来设置。在程序中,ScriptTimeout属性的值不能小于这个缺省值。举个例子吧,如果NumSeconds我们设置为10秒,而缺省值为90秒,那么程序就会中止在90秒以后,而不是10秒以后的。同样,如果我们设置ScriptTimeout的值为100秒,那么,程序就会在100秒之后中止,而不是90秒。

  下面的例了中程序将被设置为100秒后自动中止。

  <% Server.ScriptTimeout = 100 %>
  下面的例子中将重新得到ScriptTimeout的值,然后把它存在Timout变量中
  <% TimeOut = Server.ScriptTimeout %>

  总结:

  通过以上结合例子的介绍,对server对象的如何使用有了一个比较具体的了解。但要灵活运用,只有不断练习。

(出处:www.viphot.com)