📄 class_customer.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!--#include file="admin.asp" -->
<!-- #include file="Inc/Head.asp" -->
<%
'管理员删除大版-----------
if Request("del_classid")<>"" then
'conn.execute("delete from Info where InfoClassid="&Request("del_classid")) '先删除信息内容
conn.execute("delete from customer_class where id="&Request("del_classid")) '删除大类
end if
'删除结束---------------
'新增大版begin----
if Request("classname")<>"" then
sql="select * from customer_class"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust.addnew
'rscust("paixu")=cint(Request("paixu"))
rscust("classname")=Request("classname")
rscust.update
set rscust=nothing
end if
'新增大版end----
'大版块改名-----------
if Request("action")<>"" then
sql="select * from customer_class where id="&Request("classid")
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
'if Request("paixu")<>"" then
' rscust("paixu")=cint(Request("paixu"))
'end if
if Request("class_rename")<>"" then
rscust("infoclass")=Request("class_rename")
end if
'if Request("image")<>"" then
'rscust("image")=Request("image")
'end if
'if Request("ishome")<>"" then
'rscust("ishome")=True
'else
'rscust("ishome")=False
'end if
rscust.update
set rscust=nothing
end if
'大版块改名结束---------------
'删除结束---------------
function del_img(path,filename)
whichfile=server.mappath(path&filename)
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.GetFile(whichfile)
thisfile.Delete True
end function
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function cform(){
if(!confirm("您确认删除吗? 请注意删除后无法恢复!"))
return false;
}//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="96%" border="0" align="center" class="px14">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" bgcolor="#3366CC"><font color="#FFFFFF">客 户 类 别 管 理</font></td>
</tr>
</table>
<br>
<table width="96%" border="0" align="center" class="px14">
<tr valign="top" bgcolor="#EFEFEF">
<td width="33%"><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#CCCCCC">删除类别</td>
</tr>
<tr>
<td height="100" valign="top"> <form name="form1" method="post" onsubmit="return cform()">
<table width="100%" border="0">
<tr>
<td width="34%" align="right">选择类别</td>
<td width="66%"> <%
sql="select * from customer_class"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%>
<select name="del_classid" class="input">
<%do while not rscust.eof %>
<option value="<%= rscust("id") %>"><%= rscust("classname") %></option>
<% rscust.movenext
loop
set rscust=nothing%>
</select></td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit" value="删除类别"></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
</table></td>
<td width="33%"><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#CCCCCC">增加类别</td>
</tr>
<tr>
<td height="100" valign="top"> <form name="form2" method="post" action="">
<table width="100%" border="0">
<tr>
<td width="25%" align="right">简名</td>
<td width="75%"><input name="classname" type="text" class="input" id="classname" maxlength="50">
</td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit2" value="增加类别"></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -