📄 hymanoktoday.asp
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<!-- #include file="common.asp" -->
<%
Response.Buffer =false
Response.Expires=-1
content=rtrim(ltrim(Request("findcontent")))'查找的关键字
dtfrom=trim(request("dtfrom"))
if len(dtfrom)=0 then
dtfrom=thistoday
end if
set HyRs=server.CreateObject("adodb.recordset")
sql = "select Hy.HyLocation,Hy.HyName,Hy.HyMobile,Hy.HyCardNo,Hy.HyOpenBankNo,Hy.HyParentNumber,Hy.HyTjNumber,Hy.HyBuyCount,Hy.ID,HyClub.HyNumber,HyClub.AddTime,HyClub.ApprovedTime from hy left join hyClub on hy.ID=HyClub.HyID where Hy.IsApproved=1 and HyClub.Addtime='" & dtfrom &"'"
'
'Response.Write sql
'Response.End
HyRs.Open sql,conn
j=HyRs.RecordCount
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</head>
<script>
function fPopUpCalendarDlg(ctrlobj)
{
showx = event.screenX - event.offsetX - 4 - 210 ; // + deltaX;
showy = event.screenY - event.offsetY + 18; // + deltaY;
newWINwidth = 210 + 4 + 18;
retval = window.showModalDialog("Include/CalendarDlg.htm", "", "dialogWidth:197px; dialogHeight:210px; dialogLeft:"+showx+"px; dialogTop:"+showy+"px; status:no; directories:yes;scrollbars:no;Resizable=no; " );
if( retval != null ){
ctrlobj.value = retval;
}else{
//alert("canceled");
}
}
function openwin(page,size)
{
window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width="+ size);
}
function openwin1(page,size)
{
window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,height=350,width="+ size);
}
function makesure()
{
return(confirm("此操作将清空密码，你确定要清空密码吗？"))
}
function makesure1()
{
return(confirm("点击此操作代表你已经给此客户发放了奖金，你确定要发放奖金吗？"))
}
</script>
<body leftmargin="10" topmargin="10" marginwidth="0" marginheight="0">
<FORM name=form1 action="HyManOktoday.asp?HyNumber=<% =HyNumber%>" method=post>
<table width="100%" border="0" height="21" cellpadding="0" cellspacing="0">
<tr>
<td> <div align="center">
<TD width="393" align=middle> <P align="center"> <font color="#FFFFFF">按<font color="#000000">按日期查询新增会员：</font></font>
<input id="dtfrom" name="dtfrom" readonly value="<% =dtfrom %>" size="10">
<img src="image/datetime.gif" style="cursor:hand;" align="absmiddle" alt="弹出日历下拉菜单" onClick="fPopUpCalendarDlg(document.form1.dtfrom);return false" width="16">
<input type="image" value="submit" src="Image/027.gif" id="image1" name="image1">
</P></TD></td>
<td><div align="center"><%=dtfrom%> 新增共计： <font color=red>
<% =j%>
</font> 人</div></td>
<td> </td>
</tr>
</table>
</form>
<%
if j>0 then
dim i
i=1
const pagesize=15
HyRs.PageSize = pagesize
total=HyRs.PageCount
pageno=Request("pageno")
if pageno="" then pageno=1
if not isnumeric(pageno) and pageno<>"" then
%>
<script>alert("请输入正确的页码");
window.history.back();</script>
<%Response.End
End if
if (pageno-1)*pagesize>=j then
if (j mod pagesize)=0 then
pageno= j \ pagesize
else
pageno= j \ pagesize + 1
end if
end if
if pageno<1 then
%>
<script>alert("页码数不能小于１");
window.history.back();</script>
<%Response.End
End if
if (pageno>65535) then
%>
<script>alert("页码数不能大于总数！");
window.history.back();</script>
<%Response.End
end if
if (clng(pageno)>clng(total)) then %>
<script>alert("页码数不能大于总数！");
window.history.back();</script>
<%
Response.End
end if
pageno=cint(pageno)
%>
<table border="1" cellpadding="0" cellspacing="0" width="98%" bordercolordark="#e0f4ff" bordercolorlight="#162d6b">
<tr class="td3">
<td width="6%"> <div align="center"><font color="#FFFFFF">序号</font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF">会员姓名</font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF">注册编号</font></div></td>
<td width="8%"> <div align="center"><font color="#FFFFFF">
<% =GetDisplayName("HyCardNo")%>
</font></div></td>
<td width="12%"> <div align="center"><font color="#FFFFFF">
<% =GetDisplayName("HyOpenBankNo")%>
</font></div></td>
<td width="12%"> <div align="center"><font color="#FFFFFF">
<% =GetDisplayName("HyTjNumber")%>
</font></div></td>
<td width="8%"> <div align="center"><font color="#FFFFFF">
<% =GetDisplayName("HyLocation")%>
</font></div></td>
<td width="10%"> <div align="center"><font color="#FFFFFF">
<% =GetDisplayName("HyMobile")%>
</font></div></td>
<td width="8%"> <div align="center"><font color="#FFFFFF">注册时间</font></div></td>
<!--<td width="6%"> <div align="center"><font color="#FFFFFF">删除</font></div></td>-->
</tr>
<%
HyRs.absolutepage=pageno
dim x
i=1
x=2
while (not HyRs.eof) and (i<=pagesize)
if x mod 2 then
%>
<tr class="td1">
<%
else
%>
<tr height="25">
<%
end if
%>
<td> <div align="center">
<% =i%>
</div></td>
<td><div align="center"><a href="javascript:openwin('hyview.asp?id=<% =HyRs("id")%>',800)">
<%=HyRs("HyName")%></a> [
<%if GetOtherSettingValue("IsShowNewPeopleInXp")="是" then%>
<a href="javascript:openwin('xp_showall.asp?Level=1&HyNumber=<% =HyRs("HyNumber")%>',800)">
<%else%><a href="javascript:openwin('xp_showall.asp?Level=1&HyNumber=<% =HyRs("HyNumber")%>',800)">
<%end if%>
<img src="Image/3man.gif" width="15" height="16" border="0"></a>] </div></td>
<td><div align="center"><%=HyRs("HyNumber")%> </div></td>
<td><div align="center"><%=HyRs("HyCardNo")%> </div></td>
<td><div align="center">
<% =HyRs("HyOpenBankNo")%>
</div></td>
<td><div align="center">
<% =HyRs("HyTjNumber")%>
</div></td>
<td><div align="center">
<% =HyRs("HyLocation")%>
</div></td>
<td> <div align="center">
<% =HyRs("HyMobile")%>
</div></td>
<td> <div align="center">
<% =HyRs("addTime")%>
</div></td>
<%
HyRs.movenext
i=i+1
x=x+1
wend %>
</tr>
<%
else
Response.Write dtfrom&"还没有会员加入！<a href='javascript:history.back()'>返回</a>"
end if%>
</table>
<p></p>
<%if j>0 then%>
<table align="center">
<tr>
<form name="thisform1" method="Post" action="HymanOktoday.asp?findcontent=<%=content%>">
<td>到第
<input type="text" name="pageno" value="<% =pageno%>" size="3">
页<a onclick="javascript:thisform1.submit();">GO</a> </font></td>
</form>
<td>第
<% =pageno %>页
/共
<% =total%>
页</font></td>
<% if pageno<=1 then %>
<td><font color="#cccccc">首页</font></td>
<td><font color="#cccccc">上一页</font></td>
<% else %>
<td><a href="HymanOktoday.asp?dtfrom=<%=dtfrom%>&pageno=1&findcontent=<%=content%>"><font face="Webdings" color="#FFFFFF">9</font>首页</font></a></td>
<td><a href="HymanOktoday.asp?dtfrom=<%=dtfrom%>&pageno=<%=pageno-1%>&findcontent=<%=content%>">上一页</font></a></td>
<%end if%>
<% if pageno>=total then %>
<td><font color="#cccccc">下一页</font></td>
<td><font color="#cccccc">尾页</font></td>
<%else%>
<td><a href="HymanOktoday.asp?dtfrom=<%=dtfrom%>&pageno=<%=pageno+1%>&findcontent=<%=content%>">下一页</font></a></td>
<td><a href="HymanOktoday.asp?dtfrom=<%=dtfrom%>&pageno=<%=total%>&findcontent=<%=content%>">尾页</font></a></td>
<% end if%>
</tr>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -