p_class_body.asp

某展览服务公司网站源码： 为达到最佳效果

        </form>
</table>
	  <%End if
if request.QueryString("action")="del" then
if request.querystring("id")="" then
  errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
  Call diserror()
  response.End
else
  if Not isinteger(request.querystring("id")) then
    errmsg=errmsg+"<br>"+"<li>非法的ID参数！"
	Call diserror()
	response.End
  End if
End if
sql="select * from p_class where p_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
      <table align="center" width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="del" id="del">删除栏目大类</a>&nbsp;&nbsp;注意：删除分类将同时删除分类内容,建议你使用修改功能！</font></td>
          </tr>
          <tr> 
            
      <td bgcolor="#FFFFFF" class="chinese">分类名称: </td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除"> 
              [<a href="admin_p_class.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("p_id")%>">
          <input type="hidden" name="action" value="del">
          <input type="hidden" name="MM_insert" value="true">
        </form>
</table>
	  <%End if%>
      	
       <%'这里用来对二级分类进行添加，修改，删除管理操作！
	   if request.QueryString("action")="p" then%>
      <table align="center" width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="adds" id="adds">添加二级分类</a></font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese">所属大类：
			<select name="p_type" id="p_type">
				<% 
			'###############取出类别分类#################
			dim sql_p,rs_p
			p_type=request.QueryString("p_type")
			sql_p="select p_type from p_class"
            set rs_p=server.createobject("adodb.recordset")
            rs_p.open sql_p,conn,1,1
			if Not(rs_p.BOF and rs_p.EOF) then 
			Do While Not rs_p.EOF 
			  %>
                <option value="<%= rs_p("p_type") %>" <% if rs_p("p_type")=p_type then Response.Write("selected") End if %>><%= rs_p("p_type") %></option>
                <% 
			  rs_p.movenext
			  loop
			  rs_p.close
			  set rs_p=Nothing
			  'conn.close
			  'set conn=Nothing
			  End if
			'####################取出分类结束#####################  
			  %>
              </select>
			</td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF" class="chinese">分类名称 :
            <input name="p_small_type" type="text" class="textarea" id="p_small_type"  size="20"></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center">
              <input type="submit" name="Submit2" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重填" class="button">
            </td>
          </tr>
		  <input type="hidden" name="action" value="p">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
</table>
	  <%End if
if request.QueryString("action")="edits" then
if request.querystring("id")="" then
  errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
  Call diserror()
  response.End
else
  if Not isinteger(request.querystring("id")) then
    errmsg=errmsg+"<br>"+"<li>非法的ID参数！"
	Call diserror()
	response.End
  End if
End if
sql="select * from p_class_small where p_small_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
      <table align="center" width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="edits" id="edits">修改二级分类</a></font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese">所属大类:
              
              <select name="p_type" id="p_type">
                <% 
			'###############取出类别分类#################
			dim sql_1,rs_1
			sql_1="select p_type from p_class"
            set rs_1=server.createobject("adodb.recordset")
            rs_1.open sql_1,conn,1,1
			if Not(rs_1.BOF and rs_1.EOF) then 
			Do While Not rs_1.EOF 
			  %>
                <option value="<%= rs_1("p_type") %>" <% if rs_1("p_type")=rs("p_type") then Response.Write("selected") End if %>><%= rs_1("p_type") %></option>
                <% 
			  rs_1.movenext
			  loop
			  rs_1.close
			  set rs_1=Nothing
			  'conn.close
			  'set conn=Nothing
			  End if
			'####################取出分类结束#####################  
			  %>
              </select></td>
          <tr>
            <td bgcolor="#FFFFFF" class="chinese">分类名称:
            <input name="p_small_type" type="text" class="textarea" id="p_small_type" value="<%=rs("p_small_type")%>" size="20"></td>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input type="submit" name="Submit" value="确定修改" class="button"> 
              <input type="reset" name="Reset" value="清空重填" class="button">
              [<a href="admin_p_class.asp">返回</a>] </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("p_small_id")%>">
		  <input type="hidden" name="action" value="edits">
          <input type="hidden" name="MM_insert" value="true">
        </form>
</table>
	  <%End if
if request.QueryString("action")="dels" then
if request.querystring("id")="" then
  errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
  Call diserror()
  response.End
else
  if Not isinteger(request.querystring("id")) then
    errmsg=errmsg+"<br>"+"<li>非法的ID参数！"
	Call diserror()
	response.End
  End if
End if
sql="select * from p_class_small where p_small_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
      <table align="center" width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="dels" id="dels">删除二级分类</a>&nbsp;&nbsp;注意：删除分类将同时删除分类内容,建议你使用修改功能！</font></td>
          </tr>
          <tr> 
            
      <td bgcolor="#FFFFFF" class="chinese">所属大类:　分类名称: </td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除"> 
              [<a href="admin_p_class.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("p_small_id")%>">
          <input type="hidden" name="action" value="dels">
          <input type="hidden" name="MM_insert" value="true">
        </form>
</table>
	  <%End if
%>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1" background="images/dotlineh.gif"></td>
  </tr>
</table>
<%
rs.close
set rs=Nothing
End sub
%>