📄 index.asp
字号:
<!--#include file="fsoconfig.asp"-->
<%
if session("loginstatus")="islogined" and left(session("pathaccess"),1)="/" then
response.redirect "fsoexplorer.asp?ntime="&ntime
response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
If Not IsObjInstalled("Scripting.FileSystemObject") Then
logininfo="该服务器不支持FSO，故无法使用本程序！"
elseif not IsObjInstalled("adodb.stream") Then
logininfo="服务器ADO组件版本太低，你将无法使用上传功能！"
end if
comeurl=trim(request.querystring("url"))
if request("submit")="提交" then
%>
<!--#include file="fsoconn.asp"-->
<%
dim loginname,loginpassword
loginname=request.form("loginname")
loginpassword=request.form("loginpassword")
if trim(loginname)="" or instr(loginname,chr(39)) > 0 or instr(loginname,chr(34)) > 0 or instr(loginpassword,chr(39)) > 0 or instr(loginpassword,chr(34)) > 0 then
response.redirect selfname&"?ntime="&ntime
response.end
end if
comeurl=trim(request.form("comeurl"))
sql="select * from userinfo where username="&chr(39)&loginname&chr(39)
set rs=conn.execute(sql)
if rs.bof and rs.eof then
set rs=nothing
conn.close
set conn=nothing
logininfo="该用户不存在"
elseif rs("password")<>loginpassword then
set rs=nothing
conn.close
set conn=nothing
logininfo="密码不正确"
else
session("loginname")=loginname
session("grade")=rs("grade")
session("pathaccess")=trim(rs("pathaccess"))
session("loginstatus")="islogined"
set rs=nothing
conn.close
set conn=nothing
if comeurl="" then
response.redirect "fsoexplorer.asp?path="&session("pathaccess")&"&ntime="&ntime
elseif instr(comeurl,"?")>0 then
response.redirect(comeurl)
else
response.redirect(comeurl&"?ntime="&ntime)
end if
response.end
end if
end if
%>
<html>
<head>
<title><%=sysname%>--登陆入口</title>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<style type="text/css">
<!--
input,body,table{font-size:12px}
form{margin:0;padding:0}
.awhite,.awhite a{color:#ffffff;text-decoration:none}
.awhite a:hover{color:#ff3333;text-decoration:underline}
-->
</style>
</head>
<body topmargin=150 background=fsoimg/bgbrick.gif>
<table border=1 align="center" cellpadding=0 cellspacing=0 style="border-collapse:collapse" bordercolor=#111111 width=280 height=170>
<tr>
<td align=center class="awhite" style="background-color: #00aead; background-image: url('fsoimg/leadtop.gif'); background-repeat: repeat; background-attachment: scroll; height: 19px; background-position: 0%">新疆建设职业技术学院－文件管理系统</td>
</tr>
<tr>
<td align=center>
<form method=POST action="<%=selfname%>">
<table border=0 cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111 width=100% height=128 bgcolor=#E0E0E0>
<tr>
<td colspan=2 height="18" style="text-align:center;color:#ff3333;fong-weight:600"><%=logininfo%></td>
</tr>
<tr>
<td width=32% height=31 align=center>用户名</td>
<td width=68% height=31><input type="text" name="loginname" size=24 style="border:solid 1px;padding:1px"></td>
</tr>
<tr>
<td width=32% height=31 align=center>密 码</td>
<td width=68% height=31><input type="password" name="loginpassword" size=24 style="border:solid 1px;padding:1px"><input type="hidden" name="comeurl" value="<%=comeurl%>"></td>
</tr>
<tr>
<td width=100% height=26 colspan=2 align=center> <input type=submit value=提交 name="submit" style="font-size:12px;height:21px;width:60px;color:#E0E0E0;background-color: #006898; border: 2 solid #3399FF" onMouseOver ="this.style.backgroundColor='#ff0000'" onMouseOut ="this.style.backgroundColor='#006898'"> <input type=reset value=重置 name=reset style="font-size:12px; height:21px; width:60px; color: #E0E0E0; background-color: #006898; border: 2 solid #3399FF" onMouseOver ="this.style.backgroundColor='#ff0000'" onMouseOut ="this.style.backgroundColor='#006898'"> <input type="button" onclick="window.location='index.asp'" style="font-size:12px; height:21px; width:60px; color: #E0E0E0; background-color: #006898; border: 2 solid #3399FF" onMouseOver ="this.style.backgroundColor='#ff0000'" onMouseOut ="this.style.backgroundColor='#006898'" value="退出"></td>
</tr>
<tr>
<td colspan=2 height="12"></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td align="center" class="awhite" style="background-color: #00aead; background-image: url('fsoimg/leadbottom.gif'); background-repeat: repeat; background-attachment: scroll; height: 19px; background-position: 0%">本程序由
贵财飞扬工作室 提供</td>
</tr>
</table>
<!--#include file="fsofoot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -