⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 houtai.asp

📁 这是一个文章管理的网页源程序
💻 ASP
字号:
<%
  if session("admin")="" then
  response.redirect "index.asp"
  
  end if
%>
<html>
<head>
<title>晨怡网景文章管理后台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--


function navChange(formName, popupName, target) {
	var popup = document[formName].elements[popupName];
	if (popup.options[popup.selectedIndex].value != "") {
		window.open(popup.options[popup.selectedIndex].value, target);
		popup.selectedIndex=0;}}
//-->
</script>
<link rel="stylesheet" href="new.css">
<style type="text/css">
<!--
-->
</style>

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload='dual();javascript:("ols_send_word","status=0,scrollbars=0,resizable=0,width=10,height=10")'>
<div align="center">
  <p>
  <%dim conn   
dim connstr
on error resume next
connstr="DBQ="+server.mappath("mymdb/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
	 %>
  <% 
	dim rs,sql
	dim classid
	dim classname
   
  	set rs = server.createobject("adodb.recordset")
 
  	sql="select * from Aclass where classID="&cstr(classid)
 	rs.open sql,conn,1,1
 	if not rs.eof then
		classname=rs("class")
 	end if
	rs.close
%>
  <table style="table-layout:fixed" width="768" border="0" cellspacing="0" cellpadding="2" align="center">
    <tr> 
      <td width="150" bgcolor="#336699" valign="top"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td colspan="2">&nbsp;</td>
          </tr>
          <tr> 
            <td class="td2" colspan="2" bgcolor="#336699"  > 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td bgcolor="#336699"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" dwcopytype="CopyTableRow" bgcolor="#66CCFF" align="center">
                      <tr align="center"> 
                        <td   >当前用户 </td>
                        <td   ><%=session("admin")%></td>
                      </tr>
                      <tr align="center"> 
                        <td  >站内身份</td>
                        <td  > 
                          <%if session("flag")=1 then%>
                          管 理 员 
                          <%else%>
                          <% if session("flag")=2 then%>
                          高级用户 
                          <%else%>
                          普通用户 
                          <%end if%>
                          <%end if%>
                        </td>
                      </tr>
                      <tr align="center"> 
                        <td  ><a href="favorite.asp"> </a>站内积分</td>
                        <td  > <%=rs("score")%>分</td>
                      </tr>
                      <tr align="center"> 
                        <td  ><a href="favorite.asp">个人收藏</a></td>
                        <td  ><a href="writedit.asp">个人信息</a></td>
                      </tr>
                      <tr align="center"> 
                        <td  ><a href="manage.asp">后台管理 </a></td>
                        <td  ><a href="logout.asp">退出系统 </a></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td colspan="2" >&nbsp;</td>
          </tr>
        </table>
        <br>
      </td>
    </tr>
  </table>


  
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -