📄 classmodify.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<body background="images/BLogo.gif">
<%
function unHtm(content)
unHtm=content
if content <> "" then
unHtm=replace(unHtm,"<","&lt;")
unHtm=replace(unHtm,">","&gt;")
end if
end function

  operation=Request.QueryString("Operation")
  select case Operation
  case "ModifyBigClass"
    BigClassID=Request.Form("BigClassID")
    set rs=Server.CreateObject("Adodb.RecordSet")
    rs.source="select * from BigClass where id="&BigClassID
    rs.open rs.source,conn,1,1
%>
<form name="form" method="POST" action="ClassSubmit.asp?operation=ModifyBigClass" onsubmit="return CheckBigClass()">
 <p>&nbsp;</p>
  <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#96C5DE">
    <tr> 
      <td colspan=3><!--#include file = topMenu.htm--></td>
    </tr>
    <tr bgcolor="#a4cee4"> 
      <td height="25" colspan="2" align="center" valign="middle"><b>修改一级栏目</b></td>
    </tr>
    <tr> 
      <td height="25" width="152" valign="middle" bgcolor="#FFFFFF">栏目名称：</td>
      <td height="25" width="326" valign="middle" bgcolor="#FFFFFF"> 
        <input type="text" name="BigClass1" size="20" value="<%=rs("BigClass")%>" Class=InputStyle>
        <input type="hidden" name="BigClass" value="<%=rs("BigClass")%>">
      </td>
    </tr>
    <tr> 
      <td height="40" align="center" colspan=2 bgcolor="#FFFFFF" width="100%"> 
        <input type="hidden" value="<%=rs("ID")%>" name="ID">
        <input type="hidden" value="<%=rs("BigClass")%>" name="SBigClass">
        <input type="submit" value=" 修 改 " name="B12" onclick="return modify()">
        <input type="reset" value=" 还 原 " name="B13">
      </td>
    </tr>
  </table>
</form>
<%
        rs.close
        set rs=nothing
    case "ModifySmallClass"
        SmallClassID=request.form("SmallClassID")
        if SmallClassID="" then
%>
            <script luanage=javascript>
               history.back()
               alert("请选择小类栏目")
            </script>
<%
            response.end
        end if
        set rs1=Server.CreateObject("Adodb.RecordSet")
        rs1.source="select ID,SmallClass,BigClass from SmallClass where id="&SmallClassID
        rs1.open rs1.Source,conn,1,1
%> 
<form name="form" method="POST" action="ClassSubmit.asp?operation=ModifySmallClass" onsubmit="return CheckSmallClass()">
  <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="486" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#96C5DE">
    <tr> 
      <td colspan=3><!--#include file = topMenu.htm--></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#a4cee4" colspan="2" align="center" valign="middle"><b>修改二级栏目</b></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="20" valign="middle" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>一级栏目:</td>
      <td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
        <%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select BigClass from bigclass order by id desc "
    rs.open rs.source,conn,1,1
%> 
        <input type="hidden" name="BigClass" value="<%=rs1("BigClass")%>">
        <select name="BigClass1" Class=InputStyle Disabled>
          <%
    while not rs.eof
%> 
          <option value="<%=rs("BigClass")%>" <% if rs1("BigClass")=rs("BigClass") then response.write("selected") %>><%=rs("BigClass")%></option>
          <%
    rs.movenext
    wend
    rs.close
%> 
        </select>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="20" width="153" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>栏目中文名称：</td>
      <td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
        <input type="text" name="SmallClass1" size="20" value="<%=rs1("SmallClass")%>" Class=InputStyle>
        <input type="hidden" name="SmallClass" value="<%=rs1("SmallClass")%>" >
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="50" colspan="2" align="center" valign="middle" rowspan="2" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';> 
        <input type="hidden" value=<%=rs1("BigClass")%>  name=SBigClass>
        <input type="hidden" value=<%=rs1("SmallClass")%> name=SSmallClass>
        <input type="hidden" value=<%=rs1("ID")%> name=ID>
        <input type="submit" value=" 修 改 " name="B122" onclick="return modify()">
        &nbsp; &nbsp; 
        <input type="reset" value=" 还 原 " name="B132" onclick="return reset1()">
      </td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> </tr>
  </table>
</form>          
<%
    rs1.close
	set rs1=nothing
    end select
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -