adminboardedit.asp

来自「网站的源码」· ASP 代码 · 共 40 行

<!-- #include file="..\Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<!-- #include file="AdminTable.htm" -->
<%
Dim rsEdit
Set rsEdit = Server.CreateObject("ADODB.RecordSet")
If Request("BoardID") <> "" Then
  Session("BoardID") = Request("BoardID")
  Session("BoardName") = Request("BoardName")
%>
<form method="POST" action="AdminBoardEdit.asp">

  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" align="center" height="93">
    <tr>
      <td width="50%" height="46" align="right">请输入新的版面名称：</td>
      <td width="50%" height="46" align="center"><input type="text" name="txtBoardName" size="20" value=<%=Request("BoardName")%>></td>
    </tr>
    <tr>
      <td width="100%" colspan="2" height="46">
      <p align="center"><input type="submit" value="提交" name="B1">&nbsp;&nbsp; <input type="reset" value="重置" name="B2"></td>
    </tr>
  </table>

</form>
<%
Else
  rsEdit.Open "Update Lily_Board SET BoardName='"&Request("txtBoardName")&"' WHERE BoardID="&Session("BoardID"),cn
  rsEdit.Open "Update Lily_Article SET BoardName='"&Request("txtBoardName")&"' WHERE BoardName='"&Session("BoardName")&"'",cn
  rsEdit.Open "Update Lily_Reply SET BoardName='"&Request("txtBoardName")&"' WHERE BoardName='"&Session("BoardName")&"'",cn
  %>
  <p align="center"><font color="red">成功修改版面</font></p>
  <!-- #include file="AdminBoardList.asp" -->
<%  
End If
Set rsEdit = Nothing  
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="..\Bottom.htm" -->