productclass_list.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<%
FunCode="F999"
session("title")="产品类别管理"
session("headline")="首页 -> 注册系统 -> 产品类别管理"
%>
<!--#include file="../inc/head2.asp"-->
<%



ProductAction = request("ProductAction")
select case ProductAction
	case	"del"
			sql = "select * from product where class='"&request("ID")&"'" 
	set rsp = conn.execute(sql)
	if rsp.eof then
		conn.execute ("delete from productclass where id='"&request("ID")&"'")
	else
		response.write"<SCRIPT language=JavaScript>alert('该还有该类别的产品,请先删除本类型的产品！');</script>"
	end if
		call List()
	case	"add_pre"
		call Add_Pre()
	case	"add"
		call	Add()
		call	List()
	case	"edit_pre"
		call	Edit_Pre()
	case	"edit"
		call	Edit()
		call	List()
	case	else
		call List()
end select


sub Edit()
ID=request("ID")
strclass=request("strclass")
strDetail=request("detail")
listID=request("ListID")

if ID="" or listID="" or strclass="" or listID=""  then
	session("mesg")="输入域都不能为空"
	Response.Redirect "../result.asp"
end if

'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from productClass where id='"&ID&"'"
rs.open sql,conn,1,3

if rs.eof then
	session("mesg")="该ID的产品类型不存在"
	Response.Redirect "../result.asp"
end if

rs("listID")=listID
rs("class")=strClass
rs("detail")=strDetail

rs.update
rs.close
set rs=nothing
end sub


sub Edit_Pre()
call Check()
set rs=server.createobject("adodb.recordset")
sql="select * from productClass where ID='"&request("ID")&"'"
rs.open sql,conn,1,1
%>
<br><br><br>
<form method='POST' action='productClass_list.asp' name="F1" onsubmit='return check_input()'>
    <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=40% class='size09' align='center'>
      
	<tr>
		<td width='25%' bgcolor='#efefef'>类别编码*</td>
		<td width='25%'><%=rs("ID")%>
		<input type="Hidden" name="ProductAction" value="edit">
		<input type='hidden' class='form' name='ID' value='<%=rs("ID")%>'>
	</td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>排序*</td>
		<td width='25%'>
<input type='text' class='form' name='listID' size='5' maxlength="5" value='<%=rs("listID")%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>类别*</td>
		<td width='25%'><input type='text' class='form' name='strclass' size='20' value='<%=rs("class")%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>类别说明*</td>
		<td width='25%'><input type='text' class='form' name='detail' size='20' value='<%=rs("detail")%>'></td>

	</tr>
</table>
<p align='center'><input type='submit' value='修  改' name='B1'></p>
</form> 
<%rs.close
set rs=nothing
end sub

sub Add()
ID=request("ID")
strclass=request("strclass")
strDetail=request("detail")
listID=request("ListID")

if ID="" or listID="" or  strclass="" or listID=""  then
	session("mesg")="输入域都不能为空"
	Response.Redirect "../result.asp"
end if


'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from productClass where ID='"&ID&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs.close
set rs=nothing
session("mesg")="已经存在编码为["&ID&"]的产品类别"
session("mesgtype")="mesg"
Response.Redirect "../result.asp"
end if
rs.addnew

rs("ID")=ID
rs("listID")=listID
rs("class")=strClass
rs("detail")=strDetail

rs.update
rs.close
set rs=nothing

end sub



sub Add_Pre()
Call Check()
%>
<br><br><br>

<form method='POST' name="F1" action='productClass_list.asp' onsubmit='return check_input()'>
    <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=40% class='size09' align='center'>
      
	<tr>
		<td width='25%' bgcolor='#efefef'>类别编码*</td>
		<td width='25%'>
		<input type="Hidden" name="ProductAction" value="add">
<input type='text' class='form' name='ID' size='5' maxlength="5" value='P'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>显示ID*</td>
		<td width='25%'>

<input type='text' class='form' name='listID'  size='5' maxlength="5"  value=''></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>类别*</td>
		<td width='25%'><input type='text' class='form' name='strclass' size='20' value=''></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>类别说明*</td>
		<td width='25%'><input type='text' class='form' name='detail' size='20' value=''></td>

	</tr>
</table>
<p align='center'><input type='submit' value='增   加' name='B1'></p>
</form> 


<%
end sub

sub List()
set rs=server.createobject("adodb.recordset")
	sql="select * from productclass order by ListID"
	rs.open sql,conn,1,1
%>
<br>
<img src='../images/dotdb.gif' width='10' height='10'> 
            <font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>类型编号</td><td class='color01' bgcolor='#efefef'>排序</td><td class='color01' bgcolor='#efefef'>类别名称</td><td class='color01' bgcolor='#efefef'>类别说明</td><td class='color01' bgcolor='#efefef'>删除</td><td class='color01' bgcolor='#efefef'>修改</td><td class='color01' bgcolor='#efefef'>显示下一级</td></tr>

<% 
i=1
do while not rs.eof %> 
<tr><td><%=rs("ID")%></td><td><%=rs("ListID")%></td><td><%=rs("class")%></td><td><%=rs("detail")%></td>
<form action="productClass_list.asp"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><input type="Hidden" name="ProductAction" value="del"><td><input type='submit' value='删  除' name='B1' class=form></td></form>
<form action="productClass_list.asp"><input type="Hidden" name="ProductAction" value="edit_pre"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><td><input type='submit' value='修  改' name='B1' class=form></td></form>
<form action="product_list.asp"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><td><input type='submit' value='下一级' name='B1' class=form></td></form></tr>
<%                                                                                              
          rs.movenext                                                                                                  
		  loop                                                                    
           %>

<tr><form method='POST' action='productClass_list.asp' ><input type="Hidden" name="ProductAction" value="add_pre">
<td colspan="7" align="center"> <input type='submit' value='增    加' name='B2'></td></form>
</tr>

</table>

<%
rs.close                                                                                                
          set rs=nothing                                                                                                
          conn.close                                                                                                
          set conn=nothing
end sub

sub Check()
%>
<script language='JavaScript'>
<!--
function check_input()
	{
		pedit=document.F1;
		
		if(pedit.ID.value=='')
		{
			alert('类别编号不能为空');
			pedit.ID.focus();
			return false;
		}
		
		if(pedit.listID.value=='')
		{
			alert('排序不能为空');
			pedit.listID.focus();
			return false;
		}
		if(isNaN(pedit.listID.value))
		{
			alert('排序只能为数字');
			pedit.listID.focus();
			return false;
		}
		if(pedit.strclass.value=='')
		{
			alert('类名不能为空不能为空');
			pedit.strclass.focus();
			return false;
		}
		if(pedit.detail.value=='')
		{
			alert('为别说明不能为空');
			pedit.detail.focus();
			return false;
		}
		return true;
	}
	
//-->	
</script>
<%
end sub
%>
<!--#include file="../inc/bottom2.asp"-->