📄 main.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim rs
Dim rs_numRows
dim a
dim b
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT 借债人 FROM 短期债务 WHERE -7<DATEDIFF(day,日期,getdate()) and DATEDIFF(day,日期,getdate())<7"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
if rs.eof or rs.bof then
a=0
else
a=rs.fields(0)
end if
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT 借款人姓名 FROM 短期债权 WHERE -7<DATEDIFF(day,款项到期日期,getdate()) and DATEDIFF(day,款项到期日期,getdate())<7"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
if rs1.eof or rs1.bof then
b=0
else
b=rs.fields(0)
end if
%>
<body bgcolor="7C96B8" >
<table width="100%" height="100%" border="0" bordercolor="#FFFFFF" bgcolor="#000000">
<tr bordercolor="#000000" bgcolor="#316395">
<td height="20" colspan="3"><div align="center"><font color="#FFFFFF" face="黑体">欢迎您使用个人财务管理系统</font></div></td>
</tr>
<tr bordercolor="#000000" bgcolor="#316395">
<td height="22" colspan="3"><div align="center"><font color="#FFFFFF" face="黑体">现在时间是<%=Now()%></font></div></td>
</tr>
<tr bordercolor="#000000" bgcolor="#316395">
<td height="19" colspan="3"><div align="center"><font color="#FFFFFF" face="黑体">您是
<% =Session("UID")%>
</font></div></td>
</tr>
<tr>
<td width="12%" height="159" bordercolor="#000000" bgcolor="#6699CC"> </td>
<td width="73%" bordercolor="#000000" bgcolor="#6699CC"><table width="100%" height="151" border="0">
<tr>
<td><div align="center"><font color="#FFFFFF" size="4" face="黑体">欢迎</font><font color="#FFFFFF" face="黑体">您</font><font color="#FFFFFF" size="4" face="黑体">使用个人财务管理系统，该系统可以帮助你管理自己的财产</font>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center"><font color="#FFFFFF" size="4" face="黑体">你在7天内有<%=a%>条债务到期，有<%=b%>条债权到期</font></div></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="15%" bordercolor="#000000" bgcolor="#6699CC"> </td>
</tr>
<tr bordercolor="#000000" bgcolor="#7C96B8">
<td height="30" colspan="3">
<div align="center"><font color="#FFFFFF">版权所有 <a href="http://www.ha-s.com" target="_blank"><font color="#FFFFFF">DiUDiU
DESIGN</font></a></font></div></td>
</tr>
</table>
</body>
<%
rs.Close()
Set rs = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -