📄 admin_newsclass_ok.asp

📁 OA最新破解2008版全新破解希望大家用着舒服
💻 ASP
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag"),"71")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../conn/dbconn2.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<BODY topMargin=0 leftmargin="0" marginheight="0">
<LINK href="../style.css" rel=stylesheet type=text/css>
</head>
<%
dim body
call main()
rs1.close
set rs1=nothing
set rs=nothing
conn.close
set conn=nothing
sub main()
%>
<CENTER>
<table cellpadding=0 cellspacing=0 border=0 width=100% align=center>
  <tr>
    <td>
      <table cellpadding=4 cellspacing=1 border=0 width=100%>
        <tr>
          <td width="100%" valign=top><font color="<%=TableContentColor%>">
          <%
           if request("action") ="add_class_1" then 
              call add_class_1()
           elseif request("action")="add_class_1_ok" then
              call add_class_1_ok()
           elseif request("action")="edit_class_1" then
              call edit_class_1()
           elseif request("action")="savedit_1" then
              call savedit_1()
           elseif request("action")="del_class_1" then
              call del_class_1()
           else
              call linkinfo()
           end if
           %>
           <p><%=body%></p></font>
	   </td>
         </tr>
       </table>
     </td>
  </tr>
</table>
<%
end sub
sub add_class_1()
%>
<SCRIPT language=javascript>
function FORM1_onsubmit()
{
 if(document.FORM1.class_name.value.length<1)
 {
   alert("您必须输入大类名称!");
   document.FORM1.class_name.focus();
   return false;
 }
}
</SCRIPT>
<FORM name=FORM1 onsubmit="return FORM1_onsubmit()" action=admin_Newsclass_ok.asp?action=add_class_1_ok method=post>
<TABLE cellSpacing=1 cellPadding=4 width=100%>
  <TBODY>
  <TR vAlign=middle>
    <TD>
      <TABLE cellPadding=4 cellSpacing=0 width=100% border="0">
        <TBODY>
        <TR>
          <TD colSpan=2 height="28" bgcolor=#f5f5f5>以商会友类别添加</TD>
        </TR>
        <TR>
          <TD width=40% height=25><b>行业资讯类别名称</b></TD>
          <TD width=60% height=25><INPUT maxLength=16 size=25 name=class_name></TD>
        </TR>
        <TR>
          <TD colSpan=2 height="27" align=center bgcolor=#f5f5f5>
            <INPUT type=submit value='确 定' name=Submit2>
          </TD>
        </TR>
        </TBODY>
      </TABLE>
    </TD>
  </TR>
</TABLE>
</FORM>
<%
end sub
sub edit_class_1()
    set rs=server.createobject("adodb.recordset")
    sqltext="select * from newstype where typeid="+Cstr(request("id"))
    rs.open sqltext,conn,1,1
%>
<form name=form1 action="Admin_Newsclass_Ok.asp?action=savedit_1" method=post>
<input type=hidden name=id value="<%=Cstr(request("id"))%>">
<center><br><br>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
  <TR>
    <TD colSpan=2 height="28" bgcolor="#f5f5f5">以商会友大类修改</TD>
  </TR>
   <tr> 
     <td width="40%"><b>大类名称</b></td>
     <td width="60%"> 
       <input type="text" name="class_1_name" size='40' value="<%=rs("type")%>">
     </td>
   </tr>
   <tr> 
     <td height="30" colspan="2" bgcolor="#f5f5f5" align="center"> 
     <input type="submit" name="Submit" value="修改">
     </td>
   </tr>
</table>
</form>
<%
rs.close
set rs=nothing
end sub
sub savedit_1()
    set rs= server.createobject ("adodb.recordset")
    sql = "select * from newstype where typeid="+Cstr(request("id"))
    rs.Open sql,conn,1,3
    if rs.eof and rs.bof then
       body=body+"<br>"+"错误，数据库操作错误，没有找到此条信息。"
    else
       rs("type")=Trim(Request.Form ("class_1_name"))
       rs.Update
    end if 
    body=body+"<br>"+"行业分类更新成功，请<a href=Edit_Newssort.asp><font color=#ff0000>继续</font></a>其他操作。"
end sub

sub del_class_1()
    set rs=server.createobject("adodb.recordset")
    sqltext="delete from newstype where typeid="+Cstr(request("id"))
    rs.open sqltext,conn,3,3
    rs.close
    set rs=nothing  
    response.write"<SCRIPT language=JavaScript>alert('此类别已经存在，请选用其它名称！');"
    response.write"this.location.href='edit_sort.asp';</SCRIPT>"
end sub

sub add_class_1_ok()
    set rs=server.createobject("adodb.recordset")
    sqltext="select * from newstype where type='"&request.form("class_name")&"'"
    rs.open sqltext,conn,1,1
    '查找数据库，检查商品大类是否已经存在
    if rs.recordcount >= 1 then 
       if rs("type")=request.form("class_name") then
          response.write"<SCRIPT language=JavaScript>alert('此类别已经存在，请选用其它名称！');"
          response.write"this.location.href='admin_Newsclass_ok.asp?action=add_class_1';</SCRIPT>"
       end if
    else
       set rs=server.createobject("adodb.recordset")
       sqltext="select * from newstype"
       rs.open sqltext,conn,3,3
       rs.addnew
       rs("type")=request.form("class_name")
       rs.update
       body=body+"<br>"+"行业分类添加成功，请<a href='Edit_Newssort.asp'><font color=#ff000>继续</font></a>其他操作。"
   end if
end sub
%>
</body>
</html>
⌨️ 快捷键说明

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