adminareaedit.asp

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

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

<!-- #include file="cnOpen.asp" -->
<!-- #include file="AdminTable.htm" -->
<%
Dim rsEdit
Set rsEdit = Server.CreateObject("ADODB.RecordSet")
If Request("AreaID") <> "" Then
  Session("AreaID") = Request("AreaID")
%>
<form method="POST" action="AdminAreaEdit.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="txtAreaName" size="20" value=<%=Request("AreaName")%>></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_Area SET AreaName='"&Request("txtAreaName")&"' WHERE AreaID="&Session("AreaID"),cn
  %>
  <p align="center"><font color="red">成功修改讨论区</font></p>
  <!-- #include file="AdminAreaList.asp" -->
<%  
End If
Set rsEdit = Nothing  
%>
<!-- #include file="cnClose.asp" -->

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