typecontrol.asp

后台管理系统是用来对后台进行管理的系统可以进行一系列管理活动

<%
if session("login")<>1 then
response.redirect("index.asp")
end if
%>
<!--#include file="adovbs.inc"-->
<!--#include file="conn.asp"-->
<%
set rs=conn.execute("select*from designtype order by typeid")
%>
<table width="80%" boder="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<tr bgcolor="#ffffff">
<td align="center">[类型编号]</td>
<td align="center">[类型名称]</td>
<td colspan="2" align="center">[操作]</td>
</tr>
<%
do while not rs.eof
%>
<tr bgcolor="#ffffff">
<td align="center"><%=rs("typeid")%></td>
<td align="center"><%=rs("typename")%></td>
<td align="center"><a herf="edittype.asp?typeid=<%=rs("typeid")%>" 
style="text-decoration:none">修改</a></td>
<td align="center"><a herf="typecontrol.asp?action=deltypepost&typeid=<%=rs("typeid")%>" 
style="text-decoration:none">删除</a></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
set conn=nothing
%>
</tr>
</table>
<table  boder="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<form method="post" action="typecontrol.asp?action=addtypepost" name="form1" onsubmit="return submitcheck()">
<tr>
<td colspan="3">增加新的类型: </td>
</tr>
<td bgcolor="#ffffff">类型名称: </td>
<td bgcolor="#ffffff"><input name="typename" type="text" id="typename" size="11"></td>
<td bgcolor="#ffffff"><input type="submit" name="Submit" value="确认">
<input type="reset" name="Submit2" value="复位"></td>
</tr>
</form>
</table>
<script language="javascript">
<!--//
function submitcheck()
{if(form1.typename.value=="")
{window.alert("请填写类型名称！");
form1.typename.focus();
return false;}
}
-->
</script>
<%
action=request("action")
if action="addtypepost" then
set rs=server.createobject("adodb.recordset")
sql="select*from designtype"
rs.open sql,conn,1,3
rs.addnew
rs("typename")=server.htmlencode(request("typename"))
rs.update
rs.close
set rs=nothing
end if
%>
<%
action=request("action")
if action="deltypepost" then
typeid=request("typeid")
strsql1="delete from designtype where typeid="&typeid
conn.execute strsql1
end if
%>