'EXCELa.VBS '直接将查询数据结果生成 EXCEL 表,稍做修改后即可
'改成ASP文件放在服务器上面向客户
option Explicit
dim conn,strConnString
Set conn = WScript.CreateObject("ADODB.Connection")
on error resume next
strConnString ="Provider=SQLOLEDB.1;Password=UP;" & _
"Persist Security Info=True;User ID=UI;" & _
"Initial Catalog=UCOOl;" & _
"Data Source=111.111.111.111;Connect Timeout=15"
conn.Open strConnString
if err.number < 0 Then
WScript.echo "数据库链接不畅!;"
WScript.Quit
end If...[ 查看全文 ]