⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 succeedcasemanage.asp

📁 这个也是一个功能强大的企业整站的ASP源代码
💻 ASP
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<%if request("cur_action")="addsave" then
    if not isdate(request("T_AddTime")) then 
	  response.write "<script>alert('错误的日期格式,请重新输入!');history.back();</script>"
	  response.End()
	end if
    sql_addsave="insert into tSucceedCase(CaseNo,Title,Content,AddTime) values('"&request("T_CaseNo")&"','"&request("T_Title")&"','"&request("T_Content")&"','"&request("T_AddTime")&"')"
    conn.execute sql_addsave
	response.write "<script>alert('已经成功添加');location.replace('SucceedCaseManage.asp');</script>"	
	response.end		
  end if
  
  if request("cur_action")="editsave" then
    if not isdate(request("T_AddTime")) then 
	  response.write "<script>alert('错误的日期格式,请重新输入!');history.back();</script>"
	  response.End()
	end if  
    sql_editsave="update tSucceedCase set CaseNo='"&request("T_CaseNo")&"',Title='"&request("T_Title")&"',Content='"&request("T_Content")&"',AddTime='"&request("T_AddTime")&"' where ID="&request("EditID")
    conn.execute sql_editsave
	response.write "<script>alert('已经成功修改');location.replace('SucceedCaseManage.asp?PageNo="&request("PageNo")&"');</script>"	
	response.end	
  end if
  
  if request("cur_action")="delete" then 
    conn.execute("delete from tSucceedCase where ID="&request("EditID"))
	response.write "<script>alert('已经成功删除');location.replace('SucceedCaseManage.asp?PageNo="&request("PageNo")&"');</script>"	
	response.end	
  end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
<script src="../Include/JChar.js"></script>
<script language="JavaScript">
function check_data(){
  if(Jtrim(document.form1.T_CaseNo.value)==""){
    alert('案例编号为必填项,请填写!')
	document.form1.T_CaseNo.focus()
	return(false)
  }
  if(Jtrim(document.form1.T_Title.value)==""){
    alert('公司名称为必填项,请填写!')
	document.form1.T_Title.focus()
	return(false)
  }  
  if(Jtrim(document.form1.T_AddTime.value)==""){
    alert('发布时间为必填项,请填写!')
	document.form1.T_AddTime.focus()
	return(false)
  }    
}
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="8" colspan="2"></td>
  </tr>
  <tr> 
    <td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
    <td width="917" height="10"></td>
  </tr>
  <tr>
    <td>我的位置:后台管理系统._综合功能管理._成功案例管理</td>
  </tr>
  <tr> 
    <td height="4" colspan="2"></td>
  </tr>
  <tr> 
    <td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
        <tr> 
          <td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>成功案例管理</strong></td>
                <td align="right" background="images/title2.gif"><img src="Images/Topicon.gif" width="11" height="11" align="absmiddle">&nbsp;<a href="?cur_action=add"><font color="#FF0000"><strong>发布成功案例</strong></font></a>&nbsp;</td>
                <td width="10"><img src="images/title3.gif" width="10" height="20"></td>
              </tr>
            </table></td>
        </tr>
        <tr valign="top"> 
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
                <td height="100%" align="center" valign="top"> 
				<% if request("cur_action")="add" then%>  <br>               
                   <table width="98%" border="0" cellpadding="3" cellspacing="1" bgcolor="#333333">
                    <form name="form1" method="post" action="?cur_action=addsave" onSubmit="return check_data()">
                      <tr> 
                        <td width="20%" height="22" align="right" bgcolor="f7f7f7">* 
                          案例编号:</td>
                        <td width="80%" bgcolor="#FFFFFF"> <input name="T_CaseNo" type="text" id="T_CaseNo"> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="22" align="right" bgcolor="f7f7f7">* 公司名称:</td>
                        <td bgcolor="#FFFFFF"> <input name="T_Title" type="text" id="T_Title" value="" size="50"> 
                        </td>
                      </tr>
                      <tr>
                        <td height="22" align="right" bgcolor="f7f7f7">备注:</td>
                        <td bgcolor="#FFFFFF"><input name="T_Content" type="text" id="T_Content" size="60"></td>
                      </tr>
                      <tr> 
                        <td height="22" align="right" bgcolor="f7f7f7">* 添加时间:</td>
                        <td bgcolor="#FFFFFF"><input name="T_AddTime" type="text" id="T_AddTime2" value="<%=now()%>"></td>
                      </tr>
                      <tr align="center" bgcolor="#FFFFFF"> 
                        <td height="28" colspan="2"> <input type="submit" name="Submit5" value="正确提交"> 
                          <input type="reset" value="重新填写"> <input type="button" name="Submit7" value="返回" onclick="javascript:history.back();"></td>
                      </tr>
                    </form>
                  </table>                   
                  <%end if
				    if request("cur_action")="edit" then
				      set rs_edit=conn.execute("select * from tSucceedCase where ID="&request("EditID"))
					  if rs_edit.eof and rs_edit.bof then
					     response.write "<script>alert('读取数据时出错,请与管理员联系!');history.back();</script>"
					     response.end						
					   end if
				  %><br>
                  <table width="98%" border="0" cellpadding="3" cellspacing="1" bgcolor="#333333">
                    <form name="form1" method="post" action="?cur_action=editsave&PageNo=<%=request("PageNo")%>&EditID=<%=request("EditID")%>" onSubmit="return check_data()">
                      <tr> 
                        <td width="20%" height="22" align="right" bgcolor="f7f7f7">* 
                          案例编号:</td>
                        <td width="80%" bgcolor="#FFFFFF"> <input name="T_CaseNo" type="text" id="T_CaseNo" value="<%=rs_edit("CaseNo")%>"></td>
                      </tr>
                      <tr> 
                        <td height="22" align="right" bgcolor="f7f7f7">* 公司名称:</td>
                        <td bgcolor="#FFFFFF"><input name="T_Title" type="text" id="T_Title" value="<%=rs_edit("Title")%>" size="50"></td>
                      </tr>
                      <tr>
                        <td height="22" align="right" bgcolor="f7f7f7">备注:</td>
                        <td bgcolor="#FFFFFF"><input name="T_Content" type="text" id="T_Content" value="<%=rs_edit("Content")%>" size="60"></td>
                      </tr>
                      <tr> 
                        <td height="22" align="right" bgcolor="f7f7f7">* 添加时间:</td>
                        <td bgcolor="#FFFFFF"><input name="T_AddTime" type="text" id="T_AddTime" value="<%=rs_edit("AddTime")%>"></td>
                      </tr>
                      <tr align="center" bgcolor="#FFFFFF"> 
                        <td height="27" colspan="2"> <input type="submit" name="Submit" value="正确提交"> 
                          <input type="reset" name="Submit3" value="重新填写"> <input type="button" name="Submit4" value="返回" onClick="javascript:history.back();"></td>
                      </tr>
                    </form>
                  </table>
                  <%end if
				    if request("cur_action")="read" then '如果读取数据的时候
				      set rs_read=conn.execute("select * from tSucceedCase where ID="&request("ID"))
					  if rs_read.eof and rs_bof then
					    response.write "<script>alert('读取数据库出错,请与管理员联系!');history.back();</script>"
					    response.end
					  end if					
				 %> <br>     
                    <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
                    <tr> 
                      <td width="20%" height="22" align="right" bgcolor="f7f7f7">案例编号:</td>
                      <td width="80%" bgcolor="#FFFFFF">&nbsp;<%=rs_read("CaseNo")%></td>
                    </tr>
                    <tr> 
                      <td height="22" align="right" bgcolor="f7f7f7">公司名称:</td>
                      <td bgcolor="#FFFFFF">&nbsp;<%=rs_read("Title")%></td>
                    </tr>
                    <tr>
                      <td height="22" align="right" bgcolor="f7f7f7">备注:</td>
                      <td bgcolor="#FFFFFF">&nbsp;<%=rs_read("Content")%></td>
                    </tr>
                    <tr> 
                      <td height="22" align="right" bgcolor="f7f7f7">添加时间:</td>
                      <td bgcolor="#FFFFFF">&nbsp;<%=rs_read("AddTime")%></td>
                    </tr>
                    <tr align="center" bgcolor="#FFFFFF"> 
                      <td height="28" colspan="2"><input type="button" name="Button" value="返回" onClick="javascript:history.back();"> 
                      </td>
                    </tr>
                  </table>
                  <%end if
				  '----------------------------				     
				   PERPAGE =15
                   PageNo=request("PageNo")   
                   set rs=server.createobject("ADODB.recordset")
                   sql="select * from tSucceedCase order by AddTime desc"
                   rs.open sql,conn,1,1 
				   
				   if rs.eof and rs.bof then
				     response.write "暂时没有数据!"
                   else
                      rs.pagesize = PERPAGE
                      if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
					  CurPage=PageNo					  
					  if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)                      
                      rs.absolutepage = CurPage
				   %>
                  <br> <table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr align="center"> 
                      <td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
                          <tr align="center" bgcolor="#FFFFFF"> 
                            <td width="20%" height="22"><strong>案例编号</strong></td>
                            <td width="39%" height="22"><strong>公司名称</strong></td>
                            <td width="21%"><strong>发布时间</strong></td>
                            <td width="20%" height="22"><strong>功能操作</strong></td>
                          </tr>
                          <% for i = 1 to rs.pagesize %>
                          <tr align="center" onMouseOver="this.style.backgroundColor='#e7e7e7';"  onMouseOut="this.style.backgroundColor='#ffffff'" bgcolor="#FFFFFF"> 
                            <td height="22"><%=rs("CaseNo")%></td>
                            <td height="22"><%=rs("Title")%></td>
                            <td height="22"><%=rs("AddTime")%></td>
                            <td height="22"><a href='?cur_action=read&ID=<%=rs("ID")%>&PageNo=<%=PageNo%>'>详细信息</a>|<a href='?cur_action=edit&EditID=<%=rs("ID")%>&PageNo=<%=PageNo%>'>修改</a>|<a href="?cur_action=delete&EditID=<%=rs("ID")%>&PageNo=<%=PageNo%>" onclick="{if(confirm('确定删除该条纪录吗?')){return true;}return false;}">删除</a></td>
                          </tr>
                          <% rs.movenext
                             if rs.eof then
             	               i = i + 1
          	                   exit for
                             end if
                          next %>
                        </table></td>
                    </tr>
                    <tr> 
                      <td height="8" colspan="2"></td>
                    </tr>
                    <tr> 
                      <td width="33%"> 页次:<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>页&nbsp;&nbsp;共<b><%=rs.recordcount %></b>条记录</td>
                      <td width="67%" align="right"> 
                        <% 
		                 if CurPage = 1 then 
			                response.write " 首页 | 上一页 | "
		                 else
		                    response.write "<a href='?PageNo=1&T_key="&request("T_key")&"'><b> 首页 </b></a> | <a href='?PageNo="&CurPage-1&"&T_key="&request("T_key")&"'><b>上一页</b></a>| "
		                 end if 
		  
		                 if  CurPage = rs.pagecount then
			                response.write "后一页 | 尾页 "
		                 else
		 	                response.write "<a href='?PageNo="&CurPage+1&"&T_key="&request("T_key")&"'><b>后一页</b> </a>| <a href='?PageNo="&rs.pagecount&"&T_key="&request("T_key")&"'><b>尾页</b> </a>"
		                 end if
                        %>
                        &nbsp;&nbsp;&nbsp;&nbsp;跳转到:<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
                          <% for i=1 to rs.pagecount 
			                   if CurPage=i then 
					              response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"' selected>第"&i&"页"
					           else
					            response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"'>第"&i&"页"
					           end if
			                 next
			              %>
                       </select>
					 </td>
                    </tr>
                  </table>
                  <%end if%>                  				
                  <br> <br> </td>
                <td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
              </tr>
              <tr> 
                <td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
                <td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
                <td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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