?? search.asp
字號:
<!--#include file="connection.asp"-->
<!--#include file="dateformat.asp"-->
<%
if session("userid") = "" then '檢查權限
Response.Redirect "login.htm"
end if
%>
<html>
<head>
<link href="styles.css" rel="stylesheet" type="text/css">
<title>Expenses Management System</title>
</head>
<body leftmargin = 0 topmargin = 0>
<center>
<br>
<form name = "form1" action="search.asp" method="post">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#0099CC">
查詢:</font>
<input class = "textbox" name = "searchString" size = "20" type="text" value = "<%=request("searchString")%>">
<input class = "button" name = "cmdsubmit" value="查詢" type="submit">
</form>
<% if trim(request("searchString")) <> "" then %>
<table width = "779" bordercolor = "#0099cc" border = 1 cellpadding = 0 cellspacing = 0>
<tr>
<td bgcolor="#0099cc">
<font color = white size = 2 face = verdana,arial><div align="center">
<strong>查詢結果</strong></div></font>
</td>
</tr>
</table>
<br>
<table width="779" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099CC">
<tr bgcolor="#0099CC">
<td width="38"> <div align="center"><strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
編號</font></strong></div></td>
<td width="305"> <div align="center"><strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
說明</font></strong></div></td>
<td width="131"> <div align="center"><strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
金額</font></strong></div></td>
<td width="109"> <div align="center"><strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
日期</font></strong></div></td>
<td width="110"> <div align="center"><strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
類型</font></strong></div></td>
<td width="70"> <div align="center"><strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
用戶</font></strong></div></td>
</tr>
<%
conn.open = connstring
set rs = Server.CreateObject("adodb.recordset")
'查詢財務開支詳細信息
rs.open "select distinct * from expenses where E_Particulars like '%" & request("SearchString") & "%' order by e_date asc",conn
i = 0
while not rs.EOF '循環顯示查詢結果
set rs2 = Server.CreateObject("adodb.recordset")
rs2.open "select * from titles where title_id = " & rs.Fields("title_id"),conn
i = i + 1
%>
<tr>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=i%></font></div></td>
<td><div align="justify"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs.fields("E_particulars")%> </font></div></td>
<td><div align="right"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=formatnumber(rs.fields("amount"),0)%> </font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=ReturnDate(rs.fields("E_date"))%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs2.fields("title_name")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs.fields("userid")%></font></div></td>
</tr>
<%
rs.MoveNext
wend
%>
</table>
<% end if %>
</center>
<br>
<div align="center"><a href="main.asp">返回</a> </div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -