?? tj.asp
字號(hào):
<%
If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="tjcode.asp"-->
<%
'檢查用戶(hù)的操作權(quán)限
if GetSess("UserName")<>"超級(jí)用戶(hù)" Then CheckAuthor(14)
Dim MySql
Dim sDate1,sDate2
Dim QuaTotal,AmoTotal,STotal '合計(jì)參數(shù)
QuaTotal=0
AmoTotal=0
STotal=0
'給出數(shù)據(jù)
GetInput
%>
<title>客人消費(fèi)總報(bào)表</title>
<body style="font-family: 宋體; font-size: 10pt">
<%
'瀏覽模式顯示該表格
If request("mode")<>"print" Then
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="20">
<tr>
<td width="100%"></td>
</tr>
</table>
<%
End If
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808080" width="96%" id="AutoNumber3" height="21">
<tr>
<td height="50" colspan="2" align="center" width="760">
<br><span style="letter-spacing: 3pt; ">【<%=CompanyName%>】客人消費(fèi)總報(bào)表</span></td>
</tr>
<tr><form method="POST" action="tj.asp" name="Query">
<td width="12%" align="center" bgcolor="#DCF7FC" height="25" style="font-family: 宋體; font-size: 9pt">
<%
If request("mode")<>"print" Then
%>
<a href="tj.asp?mode=print&txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>"><font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a>
<%
Else
%>
<a href="tj.asp?txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>"><font color="#006699">
<img border="0" src="images/paper.gif" align="texttop" alt="瀏覽模式"> 瀏覽模式</font></a>
<%
End If
%>
</td>
<td align="right" style="font-family: 宋體; font-size: 9pt" bgcolor="#DCF7FC" height="25"> 日期:<input type="text" value="<%=sDate1%>" name="txtDate1" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:3; padding-right:3; padding-top:1; background-color:#DCF7FC">
至<span lang="en-gb"> </span>
<input type="text" name="txtDate2" value="<%=sDate2%>" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:2; padding-right:2; padding-top:1; background-color:#DCF7FC"><span lang="en-gb">
</span><input type="submit" value="搜索" name="B1" style="color: #FFFFFF; height: 20; font-size: 10pt; font-family: 宋體; border: 1px solid #00FFFF; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"><input type="button" value="打印" name="Printit" onClick="window.print();" style="color: #FFFFFF; height: 20; border: 1px solid #00FFFF; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"> </td>
</tr></form>
</table>
</center>
</div>
<%
Dim NewDBC
Set NewDBC=CreateObject("ADODB.Connection")
NewDBC.Open Constring
Set objRs=CreateObject("ADODB.Recordset")
objRs.Open MySQL,NewDBC,adOpenKeySet, adLockOptimistic, adcmdText
If objRS.eof then
objRS.Close
set objRS=nothing
CloseDatabase NewDBC
Response.write "<P Align='Center'>沒(méi)有記錄,請(qǐng)改變?nèi)掌谠僭囋?</font></P>"
Else
%>
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse; font-family: 宋體; font-size: 9pt; color:#006699" bordercolor="#808080" width="96%" id="AutoNumber4" bordercolordark="#808080" bordercolorlight="#808080" height="40">
<tr>
<td width="22%" bgcolor="#FBF4EA" align="center">
<font color="#006699"><span style="letter-spacing: 2">消費(fèi)日期</span></td>
<td width="22%" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">項(xiàng)目名稱(chēng)</span></td>
<td width="22%" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">消費(fèi)金額</span></td>
<td width="22%" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">上臺(tái)筆數(shù)</span></td>
</tr>
<%
WriteList '寫(xiě)列表
CloseDatabase NewDBC
%> <tr>
<td width="44%" bgcolor="#FFFFFF" colspan="2" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<font color="#006699"><span lang="zh-cn">【</span> 合<span lang="en-gb"> </span>計(jì)
<span lang="zh-cn">】</span> <span lang="zh-cn">共〖</span><b><font size="2"><%=FormatNumber(STotal,0,-1)%></font></b><span lang="zh-cn">〗</span></font><span lang="zh-cn">條記錄</span></td>
<td width="22%" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<span lang="en-gb"><font color="#000000"><%=FormatNumber(AmoTotal,2,-1) & "元"%></font></span> </td>
<td width="22%" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"><%=QuaTotal%>臺(tái)</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse; font-family:宋體; font-size:9pt" bordercolor="#111111" width="96%" id="AutoNumber5">
<tr>
<td width="33%" height="3"></td>
<td width="33%" height="3"></td>
<td width="34%" align="right" height="3"></td>
</tr>
<tr>
<td width="33%"><font color="#808080"> 制單：</font><font color="#006699"><span lang="en-gb"><%=Getsess("Username")%></span></font></td>
<td width="33%"> </td>
<td width="34%" align="right"><font color="#808080">日期：</font><font color="#006699"><span lang="en-gb"><%=Date%></span></font></td>
</tr>
<tr>
<td width="33%"> </td>
<td width="33%"> </td>
<td width="34%" align="right"><font color="#808080"><%=CompanyName%></font></td>
</tr>
</table>
</center>
</div>
<%
End if
'生成查詢(xún)串,再第一次訪(fǎng)問(wèn)時(shí)。
Sub GenerateSQL
Dim Sqlproc
Dim Key
Dim Sqladd
SqlAdd=" And "
'檢測(cè)是SQL還是access數(shù)據(jù)庫(kù)
If IsSqlDat = True Then
MySql = "Select * from tbdCash Where DDate>='" & sDate1 & "' And DDate<='" & sDate2 & "' Order By Ddate Desc"
Else
MySql = "Select * from tbdCash Where DDate>=#" & sDate1 & "# And DDate<=#" & sDate2 & "# Order By Ddate Desc"
End If
End sub
'給出查詢(xún)變量參數(shù)
Sub GetInput
'給出日期段 ******************************
sDate1=request("txtDate1")
sDate2=request("txtdate2")
If Not Isdate(sDate1) Then
sDate1=Date-7
End If
If Not Isdate(sDate2) Then
sDate2=Date
End If
If cDate(sdate1)>CDate(sDate2) Then
sDate1=sDate2
End If
'*****************************************
'打開(kāi)查詢(xún)字符串
GenerateSQL
End sub
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -