求 asp 读取sql server 一个表并显示出来的实例
"xlckc"'数据库名字'"123"'数据库密码'"sa"'数据库帐户'"192.168.0.199"'数据库地址'表格名称xssjI连接数据库并在IE页面显示XSSJ...
"xlckc" ' 数据库名字'
"123" '数据库密码'
"sa" '数据库帐户'
"192.168.0.199" '数据库地址'
表格名称 xssj
I
连接数据库并在IE页面显示XSSJ表格
求高手实例,菜鸟只懂点VB跟sql 对asp完全不懂,用VB开发的客户端不能再手机上用,想弄个网页显示数据库数据 展开
"123" '数据库密码'
"sa" '数据库帐户'
"192.168.0.199" '数据库地址'
表格名称 xssj
I
连接数据库并在IE页面显示XSSJ表格
求高手实例,菜鸟只懂点VB跟sql 对asp完全不懂,用VB开发的客户端不能再手机上用,想弄个网页显示数据库数据 展开
1个回答
展开全部
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim Conn
Dim Rs
Set Conn =Server.CreateObject("ADODB.Connection")
Set Rs =Server.CreateObject("ADODB.RecordSet")
Conn.open "driver={SQL Server};server=192.168.0.199;database=xlckc;uid=sa;pwd=123;"
%>
<%
Dim sql
If Rs.State=1 Then Rs.Close
sql="Select * from xssj "
Rs.open sql,Conn,1,1
while Not Rs.Eof
'Response.write Rs("列名")
Response.write Rs(0)&"\BR"
Rs.movenext
Wend
%>
这是一个基本的实例,你测试下。
<%
Dim Conn
Dim Rs
Set Conn =Server.CreateObject("ADODB.Connection")
Set Rs =Server.CreateObject("ADODB.RecordSet")
Conn.open "driver={SQL Server};server=192.168.0.199;database=xlckc;uid=sa;pwd=123;"
%>
<%
Dim sql
If Rs.State=1 Then Rs.Close
sql="Select * from xssj "
Rs.open sql,Conn,1,1
while Not Rs.Eof
'Response.write Rs("列名")
Response.write Rs(0)&"\BR"
Rs.movenext
Wend
%>
这是一个基本的实例,你测试下。
追问
代码是直接写在txt改成 .asp后缀名来调用的吗?
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC
驱动程序不支持所需的属性。
/xs.asp, 第 14 行
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询