index.asp

来自「数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计」· ASP 代码 · 共 32 行

<!--#include file="conn.asp"-->
<!--#include file="../inc/func2.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/sqlin.asp"-->

<%
'**************** 后台管理系统首页 *************
'** File: admin/index.asp V1.0 2005.05.08
'** Author: wwxbei
'***********************************************

if Request.Form("isadminlogin")="adminlogin" then
	Call DBConnBegin()
	Sql="select * from admin where name='"&GetSafeStr(Request.Form("adminname"))&"' and password='"&md5(GetSafeStr(Request.Form("adminpass")))&"'"
	set Rs=conn.execute(Sql)
	if Rs.EOF then
		GoError "用户名或密码错误！<br>如果您不是管理员，请不要再尝试登录！"
		Response.End
	else
		session("isAdminLoged")="logined"
	end if
	Call DBConnEnd()
End if

if session("isAdminLoged")<>"logined" then
	Response.Write FSOFileRead("../html/admin_login.txt")
	Response.End
End if

Response.write FSOFileRead("../html/admin_index.txt")
%>