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

📄 inboxmodify.asp

📁 中文bux点击站源码。配合其他站点用
💻 ASP
字号:
🔍 
<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

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

<%
  rs.Open "Select * From mailrecord order by ID",Conn
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
  <table border="1" cellspacing="1" width="100%" bordercolor="#0033CC">
    <tr>
      <td width="100%" height="31" bgcolor="#FFCC00"><b>修改站内邮件</b></td>
    </tr>
    <tr>
      <td width="100%">
        <div align="center">
          <table border="1" cellspacing="1" width="100%" bordercolor="#A50F18">
            <tr>  
              <td height="30" align="center">编号</td>  
              <td height="30" align="center">主题</td>  
              <td height="30" align="center">内容</td>  
              <td height="30" align="center">格式</td>
              <td height="30" align="center">紧急程度</td>
              <td height="30" align="center">发送时间</td>
              <td height="30" align="center">有效性</td> 
              <td height="30" align="center">会员级别</td>  
              <td height="30" align="center">VIP级别</td>   
              <td height="30" align="center">修改</td>  
            </tr>
            <%
              While Not rs.EOF
              MailID = rs ("ID")
              MailSubject = rs ("MailSubject")
              MailBody = rs ("MailBody")
              MailFormat = rs ("MailFormat")
              MailPriority = rs ("MailPriority")
              SendTime = rs ("SendTime")
              MailValid = rs ("MailValid")
              MemberShipLimit = rs ("MemberShipLimit")
              VIPLimit = rs ("VIPLimit")
            %>
            <form method="POST" action="inboxmodify_do.asp">
            <tr>  
              <td height="30" align="center"><input type="hidden" name="MailID" value="<%= MailID %>"><%= MailID %></td>  
              <td height="30" align="center"><textarea rows="2" name="MailSubject" cols="20"><%= MailSubject %></textarea></td>  
              <td height="30" align="center"><textarea rows="2" name="MailBody" cols="50"><%= MailBody %></textarea></td>  
              <td height="30" align="center"><%= MailFormat %></td>
              <td height="30" align="center"><%= MailPriority %></td>
              <td height="30" align="center"><%= SendTime %></td>  
              <% If MailValid = True Then %>
              <td height="30" align="center">
                  <select name="MailValid">
                    <option value="True" selected>有效</option>
                    <option value="False">无效</option>
                  </select>
              </td>  
              <% Else %>
              <td height="30" align="center">
                  <select name="MailValid">
                    <option value="True">有效</option>
                    <option value="False" selected>无效</option>
                  </select>
              </td>  
              <% End If %>
              <td height="30" align="center"><input type="text" name="MemberShipLimit" size="3" value="<%= MemberShipLimit %>"></td>
              <td height="30" align="center"><input type="text" name="VIPLimit" size="3" value="<%= VIPLimit %>"></td>
              <td height="30" align="center">
              <input type="submit" value="修改" name="Button"></td>  
            </tr>
            </form>
            <%
              rs.MoveNext
              Wend
              rs.Close
              Set rs = nothing
              Conn.Close
              Set Conn = nothing
            %>
          </table>  
        </div>  
      </td>  
    </tr>
    <tr>
      <td width="100%" align="center"><a href="javascript:history.back();"><b>返回</b></a></td>
    </tr> 
  </table>  
</div>

</body>

</html>

⌨️ 快捷键说明

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