📄 yewu_listshow.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(5)
If Cmd = "Del" then
PickYeWu = Request("PickYeWu")
TmAy = Split(PickYeWu,", ")
For i=0 To UBound(TmAy)
Call Conn.Delete("EfangYeWu","YeWu_Sign='" & TmAy(i) & "' And YeWu_State=1")
EfsValue = "YeWu_State=4"
Call Conn.Update("EfangYeWu",EfsValue,"YeWu_Sign='" & TmAy(i) & "' And YeWu_State<>1")
Next
Call ShowErMsgGo("成功删除所选择的业务！",Request("StrWhere"))
End if
VPage = Request("VPage")
YeWu_User = Request("YeWu_User")
YeWu_WUSer = Request("YeWu_WUSer")
YeWu_State = Request("YeWu_State")
YeWu_PSign = Request("YeWu_PSign")
YeWu_ATimeS = Request("YeWu_ATimeS")
If IsDate(YeWu_ATimeS)=False Then YeWu_ATimeS = ""
YeWu_ATimeE = Request("YeWu_ATimeE")
If IsDate(YeWu_ATimeE)=False Then YeWu_ATimeE = ""
YeWu_STimeS = Request("YeWu_STimeS")
If IsDate(YeWu_STimeS)=False Then YeWu_STimeS = ""
YeWu_STimeE = Request("YeWu_STimeE")
If IsDate(YeWu_STimeE)=False Then YeWu_STimeE = ""
YeWu_ETimeS = Request("YeWu_ETimeS")
If IsDate(YeWu_ETimeS)=False Then YeWu_ETimeS = ""
YeWu_ETimeE = Request("YeWu_ETimeE")
If IsDate(YeWu_ETimeE)=False Then YeWu_ETimeE = ""
YeWu_DName = Request("YeWu_DName")
YeWu_DSuff = Request("YeWu_DSuff")
YeWu_FtpUser = Replace(Request("YeWu_FtpUser"),".","_")
YeWu_IP = Request("YeWu_IP")
VByKey = Request("VByKey")
VDesc = Request("VDesc")
VNum = Request("VNum")
YWhere = ""
If Len(YeWu_User)>0 Then YWhere = YWhere & "YeWu_User=" & YeWu_User & " And "
If Len(YeWu_WUSer)>0 Then YWhere = YWhere & "YeWu_WUSer='" & YeWu_WUSer & "' And "
If Mid(session("SessAdminPOP"),52,1)="0" Then
YWhere = YWhere & "(YeWu_WUSer='" & LgData("Admin_User") & "' Or YeWu_WUSer='') And "
End If
If YeWu_State <> "11" Then YWhere = YWhere & "YeWu_State=" & YeWu_State & " And "
If Mid(session("SessAdminPOP"),51,1) = 0 Then YWhere = YWhere & "YeWu_State <> 4 And "
If Len(YeWu_PSign)>0 Then YWhere = YWhere & "YeWu_PSign='" & YeWu_PSign & "' And "
If Len(YeWu_PSign)>0 Then YWhere = YWhere & "YeWu_PSign='" & YeWu_PSign & "' And "
If Len(YeWu_ATimeS)>0 Then YWhere = YWhere & "YeWu_ATime > #" & YeWu_ATimeS & " 0:0:0# And "
If Len(YeWu_ATimeE)>0 Then YWhere = YWhere & "YeWu_ATime < #" & YeWu_ATimeE & " 23:59:59# And "
If Len(YeWu_STimeS)>0 Then YWhere = YWhere & "YeWu_STime > #" & YeWu_STimeS & " 0:0:0# And "
If Len(YeWu_STimeE)>0 Then YWhere = YWhere & "YeWu_STime < #" & YeWu_STimeE & " 23:59:59# And "
If Len(YeWu_ETimeS)>0 Then YWhere = YWhere & "YeWu_ETime > #" & YeWu_ETimeS & " 0:0:0# And "
If Len(YeWu_ETimeE)>0 Then YWhere = YWhere & "YeWu_ETime < #" & YeWu_ETimeE & " 23:59:59# And "
If Len(YeWu_DName)>0 Then YWhere = YWhere & "YeWu_DName like '%" & YeWu_DName & "%' And "
If Len(YeWu_DSuff)>0 Then YWhere = YWhere & "YeWu_DSuff='" & YeWu_DSuff & "' And "
If Len(YeWu_FtpUser)>0 Then YWhere = YWhere & "YeWu_FtpUser like '%" & YeWu_FtpUser & "%' And "
If Len(YeWu_IP)>0 Then YWhere = YWhere & "YeWu_IP='" & YeWu_IP & "' And "
If Len(YWhere)>0 Then YWhere = Left(YWhere,Len(YWhere)-5)
YWhere = YWhere & " Order By " & VByKey
If VDesc = "1" Then YWhere = YWhere & " Desc"
AyData = Conn.TurnPage("EfangYeWu",YWhere,"*",VPage,VNum)
'Response.Write AyData(2) & "<br>" : Response.End
StrWhere = ""
StrWhere = StrWhere & "YeWu_User=" & YeWu_User & "&"
StrWhere = StrWhere & "YeWu_WUSer=" & YeWu_WUSer & "&"
StrWhere = StrWhere & "YeWu_State=" & YeWu_State & "&"
StrWhere = StrWhere & "YeWu_PSign=" & YeWu_PSign & "&"
StrWhere = StrWhere & "YeWu_ATimeS=" & YeWu_ATimeS & "&"
StrWhere = StrWhere & "YeWu_ATimeE=" & YeWu_ATimeE & "&"
StrWhere = StrWhere & "YeWu_STimeS=" & YeWu_STimeS & "&"
StrWhere = StrWhere & "YeWu_STimeE=" & YeWu_STimeE & "&"
StrWhere = StrWhere & "YeWu_ETimeS=" & YeWu_ETimeS & "&"
StrWhere = StrWhere & "YeWu_ETimeE=" & YeWu_ETimeE & "&"
StrWhere = StrWhere & "YeWu_DName=" & YeWu_DName & "&"
StrWhere = StrWhere & "YeWu_DSuff=" & YeWu_DSuff & "&"
StrWhere = StrWhere & "YeWu_FtpUser=" & YeWu_FtpUser & "&"
StrWhere = StrWhere & "YeWu_IP=" & YeWu_IP & "&"
StrWhere = StrWhere & "VByKey=" & VByKey & "&"
StrWhere = StrWhere & "VDesc=" & VDesc & "&"
StrWhere = StrWhere & "VNum=" & VNum & "&"
%>
<html>
<head>
<title>业务组合查询-搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="业务组合查询">
</form>
<form action="" method="post" name="EForm" id="EForm">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">管理工具>> 业务管理 >> <b></b><b></b><b>业务组合查询</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img src="images/toolbar_help.gif" alt="帮助" width="43" height="20" border="0" id="id_locate" style="cursor:hand;width:22px; height:20px;" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<tr align="right">
<td height="30" colspan="9" class="DataGroup"><a href="YeWu_ListShow.asp?YeWu_State=1&VDesc=1&VByKey=YeWu_ATime&VNum=20" class=commonface>申请中业务</a> <a href="YeWu_ListShow.asp?YeWu_State=2&VDesc=1&VByKey=YeWu_ATime&VNum=20" class=commonface><font color="#FF0000"><b>待处理业务</b></font></a> <font color="#000000">|</font> <a href="YeWu_ListShow.asp?YeWu_State=11&YeWu_ATimeS=<%=Efang.DateTime("Y-m-d")%>&YeWu_ATimeE=<%=Efang.DateTime("Y-m-d")%>&VDesc=1&VByKey=YeWu_ATime&VNum=20" class=commonface>今天业务</a> <font color="#000000">|</font> <a href="YeWu_ListShow.asp?YeWu_State=11&YeWu_ATimeS=<%=Efang.DateTime("Y-m-1")%>&YeWu_ATimeE=<%=DateAdd("d",-1,DateAdd("m",1,Efang.DateTime("Y-m-1")))%>&VDesc=1&VByKey=YeWu_ATime&VNum=20" class=commonface>本月业务</a> <font color="#000000">| </font><a href="YeWu_ListShow.asp?YeWu_State=11&YeWu_ATimeS=<%=Efang.DateTime("Y-m-1",DateAdd("m",-1,date))%>&YeWu_ATimeE=<%=DateAdd("d",-1,Efang.DateTime("Y-m-1"))%>&VDesc=1&VByKey=YeWu_ATime&VNum=20" class=commonface>上月业务</a><font color="#000000">| </font><a href="YeWu_List.asp" class=commonface>组合查询</a></td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td height="30" colspan="9">共 <%=AyData(1)%> 条 第 <%=AyData(3)%>
页/共 <%=AyData(2)%> 页 <a href="?VPage=1&<%=StrWhere%>" class="CommonFace">首页</a>
<a href=?VPage=<%=AyData(3)-1%>&<%=StrWhere%> class="CommonFace">上一页</a> <a href=?VPage=<%=AyData(3)+1%>&<%=StrWhere%>>下一页</a>
<a href=?VPage=<%=AyData(2)%>&<%=StrWhere%> class="CommonFace">未页</a></td>
</tr>
<th width="30" nowrap class="DataListHeader"> </th>
<th width="40" nowrap class="DataListHeader" height="26">序号</th>
<th width="168" nowrap class="DataListHeader" height="26">业务名称</th>
<th width="84" nowrap class="DataListHeader" height="26">会员帐号</th>
<th nowrap class="DataListHeader" width="225">域名/使用域名</th>
<th width="73" nowrap class="DataListHeader">金额</th>
<th width="59" nowrap class="DataListHeader">专员</th>
<th nowrap class="DataListHeader" width="83">
<%
If VByKey = "YeWu_ATime" Then Response.Write "申请时间"
If VByKey = "YeWu_STime" Then Response.Write "开始时间"
If VByKey = "YeWu_ETime" Then Response.Write "结束时间"
%>
</th>
<th nowrap class="DataListHeader" width="82">状态</th>
<%
Set YeWuData = AyData(0)
XuNum = (AyData(3)-1)*VNum
Count=0
Do while not YeWuData.EOF And Count<Clng(VNum)
TmpDom = YeWuData("YeWu_DName") & YeWuData("YeWu_DSuff")
If Len(YeWuData("YeWu_DHead"))>0 Then TmpDom = YeWuData("YeWu_DHead") & "." & TmpDom
%>
<tr align="center">
<td width="30" align="center" nowrap class="DataListGrid"><input name="PickYeWu" type="checkbox" id="PickYeWu" value="<%=YeWuData("YeWu_Sign")%>"></td>
<td width="40" align="center" nowrap class="DataListGrid" height="26">
<%
XuNum = XuNum + 1
Response.Write XuNum
%>
</td>
<td width="168" align="center" nowrap class="DataListGrid" height="26" title="<%=YeWuData("YeWu_Sign")%>"><a href="YeWu_Upd.asp?Sign=<%=YeWuData("YeWu_Sign")%>" class="CommonFace"><%=YeWuData("YeWu_Name")%></a></td>
<td width="84" align="center" nowrap class="DataListGrid" height="26"><a href=User_Upd.asp?User=<%=YeWuData("YeWu_User")%> class="CommonFace"><%=YeWuData("YeWu_User")%></a></td>
<td align="center" nowrap class="DataListGrid" width="225"><input type="text" value="<%=TmpDom%>" style="border-width:0pt;font-szie:9pt;text-align:center;" readonly="true"></td>
<td width="73" align="center" nowrap class="DataListGrid" title="单价：<%=YeWuData("YeWu_Pri")%> 元 数量：<%=YeWuData("YeWu_Numy")%>"><%=YeWuData("YeWu_Sum")%> 元</td>
<td width="59" align="center" nowrap class="DataListGrid"> <a href=SysUser_Upd.asp?Admin_User=<%=YeWuData("YeWu_WUser")%> class="CommonFace"><%=YeWuData("YeWu_WUser")%></a>
</td>
<td align="center" nowrap class="DataListGrid" width="83" title="<%="申请时间：" & YeWuData("YeWu_ATime") & vbcrlf & "开始时间：" & YeWuData("YeWu_STime") & vbcrlf & "结束时间：" & YeWuData("YeWu_ETime")%>">
<%
Response.Write Efang.DateTime("y-m-d",YeWuData(VByKey))
%></td>
<td align="center" nowrap class="DataListGrid" width="82"><a href="YeWu_Upd.asp?Sign=<%=YeWuData("YeWu_Sign")%>" class="CommonFace">
<%
If YeWuData("YeWu_State") = 1 Then Response.Write "申请中"
If YeWuData("YeWu_State") = 2 Then Response.Write "<font color=""#FF0000"">处理中</font>"
If YeWuData("YeWu_State") = 3 Then Response.Write "正常"
If YeWuData("YeWu_State") = 4 Then Response.Write "删除"
%></a></td>
</tr>
<%
Count = Count + 1
YeWuData.movenext
Loop
Set YeWuData=Nothing
%>
</table>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="9%" height="33" align="center"><img src="pic/arrow_ltr.gif" width="38" height="22"></td>
<td width="61%"><a href="db_details_structure.php?lang=zh&server=1&db=efs&checkall=1" onclick="setCheckboxes('tablesForm', true); return false;">
</a><a href="javascript:CheckAll(true);" class="CommonFace" onmouseover="window.status=''; return true;">全选</a>
/ <a href="javascript:CheckAll(false);" class="CommonFace" onmouseover="window.status=''; return true;">全部不选</a>
选中项 <a onmouseover="window.status=''; return true;" href="javascript:OnClickDel();" onClick="if(!confirm('【提醒您】\n\n 确认要删除选中的业务？')){return false;}"><img src="pic/button_drop.png" alt="删除所有选中业务" width="11" height="13" border="0"></a>
<input name="StrWhere" type="hidden" id="StrWhere" value="?VPage=<%=AyData(3)%>&<%=StrWhere%>"> </td>
<td width="30%"><script language="JavaScript">
<!--
function CheckAll(buer)
{
for (var i=0;i<EForm.elements.length;i++)
{
var e = EForm.elements[i];
e.checked = buer;
}
}
function OnClickDel(){
EForm.action = "?Cmd=Del";
EForm.submit();
}
// -->
</script>
</td>
</tr>
</table> </div>
</td>
</tr>
</table>
</form>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -