public.asp

程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息

<%

'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
	  IF x <> "" then
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
	  end if
    Next
	
Sub PageControl(iCount,pagecount,page)
	if Not IsNumeric(page) or page="" then
		page=1
	End if
    if page<=1 then
    else        
        Response.Write("<span class=text_7><A class=none HREF=" & action & "?" & temp & "Page=" & (Page-1) & "><strong><<<上页</strong></A><span> " & vbCrLf)
    end if
	
	if pageCount>page+5 then
	endpage=page+5
	else
	endpage=pageCount
	end if
	for i=page-5 to endpage
	if not i<1 then
		if i = clng(page) then
        response.write "<span class=text_7><A class=none><font color=333333><strong>&nbsp;"&i&"&nbsp;</strong></font></a></span>"
		else
        response.write "<span class=text_7><A class=none HREF=" & action & "?" & temp & "Page=" & i & ">["&i&"]</a></span>"
		end if
	end if
	next
	if page+5 < pageCount then 
	end if
	
    if page>=pagecount then
	
    else
        Response.Write( vbCrLf &"<span class=text_7><A class=none HREF=" & action & "?" & temp & "Page=" & (Page+1) & "><strong>下页>>></strong></A></span> " & vbCrLf)
    end if
End Sub
sub new_text()
%>
<SCRIPT LANGUAGE="Javascript">
<!--
function text() {
};

text = new text();
number = 0;

text[number++] = "引擎不区分英文字母大小写。如输入“qq”或“QQ”结果都是一样的"
text[number++] = "输入关键词后，可按回车键(Enter)进行搜索，和点击“消费搜索”按钮效果一样"
text[number++] = "输入多个关键词，用空格分开，可以缩小搜索范围，得到更精确的结果"
text[number++] = "如果将“DELL笔记本”拆分成“DELL 笔记本”，会得到更多结果"
text[number++] = "输入“DELL”关键词，即可同时在商品名称、关键词、品牌、简介中查找"
text[number++] = "输入“DELL”关键词，即可同时在商品名称、关键词、品牌、简介中查找"

increment = Math.floor(Math.random() * number);

document.write(text[increment]);
//-->
</SCRIPT>
<%
end sub

function HTMLEncodeStr(fString)
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncodeStr = fString
end function

function KeyArr(KeyString)
KeyString    = Rtrim(LTrim(KeyString))
KeyString    = replace(KeyString,"'"," ")
KeyString    = replace(KeyString,"”"," ")
KeyString    = replace(KeyString,"："," ")
KeyString    = replace(KeyString,","," ")
KeyString    = replace(KeyString,"`"," ")
KeyString    = replace(KeyString,"~"," ")
KeyString    = replace(KeyString,"^"," ")
KeyString    = replace(KeyString,"("," ")
KeyString    = replace(KeyString,")"," ")
KeyString    = replace(KeyString,"（"," ")
KeyString    = replace(KeyString,"）"," ")
KeyString    = replace(KeyString,"+"," ")
KeyString    = replace(KeyString,"_"," ")
KeyString    = replace(KeyString,"-"," ")
KeyString    = replace(KeyString,"="," ")
KeyString    = replace(KeyString,"\"," ")
KeyString    = replace(KeyString,"/"," ")
KeyString    = replace(KeyString,"、"," ")
KeyString    = replace(KeyString,"["," ")
KeyString    = replace(KeyString,"]"," ")
KeyString    = replace(KeyString,"{"," ")
KeyString    = replace(KeyString,"}"," ")
KeyString    = replace(KeyString,"。"," ")
KeyString    = replace(KeyString,"，"," ")
KeyString    = replace(KeyString,"|"," ")
KeyString    = replace(KeyString,"  "," ")

   KeyArr    = trim(KeyString)
   
end function

%>