初學asp,又要急用太痛苦了,求求大家幫幫我吧.
我現在要做一個關羽單價變更記錄的查詢頁面:
主要通過 料號,品名,廠商名,變更日期,變更人,這幾各字段來查詢
要求是都可以輸入%來模糊查詢,而且可以通過以上任一幾各字段來
組合查詢.
以下是我寫的部分 code,請大家幫我修改,還有對於分頁顯示我是一點
不會,請大家幫幫我吧.可以用版上的函數,類都可以,麻煩大家寫清楚詳細
對寫注釋.我才剛用asp兩個星期,請大家見諒.
我的數據庫連結文件是用dreamweaver mx生成的,
數據庫連接 tooracle.asp
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_tooracle_STRING
MM_tooracle_STRING = "Driver={Microsoft ODBC for Oracle};Server=pr2;Uid=apps;Pwd=apps;"
%>
單價變更記錄查詢.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!--#include file="Connections/tooracle.asp" -->
<%
DIM Logrs_pm_itemno,Logrs_pm_descrp,Logrs_pm_vendorid,Logrs_pm_vendorname, Logrs_pm_username
Logsql=" Select MTL.DESCRIPTION,MTL.SEGMENT1,PRL.VENDOR_ID,PRL.VENDOR_NAME,PRL.ITEM_NO,
PRL.CURRENCY_CODE,LOG.OLD_PRICE,LOG.NEW_PRICE,LOG.UPDATED_BY,
LOG.UPDATE_DATE,LOG.LINE_ID,FND.USER_ID,FND.USER_NAME"
Logsql=Logsql & "FROM INV.MTL_SYSTEM_ITEMS MTL,PO.MSI_PO_PRICE_LIST PRL,PO.MSI_PO_PRICE_LIST_LOG LOG,FND_USER FND"
Logsql=Logsql & "WHERE 1=1"
Logsql=Logsql & " AND MTL.SEGMENT1 = PRL.ITEM_NO AND PRL.LINE_ID = LOG.LINE_ID AND LOG.UPDATED_BY = FND.USER_ID"
If(Request.Form("itemno") <> "") Then
Logrs_pm_itemno = Request.Form("itemno")
Logsql= Logsql & " AND PRL.ITEM_NO LIKE '"& Logrs_pm_itemno &"'"
end If
If(Request.Form("p_description") <> "") Then
Logrs_pm_descrp = Request.Form("p_description")
Logsql= Logsql & " AND MTL.DESCRIPTION LIKE '"& Logrs_pm_descrp &"'"
end If
If(Request.Form("p_vendorid") <> "") Then
Logrs_pm_vendorid= Request.Form("p_vendorid")
Logsql= Logsql & " AND PRL.VENDOR_ID LIKE '" & Logrs_pm_vendorid & "'"
end If
If(Request.Form("p_vendor") <> "") Then
Logrs_pm_vendorname = Request.Form("p_vendor")
Logsql= Logsql & " AND PRL.VENDOR_NAME LIKE '" & Logrs_pm_vendorname & "'"
end If
'通過日期查詢不會 AND LOG.UPDATE_DATE BETWEEN NVL(DATE_FROM,'1900-01-01') AND NVL(TO_DATE,'2099-12-31')
If(Request.Form("p_buyer") <> "") Then
Logrs_pm_username = Request.Form("p_buyer")
Logsql= Logsql & " AND FND.USER_NAME LIKE '"& Logrs_pm_username & "'"
end If
%>
<%
DIM LOG_RECSET
Set LOG_RECSET = Server.CreateObject("ADODB.Recordset")
LOG_RECSET.ActiveConnection = MM_tooralce_STRING
LOG_RECSET.Source = Logsql
LOG_RECSET.CursorType = 0
LOG_RECSET.CursorLocation = 2
LOG_RECSET.LockType = 1
LOG_RECSET.Open()
%>
<html>
<head>
<title>單價變更記錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
</head>
<body>
<table width="744" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="25" height="21"> </td>
<td width="698"> </td>
<td width="21"> </td>
</tr>
<tr>
<td height="246"> </td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="702" height="157"><table width="101%" border="1">
<tr>
<td width="12%" height="21">料號</td>
<td width="24%">物料名稱</td>
<td width="11%">新單價</td>
<td width="8%">舊單價</td>
<td width="8%">幣別</td>
<td width="16%">廠商名稱</td>
<td width="11%">變更日期</td>
<td width="10%">變更人</td>
</tr>
<tr>
<td><%=(LOG_RECSET.Fields.Item("PRL.ITEM_NO").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("MTL.DESCRIPTION").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("LOG.NEW_PRICE").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("LOG.OLD_PRICE").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("PRL.CURRENCY_CODE").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("PRL.VENDOR_NAME").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("LOG.UPDATED_BY").Value)%></td>
<td><%=(LOG_RECSET.Fields.Item("FND.USER_NAME").Value)%></td>
</tr>
</table></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="52"> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%
LOG_RECSET.Close()
Set LOG_RECSET = Nothing
%>
求大家幫幫我吧