测试ASP通过, 准备用回以前系统的用户登录模块.

测试ASP通过, 准备用回以前系统的用户登录模块.

 

ConnDB.asp

1. <%
2.   Dim Conn
3.   Dim ConnStr
4.   Set Conn = Server.CreateObject("ADODB.Connection")
5.   ConnStr="Provider=SQLNCLI.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=固定资产;Data Source=localhost"
6.   Conn.Open ConnStr
7. %>

test.asp

 

1. <!--#include File="ConnDB.asp"-->
2. <%
3.   '生成SQL语句,查询前10条信息
4.   sql = "Select Top 10 * From 测试表 "
5.   Set rs = conn.Execute(sql)
6.   '如果结果集为空,则显示提示信息
7.   If rs.EOF Then
8.     Response.Write "暂且没有数据"
9.   Else
10.     '依次显示结果具体信息
11.     Do While Not rs.EOF
12. %>    名字: <%=rs("名字")%><Br>
13.       密码: <%=rs("密码")%><Br><hr>
14. <%
15.       rs.MoveNext
16.     Loop
17.   End If
18.   rs.Close
19.   Set rs = Nothing
20. %>