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 %>