兄弟的博客【L-BLOG，网络电视精灵】

谈谈免费网站空间

glenluo — 2010-3-9 23:27:27

现在很多主机服务商为了推销自己的产品，纷纷推出了免费空间的服务，但是就目前的空间质量来看，基本都是很差的。首先，免费并非真正的免费，很多主机服务商提供的免费主机都是有条件的免费，要么必须挂上他们的广告，要么就靠你去论坛发帖子激活他们网站的人气，要么就是主机由诸多的限制，比如不可以放上影音文件等等。

我最近测试了一个5944网站推荐的1000兆的美国的免费空间，感觉有以下的问题可以和大家分享一下：
1：空间的大小是够了，但是使用的权限是一个月，你每个月得登录他们的后台去激活你的网站空间，还不知道到时候能不能激活呢。

2：空间对文件的类型有比较多的限制，运行ASP基本是没有问题了，但是比如你上传的mp3,avi,rm,rmvb,flv,wma,wmv等等后缀的文件根本无法下载，会出现找不到文件的提示，估计是主机服务商对文件的类型做了限制。

3：空间一般都对文档类型的文件是支持的，比如doc,txt,xls,pdf,ppt还有就是图片类型。因为连图片都不支撑的空间的话那简直就是垃圾了，呵呵。另外发现可以下载MDB格式的文件，这样可以充分利用好你的空间，将你需要上传的文件的后缀修改为MDB再上传上去即可下载了，下载以后修改后缀名，就实现了空间的万能中转了。

4：由于空间是放在美国的，所以用FTP上传的时候你会发现上传的速度基本都在15K/秒一下，所以上传大文件占用的时间会很长。但是从网站的浏览速度来看还是可以的，跟国内的主机的速度没有什么差别。

5：另外叫大家一个方法，如果你使用的是在线的上传系统，可以在你的文件的后面加上后缀即可，比如你要上传一个名为：星月神话.mp3你可以改为：星月神话.mp3.ppt。经过本人的测试，一般在线上传的文件控制在5兆以内基本都是可以上传的，但是文件太大的基本都是失败的。

以下是免费的测试空间，大家可以尽情去测试：
http://web.030904.net/

用ASP程序实现网站在线人数统计

glenluo — 2010-3-9 21:29:53

在浏览网页的时侯，常常可以看见一些“当前网站上的人数是ＸＸＸ人”的在线人数同计。如何用ASP来做一个呢？首先，分析一下它的做法，一般来说，这些线上人数统计都是指一个时段内的访客人数统计。比如（5分钟内，10分钟内）而这个时间的长短，是由设计者设定的。

　　在这个时段内同计各个不同ＩＰ的访客总数，就可以得出当前的线上人数了，但这里有一个精确问题需要解决，至于用什么办法来精确地统计，那就是各人不同的做法了，比如可以用自动提交的页面，隔一段时间读取COOKIES等等，而在ASP中，有一个更好的技巧，就是使用session对象来统计，这里介绍一下gobal.asa这个文件，这是一个很重要的一个文件，请看看它的结构。

＜SCRIPT LANGUAGE="VBScript" RUNAT="Server"＞

Sub Session_OnStart

End Sub

Sub Session_OnEnd

End Sub

sub Application_OnStard

End Sub

sub Application_OnEnd

End Sub＜/SCRIPT＞

　　当有一个会话发生时（用户浏览网页，向Web服务器发出请求）那么，如果自服务器启动后第一个用户的话，就会同时发生Application_OnStard和Session_OnStart这两个事件，之后，再有别的用户发出请求的话，就只发生Session_OnStart这个事件，而session的生存期是多长，是可以设定的，Session.timeout=X（分钟）

　　好了，有了这个很好用的方法，我们就能准确地统计出在线人数了，而人数总计是用一个application变量来保存，当在第一个会话开始时，在Application_OnStard事件中放置一条清空计数器的语句application("online")=0，然后，在Session_OnStart事件中，放置一条增加在线人数的语句application("online")=application("online")+1，而在Session_OnEnd事件相应地放一条减少在线人数的语句，令计数值减一。

　　这样，这个文件就改为如下

＜SCRIPT LANGUAGE="VBScript" RUNAT="Server"＞

Sub Session_OnStart

application("online")=application("online")+1

End Sub

Sub Session_OnEnd

application("online")=application("online")-1

End Sub

sub Application_OnStard

application("online")=0

End Sub

sub Application_OnEnd

application("online")=0

End Sub＜/SCRIPT＞

　　接下来编一个显示图形数字的程序，把在线人数显示在指定的页面上。这样就能得出在人数了

*online.asp

＜% @language="vbscript" %＞
＜%
tmp=application("online")
tmp=Cstr(tmp)
dim disp(20)
dim images(20)
dbbits=len(tmp)
for I= 1 to dbbits
disp(I)=left(right(tmp,I),I-(I-1))
next

for I=dbbits to 1 step -1
images(I)="＜img src="&"http://xxxx.com.cn/pic"&"/"&disp(I)&".gif＞"

response.write "document.write("&images(I)&");"

next

%＞

　　上面的程序很简单，这里不作分析了，请大家自己阅读一下。在调用在线统计的页面上用一句script语句引用online.asp文件，以显示图形统计器。

ASP在线获取ACCESS数据库表名及结构

glenluo — 2010-3-9 21:20:43

此方法可获得ACCESS数据的表名及其结构，数据类型等...
程序过滤了几个ACCESS数据库的几个隐藏表(可能是导致ACCESS数据库删除数据还会变大的原因)

获取ACCESS数据库表名

数据库路径:

<%
if request.form("ari")="1" and request.form("path")<>"" then
dim conn,connstr,i,sql,rs
on error resume next
Connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ="+server.mappath(request.form("path"))
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%=conn.connectionstring%>

<%
j=0
dim tablecount
tablecount=0
Set shm = conn.OpenSchema(20)
shm.MoveFirst
Do While Not shm.EOF
  If shm("TABLE_TYPE") = "TABLE" Then
        If Left(shm("table_name"), 1) <> "~" Then '这里过滤掉隐藏表
           j=j+1
           call GetFileds(shm("table_name"))
        End If
  End If
  shm.MoveNext
Loop
response.write "共有 "&j&" 个数据表!"
else
response.write "

请输入数据库相对路径查看具体内容!

"
end if
%>

<%
Function GetFileds(TableName)
Set rs = server.createobject("adodb.recordset")
Dim SQL
SQL = "select * from " & TableName
rs.Open SQL, conn, 1, 1
Dim Cont
Cont = rs.Fields.Count
response.write ""&vbcrlf
response.write "表 "&TableName&" 中含有"&Cont&"个字段,具体如下:
"&vbcrlf
For i = 0 To Cont - 1
  dim filtype
  select case rs.fields(i).type
   case 3
    filtype="自动编号(数字)"
   case 202
    filtype="字符"
   case 203
    filtype="备注"
   case 125
    filtype="日期"
   case 11
    filtype="真/假(是/否)"
  end select
  response.write "  "&i&"--"&rs.fields(i).name&"--"&filtype&";"&vbcrlf
Next
response.write ""&vbcrlf
rs.Close
set rs=nothing
End Function
%>

随机访问数据库中某个表的一条记录

glenluo — 2010-3-9 21:18:16

一般一个表都有一个唯一的标识，这里假设这个标识字段为ID
分四步:
1、取得该表记录总数n。
2、把所有的ID号存储到一个数组中IDs()
3、产生一个不大于n的随机数m
4、从数组中取出第m个ID号，查询数据表，取得记录数据。
下面是代码(不包括数据库连接)：
<%
dim stips()
co=0
set rs=server.createobject("adodb.recordset")
sql="select [id] from stips"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何小知识哦!"
else
do while not rs.eof  '循环保存id到数组
    redim preserve stips(co)
    stips(co)=rs("id")
    co=co+1
    rs.movenext
loop
rs.close
set rs=nothing

Randomize()
id=stips(int(rnd()*co)) '生成随机数,并查询数组内随机数对应的ID
set rs=server.createobject("adodb.recordset")
sql="select * from stips where id="&id  '查询数据库
rs.open sql,conn,1,1
response.write rs("content")   '这里假设数据库有一个content字段
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
%>

ASP连接11种数据库语法总结

glenluo — 2010-3-9 21:16:02

经常使用到有关数据库的操作。包括连接代码、SQL命令等等，又不曾刻意去记忆它们（我本人是不愿意去记这东东），所以常常在用到的时候又去查书本，翻来翻去。一些比较少用的数据库还不一定能顺利找到，所以现在把它们全归纳到这里，提供大家参考。

<一>数据库的连接方法：

　　1.Access数据库的DSN-less连接方法:

set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")

　　2.Access OLE DB连接方法：
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("数据库所在路径")

　　3.SQL server连接方法：
set adocon=server.createobject("adodb.recordset")
adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
"database=数据库名;"

　　4.SQL server OLE DB连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _
"user ID=***;Password=***;"& _
"inital Catalog=数据库名"

　5.Oracle 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

　　6.Oracle OLE DB 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

　　7.dBase 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

　　8.mySQL 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={mysql};database=yourdatabase;
uid=username;pwd=yourpassword;option=16386;"

　　9.Visual Foxpro 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

　　10.MS text 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_
"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

　　11.MS text OLE DB 连接方法:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=microsoft.jet.oledb.4.0;data source=your_path;"&_
"Extended Properties'text;FMT=Delimited'"

<二>常用的四种SQL命令：

　　1.查询数据记录(Select)
　　语法：Select 字段串行 From table Where 字段=内容
　　例子：想从book表中找出作者为"cancer"的所有记录，SQL语句便如下：
select * from book where author=’cancer’

　　"*"是取出book表所有的字段，如查询的字段值为数字，则其后的"内容"便无须加上单引号，如是日期，则在Access中用(#)包括，而在SQL server中则用(’)包括，
如:
select * from book where id=1
select * from book where pub_date=#2002-1-7# (Access)
select * from book where pub_date=’2002-1-7’ (SQL Server)

　　提示：
　　日期函数to_date不是标准sql文，不是所有的数据库适用，所以大家在使用的时候要参考数据库具体语法

　　另外如果是查询传入的变量，则如下：
strau=request.form("author")
strsql="select * from book where author=’"&strau&"’"

　　如果查询的是数字，则：
intID=request.form("id")
strsql="select * from book where id="&intID

　　在很多数据库中，如：oracle，上面的语句是可以写成：
strsql="select * from book where id='"&intID&"'"

　　但是字符型一定不能按照数字格式写，需要注意。
2.添加记录(Insert)
　　语法：
Insert into table(field1,field2,....) Values (value1,value2,....)

　　例子：添加一作者是"cancer"的记录入book表:
insert into book (bookno,author,bookname) values (’CF001’,’cancer’,’Cancer无组件上传程序’)

　　同样，如果用到变量就如下：
strno=request.form("bookno")
strau=request.form("author")
strname=request.form("bookname")
strsql="insert into book (bookno,author,bookname) values (’"&strno&"’,’"&strau&"’,’"&strname&"’)"

　　3.用Recordset对象的Addnew插入数据的方法:
　　语法：
rs.addnew
rs("field1").value=value1
rs("field2").value=value2
...
rs.update

　　4.修改数据记录(Update)
　　语法：
update table set field1=value1,field2=value2,...where fieldx=valuex

　　例子：
update book set author=’babycrazy’ where bookno=’CF001’

　　如果用到变量就如下：
strno=request.form("bookno")
strau=request.form("author")
strsql="update book set author=’"&strau&"’ where bookno=’"&strno"’"
5.Recordset对象的Update方法:
　　语法：
rs("field1").value=value1
rs("field2").value=value2
...
rs.update

　　注意：使用语法3和语法5的时候，一定要注意字段的类型（尤其是日期型）一致，否则出错的几率非常的高。

　　例子：
strno=request.form("bookno")
strau=request.form("author")
set adocon=server.createobject("adodb.connection")
adocon.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _
Server.Mappath=("/cancer/cancer.mdb")
strsql="select * from book where bookno=’"&strno&"’"
set rs=server.createobject("adodb.recordset")
rs.open strsql,adconn,1,3
if not rs.eof then ’如果有此记录的话
rs("author").value=strau
rs.update
end if
rs.close
set rs=nothing
adocon.close
set adocon=nothing

　　6.删除一条记录(Delete)
　　语法：
Delete table where field=value

　　例子：删除book表中作者是cancer的记录
delete book where author=’cancer’

　　(注意：如果book表中author字段的值为cancer的记录有多条，将会删除所有author为cancer的记录)

　　好了，学会了用这些操作，大家在用asp操作数据库的时候，该是没有什么问题了。

用于Asp的base64编码/解码函数

glenluo — 2010-3-9 21:10:58

网上很多关于base64编/解码的代码，找到的这个是最好的了，有个不尽人意的地方是--编/解码调用一堆函数，我给增加了2个函数用来编/解码,调用方法：
将第二段代码保存到base64.inc,在需要编码的页面将base64.inc包含进来，调用相应函数即可，例如

<%
'---------------------------------------------------------------------------------
str="我爱你tandy"
encodestr=encode64(str) '编码
response.write encodestr & "

"
response.write decode64(encodestr) & "

" '解码
%>
代码段二：
<%
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS)

'计算unicode字符串的Ansi编码的长度
Function strUnicodeLen(asContents)
'计算unicode字符串的Ansi编码的长度
asContents1="a"&asContents
len1=len(asContents1)
k=0
for i=1 to len1
  asc1=asc(mid(asContents1,i,1))
  if asc1<0 then asc1=65536+asc1
  if asc1>255 then
   k=k+2
  else
   k=k+1
  end if
next
strUnicodeLen=k-1
End Function

'将Unicode编码的字符串，转换成Ansi编码的字符串
Function strUnicode2Ansi(asContents)
'将Unicode编码的字符串，转换成Ansi编码的字符串
strUnicode2Ansi=""
len1=len(asContents)
for i=1 to len1
  varchar=mid(asContents,i,1)
  varasc=asc(varchar)
  if varasc<0 then varasc=varasc+65536
  if varasc>255 then
   varHex=Hex(varasc)
   varlow=left(varHex,2)
   varhigh=right(varHex,2)
   strUnicode2Ansi=strUnicode2Ansi & chrb("&H" & varlow ) & chrb("&H" & varhigh )
  else
   strUnicode2Ansi=strUnicode2Ansi & chrb(varasc)
  end if
next
End function

'将Ansi编码的字符串，转换成Unicode编码的字符串
Function strAnsi2Unicode(asContents)
'将Ansi编码的字符串，转换成Unicode编码的字符串
strAnsi2Unicode = ""
len1=lenb(asContents)
if len1=0 then exit function
for i=1 to len1
  varchar=midb(asContents,i,1)
  varasc=ascb(varchar)
  if varasc > 127 then
   strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
   i=i+1
  else
   strAnsi2Unicode = strAnsi2Unicode & chr(varasc)
  end if
next
End function

'将Ansi编码的字符串进行Base64编码
Function Base64encode(asContents)
'将Ansi编码的字符串进行Base64编码
'asContents应当是ANSI编码的字符串（二进制的字符串也可以）
Dim lnPosition
Dim lsResult
Dim Char1
Dim Char2
Dim Char3
Dim Char4
Dim Byte1
Dim Byte2
Dim Byte3
Dim SaveBits1
Dim SaveBits2
Dim lsGroupBinary
Dim lsGroup64
Dim m4,len1,len2

len1=Lenb(asContents)
if len1<1 then
  Base64encode=""
  exit Function
end if

m3=Len1 Mod 3
If M3 > 0 Then asContents = asContents & String(3-M3, chrb(0))
'补足位数是为了便于计算
IF m3 > 0 THEN
  len1=len1+(3-m3)
  len2=len1-3
else
  len2=len1
end if
lsResult = ""
For lnPosition = 1 To len2 Step 3
  lsGroup64 = ""
  lsGroupBinary = Midb(asContents, lnPosition, 3)

  Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
  Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
  Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))

  Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)
  Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
  Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
  Char4 = Midb(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)
  lsGroup64 = Char1 & Char2 & Char3 & Char4

  lsResult = lsResult & lsGroup64
Next

'处理最后剩余的几个字符
if M3 > 0 then
  lsGroup64 = ""
  lsGroupBinary = Midb(asContents, len2+1, 3)

  Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
  Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
  Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))

  Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)
  Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
  Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)

  if M3=1 then
   lsGroup64 = Char1 & Char2 & ChrB(61) & ChrB(61) '用=号补足位数
  else
   lsGroup64 = Char1 & Char2 & Char3 & ChrB(61) '用=号补足位数
  end if

  lsResult = lsResult & lsGroup64
end if

Base64encode = lsResult
End Function

'将Base64编码字符串转换成Ansi编码的字符串
Function Base64decode(asContents)
'将Base64编码字符串转换成Ansi编码的字符串
'asContents应当也是ANSI编码的字符串（二进制的字符串也可以）
Dim lsResult
Dim lnPosition
Dim lsGroup64, lsGroupBinary
Dim Char1, Char2, Char3, Char4
Dim Byte1, Byte2, Byte3
Dim M4,len1,len2

len1= Lenb(asContents)
M4 = len1 Mod 4

if len1 < 1 or M4 > 0 then
  '字符串长度应当是4的倍数
  Base64decode = ""
  exit Function
end if

'判断最后一位是不是 = 号
'判断倒数第二位是不是 = 号
'这里m4表示最后剩余的需要单独处理的字符个数
if midb(asContents, len1, 1) = chrb(61) then m4=3
if midb(asContents, len1-1, 1) = chrb(61) then m4=2

if m4 = 0 then
  len2=len1
else
  len2=len1-4
end if

For lnPosition = 1 To Len2 Step 4
  lsGroupBinary = ""
  lsGroup64 = Midb(asContents, lnPosition, 4)
  Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
  Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
  Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
  Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
  Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)
  Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)
  Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))
  lsGroupBinary = Byte1 & Byte2 & Byte3

  lsResult = lsResult & lsGroupBinary
Next

'处理最后剩余的几个字符
if M4 > 0 then
  lsGroupBinary = ""
  lsGroup64 = Midb(asContents, len2+1, m4) & chrB(65) 'chr(65)=A，转换成值为0
  if M4=2 then '补足4位，是为了便于计算
   lsGroup64 = lsGroup64 & chrB(65)
  end if
  Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
  Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
  Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
  Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
  Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)
  Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)
  Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))

  if M4=2 then
   lsGroupBinary = Byte1
  elseif M4=3 then
   lsGroupBinary = Byte1 & Byte2
  end if

  lsResult = lsResult & lsGroupBinary
end if

Base64decode = lsResult

End Function

function encode64(byval str)
        encode64=strAnsi2Unicode(Base64encode(strUnicode2Ansi(str)))
end function

function decode64(byval str)
        decode64=strAnsi2Unicode(Base64decode(strUnicode2Ansi(str)))
end function
%>

XMLHTTP和ServerXMLHTTP 超时的判断

glenluo — 2010-3-9 21:06:05

XMLHTTP我想大家都知道是用过，很熟悉吧，
一些小偷程序都用他，用他来抓个远程网页什么的很方便。

但是！！！

很少有人知道XMLHTTP是用于客户端的，

不知道是什么时候起，流行网络小偷程序，而这个XMLHTTP也开始被很多ASP爱好者所认识。

但是几乎所有人都一至的认为XMLHTTP是ASP中唯一获取远程连接的方案。

于是大家都用它，弄到最后，流量一大IIS就会罢工，最轻的也是打不开ASP页面，但是HTML页面可以打开，于是就查呀查呀，却总也查不到原因。

其实问题就在XMLHTTP上面，

XMLHTTP不是用于服务端的，XMLHTTP只适用于客户端，当然服务端也可以调用这个组件，但是这个组件是一个很危险的组件。他会在连接网络失败的情况下导致IIS罢工，流量小的时候没什么反应，流量一大，必然会出问题。

与XMLHTTP相比，ServerXMLHTTP稍好一些，但是同样，这个家伙也不是什么好东西，弄不好的话，也会和XMLHTTP一样。

但是ServerXMLHTTP有一个SetTimeOuts方法，通过SetTimeOuts方法可以设置超时，一旦网络连接超时，就断开连接，如果你不设置超时，那你的IIS很有可能就此罢工了。

具体的应用，我给出一段代码大家看看。

Set objXml =Server.CreateObject("MSXML2.ServerXMLHTTP")
objXml.SetTimeOuts 10000, 10000, 15000, 15000

第一个数值：解析DNS名字的超时时间10秒
第二个数值：建立Winsock连接的超时时间10秒
第三个数值：发送数据的超时时间15秒
第四个数值：接收response的超时时间15秒

这个问题也曾一度困扰着我，后来也是遍历资料才找到答案的。

希望大家引以为戒，不要小看他的杀伤力噢，弄不好你的IIS就会罢工的，

再有，有条件的话，建议大家学学PHP吧，我也在学习中，买了书看了一半了，

不过有很多地方不太容易理解，ASP现在越来越觉得不够用了，.Net那东西看起来好像比PHP还要麻烦。

301永久重定向

glenluo — 2010-3-9 21:02:03

所谓301永久重定向(或叫301转向，301跳转)，是指当用户或搜索引擎向网站服务器发出浏览请求时，服务器返回的HTTP数据流中头信息(header)中的状态码的一种，表示本网页永久性转移到另一个地址。
    对于搜索引擎优化（SEO）来说，给搜索引擎一个友好的信息，告诉它此页面已永久重定向，避免搜索引擎找不到页面。这对于网站的SEO是很重要的，因为301永久重定向对SEO无任何不好的影响！而且原域名的关键词排名和PR级别都会传达给新域名！
    下面是我在本次域名迁移中所做的工作，其实很简单：
    1.将原域名解析到另外一个空间，将这个空间的404错误页设置为/404.asp,其中404.asp放在根目录，其内容如下（请将里面的玉米换成自己相应的原玉米和新玉米）

程序代码：

[ 复制代码到剪贴板 ]

<%
        Dim Str
        Str = lcase(request.QueryString())
        str = replace(Str,"404;","")
        str = replace(Str,":80","")
        str = replace(Str,"www.web.cn","www.newweb.cn") 'www.web.cn是原玉米
        str = replace(Str,"web.cn","newweb.cn")          newweb.cn是新玉米
        Response.Status="301 Moved Permanently"       '设置301状态
        Response.AddHeader "Location",str                     '设置要转向的地址
%>

2.同时，在这个空间放一个default.asp,其内容如下

程序代码：

[ 复制代码到剪贴板 ]

<%
Response.Status="301 Moved Permanently" '设置状态
Response.AddHeader "Location", "http://www.newweb.cn/" '设置首页的转移地址
%>

   3.说明一点，放404.asp的作用就是：用原域名访问网站的时候，除了默认首页（default.asp）外，其他的页面都会转到404.asp处理，因此在404.asp集中处理就好了，至于404.asp所包含的内容我以前在一篇关于404伪静态的文章中详细说明了
   4.301适用于只换域名不换网站结构的情况，如果你的网站结构同样发生了较大的变化，那就把404.asp里面的所有页面都直接转向新域名的首页。
   5.对于网站结构发生变化的情况，还有一种特殊状态，如果你原网站结构和新网站结构对应关系比较明确，完全可以在404.asp里面进行处理，然后301永久重定向到新地址。例如，你原网站的有篇文章的地址是http://XXX/article.asp?id=123,新网站中使用了静态地址，例如http://zzz/article/123.html,那么在404.asp页面匹配http://XXX/article.asp?id=123，取出id后生成新地址，并转向。
   6.当然，最重要的一点，你的新域名要解析到新网站。

   在转移的过程中，尽量让全部的地址都转移到新网站，最小工作量的情况就是利用404错误页，进行集中转向。
   希望换域名的站长们在这“和谐时代”，能完美切换域名。

ASP禁止刷新当前页

glenluo — 2010-3-9 20:58:26

方法1:

代码：

<%
Dim SplitReflashPage
Dim DoReflashPage
dim shuaxin_time
DoReflashPage=true
shuaxin_time=10
ReflashTime=Now()
if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then
if DateDiff("s",session("ReflashTime"),Now())response.write "本页面起用了防刷新机制，请不要在"&shuaxin_time&"秒内连续刷新本页面
正在打开页面，请稍候……"
response.end
else
session("ReflashTime")=Now()
end if
elseif isnull(session("ReflashTime")) and cint(shuaxin_time)>0 and DoReflashPage then
Session("ReflashTime")=Now()
end if
randomize timer
regjm=int(rnd*8998)+1000

方法2:

代码：
<%
Dim URL
If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<2 Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write("")
Response.Write("防刷新,两秒后自动跳转")
Response.End
End IF
Response.Cookies("oesun")("vitistime")=Now()
%>

ASP获得当前页面地址的方法

glenluo — 2010-3-9 20:57:40

这种方法是获得页面的完整路径，虽然说是ASP，实际上还是用JS获取的。

<%
url=trim("document.write(location.href)")
response.Write(url)
%>

下面的这种方法获得所在的目录及文件名

<%
url=Ucase(Request.ServerVariables("PATH_INFO"))
response.Write (url)
%>