<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** Dim SearchClassID,Page,Key,SpanSearch Key=SafeRequest("Key","auto") SearchClassID=SafeRequest("Key","auto") Page=SafeRequest("Page","auto") IF Not IsNum(Page) Then Page=1 IF IsNul(Key) Then Response.Write "请输入您要搜索的内容!":Response.End IF Not IsNum(SearchClassID) Then SearchClassID=0 SpanSearch=SpanSearchShow(SearchClassID,Key,Page) Function SpanSearchShow(SearchClassID,Key,Page) Dim DArray,RegEx,RegEx1,TableName,Mark,PageCounts,Mark_Text Mark="dj" IF CD_IsCache=0 or Cache.CheckCache("Search.html") Then Set CmsDjMold= New CmsDj_Com_Mold Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1") CD_TemplateUrl=HtmlRs("CD_TempPath") IF Not(Fso.CheckFile(InstallDir&CD_TemplateUrl&"Search.html")) Then Put "模板: "&TempName&" 文件不存在!" SpanSearchShow=Label.Data_Mark(Label.Base_Mark(Label.GetTemp("Search.html",0)),0) Cache.SetCache("Search.html"),SpanSearchShow Else SpanSearchShow=Cache.GetCache("Search.html") End IF Label.Page_Mark SpanSearchShow,0,Key SpanSearchShow=Label.Span_Page(0,Page) PageCounts=Label.GetPageCount Mark_Text=SpanSearchShow Dim HomePage,UpPage,NextPage,EndPage,PageNum,PageNumC,ForText,G,PageNumReg,H,PageListC,CountData,IPageSize CountData=Label.GetCountData IPageSize=Label.GetIPageSize HomePage=InstallDir&"Search.asp?Page=1&Key="&Key IF Page=1 And PageCounts=1 Then UpPage=HomePage NextPage=HomePage EndPage=HomePage ElseIF Page=PageCounts And PageCounts>1 Then UpPage=InstallDir&"Search.asp?Page="&Page-1&"&Key="&Key NextPage=InstallDir&"Search.asp?Page="&Pagecounts&"&Key="&Key EndPage=NextPage ElseIF Page=1 And PageCounts>1 Then UpPage=HomePage NextPage=InstallDir&"Search.asp?Page="&Page+1&"&Key="&Key EndPage=InstallDir&"Search.asp?Page="&Pagecounts&"&Key="&Key Else UpPage=InstallDir&"Search.asp?Page="&Page-1&"&Key="&Key NextPage=InstallDir&"Search.asp?Page="&Page+1&"&Key="&Key EndPage=InstallDir&"Search.asp?Page="&Pagecounts&"&Key="&Key End IF ''数字分页 Set ForText=Label.TAG(Mark_Text,"\[page:(number)\s*([a-zA-Z=]*)\s*([\d]*)\]") For Each G In ForText IF IsNum(G.SubMatches(2)) Then PageNum=G.SubMatches(2) PageNumReg=G.value Next IF Not IsNum(PageNum) Then PageNum=10 PageNumC="" Dim ForGos,ForEnds ForGos=1 ForEnds=Cint(PageNum) IF Cint(Page)>ForEnds\2 Then ForGos=Page-ForEnds\2 ForEnds=Page+ForEnds\2 End IF For H=ForGos To ForEnds IF H>PageCounts Then Exit For IF H=Cint(Page) Then PageNumC=PageNumC&""&H&"" Else PageNumC=PageNumC&""&H&"" End IF Next '下拉分页 PageListC="" For H=1 To PageCounts PageListC=PageListC&"第"&H&"页" Next PagelistC=PageListC&"" Mark_Text = ReplaceStr(Mark_Text,"[page:first]",HomePage) Mark_Text = ReplaceStr(Mark_Text,"[page:last]",EndPage) Mark_Text = ReplaceStr(Mark_Text,"[page:pageup]",UpPage) Mark_Text = ReplaceStr(Mark_Text,"[page:pagedown]",NextPage) Mark_Text = ReplaceStr(Mark_Text,"[page:countdata]",CountData) Mark_Text = ReplaceStr(Mark_Text,"[page:numpage]",page) Mark_Text = ReplaceStr(Mark_Text,PageNumReg,PageNumC) Mark_Text = ReplaceStr(Mark_Text,"[page:numlist]",PageListC) Mark_Text = ReplaceStr(Mark_Text,"[page:pagenum]",Page) Mark_Text = ReplaceStr(Mark_Text,"[page:pagecout]",PageCounts) Mark_Text = ReplaceStr(Mark_Text,"[page:pagesize]",IpageSize) Mark_Text = ReplaceStr(Mark_Text,"[cmsdj:search]",Key) Echo Mark_Text End Function %>