📄 g_fwts.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PublicWeek.asp"-->
<% username=Getuser()%>
<%
'*****************************
'
'Author:Ruphi Update Time:2001-08-30
'功能：对于例行访问的客户进行提示。
'说明：针对登录者的已执行的计划，否则就不能显示出来。
'
'*****************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title><link href="cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub GoPage()
a="G_fwts.asp?page="+document.myform.page1.value
window.location=a
end sub
</script>
<body bgcolor="#FFFFFF" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font>
<font size="2">例行访问客户提示
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<p align="left">
<%
set rsfw=server.createobject("adodb.recordset")
str="select * from G_viewfwts where stuffnum='"&Session("UserID")&"' and (cdate(visitdate)+month1) between date() and (date()+10)"
rsfw.open str,pubconn,1
if rsfw.eof then%>
<font size="2">
您最近无例行访问的客户。
<br>
</font>
<%Response.End
else
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
rsfw.pagesize=10
if page>=rsfw.pagecount then
page=rsfw.pagecount
else
if page<1 then
page=1
end if
end if
rsfw.absolutepage=page
%>
<br>
<font size="2">您最近须例行访问的客户如下：</font>
<form action="" name="myform">
<table border="1" cellspacing="0" width="648" height="30">
<tr>
<td width="149" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">客户名称
</font>
</td>
<td width="113" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">客户级别
</font>
</td>
<td width="113" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">例行访问间隔天数
</font>
</td>
<td width="113" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">上次访问日期</font>
</td>
<td width="176" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">本次例行访问日期</font>
</td>
</tr>
<% for n=1 to rsfw.pagesize%>
<%if n mod 2=1 then
bg="#f7f7f7"
else
bg="#EDEBEC"
end if%>
<tr bgcolor="<%=bg%>">
<td width="149" height="23" align="center"><font size="2"><%=rsfw("ClientName")%></td>
<td width="113" height="23" align="center"><%=rsfw("Level")%></td>
<td width="113" height="23" align="center"><%=rsfw("month1")%></td>
<td width="113" height="23" align="center"><font size="2"><%=rsfw("visitdate")%></font></td>
<%
uu=cdate(rsfw("visitdate"))+rsfw("month1")
tt=split(uu,"-")
yy=tt(0)
if len(tt(1))=1 then
mm="0"+tt(1)
else
mm=tt(1)
end if
if len(tt(2))=1 then
dd="0"+tt(2)
else
dd=tt(2)
end if
' response.write dd
fdate=yy+"-"+mm+"-"+dd
%>
<td width="176" height="23" align="center"><font size="2"><%=fdate%>
</font>
</td>
</tr>
<%
rsfw.movenext
if rsfw.eof then exit for
next
%>
</table>
<p align="center">
<font size="2">
共<%=rsfw.pagecount%>页 第<%=page%>页 <a href="G_fwts.asp?page=1">首页</a> <%if page>1 then %>
<a href="G_fwts.asp?page=<%=(page-1)%>">上页</a>
<% else%>
上页
<% end if%>
<%if page<rsfw.pagecount then %>
<a href="G_fwts.asp?page=<%=(page+1)%>">下页</a>
<% else %>
下页
<%end if%><a href="G_fwts.asp?page=<%=rsfw.pagecount%>">尾页</a> </font>
<%%>
<select name="page1" style="width:80" size="1">
<% for p=1 to rsfw.pagecount%>
<option value="<%=p%>">第<%=p%>页</option>
<%next%>
</select> <input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<p align="left">
</form>
<% end if %>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -