admin_rentlog.asp

本程序是一款比较完善的图书租赁系统

<!--#include file="conn.asp"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ChkAdmin.asp"-->
<!--#include file="ChkSQL.asp"-->
<!--#include file="ResultMsg.asp"-->
<%
Dim tmpTD,tmpMovieStatus
tmpTD="<td class=TableBody1 align=center width=10% >"

Response.Write "<link href=style.css rel=stylesheet type=text/css>"
Select Case Request("SearchOption")
	Case "s_id"
		If IsNumeric(Request("SearchStr"))=True AND Request("SearchStr")<>"" Then
			strSQL="SELECT * FROM [Tenancy],[UserInfo],[VideoInfo] WHERE TAC_UI_ID_FN=UI_ID_N AND TAC_VI_ID_FN=VI_ID_N AND TAC_ID_N="&Request("SearchStr")&" ORDER BY TAC_ReserveTime_D DESC"
		Else
			strSQL="SELECT * FROM [Tenancy],[UserInfo],[VideoInfo] WHERE TAC_UI_ID_FN=UI_ID_N AND TAC_VI_ID_FN=VI_ID_N ORDER BY TAC_ReserveTime_D DESC"
		End If
	Case "s_name"
		strSQL="SELECT * FROM [Tenancy],[UserInfo],[VideoInfo] WHERE TAC_UI_ID_FN=UI_ID_N AND TAC_VI_ID_FN=VI_ID_N AND VI_Title_S LIKE '%"&Replace(Request("SearchStr"),"'","")&"%' ORDER BY TAC_ReserveTime_D DESC"
	Case Else
		strSQL="SELECT * FROM [Tenancy],[UserInfo],[VideoInfo] WHERE TAC_UI_ID_FN=UI_ID_N AND TAC_VI_ID_FN=VI_ID_N ORDER BY TAC_ReserveTime_D DESC"
End Select

Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.PageSize=20
objRS.Open strSQL,objConn,1,3
If objRS.BOF Or objRS.EOF Then
	Call ResultMsg("对不起，没有找到指定的记录。")
	Response.End
End If
%>
<!--#include file="ChangePage.asp"-->
<%
Response.Write "<form action=admin_rentlog.asp name=MyForm>"
Response.Write "<table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=50% height=25% >"
Response.Write "<tr><th id=tabletitlelink height=25 style=font-weight:normal align=center colspan=10><b>租赁记录（点击影片名称可显示详细信息）</b></th></tr>"
Response.Write "<tr><td class=TableBody2 align=right colspan=10>"
Call ChangePage("admin_rentlog.asp")
Response.Write "共<b>"&objRS.RecordCount&"</b>个记录&nbsp;&nbsp;&nbsp;查找：<input type=text name=SearchStr size=5>&nbsp;<input type=radio name=SearchOption value=s_id checked>ID<input type=radio name=SearchOption value=s_name>影片名称&nbsp;<input type=submit value=查找></td></tr>"
Response.Write "<tr>"&tmpTD&"ID"&tmpTD&"影片</td>"&tmpTD&"租户"&tmpTD&"预订时间"&tmpTD&"超时"&tmpTD&"返还"&tmpTD&"起租时间"&tmpTD&"租期"&tmpTD&"返还时间"&tmpTD&"结算</tr>"
For i=1 To objRS.PageSize
	Response.Write "<tr>"&tmpTD&objRS("TAC_ID_N")&tmpTD&"<a href=disprent.asp?id="&objRS("TAC_ID_N")&">"&objRS("VI_Title_S")&"</a>"&tmpTD&objRS("UI_Name_S")&tmpTD&objRS("TAC_ReserveTime_D")&tmpTD&objRS("TAC_TimeOut_B")&tmpTD&objRS("TAC_Return_B")&tmpTD&objRS("TAC_StartTime_D")&tmpTD&objRS("TAC_Lease_N")&tmpTD&objRS("TAC_EndTime_D")&tmpTD&objRS("TAC_UserPayment_N")&"</tr>"
	objRS.MoveNext
	If objRS.EOF Then Exit For
Next
Response.Write "</form>"
%>