search.asp

大型黄页系统,精美黄页flash演示,10m

				SoftImg = "<a href='Software.Asp?id=" & Rs("SoftID") & "'><IMG src=" & Soft_Img & "onload='javascript:if(this.height>this.width){this.height=64}else{this.width=64}'  border='0'></a>"
				SoftName = "<a href='Software.Asp?id=" & Rs("SoftID") & "'>" & Soft_Name & "</a>"
			End If
					If i mod 2 = 0 then
				    thiscolor = "#FFFFFF"
					Else
				    thiscolor = "#F6F6F6"
				    End If
		end if
		Next
	if  Action = "info" then
			temphtml = temphtml & DownsysClass.temphtml(4)
			Stitle = Replace(Rs("title"), "" & keyword & "", "<font color=red>" & keyword & "</font>")
			If CInt(DownsysClass.Setting(5)) = 0 Then
				Title = "<a href='Article/catalog" & Rs("Classid") & "/" & Rs("ID") & ".html'>" & Stitle & "</a>"
			Else
				Title = "<a href='Article.Asp?id=" & Rs("ID") & "'>" & Stitle & "</a>"
			End If
		End if
		if Action = "Hy" then
			if Rs("Grade") = 2 then
			Grade = "VIP会员"
			else
			Grade = "普通会员"
			end if
		else
		Grade = Rs("Grade")
		end if
			Content = DownsysClass.CutString(Rs("Content"), CInt(DownsysClass.TempSet(2)))
			Content = Replace(Content, "" & keyword & "", "<font color=red>" & keyword & "</font>")
			SoftTime = FormatDateTime(Rs("SoftTime"), 2)
			temphtml = Replace(temphtml, "{$Sequence}", j)
			temphtml = Replace(temphtml, "{$SoftImg}", SoftImg)
			temphtml = Replace(temphtml, "{$SoftName}", SoftName)
			temphtml = Replace(temphtml, "{$SoftTime}", SoftTime)
			temphtml = Replace(temphtml, "{$SoftSize}", SoftSize)
			temphtml = Replace(temphtml, "{$Content}", Content)
			temphtml = Replace(temphtml, "{$DateTime}", Rs("SoftTime"))
			temphtml = Replace(temphtml, "{$MaterialClassCode}", Rs("MaterialClassCode"))
			temphtml = Replace(temphtml, "{$MaterialClassCode1}", MaterialClassCode1)
			temphtml = Replace(temphtml, "{$Grade}", Grade)
			temphtml = Replace(temphtml, "{$Company}", Company)
			temphtml = Replace(temphtml, "{$SaleKeywords}", Rs("SaleKeywords"))
			temphtml = Replace(temphtml, "{$BuyKeywords}", Rs("BuyKeywords"))
			temphtml = Replace(temphtml, "{$PhoneCountry}", Rs("PhoneCountry"))
			temphtml = Replace(temphtml, "{$PhoneArea}", Rs("PhoneArea"))
			temphtml = Replace(temphtml, "{$usertel}", Rs("usertel"))
			temphtml = Replace(temphtml, "{$thiscolor}", thiscolor)
			temphtml = Replace(temphtml, "{$Title}", Title)
			temphtml = Replace(temphtml, "{$Hits}", Rs("Hits"))
			temphtml = Replace(temphtml, "{$InfoTime}", Rs("InfoTime"))
		temphtml = Replace(temphtml, "{$hangye}", hangye)
		temphtml = Replace(temphtml, "{$sousuo}", sousuo)
		temphtml = Replace(temphtml, "{$liebiao}", liebiao)
		temphtml = Replace(temphtml, "{$sousuolei}", sousuolei)
		temphtml = Replace(temphtml, "{$liebiaoname}", liebiaoname)

		Rs.movenext
		j = j + 1
		i = i + 1
		If i >= maxperpage Then Exit Do
	Loop
End If
Rs.Close
Set Rs = Nothing
temphtml = temphtml & DownsysClass.temphtml(5)
temphtml = temphtml & DownsysClass.mainhtml(4)
temphtml = Replace(temphtml, "{$ShowPage}", ShowPage(maxperpage, totalnumber, CurrentPage))
temphtml = Replace(temphtml, "{$ShowPage1}", ShowPage1(maxperpage, totalnumber, CurrentPage))
temphtml = Replace(temphtml, "{$Width}", DownsysClass.mainset(0))
temphtml = Replace(temphtml, "{$sousuo}", sousuo)
If CInt(DownsysClass.Setting(5)) = 1 Then
temphtml = Replace(temphtml, "{$FootMeun}", DownsysClass.mainset(11))
Else 
temphtml = Replace(temphtml, "{$FootMeun}", DownsysClass.mainset(44))
End If
temphtml = Replace(temphtml, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
temphtml = Replace(temphtml, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
temphtml = Replace(temphtml, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
temphtml = Replace(temphtml, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
temphtml = Replace(temphtml, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
Response.Write temphtml
Set DownloadClass_Ads = Nothing
CloseConn
Private Function ShowPage(maxperpage, totalnumber, CurrentPage)
	Dim ii
	Dim n
	dim page
	dim page1
	Dim HtmlShowPage
	If totalnumber Mod maxperpage = 0 Then
		n = totalnumber \ maxperpage
	Else
		n = totalnumber \ maxperpage + 1
	End If
	HtmlShowPage = "<TABLE width='98%' border=0 align='center' cellPadding=2 cellSpacing=0 style='BORDER-TOP: #9c9a9c 1px solid; BORDER-BOTTOM: #9c9a9c 1px solid'><tr><td align=center> " & vbCrLf
	If CurrentPage < 2 Then
		HtmlShowPage = HtmlShowPage & " 首 页&nbsp;&nbsp;上一页&nbsp;&nbsp;&nbsp;"
	Else
		HtmlShowPage = HtmlShowPage & "<a href=?page=1&action=" & Request("action") & "&keyword=" & keyword & ">首 页</a>&nbsp;&nbsp;"
		HtmlShowPage = HtmlShowPage & "<a href=?page=" & CurrentPage - 1 & "&action=" & Request("action") & "&keyword=" & keyword & ">上一页</a>&nbsp;&nbsp;&nbsp;"
	End If
if n>10 then
	if CurrentPage>5 then
	 page=CurrentPage-5
	else
	page=1
	end if
	if CurrentPage<5 then
	page1=10
	else
		if CurrentPage+5>n then
		page1=n
		else
		page1=CurrentPage+5
		end if
	end if
else
	page=1
	page1=n
end if
	For ii = page To page1
	HtmlShowPage = HtmlShowPage & "&nbsp;<a href=?page=" & ii & "&action=" & Request("action") & "&keyword=" & keyword & ">"
		If CurrentPage = CInt(ii) Then
			HtmlShowPage = HtmlShowPage & "<font color='#FF0000'><strong>"
		End If
		HtmlShowPage = HtmlShowPage & "" & ii & "</font></strong></a>"
	Next
		HtmlShowPage = HtmlShowPage & "&nbsp;……"
	If n - CurrentPage < 1 Then
		HtmlShowPage = HtmlShowPage & "&nbsp;&nbsp;下一页&nbsp;&nbsp;尾 页 </td></FORM></tr>" & vbCrLf
	Else
		HtmlShowPage = HtmlShowPage & "&nbsp;&nbsp;<a href=?page=" & (CurrentPage + 1) & "&action=" & Request("action") & "&keyword=" & keyword & ">下一页</a>"
		HtmlShowPage = HtmlShowPage & "&nbsp;&nbsp;<a href=?page=" & n & "&action=" & Request("action") & "&keyword=" & keyword & ">尾 页</a></td></FORM></tr>" & vbCrLf
	End If
		HtmlShowPage = HtmlShowPage & "<tr><FORM name='form' method=post LANGUAGE='javascript'><td class=C align=center>共 <font COLOR=#FF0000>" & totalnumber & "</font> 条信息&nbsp;&nbsp;当前页数：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页&nbsp;每页<b>" & maxperpage & "</b>条信息" & vbCrLf
		HtmlShowPage = HtmlShowPage & "&nbsp;&nbsp;直接到第 <INPUT size=5 name='page'>&nbsp;页 <INPUT type=image src='images/button_small2_qw.gif' align=absMiddle value='确 定' name=submit onClick='javascript:viewPage(document.all.page.value);'>" & vbCrLf
		HtmlShowPage = HtmlShowPage & "</FORM></tr></table>" & vbCrLf
	ShowPage = HtmlShowPage
End Function
'显示搜索的内容和搜索数量的结果
Private Function ShowPage1(maxperpage, totalnumber, CurrentPage)
	Dim ii
	Dim n
	Dim HtmlShowPage
	If totalnumber Mod maxperpage = 0 Then
		n = totalnumber \ maxperpage
	Else
		n = totalnumber \ maxperpage + 1
	End If
	HtmlShowPage = HtmlShowPage & "找到 " & totalnumber & " 条" 
	ShowPage1 = HtmlShowPage
End Function
'行业下拉框选择项目
Private Function hangye()
Dim rs2,sql2,HtmlShowPage
			HtmlShowPage = HtmlShowPage &" <SELECT name=CategoryId id=""CategoryId""> "
            HtmlShowPage = HtmlShowPage &" <OPTION value='0' selected>＝选择行业＝</OPTION>"
					set rs2=server.createobject("adodb.recordset")
					sql2="select * from NC_SoftSort where depth=0 order by sortid "
					rs2.open sql2,conn,1,3
					do while not rs2.EOF
			HtmlShowPage = HtmlShowPage & "<option value='"& rs2("rootid") &"'>"& trim(rs2("SortName")) &"</option>"
					rs2.MoveNext
					loop
					Rs2.Close
			HtmlShowPage = HtmlShowPage & "</SELECT>"
	hangye = HtmlShowPage
End Function
'搜索下拉框选择项目(整体分类部分：供应、求购)
Private Function sousuo()
Dim SoftType
Dim HtmlShowPage
Dim ii
			HtmlShowPage = HtmlShowPage &" <select name=""action""> "
            HtmlShowPage = HtmlShowPage &" <option value=""soft"" selected>全部信息</option>"
			SoftType = Split(DownsysClass.Setting(35), ",")
			For ii = 0 To UBound(SoftType)
			HtmlShowPage = HtmlShowPage & "<option value=""soft"& ii &""">" & Trim(SoftType(ii)) & "</option>"
			Next
			HtmlShowPage = HtmlShowPage & "<option value=""info"">文章搜索</option></SELECT>"
	sousuo = HtmlShowPage
End Function
'搜索下拉框选择项目(整体分类部分：供应、求购)
Private Function sousuolei()
Dim SoftType
Dim HtmlShowPage
Dim ii
	SoftType = Split(DownsysClass.Setting(35), ",")
	For ii = 0 To UBound(SoftType)
	if  Action = "soft"& ii &"" then
			HtmlShowPage = HtmlShowPage & "<input type=hidden  name=""Action"" value=soft"& ii &">"
		end if
		next
	sousuolei = HtmlShowPage
End Function

'整体分类大引导：供应、求购、合作)
Private Function liebiao()
Dim SoftType
Dim HtmlShowPage
Dim ii
	HtmlShowPage = HtmlShowPage &"<TABLE width=""100%"" border=0 align=""center"" cellPadding=0 cellSpacing=0 class=downborder>"
    HtmlShowPage = HtmlShowPage &"<TBODY>"
    HtmlShowPage = HtmlShowPage &"<TR>"
	SoftType = Split(DownsysClass.Setting(35), ",")
	For ii = 0 To UBound(SoftType)
    HtmlShowPage = HtmlShowPage &"<TD "
	if Trim(ii)=Trim(Request("ado")) then
	HtmlShowPage = HtmlShowPage &"class=buttonbar "
	else
	HtmlShowPage = HtmlShowPage &"class=companybar "
	end if
	HtmlShowPage = HtmlShowPage &"onmouseover=""this.style.cursor='hand'"" "
    HtmlShowPage = HtmlShowPage &"onclick=""location.href='/Sorting"& ii &"/Catalog" & sortid & "/Sorting_Indate_Desc_1.html'"" width=97> "
	if Trim(ii)=Trim(Request("ado")) then
    HtmlShowPage = HtmlShowPage &"<IMG height=20 src=""/images/icon_black_45down.gif"" width=20 align=absMiddle border=0>"
    HtmlShowPage = HtmlShowPage &"<SPAN class=head1>" & Trim(SoftType(ii)) & "</SPAN></TD>"
	else
    HtmlShowPage = HtmlShowPage &"<SPAN class=head>" & Trim(SoftType(ii)) & "</SPAN></TD>"
	end if
    HtmlShowPage = HtmlShowPage &"<TD class=midbar width=7>&nbsp;</TD>"
	Next
	HtmlShowPage = HtmlShowPage &"<TD width=""400"" class=midbar>&nbsp;</TD></TR></TBODY></TABLE>"
	
	liebiao = HtmlShowPage
End Function
'共找到：供应、求购、合作  的信息多少条部分)
Private Function liebiaoname()
Dim SoftType
Dim HtmlShowPage
Dim ii
	SoftType = Split(DownsysClass.Setting(35), ",")
	For ii = 0 To UBound(SoftType)
	if  Action = "soft"& ii &"" then
    HtmlShowPage = HtmlShowPage &"" & Trim(SoftType(ii)) & ""
	end if
	next
	liebiaoname = HtmlShowPage
End Function

%>