虚拟主机教程

Dim UploadData
Set UploadData = New XMLUpload
UploadData.Charset = "utf-8"
UploadData.AddForm "content", "Hello world" '文本域的名称和内容
UploadData.AddFile "file", "test.jpg", "image/jpg", "test.jpg"
WScript.Echo UploadData.Upload("http://example.com/takeupload.php")
Set UploadData = Nothing

Function read(path)
    '将Byte()数组转成String字符串
    Dim ado, a(), i, n
    Set ado = CreateObject("ADODB.Stream")
    ado.Type = 1 : ado.Open
    ado.LoadFromFile path
    n = ado.Size - 1
    ReDim a(n)
    For i = 0 To n
        a(i) = ChrW(AscB(ado.Read(1)))
    Next
    read = Join(a, "")
End Function
Function is_valid_utf8(ByRef input) 'ByRef以提高效率
    Dim s, re
    Set re = New Regexp
    s = "[\xC0-\xDF]([^\x80-\xBF]|$)"
    s = s & "|[\xE0-\xEF].{0,1}([^\x80-\xBF]|$)"
    s = s & "|[\xF0-\xF7].{0,2}([^\x80-\xBF]|$)"
    s = s & "|[\xF8-\xFB].{0,3}([^\x80-\xBF]|$)"
    s = s & "|[\xFC-\xFD].{0,4}([^\x80-\xBF]|$)"
    s = s & "|[\xFE-\xFE].{0,5}([^\x80-\xBF]|$)"
    s = s & "|[\x00-\x7F][\x80-\xBF]"
    s = s & "|[\xC0-\xDF].[\x80-\xBF]"
    s = s & "|[\xE0-\xEF]..[\x80-\xBF]"
    s = s & "|[\xF0-\xF7]...[\x80-\xBF]"
    s = s & "|[\xF8-\xFB]....[\x80-\xBF]"
    s = s & "|[\xFC-\xFD].....[\x80-\xBF]"
    s = s & "|[\xFE-\xFE]......[\x80-\xBF]"
    s = s & "|^[\x80-\xBF]"
    re.Pattern = s
    is_valid_utf8 = (Not re.Test(input))
End Function

time1 = "2011-12-1"   '开始时间
time2 = "2011-12-14"  '结束时间
datediff(d,time1,iTime)>=0 and datediff(d,iTime,time2)>=0

<?
header("content-type:text/html;charset=gbk");
require_once('idna_convert.class.php');
$IDN = new idna_convert();
$act=$_REQUEST['a'];
$p=$_REQUEST['p'];
$IDN = new idna_convert();
if (strstr($p,"xn--"))
	$act='decode';
if ($act=='encode'){
	$ps=iconv("gbk","utf-8",$p);
	$out=$IDN->encode($ps);
}else{
	if (strstr(strtolower($p),"xn--")){
		$out_tmp=$IDN->decode($p);
		$out=iconv("utf-8","gbk",$out_tmp);
	}else{
		$out=$p;
	}
}
echo $out;
?>

Str=objRecordset.GetString(format,n,coldel,rowdel,nullexpr)
objRecordset:已打开的记录集对象;
format:可选,一般取默认值(默认值为2)
n:可选,显示记录的数量，默认值为全部显示，可留空
coldel:可选,列界定符
rowdel:可选,行界定符
nullexpr:可选,该参数用于填充空字段!
例如：str=rs.GetString(,2,"</td><td>","</td></tr><tr><td>","该字段为空！")