📄 ysc.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charsnet=gb2312" />
<title>管理</title>
<LINK href="mainimages/style.css" type="text/css" rel="stylesheet">
<body >
</head>
<!--#include file="piaoy.inc"-->
<!--#include file="hyyxlAdmin.asp"-->
<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>
<script>
function fncSelectAll(flag1,flag2)
{
if (frm1.llBox.checked==true)
{
yesorno.innerText="全选本页"
var objs=document.getElementsByTagName("INPUT")
{for(var i=0;i<objs.length;i++){
if (objs[i].type=="checkbox")
objs[i].checked=flag1;}}
}
else
{
yesorno.innerText="全选本页"
var objs=document.getElementsByTagName("INPUT")
{for(var i=0;i<objs.length;i++){
if (objs[i].type=="checkbox")
objs[i].checked=flag2;}}
}
}
</script>
<body>
<%
kfglzlbm=session("kfglzlbm")
kfglfzbm=session("kfglfzbm")
kfglsjdxbm=session("kfglsjdxbm")
kfglscsjbm=session("kfglscsjbm")
kfglgrdxkbm=session("kfglgrdxkbm")
kfgldxlsjlbm=session("kfgldxlsjlbm")
kfgldxlsjlxxbm=session("kfgldxlsjlxxbm")
kfglyfkjlbm=session("kfglyfkjlbm")
kfgldxlsjlbm=session("kfgldxlsjlbm")
kfgldxlsjlxxbm=session("kfgldxlsjlxxbm")
kfglyfkjlbm=session("kfglyfkjlbm")
session("dxgs")=""
session("kfid")=""
session("txtAddId")=""
session("tj")=""
session("sqllb")=""
%>
<% if request("wchar")<>"" then
function getpychar(char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) then
getpychar= "A"
elseif(tmp>=45253 and tmp<=45760) then
getpychar= "B"
elseif(tmp>=45761 and tmp<=46317) then
getpychar= "C"
elseif(tmp>=46318 and tmp<=46825) then
getpychar= "D"
elseif(tmp>=46826 and tmp<=47009) then
getpychar= "E"
elseif(tmp>=47010 and tmp<=47296) then
getpychar= "F"
elseif(tmp>=47297 and tmp<=47613) then
getpychar= "G"
elseif(tmp>=47614 and tmp<=48118) then
getpychar= "H"
elseif(tmp>=48119 and tmp<=49061) then
getpychar= "J"
elseif(tmp>=49062 and tmp<=49323) then
getpychar= "K"
elseif(tmp>=49324 and tmp<=49895) then
getpychar= "L"
elseif(tmp>=49896 and tmp<=50370) then
getpychar= "M"
elseif(tmp>=50371 and tmp<=50613) then
getpychar= "N"
elseif(tmp>=50614 and tmp<=50621) then
getpychar= "O"
elseif(tmp>=50622 and tmp<=50905) then
getpychar= "P"
elseif(tmp>=50906 and tmp<=51386) then
getpychar= "Q"
elseif(tmp>=51387 and tmp<=51445) then
getpychar= "R"
elseif(tmp>=51446 and tmp<=52217) then
getpychar= "S"
elseif(tmp>=52218 and tmp<=52697) then
getpychar= "T"
elseif(tmp>=52698 and tmp<=52979) then
getpychar= "W"
elseif(tmp>=52980 and tmp<=53640) then
getpychar= "X"
elseif(tmp>=53689 and tmp<=54480) then
getpychar= "Y"
elseif(tmp>=54481 and tmp<=62289) then
getpychar= "Z"
end if
end function
function getpy(str)
for i=1 to len(str)
getpy=getpy&getpychar(mid(str,i,1))
next
end function
Set rs = Server.CreateObject ("ADODB.Recordset")
if request("xkfzb")="all" then
sql="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
else
sql="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
end if
rs.Open sql,conn,1,3
if rs.EOF and rs.BOF then
else
for i=1 to rs.recordcount
if(left(rs("xkfxm"),1)="1") then
sz="Y"
elseif(left(rs("xkfxm"),1)="2") then
sz="E"
elseif(left(rs("xkfxm"),1)="3") then
sz="S"
elseif(left(rs("xkfxm"),1)="4") then
sz="S"
elseif(left(rs("xkfxm"),1)="5") then
sz="W"
elseif(left(rs("xkfxm"),1)="6") then
sz="L"
elseif(left(rs("xkfxm"),1)="7") then
sz="Q"
elseif(left(rs("xkfxm"),1)="8") then
sz="B"
elseif(left(rs("xkfxm"),1)="9") then
sz="J"
elseif(left(rs("xkfxm"),1)="0") then
sz="L"
end if
if getpychar(rs("xkfxm"))=request("wchar") or UCase(left(rs("xkfxm"),1))=request("wchar") or sz=request("wchar") then
id=id&"xkfid="&rs("xkfid")&" or "
end if
rs.movenext
next
rs.close
Set rs = Nothing
end if
end if
%>
<%
page=cint(Request.QueryString("page"))
pagecount=cint(request("page"))
set rsn=Server.CreateObject("ADODB.RecordSet")
if id="" and request("wchar")="" then
if request("xkfzb")="all" then
sql="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
else
sql="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
end if
else
if request("xkfzb")="all" then
sql="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and ("&left(id,len(id)-4)&")"&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
else
sql="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and ("&left(id,len(id)-4)&")"&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where xkfscbj=1 and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
end if
end if
if id="" and request("wchar")<>"" then
sql="select * from "&kfglzlbm&" where 1+2=4"
end if
rsn.Open sql,conn,1,3
%>
<%kfglid=request("kfglid")%>
<%xkfzb=request("xkfzb")%>
<form name="frm1" method="post" action="cddelallxkf.asp?xkfid=<%=xkfid%>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&page=<%=page%>" >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" class="black12px"><strong> <font color="#003399">您现在的位置：</font></strong><font color="#003399">客户管理系统 <span class="nav">-></span> 用户中心 <span class="nav">-></span> 垃圾箱管理</font> </td>
</tr>
</table>
<TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%"
bgColor=#dbeaf5 border=0>
<TBODY>
<TR>
<TD height="20" align="left" valign="middle"><SPAN
class=blue12px><STRONG> </font></STRONG></SPAN></TD>
</TR>
<TR bgColor=#c1cdd8>
<TD align=middle height=1></TD>
</TR>
<TR bgColor=#c1cdd8>
<TD align=middle
height=1></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#fff7e5" class="tbbk">
<tr>
<td><table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr>
<td valign="top"><div align="right">
<%
if rsn.eof and rsn.bof then
else
xkfid=rsn("xkfid")
end if
session("sqllb")=sqllb
%>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<center>
<tr> <font color="#000000">当前组</font>
<%if xkfzb="all"then%>
<strong>全部</strong>
<%else%>
<strong><%=request("fzbm")%></strong>
<%end if%>
</tr>
<tr valign="middle">
<td height="30" colspan="4" align="left" ><%
sqlfzb = "select * from "&kfglfzbm&" where kfglid=" &request("kfglid")&" order by fzbid desc"
Set rsnfzb = Server.CreateObject("ADODB.RecordSet")
rsnfzb.Open sqlfzb,conn,1,2
%>
<a href="ysc.asp?xkfzb=0&kfglid=<%=kfglid%>&fzbm=未分组">未分组</a>
<% do while not rsnfzb.eof %>
<a href="ysc.asp?xkfzb=<%=rsnfzb("fzbid")%>&kfglid=<%=kfglid%>&fzbm=<%=rsnfzb("fzbm")%>"><%=rsnfzb("fzbm")%> </a>
<% rsnfzb.movenext
loop
rsnfzb.close
set rsnfzb=nothing
%>
</td>
</tr>
</center>
<tr>
<td width="122" height="18" valign="bottom"><p align="center" class="style1">选择</p></td>
<center>
<font color="#FF6600"></font>
<td width="218" height="18" valign="bottom"><p><span class="style1">姓名</span></td>
<td width="218" valign="bottom">单位名称</td>
<td height="18" valign="bottom"><p align="center" class="style1">- 执行 -</p></td>
</center>
</tr>
<tr>
<td height="3" valign="top" colspan="4" bgcolor="#000000"></td>
</tr>
<%
rsn.pagesize=15
if page<=1 then
page=1
elseif page>=rsn.pagecount then
page=rsn.pagecount
end if
if rsn.eof and rsn.bof then
else
rsn.absolutepage=clng(page)
end if
for i=1 to rsn.pagesize
if rsn.eof then exit for
%>
<tr bgcolor="#FFF7E5" style="background-color:#FFF7E5;" onmouseover = "this.style.backgroundColor='#E5F0FF'" onmouseout = "this.style.backgroundColor =''" >
<td width="122" height="18" align="center" valign="bottom" class="td_line"> <input type="checkbox" name="xkfid" value="<%=rsn("xkfid")%>"> </td>
<td width="218" height="18" valign="bottom" class="td_line"><% if len(rsn("xkfxm"))>14 then%>
<%=Left(rsn("xkfxm"),14)%>
<%else%>
<%=rsn("xkfxm")%>
<%end if%>
</td>
<td width="218" height="18" valign="bottom" class="td_line"><% if len(rsn("xkfdwmc"))>14 then%>
<a href="#" title="<%=rsn("xkfdwmc")%>"><%=Left(rsn("xkfdwmc"),14)%></a>
<%else%>
<%=rsn("xkfdwmc")%>
<%end if%>
</td>
<td height="18" valign="bottom" class="td_line"><p align="center"><a href="addxkf.asp?xkfid=<%=rsn("xkfid")%>&page=<%=pagecount%>&kfglid=<%=kfglid%>&fzbidsave=<%=rsn("xkfzb")%>" target="I4">修改</a> <a href="kfglxw.asp?xkfid=<%=rsn("xkfid")%>&page=<%=pagecount%>&kfglid=<%=kfglid%>&fzbidsave=<%=rsn("xkfzb")%>" target="I4">行为</a></p></td>
</tr>
<%
rsn.movenext
next
%>
<tr>
<td height="3" valign="top" colspan="4" bgcolor="#000000"></td>
</tr>
<tr align="right">
<td height="15" colspan="4" valign="bottom"></td>
</tr>
<tr align="right">
<td height="30" colspan="4" align="right" valign="middle" >共<%=rsn.pagecount%>页 <%=rsn.recordcount%>条记录 每页<%=rsn.pagesize%>条 当前第 <%=page%> 页
<% If rsn.pagecount>1 Then %>
<a href="?page=1&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">首页</a> <a href="?page=<%= page-1 %>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">上一页</a> <a href="?page=<%= page+1 %>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">下一页</a> <a href="?page=<%=rsn.pagecount%>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">尾页</a>
<% End If %>
<input type="checkbox" name="llBox" onClick="javascript:fncSelectAll(true,false);">
<span id="yesorno">全选本页</span> 移至
<%
sqlfzb = "select * from "&kfglfzbm&" where kfglid=" &request("kfglid")&" order by fzbid desc"
Set rsnfzb = Server.CreateObject("ADODB.RecordSet")
rsnfzb.Open sqlfzb,conn,1,2
'response.write sqlfzb
%>
<select id="ydzb" name="ydzb">
<option value="0" selected="selected">不归组</option>
<% do while not rsnfzb.eof %>
<option value="<%=rsnfzb("fzbid")%>" <% if int(fzbidsave)=rsnfzb("fzbid") then response.write " selected" %>><%=rsnfzb("fzbm")%></option>
<% rsnfzb.movenext
loop
rsnfzb.close
set rsnfzb=nothing
%>
</select>
组
<input name="yd" type="submit" id="yd" class=button style="COLOR: #ffcc33" onClick="Javascript:return confirm('确定将您所选的客户移动到所选组吗？');" value="移动">
<input name="del" type="submit" id="del" class=button style="COLOR: #ffcc33" onClick="Javascript:return confirm('一但彻底删除，这些客户将无法恢复，你确定这样做吗？');" value="彻底删除">
<input name="hf" type="submit" class=button style="COLOR: #ffcc33" id="hf" value="恢复" /></td>
</tr>
</table></td>
</table></td>
</tr>
</table>
<TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%"
bgColor=#dbeaf5 border=0>
<TBODY>
<TR>
<TD height="20" align="right" valign="middle"> </TD>
</TR>
<TR bgColor=#c1cdd8>
<TD align=middle height=1></TD>
</TR>
<TR bgColor=#c1cdd8>
<TD align=middle
height=1></TD>
</TR>
</TBODY>
</TABLE>
<%'response.write sql%>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -