新微赢技术网»论坛 › 学习网知识堂 › WEB开发 › ASP › 用过风讯系统的进

查看: 124|回复: 8

用过风讯系统的进

[复制链接]

踏浪

电梯直达

1^#

发表于 2010-1-14 00:10:52 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

谁研究过风讯系统，我连装都装不进去！！！

收藏0

使用道具举报

玩QQ名字千万

2^#

发表于 2010-1-14 00:10:56 | 只看该作者

[数据库连接错误]
请检查系统参数设置>>站点常量设置,或者/inc/const.asp文件!

回复支持反对

使用道具举报

风忠人

3^#

发表于 2010-1-14 00:11:01 | 只看该作者

ding yi xia

回复支持反对

使用道具举报

踏破^ō^凌云

4^#

发表于 2010-1-14 00:11:05 | 只看该作者

那就按提示看看那个文件设置一下呗

回复支持反对

使用道具举报

︶ㄣ帅々︷`

5^#

发表于 2010-1-14 00:11:10 | 只看该作者

他一个登陆有4个文件：不知道改哪里。。。。。。。。。
login.asp
<% Option Explicit %>


<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.1.0930)
'最新更新：2005.10
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,conn,sConn
Set DBC = new databaseclass
Set Conn = DBC.openconnection()
Set DBC = Nothing
'检查安装文件是否存在，如果存在，转向到安装目录
Dim FileObj
Set FileObj=Server.CreateObject(G_FS_FSO)
If FileObj.FileExists(Server.MapPath("../../Install/install.asp")) = True then
Response.Write("<script>alert(""系统存在安装文件，请安装后登陆"&Copyright&""");location.href=""../../Install/install.asp"";</script>")
Response.End
End if
Dim Action
Action = "CheckLogin.ASP?UrlAddress=" & Request("UrlAddress")
Function GetCode()
Dim TestObj
On Error Resume Next
Set TestObj = Server.CreateObject("Adodb.Stream")
Set TestObj = Nothing
If Err Then
Dim TempNum
Randomize timer
TempNum = cint(8999*Rnd+1000)
Session("GetCode") = TempNum
GetCode = Session("GetCode")
Else
GetCode = "<img src=""GetCode.asp"" onclick='this.src=this.src;' style='cursor:pointer'>"
End If
End Function
Function GetSiteName
Dim RsConfigLoginobj
On error resume next
Set RsConfigLoginobj=Conn.execute("Select SiteName from FS_Config")
If not RsConfigLoginobj.eof then
GetSiteName=RsConfigLoginobj("SiteName")
Else
GetSiteName="风讯"
End If
If err.number<>0 then GetSiteName="风讯"
Set RsConfigLoginobj = Nothing
End Function
%>
<HTML><HEAD>
<TITLE><% = GetSiteName %>___网站内容管理系统___后台登录</TITLE>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<STYLE>
.tableborder {
BORDER-RIGHT: #737373 1px solid; BORDER-TOP: #bbbbbb 1px solid; BORDER-LEFT: #bbbbbb 1px solid; BORDER-BOTTOM: #737373 1px solid; BACKGROUND-COLOR: #d8dbd7
}
.setupheader {
FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #ffffff; BACKGROUND-COLOR: #454545
}
.button {
FONT-SIZE: 12px; CURSOR: pointer; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Arial; HEIGHT: 22px
}
.topheader {
PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-WEIGHT: bold; PADDING-BOTTOM: 3px; COLOR: #ffffff; PADDING-TOP: 3px; BACKGROUND-COLOR: #336699
}
.header_box {
PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: -1px; VERTICAL-ALIGN: middle; PADDING-TOP: 1px; HEIGHT: 1px; BACKGROUND-COLOR: #ffffff;
}
.header_box1 {
PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; VERTICAL-ALIGN: middle; PADDING-TOP: 1px; HEIGHT: 1px; BACKGROUND-COLOR: #ffffff;
}
.install_box {
PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; PADDING-TOP: 1px; BACKGROUND-COLOR: #d4d0c8
}
.firsthr {
BACKGROUND-COLOR: #808080
}
.secondhr {
BACKGROUND-COLOR: #ffffff
}
td {
font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size:12px;
}
</STYLE>
<META content="MSHTML 6.00.3790.2491" name=GENERATOR>
<meta name="keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统，风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER">
</HEAD>
<BODY topMargin=30>
<TABLE class=tableborder cellSpacing=1 cellPadding=0 width=496 align=center border=0>
<form action="checklogin.asp" method="post">
<TBODY>
<TR>
<TD>
<DIV class=topheader>  FoosunCMS后台登录　　　　　　　　　　　　　<font color="#CCCCCC">版本号：V3.1.0930</font></DIV>
<DIV class=header_box><img src="images/login.jpg" width="494" height="171"></DIV>
<DIV class=install_box>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td width="48%" align="right">用户名:
<input name="name" type="text" style="width:92px" value="<%=Request.Cookies("FoosunCookie")("AdminName")%>"></td>
<td width="3%" align="left"> </td>
<td width="48%" align="left"> 记住用户名
<input name="AutoGet" type="checkbox" id="AutoGet" value="1" <% If Request.Cookies("FoosunCookie")("AdminName")<>"" Then Response.Write "checked" End If%>></td>
</tr>
<tr>
<td align="right"> 密　码:
<input name="password" type="password" style="width:92px;FONT-SIZE:12px;"></td>
<td align="left"> </td>
<td align="left"> 验　证　码:
<input name="VerifyCode" type="text" size="4">
<% = GetCode() %>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE:11px;COLOR:#666666" noWrap width="4%">http://www.foosun.cn
 </TD>
<TD>
<DIV class=firsthr style="HEIGHT: 1px"><IMG height=1 alt="" src=""
width=1></DIV>
<DIV class=secondhr style="HEIGHT: 1px"><IMG height=1 alt="" src=""
width=1></DIV></TD></TR></TBODY></TABLE>
<DIV align=right>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">
<input class=button type=submit value=' 登录 '>  
<input class=button onClick="javascript:window.opener=null;window.close();" type=button value=' 关闭 '>
  </td>
</tr>
<tr>
<td align="right"> </td>
</tr>
</table>
</DIV></DIV></TD></TR>
</TBODY>
</form>
</TABLE>
</BODY></HTML>
<script language="JavaScript">
CheckBrowerVersion();
var ErrInfo='<% = Request("ErrInfo")%>';
function CheckBrowerVersion()
{
var MajorVer=navigator.appVersion.match(/MSIE (.)/)[1];
var MinorVer=navigator.appVersion.match(/MSIE .\.(.)/)[1];
var IE6OrMore=MajorVer>= 5.5||(MajorVer>=5.5&&MinorVer>=5.5);
if (!IE6OrMore)
{
alert('IE浏览器版本太低，系统将不能正常运行。点击确定将带你到下载地址！');
location.href="http://nj.onlinedown.net/soft/17441.htm"
//document.all.BtnSubmit.disabled=true;
}
}
if (ErrInfo!='') alert(ErrInfo);
</script>

回复支持反对

使用道具举报

成熟之惑

6^#

发表于 2010-1-14 00:11:14 | 只看该作者

Cls_DB.asp

<%
'────────────────────────────────
'功能说明：DataBaseClass类是实现数据库连接的类，里面留有数据库连接字符串接口
'包括模块：无，一般都是被其他模块包括
'调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr
' 具体操作为：Set DBC=New DataBaseClass
' DBC.ConnStr="其他连接字符串"
' 2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象
'────────────────────────────────
Session.Timeout = 300
Server.ScriptTimeOut = 10000 '设置脚本超时
Const IsSqlDataBase=0
Dim StrSqlDate
Class DataBaseClass
'────────────────────────────────
'定义变量
Private IConnStr
'────────────────────────────────
' ConnStr属性
Public Property Let ConnStr(Val)
IConnStr = Val
End Property
'────────────────────────────────
' ConnStr属性
Public Property Get ConnStr()
ConnStr = IConnStr
End Property
'────────────────────────────────
' 类初始化
Private Sub Class_initialize()
ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
StrSqlDate = "Date()"
End Sub
'────────────────────────────────
' 类注销
Private Sub Class_Terminate()
ConnStr = Null
End Sub
'────────────────────────────────
' 建立一个连接
Public Function OpenConnection()
Dim TempConn
On Error Resume Next
Set TempConn = Server.CreateObject(G_FS_CONN)
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("<font size=""2"">[数据库连接错误]<br>请检查系统参数设置>>站点常量设置,或者/inc/const.asp文件!</font>")
Response.End
end if
End Function
End Class
%>

回复支持反对

使用道具举报

爱你

7^#

发表于 2010-1-14 00:11:19 | 只看该作者

Const.asp

<%
'++++++++++////////////注意：单引号"'"不能去掉，请不要使用回车////////////++++++++++
'////////////建议只改字符，不要增加、删除////////////
'==========================生成目录参数=======================================
''-----管理目录,必须带/,不带虚拟目录-----
Const AdminDir = "Foosun/Admin/"
'-----统计投票和广告的目录-----
Const PlusDir = "Foosun_Plus"
'-----用户目录-----
Const UserDir = "Users"
'-----生成文件保存路径,后面不能带/,不带虚拟目录-----
Const ClassDir = "Html"
'-----系统的虚拟目录,后面不能带/——-----
Const SysRootDir = "foosuncms"
'-----文件目录,后面不能带/,不带虚拟目录-----
Const UpFiles = "Files"
'-----自由标签样式文件目录,后面不能带/,不带虚拟目录-----
Const StyleFiles = "Templets/FreeLableStyle"
'-----模板文件目录,,后面不能带/,不带虚拟目录-----
Const TempletDir = "Templets"
'-----远程图片保存目录,后面不能带/,不能带虚拟目-----
Const BeyondPicDir = "BeyondPic"
'-----新闻采集远程图片保存地址,后面不能带/,不带虚拟目录-----
Const SaveImagePath = "BeyondPic"
'-----下载文件存放目录-----
Const DownLoadDir = "DownLoad"
'-----归档新闻列表文件保存路径,后面不能带/,不带虚拟目录-----
Const RecordNewsListSavePath = "oldrecord"
'-----数据库连接路径,请不要删除,请注意要加虚拟目录-----
Const DataBaseConnectStr = "../FooSun_Data/FooSun_Data.mdb"
'-----归档数据库联接路径,请不要删除,请注意要加虚拟目录-----
Const RecordDataBaseConnectStr = "../FooSun_Data/Record.mdb"
'-----流量统计IP数据库路径,如有虚拟目录,请注意要加虚拟目录-----
Const IPDataBaseConnStr = "../FooSun_Data/AddressIp.mdb"
'-----新闻自动分页字符数，为0则不分页分页字符一个汉字算2个分页字符数不包含Html标记-----
Const AutoPagesNum = 3000
'==========================邮件控制参数=======================================
Const MailObject = "Jmail" '邮件发送组件
Const MailServer = "mail.cooin.com" '用来发送邮件的SMTP服务器
Const MailServerUserName = "skeen@cooin.com" '登录用户名
Const MailServerPassword = "22222" '登录密码
Const MailDomain = "cooin" '域名
'==========================版本控制参数=======================================
Const Copyright = "\n\n FoosunCMS V3.1.0930" '系统版本信息
'==========================用户自定义参数=====================================
Const VariableStr = "JustForTest........NoUse!"
'++++++++++----------配置信息结束----------++++++++++
%>

回复支持反对

使用道具举报

苍穹

8^#

发表于 2010-1-14 00:11:25 | 只看该作者

ConstOption.asp

<%
'////////////注意：单引号"'"不能去掉，请不要使用回车////////////
'////////////建议只改字符，不要增加、删除////////////
'==========================生成目录参数=======================================
Const G_FS_Session = 1
Const G_FS_FSO = "Scripting.FileSystemObject"
Const G_FS_RS ="Adodb.RecordSet"
Const G_FS_HTTP = "Microsoft.XMLHTTP"
Const G_FS_CONN ="Adodb.Connection"
Const G_FS_HoldLogDay = 7 '登录日志保留天数，设定为7表示7天之内的日志不可以删除
Const SafePass="0,2,4,2,3" '安全密码参数设置,
'作用：有人通过下载数据库或SQL注入得到了管理员的真正密码后，仍不能进入系统
'
'第1位是否启用安全密码为0时则不启用为1时启用
'第2位取验证码中的第几位参与运算，取1-4之间的数字
'第3位取验证码中的第几位参与运算，取1-4之间的数字
'第4位将取得的两位验证码作什么运算，1为加法运算；2为乘法运算
'第5位将得到的结果插入到密码的第几位后面
'
'例如安全码参数设置为1，1，3，2，5 即为启用安全码，将验证码的第一位和第三位相乘的结果插入到密码的第五位后面
'如果你登陆时产生的验证码为3568 管理员密码为TryLogin
'则你应该输入的密码为TryLo18gin
%>

你是怎么设置的

在前面我还是改了他的一些配置路径才装得下

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册