您所在位置：主题：弹出对话框中显示变量值 1000分
405614518
[专家分：0] 发布于 2008-12-17 12:26:00
<%
'建立Connection对象 显示rs("erhid18") rs("erhid15") rs("gonghao")
Dim db,rs,strSql
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath("0020081215.xls")
'打开记录集，表名一定要以"[表名$]"的格式
strSql="Select * From [Sheet1$] where empidt='00002540'"
Set rs=db.Execute(strSql)
response.Write "<script language=javascript>alert('&rs("erhid18")&');</script>"
response.end
%>
错那了？
