?? 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 count(借款人) FROM dbo.短期債務表 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 count(借款人姓名) FROM dbo. 短期債權 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><font color="#FFFFFF" size="4" face="黑體">歡迎你使用這個個人理財系統，該系統可以幫助你管理你自己的財產</font>
</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">版權所有
SUPPER3000@263.NET</font></div></td>
</tr>
</table>
</body>
<%
rs.Close()
Set rs = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -