adminboardnew.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("txtBoardName") = "" Then
  Session("AreaID") = Request("AreaID") 
%>
<form method="POST" action="AdminBoardNew.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">
      </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_Board(BoardName,AreaID) VALUES('"&_
     Request("txtBoardName")&"',"&Session("AreaID")&")",cn
  %>
  <p align="center"><font color="red">成功新增版面</font></p>
  <!-- #include file="AdminBoardList.asp" -->
<%  
End If
Set rsAdd = Nothing  
%>
<!-- #include file="cnClose.asp" -->

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