好心人帮帮忙,用ASP写一个与SQL2000 联接的程序,读取一数据库pubs里authors表,然后写网页当中

yiko88 2005-07-23 02:42:25

我是初学者

...全文

121 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cncca 2005-07-24

打赏
举报

<%
dim conn,connstr
dim rs,sql
connstr="provider=sqloledb;server=127.0.0.1;uid=sa;pwd=test;database=pubs"
'sa是sql数据库用户名，test是数据的密码
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>pubs</title>
</head>
<body>
<table>
<%
set rs=Server.CreateObject("adodb.recordset")
sql="select * from authors"
rs.open sql,conn,1,1
while not rs.eof
%>
<tr>
<td><%=rs("au_id")%></td>
<td><%=rs("au_lname")%></td>
<td><%=rs("au_fname")%></td>
<td><%=rs("phone")%></td>
<td><%=rs("address")%></td>
<td><%=rs("city")%></td>
<td><%=rs("state")%></td>
<td><%=rs("zip")%></td>
<td><%=rs("contract")%></td></tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%></table>
</body>
</html>

xiaoyao888 2005-07-24

打赏
举报

如果服务器不支持 SQL SERVER 连接那就没治了，如果要远程连接必须你的机子也在公网上

yiko88 2005-07-24

打赏
举报

connstr="provider=sqloledb;server=127.0.0.1;uid=sa;pwd=test;database=pubs"
本机如联接成功了,上传到服务器上是不是只要敢下sevrer?

caobin518 2005-07-24

打赏
举报

dim connstr,conn,rs
set conn=server.createobject("adodb.connection")
conn.open"provider=sqloledb;server=127.0.0.1;uid=sa;pwd=test;database=pubs"
set rs=server.createobject("adodb.recordset")
rs.open"select * from authors",conn,1,3
。。。。。。

kingofheart 2005-07-23

打赏
举报

dim connection
connection="PROVIDER=SQLOLEDB;DATA SOURCE=.;UID=sa;DATABASE=pubs"
------------------------------------------------------------------
dim rsMember
set rsMember=Server.CreateObject("ADODB.Recordset")
rsMember.ActiveConnection=connection
rsMember.Source="select * from authors"
rsMember.Open()

llsljh 2005-07-23