addcat.asp

来自「·用JAVA实现的对动态树状信息的管理。操作员可以通过IE浏览器查看整个树形结构」· ASP 代码 · 共 70 行

ASP
70
字号
<%
if session("admin")="" then
objconn.close
  set objconn=nothing
  response.redirect "../default.asp"
end if
%>
<!--#include file="dbpath.asp"-->
<%dim objrs,sql
if Request.QueryString("admin")="admin" then
if request.form("catname")="" then 
response.write "error:please input catgory name!"
response.end
end if
set objrs=server.createobject("adodb.recordset")
sql="select * from cat" 
objrs.open sql,objconn,1,3
objrs.addnew
objrs("catname")=request.form("catname")
objrs.update
objrs.close
objconn.close
set objrs=nothing
set objconn=nothing
response.redirect "main.asp"
else
%>

<head>
<link rel="stylesheet" type="text/css" href="../links.css">
</head>

<body>
<center>
  <p>&nbsp;</p>
  <form name="form1" method="post" action="addcat.asp?admin=admin">
    
     
    <table width="400" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000" bordercolordark="#FFFFFF">
      <TBODY> 
      <tr> 
        <td background="../images/background.gif" height="20" align="center" colspan="2"><b>增加分类</b></td>
      </tr>
      <tr> 
        <td width="150" align="right"> 分类名称:</td>
        <td> 
          <input type="text" name="catname" class="smallinput" size="30" maxlength="50">
        </td>
      </tr>
      <tr> 
        <td colspan="2"> 
          <div align="center"><br>
            <input type="submit" name="Submit" value="增加" class="buttonface">
            <input type="reset" name="Submit2" value="返回" class="buttonface" onClick="history.go(-1)">
            <br>
            <br>
          </div>
        </td>
      </tr>
    </table> 
   
  
  </form> 
  </center><%end if%> 
  
  <P align=center>制作:<a href="http://www.huamed.com/gallery">Galleryit Pro 3.0.0</a></p> 
<P align=center>来源:<a href="http://bbs.5iasp.com">http://bbs.5iasp.com</a></p> 
<P align=center>汉化:<a href="http://www.youilove.com">ORPIN</a></p> 

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?