瞅瞅 - SQL Server论坛

问题点数：0 回复次数：1

瞅瞅

<%
'Option Explicit
Response.Buffer = True

'全局变量
Dim showye,page
Dim SqlNowString
Dim SqlBoolStringTrue
Dim SqlBoolStringFalse

Dim Startime
Dim Conn

'定义数据库类别，1为SQL数据库，0为Access数据库
Const CityAdminCSS="<link rel=""stylesheet"" type=""text/css"" href=""/CSS/main.css"">"
Const IsSqlDataBase = 1

'定义运行模式，测试的时候设置1，正常运行的时候设置为0,不输出错误信息有利于安全，
'========================================================
'程序调试开关,为true 输出错误提示，为false 不输出错误提示
'========================================================
Const IsDeBug = 1
Startime = Timer()

'SQL获取时间函数
If IsSqlDataBase = 1 Then
 SqlNowString = "GetDate()"
 SqlBoolStringTrue="1"
 SqlBoolStringFalse="0"
Else
 SqlNowString = "Now()"
 SqlBoolStringTrue="true"
 SqlBoolStringFalse="false"
End If

function SqlBoolString(AValue)
select case CBool(AValue)
case True
 SqlBoolString= SqlBoolStringTrue
case False
 SqlBoolString= SqlBoolStringFalse
end select
end function

'打开数据库
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
Sub ConnectionDatabase
 Dim ConnStr
 If IsSqlDataBase = 1 Then
 'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）

 SqlDatabaseName = "BIZAD"
 SqlPassword = ""
 SqlUsername = "sa"
 SqlLocalName = "(local)"
 ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " &

SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
 Else
 '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将.mdb修改

为.asp DB=Server.MapPath(DB)
 'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(db)
 Connstr="DBQ="+Db+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 'Connstr="DBQ="+Server.Mappath(Db)+";DefaultDir=;DRIVER={Microsoft Access Driver

(*.mdb)};"
 '如果你的服务器采用较老版本Access驱动，请用下面连接方法
 'ConnStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
 End If

 on error resume next
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.open ConnStr
 If Err Then
 debugError("ERR001")
 Err.Clear
 Set Conn = Nothing
 Response.End
 End If
End Sub

'打开数据链接
If Not IsObject(Conn) Then ConnectionDatabase
dim rs:set rs =server.createobject("adodb.recordset")

'========================================================
'输出错误提示
'当IsDeBug为true时，在打开数据库发生错误时会输入错误
'提示，否则不输入错误提示，建议在程序调试时打开，调试完后
'关闭该功能，
'========================================================

sub debugError(strErrCode)
 if IsDeBug = 0 then
 for i = 0 to conn.errors.count-1
 response.write "数据库连接出错，请检查连接字串 "
 response.write "Error Number

：      " & conn.errors(i).number & " "
 response.write "Error NativeError： " &

conn.errors(i).nativeerror & " "
 response.write "Error Source：

      " & conn.errors(i).source & " "
 response.write "Error Description： " &

conn.errors(i).description & " "
 response.write ""
 next
 else
 response.write "正在系统维护,请稍后再试。 "
 response.write
 response.end
 end if
 if conn.errors.count>0 then
 conn.errors.clear
 set conn=nothing
 '结束执行
 response.end
 end if
end sub

function depclassidconvert(theid)
 If IsSqlDataBase = 1 Then
 depclassidconvert=theid
 else
 depclassidconvert="'"&theid&"'"
 end if
end function

'关闭数据库连接
sub closedatabase
Conn.close
set Conn = Nothing
end sub

sub SortMenuInsearch
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from Class_1"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
 response.write "<option value='没有类别'>没有类别</option>"
else
 response.write "<option value='0'>所有类别</option>"&vbcrlf
do while not rs2.eof
 response.write "<option value='"&rs2("SortID")&"'"
 if request("SortID")<>"" then
 if rs2("SortID")=clng(request("SortID")) then response.write " selected "
 end if
 response.write ">"&rs2("Sort")&"</option>"&vbcrlf
 rs2.movenext
loop
end if

rs2.close
set rs2=nothing
end sub

sub scripterr
 response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n"&errstyle&"');history.go(-

1);</script>"
 response.end
end sub
%>



<%
dim ConfigInfo
set ConfigInfo=new GetConfigInfo_Class
ConfigInfo.load
%>
<%'...%>
看不懂这是在连什么数据库？帮忙指点指点

搜索更多相关主题的帖子: 瞅瞅　