| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 486 人关注过本帖
标题:高手来帮下忙俄,谢谢,看看哪里错了
只看楼主 加入收藏
千度㊣月光
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-7-31
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
高手来帮下忙俄,谢谢,看看哪里错了
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

J:\同爱聊视频语音聊天网\VIP\../INC/SQLconn.asp,行 81(这个是错误信息)



'系统变量'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    chathostip="520tz.            '聊天软件授权绑定的主机名
    chatserialno="XaObaHCkYsgtvYoQvCbc"            '聊天软件授权绑定序列号
    keyfile="key_chat1.         '授权文件
    roomcfgdir="d:\bchat"                    '聊天室WEB后台系统生成或修改的端口配置文件的目录
    moduledir="d:\bchat\module"                '摸板位置
    videorate=28                        '视频速率
    videoframerate=6                    '视频帧速率
    dsnname="bchat"
    dsnuser=""
    dsnpass=""
    websys=""
    md5pass="letian"

    
    fs="Scripting.FileSystemObject"                'fso组件名称
    
    'mehost="520tz.
    'meport="6000"
    'medir="j:\MeChat"
    'medirs="j:\MeChat\SysData\template"
    

'连接ODBC数据源'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'数据库DSN名
    ''passjk="Provider=Sqloledb; User ID=sa; Password=; Data Source=520tz. Initial Catalog = "
    passjk="Provider=Sqloledb; User ID=sa; Password=; Data Source=127.0.0.1; Initial Catalog = "
    liaowancmvip    =passjk & "taldb;"              '会员数据库 系统设置总数据库
    liaowanbchatdb    =passjk & "bchat;"                    'bchat会员数据库 聊天室数据库
    liaowanmechatdb =passjk & "openchat.db;"                 'mechat会员数据库 聊天室数据库
    liaowannews        =passjk & "news;"                     '同爱聊新闻组,论坛组,信息组数据库
    liaowancw        =passjk & "cw;"                        '产品数据库,财务数据库
    liaowanbbs        =passjk & "bbs;"                    '论坛数据库
    chatweb            =passjk & "liaowan;"                '聊天室数据库

'连接MS-SQL[ODBC数据源]数据库
Set conn         = Server.CreateObject("ADODB.Connection") '会员数据库 系统设置总数据库
Set BChatconn     = Server.CreateObject("ADODB.Connection") 'bchat会员数据库 聊天室数据库
Set MeChatconn     = Server.CreateObject("ADODB.Connection") 'mechat会员数据库 聊天室数据库
Set newsconn     = Server.CreateObject("ADODB.Connection") '同爱聊新闻组,信息组数据库
Set cwconn         = Server.CreateObject("ADODB.Connection") '产品数据库,财务数据库
Set bbsconn     = Server.CreateObject("ADODB.Connection") '论坛数据库
Set chatconn     = Server.CreateObject("ADODB.Connection") '论坛数据库

'定义接通数据库函数
Sub OpenConn()
conn.Open = vip
End Sub

Sub OpenBChatConn()
BChatconn.Open =chatdb
End Sub

Sub OpenMeChatConn()
MeChatconn.Open = chatdb
End Sub

Sub OpennewsConn()
newsconn.Open = liaowannews
End Sub

Sub OpencwConn()
cwconn.Open =cw
End Sub

Sub OpenbbsConn()
bbsconn.Open = bbs
End Sub

Sub OpenChatConn()
Chatconn.Open = serverweb
End Sub

'销毁数据对象函数
sub Closedb()
Set conn = Nothing
Set BChatconn = Nothing
Set MeChatconn = Nothing
Set newsconn = Nothing
Set cwconn = Nothing
Set bbsconn = Nothing
Set Chatconn = Nothing
end sub



'错误消息'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub errstr(message)
Response.Write "<script>alert('" & message & "');history.go(-1);</script>"
response.end
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function HTMLEncode(fString)
fString=trim(fString)
fString=replace(fString,";",";")
fString=replace(fString,"<","&lt;")
fString=replace(fString,">","&gt;")
fString=replace(fString,"\","\")
fString=replace(fString,"--","--")
fString=replace(fString,"'","'")
fString=replace(fString,CHR(34),"&quot;")
fString=replace(fString,vbCrlf,"<br>")
HTMLEncode=fString
end function
''''''''''替换模块START''''''''''''
Function ReplaceText(fString,patrn, replStr)
Set regEx = New RegExp  ' 建立正则表达式。
regEx.Pattern = patrn   ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True     ' 设置全局可用性。
ReplaceText = regEx.Replace(fString, replStr) ' 作替换。
End Function
''''''''''替换模块END''''''''''''
'''SQL破坏语句过滤'''''''''''''''
function ContentEncode(fString)
fString=replace(fString,vbCrlf, "")
fString=replace(fString,"\","\")
fString=replace(fString,"'","'")
fString=ReplaceText(fString,"<(.[^>]*)(&#|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse))", "&lt;$1$2$3")
fString=ReplaceText(fString,"<(\/|)(iframe|object|SCRIPT|form|style|meta|TEXTAREA)", "&lt;$1$2")
ContentEncode=fString
end function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckHtml(Str)
   Dim Sos
   Sos=Trim(Str)
   if InStr(1,Sos," ",vbTextCompare)<>0 or InStr(1,Sos,".",vbTextCompare)<>0 or InStr(1,Sos,"<",vbTextCompare)<>0 or InStr(1,Sos,">",vbTextCompare)<>0 or InStr(1,Sos,"&",vbTextCompare)<>0  or InStr(1,Sos,"!",vbTextCompare)<>0 then
      CheckHtml=true
   elseif Len(Sos)<2 then
         CheckHtml=true
   else
      CheckHtml=false
   end if      
End Function

''''验证码检测'''''''''''''''''''''''''
Sub yanzheng()
    if session("adminid")="" or session("adminid")<>trim(Request("adminid")) then
    errstr("请正确填写验证码\n如果填写表单时间超过20分钟,请刷新验证码!")
    else
    session("adminid")=""
    end if
End Sub
''''''''''''''''''''''''''''''''''''''

jk="ok"
%> (这个是这个是SQLconn.asp文件)


http://520tz. (这个是网站地址)

哪位高手帮忙解决一下,谢谢了
搜索更多相关主题的帖子: Microsoft 聊天软件 数据源 序列号 
2009-07-31 10:19
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:20 
你检查一下 有没有设置名字为:520tz.的数据源
2009-07-31 16:55
Vitamin1999
Rank: 2
等 级:论坛游民
威 望:1
帖 子:30
专家分:66
注 册:2009-9-23
收藏
得分:0 
这么长也有人看   
2009-09-26 15:49
快速回复:高手来帮下忙俄,谢谢,看看哪里错了
数据加载中...
 
   



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

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