28,405
社区成员
发帖
与我相关
我的任务
分享
<!--#include file="../conn/conn.asp" -->
<%
Dim rs,sqlstr,sname,spwd
sname=request.Form("sname")
spwd=request.Form("spwd")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from adus where sname='"+sname+"' and spwd='"+spwd+"'"
rs.open sqlstr,conn,1,1
If rs.eof then
response.write "<script lang=javascript>alert('用户名或者密码错误,请重新输入');javascript:history.go(-1) </script>"
Else
session("admin")="ok"
session("sname")=sname
End If
response.redirect"index.asp"
%>
<!-- #include file="../conn/conn.asp" -->
<%
If session("admin")<>"ok" Then
response.write "需要管理员权限"
else
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title> 天御后台管理 </title>
<meta name="generator" content="editplus" />
<meta name="author" content="119" />
<meta name="keywords" content="" />
<meta name="description" content="www.showmoney.net.cn" />
<link href="css/man.css" type="text/css" media="all" rel="stylesheet">
</head>
<body>
......
<%
if session("UserName") = "" then
Response.Write("<script language='javascript' type='text/javascript'>alert('对不起,您尚未登录');</script>")
response.redirect("login.asp") 'login.asp就是登录的页面
end if
%>