| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1818 人关注过本帖
标题:快来看下一下怎么了
只看楼主 加入收藏
tiankong118
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-8-27
收藏
 问题点数:0 回复次数:12 
快来看下一下怎么了
<%
'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 = 0

'定义运行模式,测试的时候设置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 = 1 then
                for i = 0 to conn.errors.count-1               
                    response.write "数据库连接出错,请检查连接字串<br>"
                        response.write "<font style='font-size:10.5pt'><font color=red><b>Error Number:      </b></font>" &

conn.errors(i).number & "<br>"
                        response.write "<font color=red><b>Error NativeError: </b></font>" & conn.errors(i).nativeerror & "<br>"
                        response.write "<font color=red><b>Error Source:      </b></font>" & conn.errors(i).source & "<br>"
                        response.write "<font color=red><b>Error Description: </b></font>" & conn.errors(i).description & "<br>"
                        response.write "<!--Error Sql Code:" & strErrCode & "-->"
                next
        else
        response.write "正在系统维护,请稍后再试。<br>"        
                response.write "<font style=""font-size:10.5pt;color:red"">
                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
%>
<!--#include file="./functions.asp"-->
<!--#include file="./adovbs.inc.asp"-->
<!--#include file="./configinfo.asp"-->
<%
dim ConfigInfo
set ConfigInfo=new GetConfigInfo_Class
ConfigInfo.load
%>
<%'...%>



以上这段代码总是说系统维护,请稍后
搜索更多相关主题的帖子: aaa 
2008-08-27 16:31
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:0 
你的数据库连接出了问题,下面的代码都写的很清楚了,你把IsDeBug设置为False就知道具体的错误了
-----------------------------------------
'========================================================
'输出错误提示
'当IsDeBug为true时,在打开数据库发生错误时会输入错误
'提示,否则不输入错误提示,建议在程序调试时打开,调试完后
'关闭该功能,
'========================================================
if IsDeBug = 1 then
                for i = 0 to conn.errors.count-1               
                    response.write "数据库连接出错,请检查连接字串<br>"
                        response.write "<font style='font-size:10.5pt'><font color=red><b>Error Number:      </b></font>" &

conn.errors(i).number & "<br>"
                        response.write "<font color=red><b>Error NativeError: </b></font>" & conn.errors(i).nativeerror & "<br>"
                        response.write "<font color=red><b>Error Source:      </b></font>" & conn.errors(i).source & "<br>"
                        response.write "<font color=red><b>Error Description: </b></font>" & conn.errors(i).description & "<br>"
                        response.write "<!--Error Sql Code:" & strErrCode & "-->"
                next
        else
        response.write "正在系统维护,请稍后再试。<br>"        
                response.write "<font style=""font-size:10.5pt;color:red"">
                response.end
        end if
2008-08-27 17:15
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:0 
很规范的开发啊
2008-08-27 17:16
tiankong118
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-8-27
收藏
得分:0 
能再具体点吗?我还是不明白呀
2008-08-27 19:44
tiankong118
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-8-27
收藏
得分:0 
我改了,还是不行呀,还是提示“正在系统维护,请稍后再试”。
2008-08-27 19:54
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:0 
改成IsDeBug=0不提示错误吗
2008-08-27 23:15
tiankong118
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-8-27
收藏
得分:0 
现在提示这个怎么办呀!

数据库连接出错,请检查连接字串
Error Number:      -2147467259
Error NativeError: 63
Error Source:      Microsoft OLE DB Provider for ODBC Drivers
Error Description: [Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xa94 Thread 0x2f4 DBC 0x3a60024 Jet'。
数据库连接出错,请检查连接字串
Error Number:      -2147467259
Error NativeError: 0
Error Source:      Microsoft OLE DB Provider for ODBC Drivers
Error Description: [Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLSetConnectAttr 失败
数据库连接出错,请检查连接字串
Error Number:      -2147467259
Error NativeError: 63
Error Source:      Microsoft OLE DB Provider for ODBC Drivers
Error Description: [Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xa94 Thread 0x2f4 DBC 0x3a60024 Jet'。
数据库连接出错,请检查连接字串
Error Number:      -2147467259
Error NativeError: -1023
Error Source:      Microsoft OLE DB Provider for ODBC Drivers
Error Description: [Microsoft][ODBC Microsoft Access Driver] '(未知的)'不是一个有效的路径。 确定路径名称拼写是否正确,以及是否连接到文件存放的服务器。
2008-08-28 09:13
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:0 
你改IsSqlDataBase = 1 试下或者按照他的提示改也行
你现在用的可能是免费版本,其实他写的也很清楚了
"'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如将.mdb修改为.asp"
多看看别人写的备注 你会少绕很多弯路的
2008-08-28 11:13
tiankong118
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-8-27
收藏
得分:0 
改了还是没什么变化
2008-08-28 16:32
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:0 
你是改了IsSqlDataBase =1还是Access数据库的路径
2008-08-28 16:36
快速回复:快来看下一下怎么了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012942 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved