adminareanew.asp
来自「网站的源码」· ASP 代码 · 共 42 行
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">
<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" -->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?