Bad Request (Invalid Hostname) 的原因：


www.baidu.com 了，基本上说域名没绑定主机就是主机头设置，

还有一种情况就是 ：服务器80端口被不同的IIs占用，也可以出现这个情况。

'取得星期几
Function getweekday(date1)
 Dim day1
 day1=Weekday(date1)
 If day1=1 Then
 day1=7
 Else
 day1=day1-1
 End If
 getweekday=day1
 'response.write day1
 'response.end
End Function


[ 本帖最后由 ysf0181 于 2012-11-8 08:38 编辑 ]

Function ReDBTableCount(rsSchema)
        Dim DbTCount
        DbTCount=0
        Do Until rsSchema.EOF
           DbTCount=DbTCount+1
           rsSchema.MoveNext
        Loop
        rsSchema.MoveFirst
        ReDBTableCount=DbTCount
     End Function
     '返回数据库所有表名方法（适用于Access数据库)
     '参数ADODB.Connection ,Dim定义的数组
     Function ReDBAllTableName(con,TbNAry())
        Dim rsSchema
        Dim TbAryL
        TbAryL=0
        Set rsSchema=con.OpenSchema(20)
        ReDim TbNAry(ReDBTableCount(rsSchema))
        Do Until rsSchema.EOF
           IF TbAryL<UBound(TbNAry) Then
              IF InStr(rsSchema("TABLE_NAME"),"MSys")=0 And InStr(rsSchema("TABLE_NAME"),"查询")=0 Then
                 TbNAry(TbAryL)=rsSchema("TABLE_NAME")
              Else
                 TbNAry(TbAryL)=""
              End IF
           End IF
           TbAryL=TbAryL+1
           rsSchema.MoveNext
        Loop
        rsSchema.Close
        Set rsSchema=Nothing
     End Function
'用法
'假设conn为ADODB.Connection
Dim i,TBNAry()
ReDBAllTableName conn,TBNAry
For i=0 To UBound(TBNAry)-1
     IF TBNAry(i)<>"" Then
        Response.Write "表名:"&TBNAry(i)&"<br>"
     End IF  
Next

’我手动测试通过了。
ceshi = "2a2b334dA"
ceshi2 = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
response.write quzifu_config1(ceshi,ceshi2)

Function quzifu_config1(str,str2) '只取里面有的字符
  dim str1,dengzimu,linshi,enChar
  str1 = str
  dengzimu = ""
  linshi = ""
  enChar= str2 '"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"'大小写你转化下lcase ucase
  'onChar=split(enChar,",")
  for i=1 to len(str1)
      linshi = instr(enChar,mid(str1,i,1))
      if linshi > 0 then     
         if dengzimu = "" then
            dengzimu = mid(str1,i,1)
         else
            dengzimu =  cstr(dengzimu) + cstr(mid(str1,i,1))
         end if
         str1 = replace(str1,mid(str1,1,i),mid(str1,1,i-1)&"`")   
      end if
  next
  quzifu_config1 = dengzimu
End Function

Function FuZhiwenjian(wenjianming,wenjianWZmulu) 'wenjianming 要复制的文件名 ,wenjianWZmulu 要复制的网站目录位置
   dim fs,f,WZmulu,yaojianming,ii,zhende
   WZmulu = Server.MapPath("/")
   set fs=Server.CreateObject("Scripting.FileSystemObject")
   set f=fs.GetFile(""&WZmulu&"\"&wenjianming&"")
   yaojianming = ""
   ii = 0
   zhende = 0
   do while zhende = 0
      ii = clng(ii) + 1
      yaojianming = WZmulu&"\"&wenjianWZmulu&"\"&ii&"_"&wenjianming
      if fs.FileExists(yaojianming) = false then
         exit do
      end if
   loop
   f.Copy ""&yaojianming&"",false
   set f = nothing
   set fs = nothing
End Function  'Function FuZhiwenjian()

'dim str
'str="怎样从一个Html页面中提取所有汉字呢？不能有其它Html代码。11111 ，白555 QC020-1白tr色"
'response.write  RegExpTest_inc("[\u4e00-\u9fa5]",str,0)&"<br>" '提取所有汉字
'response.write  RegExpTest_inc("[0-9]",str,0)&"<br>"  '提取所有数字
'response.write  RegExpTest_inc("[a-z]",str,0) &"<br>" '提取所有字母
'response.write  RegExpTest_inc("[a-z0-9]",str,0)&"<br>"  '提取所有字母

'RegExpTest_inc(patrn, strng,shuzu) 函数
'patrn 为提取类
'strng 为要提取的所有字符串
'shuzu 0 为所有，1为数组提取
Function RegExpTest_inc(patrn, strng,shuzu)
   Dim regEx, Match, Matches,i  ' 建立变量。
   i = 0
   Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = patrn   ' 设置模式。
   regEx.IgnoreCase = True   ' 设置是否区分大小写。
   regEx.Global = True   ' 设置全局替换。
   Set Matches = regEx.Execute(strng)   ' 执行搜索。
   if int(shuzu) = int(0) then
      For Each Match in Matches   ' 遍历 Matches 集合。
          RetStr = RetStr  &  Match.Value
      Next
   'if int(shuzu) = 0 then
   else
      dim RetStr()
      For Each Match in Matches   ' 遍历 Matches 集合。
          'RetStr = RetStr  &  Match.Value
          Redim Preserve RetStr(i)
          RetStr(i) = Match.Value
          i = i + 1
      Next
   end if 'if int(shuzu) = 0 then else
   RegExpTest_inc = RetStr
End Function