他一个登陆有4个文件：不知道改哪里。。。。。。。。。
login.asp
<% Option Explicit %>
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Const.asp" --><%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：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>
[此贴子已经被作者于2005-11-26 10:50:11编辑过]
2005-11-26 00:30
