www.gusucode.com > 521yy迷你留言板 1 > 521yy迷你留言板 1.0/51yyfeedback/feedback/inc/msg.asp

    <%
sitename="歪歪网络"
sub admin_login()
adminname=trim(request.form("adminname"))
adminpass=trim(request.form("adminpass"))
if adminname<>"" and adminpass<>"" then
			set rs=server.createobject("adodb.recordset")
			rs.open "select * from manager where adminname='"&adminname&"' and adminpass='"&adminpass&"'",conn,1,1
		if rs.eof then
			response.write "用户名或密码错误!"
		else
            session("adminname")=rs("adminname")
			session("grade")=rs("grade")
			response.write "登陆成功!"&ref("admin_index.asp",0)
			response.end
		end  if
end if
end sub
sub manager(grade,adminname,i)
if grade<>"" and i<>"" and adminname<>"" then
if grade<>i and grade>i then
response.write"<center><br><br><br>提示信息:<font color=red>此项操作只有超级管理员才能完成!"&ref("javascript:history.back()",3)
response.end
end if
else
response.write"<center><br><br><br>提示信息:<font color=red>请确认您的管理员身份!"&adminname&"-"&grade&"-"&i&"<br>"&ref("admin_login.asp",3)
response.end
end if
end sub
function admingrade(grade)
select case grade
case 1
response.write "超级管理员"
case 2
response.write "网址管理员"
case list
response.write"<option value=1>超级管理员</option>"

end select
end function
'==========================================
function ref(url,i)
response.write"<meta http-equiv=refresh content="&i&";URL="&url&">"
response.write"<center><br><font color=red>"&i&"</font> 秒后自动返回 ....如不想等待请<a href="&url&">点击</a></center>"
end function

function msg(num)
select case num
case 1
response.write"<center><font color=red>大类添加成功!<a href=admin_kinds1.asp>点击继续</a></font></center>"
response.write ref("admin_kinds1.asp",2)
case 2
response.write"<center><font color=red>二类添加成功!<a href=admin_kinds2.asp?kindid1="&kindid1&">继续</a></font></center>"
response.write ref("admin_kinds2.asp?kindid1="&kindid1&"",2)
case 3
response.write"<center><font color=red>大类修改成功!<a href=admin_kinds1.asp>点击继续</a></font></center>"
response.write ref("admin_kinds1.asp",2)
case 4
response.write"<center><font color=red>二类修改成功!<a href=admin_kinds2.asp?kindid1="&kindid1&">继续</a></font></center>"
response.write ref("admin_kinds2.asp?kindid1="&kindid1&"",2)
case 5
response.write"<center><font color=red>网址添加成功!<a href=admin_url.asp?kinds1="&kinds1&"&kinds2="&kinds2&">继续添加</a></font></center>"
response.write ref("admin_url.asp?kinds1="&kinds1&"&kinds2="&kinds2&"",2)
end select
end function

function errmsg(num)
select case num
case 1
response.write "程序发生未知错误,请与<a href=mailto:haoqi123com@163.com>管理员</a>联系"
response.end
case 2
response.write ""
case 3
response.write " 此记录已经存在,不能完成您的请求!<a href=javascript:history.back()>继续</a>"
response.write ref("javascript:history.back()",3)
case 4
response.write"请填写大类名称!"
response.write ref("admin_kinds1.asp",2)
case 5
response.write""
end select

end function

%>