📄 cus_contactlist.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="../../inc/navigate.asp"-->
<%
cusid=replace(request("cusid"),"'","")
cus_name=conn.execute("select cus_name from oa_crm_cus where id="&cusid)(0)
Submit=trim(request.Form("Submit"))
blogid=replace(trim(request.Form("blogid"))," ","")
if Submit="删除信息" then
if blogid="" then
call message("请至少选择一项删除","back")
call EndExit()
end if
bid=split(blogid,",")
for i=0 to ubound(bid)
delsql="delete from oa_cus_contact where id="&bid(i)&""
conn.execute(delsql)
next
call message("删除成功","cus_contactlist.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_contactlist.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="7" align="left"><input name="Submit" type="submit" class="bon" id="Submit" value="删除信息">
<input name="cusid" type="hidden" id="cusid" value="<%=cusid%>">
<input name="Submit" type="button" class="bon" onClick="window.location.href='cus_input.asp'" value="添加客户信息">
<input name="Submit" type="button" class="bon" id="Submit" onClick="window.location.href='cus_addcontact.asp'" value="新建联系人">
<input name="Submit" type="button" class="bon" onClick="window.location.href='cus_addform.asp'" value="新建跟单"></td>
</tr>
<tr align="right" bgcolor="#F9F9F9">
<td height="25" colspan="7" align="left">您现在查看的是: <font color="#cc0000"><%=cus_name%></font></td>
</tr>
<tr align="center" bgcolor="#CC6600">
<td width="9%" height="25"><input name="checkbox" type=checkbox onclick=sel('blogid')></td>
<td width="16%" height="25"><span class="style1"><strong> 联系人 </strong></span></td>
<td width="15%" height="25"><span class="style1"><strong> 电话 </strong></span></td>
<td width="14%" height="25"><span class="style1"><strong> 手机</strong></span></td>
<td width="17%" height="25"><span class="style1"><strong>传真</strong></span></td>
<td width="17%" height="25"><span class="style1"><strong>E-Mail</strong></span></td>
<td width="12%" height="25"><span class="style1"><strong>QQ</strong></span></td>
</tr>
<%
sql="select id,uname,mobile,tel,fax,email,qq from oa_cus_contact where cusid="&cusid
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"><%=rs(1)%></td>
<td height="25" align="center"><%=rs(2)%></td>
<td height="25" align="center"><%=rs(3)%></td>
<td height="25" align="center"><%=rs(4)%></td>
<td height="25" align="center"><%=rs(5)%></td>
<td height="25" align="center"><%=rs(6)%></td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
%>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -