求助!一个关于数据库连接的错误~~ 急~~~~
我写了一个asp.net的程序,是关于数据库连接的。代码如下:
<%@ Page Language="vb" Debug="true" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script Language="VB" RunAt="Server">
Function Get_DSN(bolSQL As Boolean) As String
'--- bolSQL: True for SQL Server, False for Access ---
If Not bolSQL Then 'Access
Get_DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& Server.MapPath("asp_net.mdb")
Else 'SQL Server
Get_DSN = "Provider=SQLOLEDB.1;Data Source=Alvinnt;User ID=sa;" _
& "Password=;Initial Catalog=ASP_Net;autotranslate=no;"
End If
End Function
Sub Check_ID()
'--- 目的:检查 ID 是否已存在 ---
Dim strSQL, uid As String
Dim bolExist As Boolean
'---
Dim strDSN As String
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand
Dim objRead As OleDbDataReader
'---
uid="Leo"
'--- 产生SQL语句 ---
strSQL = "select * from password1 where userid='" & uid & "'"
'--- Step 1:创建OleDb Connection,然后打开Access数据库 ---
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
'---
objCmd = New OleDbCommand(strSQL, objConn)
objCmd.Connection.Open() '打开Connection
'--- Step 2:执行SQL命令,并将结果保存于OleDbDataReader中 ---
objRead = objCmd.ExecuteReader()
'--- Step 3:判断是否为注册的帐号
bolExist = False
While objRead.Read()
bolExist = True '帐号正确
End While
objRead = Nothing
'--- Step 4:关闭OleDbConnection
'objcmd.connection.close()
objConn.Close()
objConn = Nothing
'---
If bolExist Then 'ID已存在
Response.Write("<br><center><h1>" & vbCrLf)
Response.Write("<hr>Sorry~~~<p>" & vbCrLf)
Response.Write("本ID(<font color=red>" & uid)
Response.Write("</font>)已被另一人注册,请改用其他ID!")
Response.Write("</p></h1><hr>" & vbCrLf)
Response.Write("<a href='javascript:history.back()'>")
Response.Write("回前一画面</a>" & vbCrLf)
Response.Write("</center>" & vbCrLf)
Else
'--- 定向到15-02.aspx准备发送“确认信函” ---
'Server.Transfer("15-02.aspx")
Response.Write("成功")
End If
End Sub
</script>
<%
Check_ID()
%>