也许是一个简单的问题

[molixian]

许多书都有介绍ASP与Sql Server连结的实例与代码，但我连结了多日，总是说我
缺少“End”。
　现在情况是：
　　1）Sql Server安装过程采取默认方式。
　　2）采用代码方式直接与Sql Server相连结方式：
　　操作系统：win2000_Per
机器名：gby-mo
Ip:192.168.1.12
Sql Server数据库名：clgl，表名：clgl 字段Id 类型：numeric
需说这是一个初级问题，哪一位能帮一下忙
　　谢谢。

[celerylhl]

不够详细

[500sea]

是你的连接串有问题

[LenQ]

不是

[fqingchu]

dim ConnString,Conn,Rs
ConnString="driver={SQL Server};Server=gby-mo;uid=sa;pwd=;database=subject"
Set Conn=Server.CreateObject("ADODB.CONNECTION")
Conn.ConnectionString=ConnString
'Conn.CursorLocation = adUseClient
Conn.Open
Set Rs=Server.CreateObject("ADODB.SETRECORD")
Rs.open "select FValue from SetSystemStateconn where FType='Counter'",conn,3,3
关键是uid和pwd的设置

[纪俊]

搜索下SQL非常多现成的例子

[TrueAndFalse]

dim conn,connstr,rs
set conn = server.createobject("adodb.connection")
connstr="driver={sql server};database=clgl;server=127.0.0.1;uid=Sqlserver用户名;pwd=Sqlserver密码"
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from clgl"
rs.open sql,connstr,1,3
if not (rs.eof or rs.bof) then
do while not rs.eof
response.write rs("id")
rs.movenext
loop
rs.close()
set rs=nothine
else
response.write "没有记录"
rs.close()
set rs=nothing
end if