ASP实例学习四

1.ASP连接到SQLServer2000并对数据库进行相关操作
第一种方案：配置 SQL Server 数据库文件 DSN
这里我们是通过配置ODBC中的文件DSN来处理的。
那下面的连接代码如下：

<%
  'Create a connection object
  Set cn = Server.CreateObject("ADODB.Connection")
  'Open a connection; the string refers to the DSN
  cn.Open  "FILEDSN=MyDatabase.dsn"
%>
第二种方法：直接连接到一台SQLServer服务器的哦！
<%
Dim StrServer,StrUid,StrSaPwd,StrDbName
'StrServer="(local)"
StrServer = "192.168.100.12" '指定一台服务器的IP地址哦！
StrUid="sa" 
StrSaPwd="hkebao"
StrDbName="MyFather"
Dim Conn 
Dim StrDSN 
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrDSN
%>
OK,可以这样做就不需要再进行配置什么DSN文件了哦！
<%
 Set rsCustomers = Server.CreateObject("ADODB.Recordset")
  strSQL = "select * from test"  
  'Use the Execute method to issue a SQL query to database
  rsCustomers.Open  strSQL, conn   
  Set objFirstName = rsCustomers("names")
   Do Until rsCustomers.EOF  
   Response.Write objFirstName & " " & "
"
   rsCustomers.MoveNext
   Loop

%>
可以操纵这个数据库了哦哈哈！
2.执行插入的SQL命令
sub save()
    dim username,content
    username=request("username") '得到参数
    content=request("content")
    conn.execute("insert into chat (username,content) values ('"&username&"','"&content&"')")
end sub

你看一下可以这样来进行插入语句哦哈哈！
call save    '储存信息
可以这样来调用命令的哦哈哈！
conn.close
set conn=nothing
可以做成在服务器端将HTML标签什么都制作好，然后可以通过往客户端输出就可以了
而且这样输出之后在客户端是可以通过
responseText可以得到返回的值的哦！
3.
set rs=conn.execute("select * from [a$d#m#i$n] where [username]='"& username &"' and [password]='"& password &"'")
if not rs.eof then
	session.Timeout=1   '后台的话会设置一个过期的时间的
	session("admin")="true"
	session("username")=username
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.redirect("main.asp")
else
	pop_msgback("用户帐号密码错误！")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing