铁甲威虫之钢千翅疼痛:高手帮我看一下这个Conn.asp代码

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 06:19:15

代码如下:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
option explicit
Dim dataname,startime,conn,db
Response.Buffer = true
startime = timer()
%>

<%
'定义数据库类别，1为SQL数据库，0为Access数据库
Const isSqlDataBase = 0
Dim SqlString
Dim ConnStr
If IsSqlDataBase = 1 Then
'-----------------------SQL数据库连接参数-------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlString = "GetDate()"
SqlDatabaseName = "NewAsp6" '数据库名
SqlPassword = "newasp" '用户密码
SqlUsername = "newasp" '用户名
SqlLocalName = "(local)" '连接名（本地用local，外地用IP）
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'-----------------------------------------------------------------------------
Else
'-----------------------ACCESS数据库连接--------------------------------------
Dim InstallDir
SqlString = "Now()"
InstallDir = Replace(Left(LCase(Request.ServerVariables("SCRIPT_NAME")), InStrRev(LCase(Request.ServerVariables("SCRIPT_NAME")), "/")),"admin/","")
'ACCESS数据库连接，如果要修改数据库名称请打开conn_name.asp修改
db = InstallDir & "Database/" & DataName
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'------------------------------------------------------------------------------
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
-------------------------------------------------------------
这个是什么意思啊.用连接系统自带的ODBC数据源吗?
诚心教本人的加QQ:35732387
他里面有一个newasp_6.asp文件,还有一个maillist.mdb文件,这个是什么意思啊?请高手详细讲解,不要用专业术语...本人是新手..最好加QQ说:35732387.我不是很笨的.

高手帮我看一下这个Conn.asp代码高手帮我看一下ASP代码,有没有错误请各位高手帮我看一下这段ASP代码哪里有问题 asp高手帮我看一下！请问一下这个ASP代码是什么意思：rs.open db,conn,1,3 帮我看一下.这段asp代码..新手问题. 谁帮我解释asp常用代码: set conn = nothing 各位高手麻烦帮我看一下这个自动重起的蓝屏代码！！帮看一下ASP代码意思！各位asp高手帮我看下这个错误！