📄 cus_ht.asp

📁 网络办公系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="../../inc/navigate.asp"-->
<%
Submit=trim(request.Form("Submit"))
blogid=replace(trim(request.Form("blogid"))," ","")
if Submit="删除信息" then
	if  ChkAdmin("oa_manageht")=False then
   		call message("您没有删除合同的权限","back")
   		call endexit()
	end if
	if blogid="" then
		call message("请至少选择一项删除","back")
		call EndExit()
	end if
	bid=split(blogid,",")
	for i=0 to ubound(bid)
		delsql="delete from oa_cus_ht where id="&bid(i)&""
		conn.execute(delsql)
	next
	call message("删除成功","cus_ht.asp?cusid="&cusid&"")
	call EndExit()
end if

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>联系人信息</title>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
-->
</style>

</head>

<body>
<form name="form1" method="post" action="cus_ht.asp">
  <table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
    <tr align="right" bgcolor="#CC0000">
      <td height="25" colspan="6" align="left"><input name="Submit" type="submit" class="bon" id="Submit" value="删除信息">
          <input name="cusid" type="hidden" id="cusid" value="<%=cusid%>">
          <input name="Submit2" type="button" class="bon" onClick="window.location.href='cus_inputht.asp'" value="添加合同">
      </td>
    </tr>
    <tr align="right" bgcolor="#F9F9F9">
      <td colspan="6" align="left">&nbsp;</td>
    </tr>
    <tr align="center" bgcolor="#CC6600">
      <td width="7%" height="25"><input name="checkbox" type=checkbox onclick=sel('blogid')></td>
      <td width="29%" height="25"><span class="style1"><strong> <strong>合同标题</strong></strong></span></td>
      <td width="29%" height="25"><span class="style1"><strong> 项目名称</strong></span></td>
      <td width="13%" height="25"><span class="style1"><strong><strong>合同金额</strong></strong></span></td>
      <td width="12%" height="25"><span class="style1"><strong>签约时间</strong></span></td>
      <td width="10%" height="25"><span class="style1"><strong> 签约人 </strong></span></td>
    </tr>
    <%
		if projectid<>"" then
			sql="select a.id,pro_title,pro_money,pro_time,pro_qname,b.title from oa_cus_ht as a inner join oa_cus_project as b on a.projectid=b.id  where projectid="&projectid
		else
			sql="select a.id,pro_title,pro_money,pro_time,pro_qname,b.title from oa_cus_ht as a inner join oa_cus_project as b on a.projectid=b.id  where a.companyid="&session("companyid")
		end if
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,3
		for i=1 to rs.recordcount
		if rs.EOF then  Exit For
		bgColor="#F8F8F8"
		if i mod 2=0 then bgColor="#DFEFFF"
	%>
    <tr bgcolor="<%=bgColor%>">
      <td height="25"><input type="checkbox" name="blogid" value="<%=rs(0)%>">
          <a href="cus_addcontact.asp?act=edits&id=<%=rs(0)%>">修改</a></td>
      <td height="25" align="center"><%=trim(rs(1))%></td>
      <td height="25" align="center"><%=trim(rs(5))%></td>
      <td height="25" align="center"><%=trim(rs(2))%></td>
      <td height="25" align="center"><%=trim(rs(3))%></td>
      <td height="25" align="center"><%=trim(rs(4))%></td>
    </tr>
    <%
		rs.movenext
		next
		rs.close
		set rs=nothing
	%>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

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