⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 htlist.asp

📁 公司合同管理程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
		<td><span class="aspmaker">
		</span></td>
		<td><span class="aspmaker">
		</span></td>
		<td><span class="aspmaker">
		TOTAL: <% Response.Write x_91D1989D %>
		</span></td>
		<td><span class="aspmaker">
		</span></td>
		<td><span class="aspmaker">
		</span></td>
		<td><span class="aspmaker">
		</span></td>
		<% If sExport = "" Then %>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<% End If %>
	</tr>
<% End If %>
</table>
</form>
<%

' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<% If sExport = "" Then %>
<form action="htlist.asp" name="ewpagerform" id="ewpagerform">
<table bgcolor="" border="0" cellspacing="1" cellpadding="4" bgcolor="#000000">
	<tr>
		<td nowrap>
<%
If nTotalRecs > 0 Then
	rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
	PrevStart = nStartRec - nDisplayRecs
	If PrevStart < 1 Then PrevStart = 1
	NextStart = nStartRec + nDisplayRecs
	If NextStart > nTotalRecs Then NextStart = nStartRec
	LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
	%>
	<table border="0" cellspacing="0" cellpadding="0"><tr><td><span class="aspmaker">Page&nbsp;</span></td>
<!--first page button-->
	<% If CLng(nStartRec)=1 Then %>
	<td><img src="images/firstdisab.gif" alt="First" width="16" height="16" border="0"></td>
	<% Else %>
	<td><a href="htlist.asp?start=1"><img src="images/first.gif" alt="First" width="16" height="16" border="0"></a></td>
	<% End If %>
<!--previous page button-->
	<% If CLng(PrevStart) = CLng(nStartRec) Then %>
	<td><img src="images/prevdisab.gif" alt="Previous" width="16" height="16" border="0"></td>
	<% Else %>
	<td><a href="htlist.asp?start=<%=PrevStart%>"><img src="images/prev.gif" alt="Previous" width="16" height="16" border="0"></a></td>
	<% End If %>
<!--current page number-->
	<td><input type="text" name="pageno" value="<%=(nStartRec-1)\nDisplayRecs+1%>" size="4"></td>
<!--next page button-->
	<% If CLng(NextStart) = CLng(nStartRec) Then %>
	<td><img src="images/nextdisab.gif" alt="Next" width="16" height="16" border="0"></td>
	<% Else %>
	<td><a href="htlist.asp?start=<%=NextStart%>"><img src="images/next.gif" alt="Next" width="16" height="16" border="0"></a></td>
	<% End If %>
<!--last page button-->
	<% If CLng(LastStart) = CLng(nStartRec) Then %>
	<td><img src="images/lastdisab.gif" alt="Last" width="16" height="16" border="0"></td>
	<% Else %>
	<td><a href="htlist.asp?start=<%=LastStart%>"><img src="images/last.gif" alt="Last" width="16" height="16" border="0"></a></td>
	<% End If %>
	<td><span class="aspmaker">&nbsp;of <%=(nTotalRecs-1)\nDisplayRecs+1%></span></td>
	</tr></table>
	<% If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs
	nStopRec = nStartRec + nDisplayRecs - 1
	nRecCount = nTotalRecs - 1
	If rsEOF Then nRecCount = nTotalRecs
	If nStopRec > nRecCount Then nStopRec = nRecCount %>
	<span class="aspmaker">Records <%= nStartRec %> to <%= nStopRec %> of <%= nTotalRecs %></span>
<% Else %>
	<span class="aspmaker">No records found</span>
<% End If %>
		</td>
<% If nTotalRecs > 0 Then %>
		<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
		<td align="right" valign="top" nowrap><span class="aspmaker">Records Per Page&nbsp;
<select name="RecPerPage" onChange="this.form.submit();" class="aspmaker">
<option value="20"<% If nDisplayRecs = 20 Then response.write " selected" %>>20</option>
<option value="60"<% If nDisplayRecs = 60 Then response.write " selected" %>>60</option>
<option value="ALL"<% If Session("ht_RecPerPage") = -1 Then response.write " selected" %>>All Records</option>
</select>
		</span></td>
<% End If %>
	</tr>
</table>
</form>	
<% End If %>
<% If sExport <> "word" And sExport <> "excel" Then %>
<!--#include file="footer.asp"-->
<% End If %>
<%

'-------------------------------------------------------------------------------
' Function SetUpDisplayRecs
' - Set up Number of Records displayed per page based on Form element RecPerPage
' - Variables setup: nDisplayRecs

Sub SetUpDisplayRecs()
	Dim sWrk
	sWrk = Request.QueryString("RecPerPage")
	If sWrk <> "" Then
		If IsNumeric(sWrk) Then
			nDisplayRecs = CInt(sWrk)
		Else
			If UCase(sWrk) = "ALL" Then ' Display All Records
				nDisplayRecs = -1
			Else
				nDisplayRecs = 20 ' Non-numeric, Load Default
			End If
		End If
		Session("ht_RecPerPage") = nDisplayRecs ' Save to Session

		' Reset Start Position (Reset Command)
		nStartRec = 1
		Session("ht_REC") = nStartRec
	Else
		If Session("ht_RecPerPage") <> "" Then
			nDisplayRecs = Session("ht_RecPerPage") ' Restore from Session
		Else
			nDisplayRecs = 20 ' Load Default
		End If
	End If
End Sub

'-------------------------------------------------------------------------------
' Function SetUpAdvancedSearch
' - Set up Advanced Search parameter based on querystring parameters from Advanced Search Page
' - Variables setup: sSrchAdvanced

Sub SetUpAdvancedSearch()
	Dim arrFldOpr

	' Field ID
	x_ID = Request.QueryString("x_ID")
	z_ID = Request.QueryString("z_ID")
	arrFldOpr = Split(z_ID,",")
	If x_ID <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[ID] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_ID) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 合同号
	x_5408540C53F7 = Request.QueryString("x_5408540C53F7")
	z_5408540C53F7 = Request.QueryString("z_5408540C53F7")
	arrFldOpr = Split(z_5408540C53F7,",")
	If x_5408540C53F7 <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[合同号] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_5408540C53F7) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 客户名称
	x_5BA26237540D79F0 = Request.QueryString("x_5BA26237540D79F0")
	z_5BA26237540D79F0 = Request.QueryString("z_5BA26237540D79F0")
	arrFldOpr = Split(z_5BA26237540D79F0,",")
	If x_5BA26237540D79F0 <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[客户名称] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_5BA26237540D79F0) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 产品型号
	x_4EA754C1578B53F7 = Request.QueryString("x_4EA754C1578B53F7")
	z_4EA754C1578B53F7 = Request.QueryString("z_4EA754C1578B53F7")
	arrFldOpr = Split(z_4EA754C1578B53F7,",")
	If x_4EA754C1578B53F7 <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[产品型号] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_4EA754C1578B53F7) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 数量
	x_657091CF = Request.QueryString("x_657091CF")
	z_657091CF = Request.QueryString("z_657091CF")
	arrFldOpr = Split(z_657091CF,",")
	If x_657091CF <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[数量] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_657091CF) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 价格
	x_4EF7683C = Request.QueryString("x_4EF7683C")
	z_4EF7683C = Request.QueryString("z_4EF7683C")
	arrFldOpr = Split(z_4EF7683C,",")
	If x_4EF7683C <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[价格] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_4EF7683C) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 金额
	x_91D1989D = Request.QueryString("x_91D1989D")
	z_91D1989D = Request.QueryString("z_91D1989D")
	arrFldOpr = Split(z_91D1989D,",")
	If x_91D1989D <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[金额] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_91D1989D) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 月度
	x_67085EA6 = Request.QueryString("x_67085EA6")
	z_67085EA6 = Request.QueryString("z_67085EA6")
	arrFldOpr = Split(z_67085EA6,",")
	If x_67085EA6 <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[月度] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_67085EA6) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If
	y_67085EA6 = Request.QueryString("y_67085EA6")
	If y_67085EA6 <> "" And UBound(arrFldOpr) >=5 Then
		sSrchAdvanced = sSrchAdvanced & "[月度] " & arrFldOpr(3) & " " & arrFldOpr(4) & y_67085EA6 & arrFldOpr(5) & " AND "
	End If

	' Field 交期
	x_4EA4671F = Request.QueryString("x_4EA4671F")
	z_4EA4671F = Request.QueryString("z_4EA4671F")
	arrFldOpr = Split(z_4EA4671F,",")
	If x_4EA4671F <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[交期] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_4EA4671F) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 承办
	x_627F529E = Request.QueryString("x_627F529E")
	z_627F529E = Request.QueryString("z_627F529E")
	arrFldOpr = Split(z_627F529E,",")
	If x_627F529E <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[承办] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_627F529E) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 备注
	x_59076CE8 = Request.QueryString("x_59076CE8")
	z_59076CE8 = Request.QueryString("z_59076CE8")
	arrFldOpr = Split(z_59076CE8,",")
	If x_59076CE8 <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[备注] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_59076CE8) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If

	' Field 反馈报酬
	x_53CD998862A5916C = Request.QueryString("x_53CD998862A5916C")
	z_53CD998862A5916C = Request.QueryString("z_53CD998862A5916C")
	arrFldOpr = Split(z_53CD998862A5916C,",")
	If x_53CD998862A5916C <> "" Then
		sSrchAdvanced = sSrchAdvanced & "[反馈报酬] " ' Add field
		sSrchAdvanced = sSrchAdvanced	& arrFldOpr(0) & " " ' Add operator
		If UBound(arrFldOpr) >= 1 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(1) ' Add search prefix
		End If
		sSrchAdvanced = sSrchAdvanced & AdjustSql(x_53CD998862A5916C) ' Add input parameter
		If UBound(arrFldOpr) >=2 Then
			sSrchAdvanced = sSrchAdvanced & arrFldOpr(2) ' Add search suffix
		End If
		sSrchAdvanced = sSrchAdvanced	& " AND "
	End If
	If Len(sSrchAdvanced) > 4 Then
		sSrchAdvanced = Mid(sSrchAdvanced, 1, Len(sSrchAdvanced)-4)
	End If
End Sub

'-------------------------------------------------------------------------------
' Function BasicSearchSQL
' - Build WHERE clause for a keyword

Function BasicSearchSQL(Keyword)
	Dim sKeyword
	sKeyword = AdjustSql(Keyword)
	BasicSearchSQL = ""
	If IsNumeric(sKeyword) Then BasicSearchSQL = BasicSearchSQL & "[ID] = " & sKeyword & " OR "
	BasicSearchSQL = BasicSearchSQL & "[合同号] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[客户名称] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[产品型号] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[数量] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[价格] LIKE '%" & sKeyword & "%' OR "
	If IsNumeric(sKeyword) Then BasicSearchSQL = BasicSearchSQL & "[金额] = " & sKeyword & " OR "
	If IsNumeric(sKeyword) Then BasicSearchSQL = BasicSearchSQL & "[月度] = " & sKeyword & " OR "
	BasicSearchSQL = BasicSearchSQL & "[交期] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[承办] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[备注] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[反馈报酬] LIKE '%" & sKeyword & "%' OR "
	If Right(BasicSearchSQL, 4) = " OR " Then BasicSearchSQL = Left(BasicSearchSQL, Len(BasicSearchSQL)-4)
End Function

'-------------------------------------------------------------------------------
' Function SetUpBasicSearch
' - Set up Basic Search parameter based on form elements pSearch & pSearchType
' - Variables setup: sSrchBasic

Sub SetUpBasicSearch()
	Dim sSearch, sSearchType, arKeyword, sKeyword
	sSearch = Request.QueryString("psearch")
	sSearchType = Request.QueryString("psearchType")
	If sSearch <> "" Then
		If sSearchType <> "" Then
			While InStr(sSearch, "  ") > 0
				sSearch = Replace(sSearch, "  ", " ")
			Wend
			arKeyword = Split(Trim(sSearch), " ")
			For Each sKeyword In arKeyword
				sSrchBasic = sSrchBasic & "(" & BasicSearchSQL(sKeyword) & ") " & sSearchType & " "
			Next
		Else
			sSrchBasic = BasicSearchSQL(sSearch)
		End If
	End If
	If Right(sSrchBasic, 4) = " OR " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-4)
	If Right(sSrchBasic, 5) = " AND " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-5)
End Sub

'-------------------------------------------------------------------------------
' Function SetUpSortOrder
' - Set up Sort parameters based on Sort Links clicked
' - Variables setup: sOrderBy, Session("Table_OrderBy"), Session("Table_Field_Sort")

Sub SetUpSortOrder()
	Dim sOrder, sSortField, sLastSort, sThisSort
	Dim bCtrl

	' Check for an Order parameter
	If Request.QueryString("order").Count > 0 Then
		sOrder = Request.QueryString("order")

		' Field ID
		If sOrder = "ID" Then
			sSortField = "[ID]"
			sLastSort = Session("ht_x_ID_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("ht_x_ID_Sort") = sThisSort
		Else
			If Session("ht_x_ID_Sort") <> "" Then Session("ht_x_ID_Sort") = ""
		End If

		' Field 合同号
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -