www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/check.asp

    <!--#include file="conn.asp"-->

<%
	dim myadmin
	dim errorid
	errorid = 0
	myadmin = session("lyj_admin")
	if myadmin <> "" then
		set rs=server.CreateObject("adodb.recordset")
		rs.Open "select * from adminuser where sqlindex=" & myadmin & " and sqlflag=1 ",conn,1,1
		if (rs.bof or rs.eof) then
			errorid = 1
		end if
	else
		errorid = 2
	end if
	if errorid <> 0 then
%>
<link href="style.css" rel="stylesheet" type="text/css">
<form name="admininfo" method="POST" >
  <div align="center"> 
    <table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
      <tr> 
        <td background="img/bj_6.gif" height="29"> <table cellspacing=0 cellpadding=0 width=170 height="20">
            <tr> 
              <td width=5>&nbsp;</td>
              <td width=28> <div align="center"></div></td>
              <td class=hg12 valign=bottom width="123">&nbsp;<font color="#990000"><b>权限检测出错</b></font></td>
              <td width=12>&nbsp;</td>
            </tr>
          </table></td>
      </tr>
    </table>
    <div align="center"> 
      <table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td background="img/bj_7.gif" height="29"> <p align="center"><br>
              <br>
<%
		select case errorid
			case 1
				response.write("您还没有登录，请先登录。")
			case 2
				response.write("您还没有登录，请先登录。")
		end select
%>
            </p>
            <p align="center"> 
              <input type="button" name="Submit" value="返回" onClick="window.location.href='index.asp'">
            </p>
            <p> <br>
            </p></td>
        </tr>
      </table>
      <table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td background="img/bj_8.gif" height="23">&nbsp; </td>
        </tr>
      </table>
    </div>
  </div>
</form>
<%
	response.end
	end if
%>