搜虎精品社区

标题: 请问临沂市场信息网CMS8.0怎样绑定域名 [打印本页]

作者: jiaxin11    时间: 2009-9-9 10:27
标题: 请问临沂市场信息网CMS8.0怎样绑定域名
我在网上下载个临沂市场信息网CMS8.0,但是提示数据库连接出错,请检查连接字串。
我知道要绑定域名的但是不知道怎样绑定请问大家怎样绑定???
作者: 阿浩    时间: 2009-9-9 11:41
分析一下源码
这个你找连接数据库conn文件,用dw新建站点后全站搜索一下就可找到
作者: jiaxin11    时间: 2009-9-9 13:51
<%@ LANGUAGE = VBScript CodePage = 936%>
<!--#include file="mdbname.asp"-->
<%
'本程序作者:中国蓝狐[QQ54083049]
'官方网站:快网科技[www.kuaiwww.com]
'如果您商用,请联系购买正版,本程序受法律保护
'尊重劳动,享受服务,售后跟踪支持
%>
<%
Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
If err.number<>0 Then   
Response.Write(err.description)   
Response.End()   
End If
On Error Resume Next
Dim strTemp,hk
If Trim(Request.QueryString) <> "" Then strTemp =Trim (Request.QueryString)
strTemp = LCase(strTemp)
hk=0
'以下是定义要过滤的字符,不够可以自己添加。
If Instr(strTemp,"%")<>0 then hk=1
If Instr(strTemp,"count(")<>0 then hk=1
If Instr(strTemp,"asc(")<>0 then hk=1
If Instr(strTemp,"mid(")<>0 then hk=1
If Instr(strTemp,"char(")<>0 then hk=1
If Instr(strTemp,"xp_cmdshell")<>0 then hk=1
If Instr(strTemp,"'")<>0 then hk=1
If Instr(strTemp,"union")<>0 then hk=1
If Instr(strTemp,"document.cookie")<>0 then hk=1
If Instr(strTemp,"document")<>0 then hk=1
If Instr(strTemp,"javascript")<>0 then hk=1
if hk=1 then
'当有以上任一特征码的时候就弹出提示阻止。
Response.Write "<script language='javascript'>"
Response.Write "alert('含有非法字符!!');"
Response.Write "history.back();"
Response.Write "</script>"
response.end
hk=0
End If

Dim Startime,Conn
Dim SqlString
Dim ConnStr
Startime = Timer()
'主数据
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & Dbname)
        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
'//-------------------------------------------------------------
'IP地址
                Set CiP=server.createobject("ADODB.CONNECTION")
                costr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath(MyDbPath & Las真美妙bName)
                CiP.open costr
        if err Then
                err.clear
                Set CiP = nothing
                response.Write "数据库连接出错,请检查连接字串。"
                response.end
        end if
Sub CloseConn()
    Conn.close
    set Conn=nothing
    Cip.close
    set CiP=nothing
End Sub
%>
作者: jiaxin11    时间: 2009-9-9 13:53
上面哪个是麻烦帮忙看看·
作者: fengliuqiao.    时间: 2009-9-9 23:35
看看``学习学习```
作者: 飘云    时间: 2009-9-13 08:15
你用的是什么数据库呢?
作者: show5    时间: 2009-9-26 12:22
临沂市场信息网CMS8.0 需要域名授权的 不知道你的版本是否是的破解版!
作者: 苦涩    时间: 2009-10-15 03:45
临沂市场信息网CMS8.0域名授权?
作者: caizai    时间: 2009-12-1 10:33
我也想知道。。。
作者: wwwsdcn    时间: 2010-1-23 15:31
那是银狐的作品,上传到您的空间,通过网页 http://您的域名/install.asp,进行安装,安装过程中自动**您的域名。
作者: xiaojun306    时间: 2010-7-28 16:47
我也想知道。。。
作者: dingwenhua    时间: 2013-8-23 20:56
上面哪个是麻烦帮忙看看· 嘿嘿




欢迎光临 搜虎精品社区 (https://souho.net/) Powered by Discuz! X3.2