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

📄 mb_manage.asp

📁 blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================
💻 ASP
字号:
<!--#include file="../conn.asp" -->
<!--#include file="admin_lib.asp" -->
<%
'==============================
'checkadmin
    Username=Session("username"&dlog_session)
    Password=Session("password"&dlog_session)
    if username="" or password="" then
            Username=replace(request.Cookies(dlog_cookies_name)("Username"),"'","")
            Password=replace(request.Cookies(dlog_cookies_name)("Password"),"'","")
    end if
    sql= "SELECT isad FROM User_MDB where username = '" & Username & "' and password='" & Password & "'"
    set rs_inc=conn.Execute(sql)
            if not (rs_inc.BOF or rs_inc.eof) then
                ulogin="true" 
            Session("username"&dlog_session) = Username
            Session("password"&dlog_session) = Password
            Session("isad"&dlog_session)=rs_inc("isad")

                isad=Session("isad"&dlog_session)       
            end if
            rs_inc.Close()
        set rs_inc=nothing
  if isad<>-1 then
    Redirect "index.asp","不是真正管理员哦"
  end if
'==============================
%>
<%

%>
<html>
<head>
<title>DLOG | 模版管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../styles.css"></head>
<body  bgcolor="#ffffff" topmargin="0" leftmargin="0" style="OVERFLOW: auto"> 
<table width="728" border="0" cellpadding="4" cellspacing="0" bgcolor="#CCCCCC">
  <tr> 
    <td><b>DLOG | 模版管理</b> <b></b></td>
  </tr>
  <tr> 
    <td bgcolor="#f2f2f2">已有模版列表:</td>
  </tr>
</table>
<%
sql="SELECT * from moban ORDER BY m_id"
set tempc=conn.EXECUTE(sql)
do while not tempc.eof
%>
<table width="728" border="0" cellpadding="4" cellspacing="0" style="border-bottom:#dddddd 1px solid">
  <tr> 
    <td width="200" align="center" ><img src='<%=tempc("preview_img")%>' onerror="this.outerHTML='[无缩略图]';"></td>
    <td valign="top">模版名称: <b><%=tempc("m_title")%></b><br>
      最后编辑时间:<%=tempc("end_time")%><br>
      <a href="editmbcode.asp?m_id=<%=tempc("m_id")%>"><b>编辑模版html代码</b></a> | 
      <%if tempc("m_id")=1 then%>
      ... 
      <%else%>
      <a href="editmbcode.asp?savemb=true&saveaction=save_del&m_id=<%=tempc("m_id")%>">删除该模版</a> 
      <%end if%>
      </td>
  </tr>
</table>

  <%
tempc.MoveNext
Loop
%>


<table width="728" border="0" cellpadding="4" cellspacing="0" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#f3f3f3">添加新的模版:<b></b></td>
  </tr>
</table>
<table width="728" border="0" cellpadding="2" cellspacing="0">
  <form name="form1" method="post" action="editmbcode.asp">
    <tr> 
      <td>名称: 
        <input name="m_title" type="text" maxlength="20" class="bk">
      缩略图地址: 
        <input name="preview_img" type="text" size="30" class="bk">
      </td>
      <td right="right"> 
        <input type="hidden" name="saveaction" value="save_as" id="saveaction">
        <input name="savemb" type="hidden" id="savemb" value="true">
        <input type="submit" name="Submit" value=" 保 存 ">
      </td>
    </tr>
    <tr> 
      <td colspan="2">
        <textarea name="m_html" cols="100%" rows="20" style="PADDING: 5px;OVERFLOW: auto;width:100%;border:#cccccc 1px inner"><%covhtml(m_html)%>
</textarea>
      </td>
    </tr>
  </form>
</table>

</body>
</html>
<%
tempc.close
set tempc=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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