<script language="vbscript">

Dim conn,rs,sqlstr
Set conn = CreateObject("ADODB.Connection")
conn.connectionstring = "Provider = SQLOLEDB;DATA SOURCE=SUDA-20110415KF;Initial Catalog=usedb;Integrated Security=SSPI;";   

conn.open
Set rs = CreateObject("ADODB.RecordSet")
sqlstr = "Select top 1 * from usetb"
rs.open sqlstr,conn,1,2
document.write rs(0) & " " & rs(1)
rs.close
Set rs = nothing
conn.close
Set conn = nothing
</script>


提示蓝色部分语句为结束，希望各位高手帮忙看看

这是ASP代码，要放到<% %>里的

<%

<script language="vbscript">

Dim conn,rs,sqlstr
Set conn = CreateObject("ADODB.Connection")
conn.connectionstring = "Provider = SQLOLEDB;DATA SOURCE=SUDA-20110415KF;Initial Catalog=usedb;Integrated Security=SSPI;";   

conn.open
Set rs = CreateObject("ADODB.RecordSet")
sqlstr = "Select top 1 * from usetb"
rs.open sqlstr,conn,1,2
document.write rs(0) & " " & rs(1)
rs.close
Set rs = nothing
conn.close
Set conn = nothing
</script>
%>
请问是这样么？我是新手，麻烦详细说一下，谢谢

<%
Dim conn,rs,sqlstr
Set conn = CreateObject("ADODB.Connection")
conn.connectionstring = "Provider = SQLOLEDB;DATA SOURCE=SUDA-20110415KF;Initial Catalog=usedb;Integrated Security=SSPI;";   

conn.open
Set rs = CreateObject("ADODB.RecordSet")
sqlstr = "Select top 1 * from usetb"
rs.open sqlstr,conn,1,2
document.write rs(0) & " " & rs(1)
rs.close
Set rs = nothing
conn.close
Set conn = nothing
%>