Function SystemCheck()
useragent=Request.ServerVariables(”HTTP_USER_AGENT”)
‘转化为小写
useragent=Lcase(useragent)

‘Browser Check
dim btype,bname,bversion,idx,Os
btype=”"
if inStr(useragent,”icab”) then
bname=”iCab”
elseif inStr(useragent,”lynx”) then
bname=”Lynx”
elseif inStr(useragent,”links”) then
bname=”Links”
elseif inStr(useragent,”elinks”) then
bname=”ELinks”
elseif inStr(useragent,”jbrowser”) then
bname=”JBrowser”
elseif inStr(useragent,”konqueror”) then
bname=”Konqueror”
elseif inStr(useragent,”gecko”) then
bname=”Mozilla”
btype=btype &”[Gecko]”
if inStr(useragent,”aol”) then
bname=”AOL”
elseif inStr(useragent,”netscape”) then
bname=”Netscape”
elseif inStr(useragent,”firefox”) then
bname=”FireFox”
elseif inStr(useragent,”chimera”) then
bname=”Chimera”
elseif inStr(useragent,”camino”) then
bname=”Camino”
elseif inStr(useragent,”galeon”) then
bname=”Galeon”
elseif inStr(useragent,”k-meleon”) then
bname=”K-Meleon”
end if
elseif inStr(useragent,”bot”) or inStr(useragent,”crawl”) or inStr(useragent,”spider”) or inStr(useragent,”mediapartners”) or inStr(useragent,”slurp”) then
btype=btype &”[Bot/Crawler/Spider]”
if inStr(useragent,”grub”) then
bname=”Grub”
elseif inStr(useragent,”googlebot”) or inStr(useragent,”google”) then
bname=”GoogleBot”
elseif inStr(useragent,”baidu”) then
bname=”BaiduBot”
elseif inStr(useragent,”sogou”) then
bname=”SogouBot”
elseif inStr(useragent,”msnbot”) then
bname=”MSN Bot”
elseif inStr(useragent,”slurp”) then
bname=”Yahoo! Slurp”
end if
elseif inStr(useragent,”wget”) then
bname=”Wget”
elseif inStr(useragent,”ask jeeves”) or inStr(useragent,”teoma”) then
bname=”Ask Jeeves/Teoma”
elseif inStr(useragent,”msie”) then
btype=”[IE"
bversion=Mid(useragent,inStr(useragent,"msie")+5,3)
btype=btype & bversion &"]”
bname=”IE”
if inStr(useragent,”msn”) then
bname=”MSN”
elseif inStr(useragent,”aol”) then
bname=”AOL”
elseif inStr(useragent,”webtv”) then
bname=”WebTV”
elseif inStr(useragent,”myie2″) then
bname=”MyIE2″
elseif inStr(useragent,”maxthon”) then
bname=”Maxthon”
elseif inStr(useragent,”gosurf”) then
bname=”GoSurf”
elseif inStr(useragent,”netcaptor”) then
bname=”NetCaptor”
elseif inStr(useragent,”sleipnir”) then
bname=”Sleipnir”
elseif inStr(useragent,”avant browser”) then
bname=”AvantBrowser”
elseif inStr(useragent,”greenbrowser”) then
bname=”GreenBrowser”
elseif inStr(useragent,”slimbrowser”) then
bname=”SlimBrowser”
end if
elseif inStr(useragent,”opera”) then
bname=”Opera”
idx=inStr(useragent,”opera”)
bversion=mid(useragent,idx+6,idx+9)
bname=bname & bversion
elseif inStr(useragent,”applewebkit”) then
btype=”[AppleWebKit]”
if inStr(useragent,”omniweb”) then
bname=”OmniWeb”
elseif inStr(useragent,”safari”) then
bname=”Safari”
elseif inStr(useragent,”mozilla”) then
bname=”Mozilla”
end if
end if

‘Os Check
if inStr(useragent,”windows ce”) then
Os=”Windows ce”
elseif inStr(useragent,”windows 95″) then
Os=”Windows 95″
elseif inStr(useragent,”windows 98″) then
Os=”Windows 98″
elseif inStr(useragent,”windows 2000″) then
Os=”Windows 2000″
elseif inStr(useragent,”windows xp”) then
Os=”Windows XP”
elseif inStr(useragent,”windows nt 5.0″) then
Os=”Windows 2000″
elseif inStr(useragent,”windows nt 5.1″) then
Os=”Windows XP”
elseif inStr(useragent,”windows nt 5.2″) then
Os=”Windows 2003″
elseif inStr(useragent,”windows nt”) then
Os=”Windows NT”
elseif inStr(useragent,”win32″) then
Os=”Win32″
elseif inStr(useragent,”x11″) or inStr(useragent,”unix”) then
Os=”unix”
elseif inStr(useragent,”sunos”) or inStr(useragent,”sun os”) then
Os=”SUN OS”
elseif inStr(useragent,”powerpc”) or inStr(useragent,”ppc”) then
Os=”PowerPC”
elseif inStr(useragent,”macintosh”) then
Os=”Mac”
elseif inStr(useragent,”mac osx”) then
Os=”MacOSX”
elseif inStr(useragent,”freebsd”) then
Os=”FreeBSD”
elseif inStr(useragent,”linux”) then
Os=”Linux”
elseif inStr(useragent,”palmsource”) or inStr(useragent,”palmos”) then
Os=”PalmOS”
elseif inStr(useragent,”wap “) then
Os=”WAP”
end if

if bname=”" then bname=”unknow”
if Os=”" then Os=”unknow”

SystemCheck=bname & btype & “/” &Os
end Function
‘+++++++++++结束+++++++++++

Set oExcel= CreateObject(”excel.application”)
oExcel.Visible = True  ‘Excel是否可视，若赋值为True则可视，但速度会慢得多
oExcel.Workbooks.Add
Set oSheet = oExcel.Workbooks(1).Worksheets(”sheet1″)
oSheet.Activate
oSheet.Cells(1, 1) = 1
oSheet.Cells(1, 2) = 2
oSheet.Cells(1, 3) = “=SUM(A1:B1)”
oSheet.Cells(1, 4) = “=AVERAGE(A1:B1)”
Set oExcel = Nothing

VBS控制Excel的一些常见方法：
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
oExcel = CreateObject( “Excel.Application” )
1) 显示当前窗口：
oExcel.Visible = True
2) 更改 Excel 标题栏：
oExcel.Caption = “应用程序调用 Microsoft Excel”
3) 添加新工作簿：
oExcel.WorkBooks.Add
4) 打开已存在的工作簿：
oExcel.WorkBooks.Open( “C:\Excel\Demo.xls” )
5) 设置第2个工作表为活动工作表：
oExcel.WorkSheets(2).Activate
或
oExcel.WorksSheets( “Sheet2″ ).Activate
6) 给单元格赋值：
oExcel.Cells(1,4).Value = “第一行第四列”
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 ‘ 1厘米
9) 在第8行之前插入分页符：
oExcel.WorkSheets(1).Rows(8).PageBreak = 1
10) 在第8列之前删除分页符：
oExcel.ActiveSheet.Columns(4).PageBreak = 0
11) 指定边框线宽度：
oExcel.ActiveSheet.Range( “B3:D4″ ).Borders(2).Weight = 3
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式：
oExcel.ActiveSheet.Cells(1,4).ClearContents
13) 设置第一行字体属性：
oExcel.ActiveSheet.Rows(1).Font.Name = “隶书”
oExcel.ActiveSheet.Rows(1).Font.Color = clBlue
oExcel.ActiveSheet.Rows(1).Font.Bold = True
oExcel.ActiveSheet.Rows(1).Font.UnderLine = True « 阅读全文 »

语法

Control.AddItem(cItem [, nIndex] [, nColumn])

参数
cItem

指定添加到控制中的字符串表达式。

nIndex

指定控制中放置数据项的位置。如果指定了有效的 nIndex 值，cItem 将放置在控制的正确位置。如果指定的 nIndex 已经存在，数据项将插入到这个位置，在这个数据项后面的其他所有数据项在组合框或列表框控制的列表区中向下移一个位置。
如果忽略参数 nIndex，并且 Sorted 属性设置为“真”(.T.)，则 cItem 数据按字母排序方式添加到队列；如果忽略参数 nIndex，并且 Sorted 属性设置为“假”(.F.)，则 cItem 将添加到组合框或列表框控制的列表区未尾。

nColumn

指定控制的列，新数据项加入到此列中。默认值为 1。

说明

当 RowSourceType 属性设置为 0 (None) 时，可使用 additem 方法或 AddListItem 方法。
每个添加到组合框或列表框中的数据项都有两个标识号：

• nItemID，这是一个与控制中数据项的唯一标识 ID 相关的整数。除非指定了其他的 nIndexID 值，第一个数据项的 nIndexID 值为 1。
• nIndex，这是一个与控制中数据项显示顺序有关的整数，在控制中第一个数据项的 nIndex
  值为 1。