adminareanew.asp

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

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

<!-- #include file="cnOpen.asp" -->
<!-- #include file="AdminTable.htm" -->
<%
Dim rsAdd
Set rsAdd = Server.CreateObject("ADODB.RecordSet")
If Request("txtAreaName") = "" Then 
%>
<form method="POST" action="AdminAreaNew.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">
      </td>
    </tr>
    <tr>
      <td width="100%" colspan="2" height="46" align="center">
        <input type="submit" value="提交" name="B1">&nbsp;&nbsp; 
        <input type="reset" value="重置" name="B2">
      </td>
    </tr>
  </table>

</form>
<%
Else
  rsAdd.Open "INSERT INTO Lily_Area(AreaName) VALUES('"&_
     Request("txtAreaName")&"')",cn
  %>
  <p align="center"><font color="red">成功新增讨论区</font></p>
  <!-- #include file="AdminAreaList.asp" -->
<%  
End If
Set rsAdd = Nothing  
%>
<!-- #include file="cnClose.asp" -->

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