📄 admin_bigclass.asp
字号:
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/access.asp"-->
<%
NBigIndexNO = request("NBigIndexNO")
subname = request("subname")
action = request("action")
BigIndexNO = request("BigIndexNO")
BigName = request("BigName")
BigNote = request("BigNote")
if action = "add" and subname <> ""then
action = "add"
if trim(BigIndexNO) = "" or trim(BigName) = "" or trim(BigNote) = "" then
response.write "<script>alert('请检查 大类编号，大类名，备注是否为空！');history.go(-1);</script>"
response.end
end if
sql = "select * from BigClass where BigIndexNO = '"&BigIndexNO&"'"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
response.write "<script>alert('大类编号不能重复');</script>"
else
sql = "insert into BigClass (BigIndexNO,BigName,BigNote) values ('"&BigIndexNO&"','"&BigName&"','"&BigNote&"')"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
response.write "<script>alert('加入类成功');</script>"
end if
end if
if request("action") = "add" then
action = "add"
submittext = "添加"
else
action = "add"
submittext = "添加"
end if
if request("action") = "delete" then
action = "add"
submittext = "添加"
sql = "select * from BigClass where BigIndexNO = '"&NBigIndexNO&"'"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof or rs.bof then
response.write "<script>alert('该大类编号不存在');</script>"
else
sql = "delete * from BigClass where BigIndexNO = '"&NBigIndexNO&"'"
conn.execute(sql)
sql = "delete * from subClass where BigIndexNO = '"&NBigIndexNO&"'"
conn.execute(sql)
response.write "<script>alert('删除成功');</script>"
end if
end if
if request("action") = "edit" and subname <> "" then
if trim(BigIndexNO) = "" or trim(BigName) = "" or trim(BigNote) = "" then
response.write "<script>alert('请检查 大类编号，大类名，备注是否为空！');history.go(-1);</script>"
response.end
end if
sql = "select * from BigClass where BigIndexNO = '"&NBigIndexNO&"'"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
response.write "<script>alert('该大类编号不存在');</script>"
else
sql = "update BigClass set BigIndexNO = '"&BigIndexNO&"',BigName = '"&BigName&"',BigNote = '"&BigNote&"' where BigIndexNO = '"&NBigIndexNO&"'"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
response.write "<script>alert('编辑成功');</script>"
end if
end if
if request("action") = "edit" then
action = "edit"
submittext = "编辑"
else
action = "add"
submittext = "添加"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>后台管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=MSThemeCompatible content=Yes>
<LINK href="images/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.0" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<BR>
<TABLE cellSpacing=0 cellPadding=1 width=650 align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR class=m_title>
<TD align=center>大类编号</TD>
<TD align=center>大类名</TD>
<TD align=center>备注</TD>
<TD align=center>操作</TD>
</TR>
<%
sql = "select * from BigClass order by BigIndexNO asc"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof and not rs.bof
if action = "edit" then
if BigIndexNO = rs("BigIndexNO") then
OBigIndexNO = rs("BigIndexNO")
OBigName = rs("BigName")
OBigNote = rs("BigNote")
end if
end if
%>
<TR class=line_1 align="center">
<TD noWrap><a href=?action=edit&BigIndexNO=<%=rs("BigIndexNO")%>><%=rs("BigIndexNO")%></a></TD>
<TD noWrap><%=rs("BigName")%></TD>
<TD noWrap><%=rs("BigNote")%></TD>
<TD noWrap><a href=?action=edit&BigIndexNO=<%=rs("BigIndexNO")%>>编辑</a> <a href='?'>添加</a> <a href='?action=delete&NBigIndexNO=<%=rs("BigIndexNO")%>' onclick='return confirm("确认删除?")'>删除</a></TD>
</TR>
<%
rs.movenext
loop
%>
<TR class=line_1>
<form method="post" action="?action=<%=action%>">
<TD align=center><input type="text" name="BigIndexNO" size="10" value="<%=OBigIndexNO%>"><input type="hidden" name="NBigIndexNO" size="10" value="<%=OBigIndexNO%>"></TD>
<TD align=center><input type="text" name="BigName" size="10" value="<%=OBigName%>"></TD>
<TD align=center><input type="text" name="BigNote" size="15" value="<%=OBigNote%>"></TD>
<TD align=center><input type="submit" name="subname" value="<%=submittext%>"></TD>
</form>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<BR><BR>
<BR>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -