当前位置：首页 → 问答吧 → 帮忙看下这个地方怎么改

帮忙看下这个地方怎么改

时间：2010-12-01

来源：互联网

在网上找了个在线客服的代码，access数据库的，我把它放在原来一个网站的asp空间，是免费access数据库的那种空间，不记得原来修改什么数据库路径啊，好像把网站所有文件上传就直接可以用了。但这个客服代码的说明里提示要改数据库路径，帮看下要怎么改，还有wzh="http://"&Request.ServerVariables("HTTP_HOST").Item这一句用改动吗？谢谢了

默认数据库存放位置：#data_#db/#admin.mdb，下面是inc.asp的全部代码。

复制内容到剪贴板

代码:

<%
Function GetSearchKeyword(RefererUrl)    '搜索关键词
        on error resume next
        Dim re
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        Dim a,b,j
        '模糊查找关键词，此方法速度较快，范围也较大
        re.Pattern = "(word=([^&]*)|q=([^&]*)|p=([^&]*)|w=([^&]*)|query=([^&]*)|name=([^&]*)|_searchkey=([^&]*)|wd=([^&]*)|baidu.*?w=([^&]*))"
        Set a = re.Execute(RefererUrl)
        If a.Count>0 then
            Set b = a(a.Count-1).SubMatches
            For j=1 to b.Count
                If Len(b(j))>0 then GetSearchKeyword=b(j) : Exit Function
            Next
        End If
        if err then
        err.clear
        GetSearchKeyword = RefererUrl
        else
        GetSearchKeyword = ""
        end if
    End Function
    dim wzh,db,dbpath
wzh="http://"&Request.ServerVariables("HTTP_HOST").Item
db="/#data_#db/#admin.mdb"'这里修改数据库路径或名称
Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath
%>

作者: leifeng1 发布时间: 2010-12-01

<%=server.mappath("#admin.mdb")%>
把这个代码写到ASP文件里面传到你空间里,在浏览器里打开看看你自己的数据库位置对不对

作者: jjqh197939 发布时间: 2010-12-01