<% dim strFileName,MaxPerPage,ShowSmallClassType dim totalPut,CurrentPage,TotalPages dim BeginTime,EndTime dim founderr, errmsg dim BigClassName,SmallClassName,SpecialName,keyword,strField dim rs,sql,sqlArticle,sqlDown,rsArticle,rsDown,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlBigClass_Down,sqlSpecial,rsSpecial dim SpecialTotal BeginTime=Timer BigClassName=Trim(request("BigClassName")) SmallClassName=Trim(request("SmallClassName")) SpecialName=trim(request("SpecialName")) keyword=trim(request("keyword")) if keyword<>"" then keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")," "," ") end if strField=trim(request("Field")) if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if sqlBigClass="select * from BigClass order by BigClassID" Set rsBigClass= Server.CreateObject("ADODB.Recordset") rsBigClass.open sqlBigClass,conn,1,1 sqlBigClass_Down="select * from BigClass_Down order by BigClassID" Set rsBigClass_Down= Server.CreateObject("ADODB.Recordset") rsBigClass_Down.open sqlBigClass_Down,conn,1,1 '================================================= '过程名：ShowSmallClass_Tree '作 用：树形目录方式显示栏目 '参 数：无 '================================================= sub ShowSmallClass_Tree() if rsBigClass.bof and rsBigClass.eof then response.Write "栏目正在建设中……" else dim sqlClass,rsClass,strTree,BigClassNum,i,j rsBigClass.movefirst BigClassNum=rsBigClass.recordcount i=1 do while not rsBigClass.eof if i" strTree= strTree & "" strTree= strTree & "" strTree= strTree & "
" strTree= strTree & "" strTree= strTree & "" strTree=strTree & rsBigClass("BigClassName") strTree=strTree & "" 'strTree=strTree & "" strTree= strTree & "" strTree=strTree & "" strTree=strTree & "" strTree=strTree & "" strTree=strTree & "" SmallClassNum=rsClass.recordcount j=1 do while not rsClass.eof rsClass.movenext j=j+1 loop response.write strTree rsBigClass.movenext i=i+1 loop rsClass.close set rsClass=nothing end if end sub '================================================= '过程名：ShowSmallClass_Down_Tree '作 用：树形目录方式显示栏目 '参 数：无 '================================================= sub ShowSmallClass_Down_Tree() if rsBigClass_Down.bof and rsBigClass_Down.eof then response.Write "栏目正在建设中……" else dim sqlClass,rsClass,strTree,BigClassNum,i,j rsBigClass_Down.movefirst BigClassNum=rsBigClass_Down.recordcount i=1 do while not rsBigClass_Down.eof if i" strTree= strTree & "" strTree= strTree & "" strTree= strTree & "
" strTree= strTree & "" strTree= strTree & "" strTree=strTree & rsBigClass_Down("BigClassName") strTree=strTree & "" 'strTree=strTree & "" strTree= strTree & "" strTree=strTree & "" strTree=strTree & "" strTree=strTree & "" strTree=strTree & "" SmallClassNum=rsClass.recordcount j=1 do while not rsClass.eof rsClass.movenext j=j+1 loop response.write strTree rsBigClass_Down.movenext i=i+1 loop rsClass.close set rsClass=nothing end if end sub '================================================= '过程名：ShowVote '作 用：显示网站调查 '参 数：无 '================================================= sub ShowVote() dim sqlVote,rsVote,i sqlVote="select top 1 * from Vote where IsSelected=True" Set rsVote= Server.CreateObject("ADODB.Recordset") rsVote.open sqlVote,conn,1,1 if rsVote.bof and rsVote.eof then response.Write " 没有任何调查" else response.write "
" response.write "    " & rsVote("Title") & "
" if rsVote("VoteType")="Single" then for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "" & rsVote("Select" & i) & "
" next else for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "" & rsVote("Select" & i) & "
" next end if response.write "
" response.write "" response.write "" response.write "
" response.write "  " response.write "" response.write "
" end if rsVote.close set rsVote=nothing end sub '================================================= '过程名：ShowClassGuide '作 用：显示栏目导航位置 '参 数：无 '================================================= sub ShowClassGuide() response.write " 产品 >>" if BigClassName="" and SmallClassName="" then response.write " 所有产品" else if BigClassName<>"" then response.write " " & BigClassName & " >> " if SmallClassName<>"" then response.write "" & SmallClassName & "" else response.write "所有小类" end if end if end if end sub '================================================= '过程名：ShowClass_DownGuide '作 用：显示栏目导航位置 '参 数：无 '================================================= sub ShowClass_DownGuide() response.write " 下载 >>" if BigClassName="" and SmallClassName="" then response.write " 所有下载" else if BigClassName<>"" then response.write " " & BigClassName & " >> " if SmallClassName<>"" then response.write "" & SmallClassName & "" else response.write "所有小类" end if end if end if end sub '================================================= '过程名：ShowArticleTotal '作 用：显示文章总数 '参 数：无 '================================================= sub ShowArticleTotal() dim sqlTotal dim rsTotal sqlTotal="select Count(*) from Product where Passed=True " if BigClassName<>"" then sqlTotal=sqlTotal & " and BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "' " end if end if Set rsTotal= Server.CreateObject("ADODB.Recordset") rsTotal.open sqlTotal,conn,1,1 if rsTotal.eof and rsTotal.bof then totalPut=0 response.write "共有 0 个产品" else totalPut=rsTotal(0) response.Write "共有 " & totalPut & " 个产品" end if rsTotal.close set rsTotal=nothing end sub '================================================= '过程名：ShowDownTotal '作 用：显示文章总数 '参 数：无 '================================================= sub ShowDownTotal() dim sqlTotal dim rsTotal sqlTotal="select Count(*) from download " if BigClassName<>"" then sqlTotal=sqlTotal & " where BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "' " end if end if Set rsTotal= Server.CreateObject("ADODB.Recordset") rsTotal.open sqlTotal,conn,1,1 if rsTotal.eof and rsTotal.bof then totalPut=0 response.write "共有 0 个下载" else totalPut=rsTotal(0) response.Write "共有 " & totalPut & " 个下载" end if rsTotal.close set rsTotal=nothing end sub '================================================= '过程名：ShowArticle '================================================= sub ShowArticle(TitleLen) if TitleLen<0 or TitleLen>200 then TitleLen=50 end if if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then sqlArticle="select top " & MaxPerPage else sqlArticle="select " end if sqlArticle=sqlArticle & " ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True " if BigClassName<>"" then sqlArticle=sqlArticle & " and BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "' " end if end if sqlArticle=sqlArticle & " order by articleid desc" Set rsArticle= Server.CreateObject("ADODB.Recordset") rsArticle.open sqlArticle,conn,1,1 if rsArticle.bof and rsArticle.eof then response.Write("
  • 没有任何产品
    • ") else if currentPage=1 then call ArticleContent(TitleLen) else if (currentPage-1)*MaxPerPage" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "
    " fileExt=lcase(getFileExtName(rsArticle("DefaultPicUrl"))) if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then strTemp= strTemp & "" else if fileext="swf" then strTemp= strTemp & "" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &" " end if end if strTemp= strTemp & "
    " strTemp= strTemp & "" strTemp= strTemp & "产品名称：" strTemp= strTemp & "" strTemp= strTemp & "" & rsArticle("Title") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "产品售价：" strTemp= strTemp & "" & rsArticle("Price") & "元" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "产品规格：" strTemp= strTemp & "" strTemp= strTemp & rsArticle("Spec") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "产品备注：" strTemp= strTemp & "" strTemp= strTemp & rsArticle("Memo") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "产品类别：" strTemp= strTemp & "" & rsArticle("BigClassName") & " → " strTemp= strTemp & "" & rsArticle("SmallClassName") & "" strTemp= strTemp & "" strTemp= strTemp & "" ' strTemp= strTemp & "" ' strTemp= strTemp & "产品编号：" ' strTemp= strTemp & "" & rsArticle("Product_Id") & "" ' strTemp= strTemp & "" strTemp= strTemp & "产品信息：" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "
    " strTemp= strTemp & "
    		" strTemp= strTemp & "
    " strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" response.write strTemp rsArticle.movenext i=i+1 if i>=MaxPerPage then exit do loop end sub '================================================= '过程名：ShowDown '================================================= sub ShowDown(TitleLen) if TitleLen<0 or TitleLen>200 then TitleLen=50 end if if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then sqlDown="select top " & MaxPerPage else sqlDown="select " end if sqlDown=sqlDown & " ID,title,content,BigClassName,SmallClassName,imagenum,firstImageName,System,Softclass,PhotoUrl,DownloadUrl,FileSize,infotime,hits from download" if BigClassName<>"" then sqlDown=sqlDown & " where BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlDown=sqlDown & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sqlDown=sqlDown & " and SpecialName='" & SpecialName & "' " end if end if sqlDown=sqlDown & " order by ID desc" Set rsDown= Server.CreateObject("ADODB.Recordset") rsDown.open sqlDown,conn,1,1 if rsDown.bof and rsDown.eof then response.Write("
  • 没有任何下载
    • ") else if currentPage=1 then call DownContent(TitleLen) else if (currentPage-1)*MaxPerPage" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "
    " strTemp= strTemp & "" strTemp= strTemp & "
    " strTemp= strTemp & "" strTemp= strTemp & "文件名称：" strTemp= strTemp & "" strTemp= strTemp & rsDown("Title") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "文件大小：" strTemp= strTemp & "" strTemp= strTemp & rsDown("FileSize") & "K" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "发布日期：" strTemp= strTemp & "" strTemp= strTemp & rsDown("infotime") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "适用系统：" strTemp= strTemp & "" strTemp= strTemp & rsDown("System") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "下载类别：" strTemp= strTemp & "" & rsDown("BigClassName") & " → " strTemp= strTemp & "" & rsDown("SmallClassName") & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "下载说明：" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "
    " strTemp= strTemp & "
    " strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" response.write strTemp rsDown.movenext i=i+1 if i>=MaxPerPage then exit do loop end sub '================================================= '过程名：ShowSearchTerm '作 用：显示搜索条件信息 '参 数：无 '================================================= sub ShowSearchTerm() response.write "| 产品搜索 >> " if BigClassName<>"" then response.write "" & BigClassName & " >> " if SmallClassName<>"" then response.write "" & SmallClassName & " >> " else response.write "所有小类 >> " end if end if if keyword<>"" then select case strField case "Title" response.Write "名称中含有 "&keyword&" 的产品" case "Content" response.Write "说明含有 "&keyword&" 的产品" case else response.Write "名称中含有 "&keyword&" 的产品" end select else response.write " 所有产品" end if end sub '================================================= '过程名：SearchResultTotal '作 用：显示搜索结果总数 '参 数：无 '================================================= sub SearchResultTotal() dim rsTotal,sqlTotal sqlTotal="select count(*) from Product where Passed=True " if BigClassName<>"" then sqlTotal=sqlTotal & " and BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "' " end if end if if keyword<>"" then select case strField case "Title" sqlTotal=sqlTotal & " and Title like '%" & keyword & "%' " case "Content" sqlTotal=sqlTotal & " and Content like '%" & keyword & "%' " case else sqlTotal=sqlTotal & " and Title like '%" & keyword & "%' " end select end if Set rsTotal= Server.CreateObject("ADODB.Recordset") rsTotal.open sqlTotal,conn,1,1 if rsTotal.eof and rsTotal.bof then totalPut=0 response.write "共有 0 个产品" else totalPut=rsTotal(0) response.Write "共找到 " & totalPut & " 个产品" end if end sub '================================================= '过程名：ShowSearchResult '作 用：分页显示搜索结果 '参 数：无 '================================================= sub ShowSearchResult() if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then sqlSearch="select top " & MaxPerPage else sqlSearch="select " end if sqlSearch=sqlSearch & " * from Product where Passed=True " if BigClassName<>"" then sqlSearch=sqlSearch & " and BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sqlSearch=sqlSearch & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sqlSearch=sqlSearch & " and SpecialName='" & SpecialName & "' " end if end if if keyword<>"" then select case strField case "Title" sqlSearch=sqlSearch & " and Title like '%" & keyword & "%' " case "Content" sqlSearch=sqlSearch & " and Content like '%" & keyword & "%' " case else sqlSearch=sqlSearch & " and Title like '%" & keyword & "%' " end select end if sqlSearch=sqlSearch & " order by articleid desc" Set rsSearch= Server.CreateObject("ADODB.Recordset") rsSearch.open sqlSearch,conn,1,1 if rsSearch.eof and rsSearch.bof then response.write "



    没有或没有找到任何产品

    " else if currentPage=1 then call SearchResultContent() else if (currentPage-1)*MaxPerPage" if strField="Title" then strTemp=strTemp & "" & replace(rsSearch("title"),""&keyword&"",""&keyword&"") & "" else strTemp=strTemp & "" & rsSearch("title") & "" end if strTemp=strTemp & " [" & FormatDateTime(rsSearch("UpdateTime"),1) & "]" content=left(nohtml(rsSearch("content")),200) if strField="Content" then strTemp=strTemp & "
    " & replace(content,""&keyword&"",""&keyword&"") & "……
    " else strTemp=strTemp & "
    " & content & "……
    " end if 'strTemp=strTemp & "" response.write strTemp i=i+1 if i>MaxPerPage then exit do rsSearch.movenext loop end sub '================================================= '过程名：ShowSearch '作 用：显示文章搜索表单 '参 数：ShowType ----显示方式。1为纵向，2为横向 '================================================= sub ShowSearch(ShowType) dim count if ShowType<>1 and ShowType<>2 then ShowType=1 end if set rs=server.createobject("adodb.recordset") sql = "select * from SmallClass order by SmallClassID asc" rs.open sql,conn,1,1 %>
    <%if ShowType=1 then%>
    <%end if%> <%if ShowType=1 then%>
    <%end if%> <%if ShowType=1 then%>
    <%end if%>
    <% end sub '================================================= '过程名：ShowAllClass '作 用：显示所有栏目（栏目导航） '参 数：无 '================================================= sub ShowAllClass() if rsBigClass.bof and rsBigClass.eof then response.Write " 没有任何栏目" else dim sqlClass,rsClass,strClassName rsBigClass.movefirst do while not rsBigClass.eof strClassName= "【" & rsBigClass("BigClassName") & "】

    " sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID" Set rsClass= Server.CreateObject("ADODB.Recordset") rsClass.open sqlClass,conn,1,1 do while not rsClass.eof strClassName=strClassName & " " & rsClass("SmallClassName") & " " rsClass.movenext loop response.write strClassName & "

    " rsBigClass.movenext loop rsClass.close set rsClass=nothing end if end sub '================================================= '过程名：ShowArticleContent '作 用：显示文章具体的内容，可以分页显示 '参 数：无 '================================================= sub ShowArticleContent() dim ArticleID,strContent,CurrentPage dim ContentLen,MaxPerPage,pages,i,lngBound dim BeginPoint,EndPoint ArticleID=rs("ArticleID") strContent=rs("Content") ContentLen=len(strContent) CurrentPage=trim(request("ArticlePage")) if ShowContentByPage="No" or ContentLen<=200000 then response.write strContent if ShowContentByPage="Yes" then response.write "

    " end if else if CurrentPage="" then CurrentPage=1 else CurrentPage=Cint(CurrentPage) end if pages=ContentLen\MaxPerPage_Content if MaxPerPage_Content*pagespages then CurrentPage=pages dim lngTemp dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3 dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2 dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2 dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2 dim lngTemp5,lngTemp5_1,lngTemp5_2 dim lngTemp6,lngTemp6_1,lngTemp6_2 if CurrentPage=1 then BeginPoint=1 else BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1 lngTemp1_1_1=instr(BeginPoint,strContent,"",1) lngTemp1_1_2=instr(BeginPoint,strContent,"",1) lngTemp1_1_3=instr(BeginPoint,strContent,"",1) if lngTemp1_1_1>0 then lngTemp1_1=lngTemp1_1_1 elseif lngTemp1_1_2>0 then lngTemp1_1=lngTemp1_1_2 elseif lngTemp1_1_3>0 then lngTemp1_1=lngTemp1_1_3 else lngTemp1_1=0 end if lngTemp1_2_1=instr(BeginPoint,strContent,"0 then lngTemp1_2=lngTemp1_2_1 elseif lngTemp1_2_2>0 then lngTemp1_2=lngTemp1_2_2 elseif lngTemp1_2_3>0 then lngTemp1_2=lngTemp1_2_3 else lngTemp1_2=0 end if if lngTemp1_1=0 and lngTemp1_2=0 then lngTemp1=BeginPoint else if lngTemp1_1>lngTemp1_2 then lngtemp1=lngTemp1_2 else lngTemp1=lngTemp1_1+8 end if end if lngTemp2_1_1=instr(BeginPoint,strContent,"

    ",1) lngTemp2_1_2=instr(BeginPoint,strContent,"

    ",1) if lngTemp2_1_1>0 then lngTemp2_1=lngTemp2_1_1 elseif lngTemp2_1_2>0 then lngTemp2_1=lngTemp2_1_2 else lngTemp2_1=0 end if lngTemp2_2_1=instr(BeginPoint,strContent,"0 then lngTemp2_2=lngTemp2_2_1 elseif lngTemp2_2_2>0 then lngTemp2_2=lngTemp2_2_2 else lngTemp2_2=0 end if if lngTemp2_1=0 and lngTemp2_2=0 then lntTemp2=BeginPoint else if lngTemp2_1>lngTemp2_2 then lngtemp2=lngTemp2_2 else lngTemp2=lngTemp2_1+4 end if end if lngTemp3_1_1=instr(BeginPoint,strContent,"",1) lngTemp3_1_2=instr(BeginPoint,strContent,"",1) if lngTemp3_1_1>0 then lngTemp3_1=lngTemp3_1_1 elseif lngTemp3_1_2>0 then lngTemp3_1=lngTemp3_1_2 else lngTemp3_1=0 end if lngTemp3_2_1=instr(BeginPoint,strContent,"0 then lngTemp3_2=lngTemp3_2_1 elseif lngTemp3_2_2>0 then lngTemp3_2=lngTemp3_2_2 else lngTemp3_2=0 end if if lngTemp3_1=0 and lngTemp3_2=0 then lngTemp3=BeginPoint else if lngTemp3_1>lngTemp3_2 then lngtemp3=lngTemp3_2 else lngTemp3=lngTemp3_1+5 end if end if if lngTemp1BeginPoint and lngTemp<=BeginPoint+lngBound then BeginPoint=lngTemp else lngTemp4_1_1=instr(BeginPoint,strContent,"",1) lngTemp4_1_2=instr(BeginPoint,strContent,"",1) if lngTemp4_1_1>0 then lngTemp4_1=lngTemp4_1_1 elseif lngTemp4_1_2>0 then lngTemp4_1=lngTemp4_1_2 else lngTemp4_1=0 end if lngTemp4_2_1=instr(BeginPoint,strContent,"0 then lngTemp4_2=lngTemp4_2_1 elseif lngTemp4_2_2>0 then lngTemp4_2=lngTemp4_2_2 else lngTemp4_2=0 end if if lngTemp4_1=0 and lngTemp4_2=0 then lngTemp4=BeginPoint else if lngTemp4_1>lngTemp4_2 then lngtemp4=lngTemp4_2 else lngTemp4=lngTemp4_1+5 end if end if if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then BeginPoint=lngTemp4 else lngTemp5_1=instr(BeginPoint,strContent,"0 then lngTemp5=lngTemp5_1 elseif lngTemp5_2>0 then lngTemp5=lngTemp5_2 else lngTemp5=BeginPoint end if if lngTemp5>BeginPoint and lngTemp5",1) lngTemp6_2=instr(BeginPoint,strContent,"
    ",1) if lngTemp6_1>0 then lngTemp6=lngTemp6_1 elseif lngTemp6_2>0 then lngTemp6=lngTemp6_2 else lngTemp6=0 end if if lngTemp6>BeginPoint and lngTemp6=ContentLen then EndPoint=ContentLen else lngTemp1_1_1=instr(EndPoint,strContent,"",1) lngTemp1_1_2=instr(EndPoint,strContent,"",1) lngTemp1_1_3=instr(EndPoint,strContent,"",1) if lngTemp1_1_1>0 then lngTemp1_1=lngTemp1_1_1 elseif lngTemp1_1_2>0 then lngTemp1_1=lngTemp1_1_2 elseif lngTemp1_1_3>0 then lngTemp1_1=lngTemp1_1_3 else lngTemp1_1=0 end if lngTemp1_2_1=instr(EndPoint,strContent,"0 then lngTemp1_2=lngTemp1_2_1 elseif lngTemp1_2_2>0 then lngTemp1_2=lngTemp1_2_2 elseif lngTemp1_2_3>0 then lngTemp1_2=lngTemp1_2_3 else lngTemp1_2=0 end if if lngTemp1_1=0 and lngTemp1_2=0 then lngTemp1=EndPoint else if lngTemp1_1>lngTemp1_2 then lngtemp1=lngTemp1_2-1 else lngTemp1=lngTemp1_1+7 end if end if lngTemp2_1_1=instr(EndPoint,strContent,"

    ",1) lngTemp2_1_2=instr(EndPoint,strContent,"

    ",1) if lngTemp2_1_1>0 then lngTemp2_1=lngTemp2_1_1 elseif lngTemp2_1_2>0 then lngTemp2_1=lngTemp2_1_2 else lngTemp2_1=0 end if lngTemp2_2_1=instr(EndPoint,strContent,"0 then lngTemp2_2=lngTemp2_2_1 elseif lngTemp2_2_2>0 then lngTemp2_2=lngTemp2_2_2 else lngTemp2_2=0 end if if lngTemp2_1=0 and lngTemp2_2=0 then lngTemp2=EndPoint else if lngTemp2_1>lngTemp2_2 then lngTemp2=lngTemp2_2-1 else lngTemp2=lngTemp2_1+3 end if end if lngTemp3_1_1=instr(EndPoint,strContent,"",1) lngTemp3_1_2=instr(EndPoint,strContent,"",1) if lngTemp3_1_1>0 then lngTemp3_1=lngTemp3_1_1 elseif lngTemp3_1_2>0 then lngTemp3_1=lngTemp3_1_2 else lngTemp3_1=0 end if lngTemp3_2_1=instr(EndPoint,strContent,"0 then lngTemp3_2=lngTemp3_2_1 elseif lngTemp3_2_2>0 then lngTemp3_2=lngTemp3_2_2 else lngTemp3_2=0 end if if lngTemp3_1=0 and lngTemp3_2=0 then lngTemp3=EndPoint else if lngTemp3_1>lngTemp3_2 then lngtemp3=lngTemp3_2-1 else lngTemp3=lngTemp3_1+4 end if end if if lngTemp1EndPoint and lngTemp<=EndPoint+lngBound then EndPoint=lngTemp else lngTemp4_1_1=instr(EndPoint,strContent,"",1) lngTemp4_1_2=instr(EndPoint,strContent,"",1) if lngTemp4_1_1>0 then lngTemp4_1=lngTemp4_1_1 elseif lngTemp4_1_2>0 then lngTemp4_1=lngTemp4_1_2 else lngTemp4_1=0 end if lngTemp4_2_1=instr(EndPoint,strContent,"0 then lngTemp4_2=lngTemp4_2_1 elseif lngTemp4_2_2>0 then lngTemp4_2=lngTemp4_2_2 else lngTemp4_2=0 end if if lngTemp4_1=0 and lngTemp4_2=0 then lngTemp4=EndPoint else if lngTemp4_1>lngTemp4_2 then lngtemp4=lngTemp4_2-1 else lngTemp4=lngTemp4_1+4 end if end if if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then EndPoint=lngTemp4 else lngTemp5_1=instr(EndPoint,strContent,"0 then lngTemp5=lngTemp5_1-1 elseif lngTemp5_2>0 then lngTemp5=lngTemp5_2-1 else lngTemp5=EndPoint end if if lngTemp5>EndPoint and lngTemp5",1) lngTemp6_2=instr(EndPoint,strContent,"
    ",1) if lngTemp6_1>0 then lngTemp6=lngTemp6_1+3 elseif lngTemp6_2>0 then lngTemp6=lngTemp6_2+3 else lngTemp6=EndPoint end if if lngTemp6>EndPoint and lngTemp6

    " if CurrentPage>1 then response.write "上一页  " end if for i=1 to pages if i=CurrentPage then response.write "[" & cstr(i) & "] " else response.write "[" & i & "] " end if next if CurrentPage下一页" end if response.write "

    " end if end sub '================================================= '过程名：ShowUserLogin '作 用：显示用户登录表单 '参 数：无 '================================================= sub ShowUserLogin() dim strLogin If Session("UserName")="" Then strLogin= "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "
    用户名：
    密  码：
    " strLogin=strLogin & "
    新用户注册  忘记密码？
    " response.write strLogin %> <% Else response.write "欢迎您！" & Session("UserName") & "

    " response.write "用户控制面板：

            会员管理中心

    " end if end sub '================================================= '过程名：ShowUserLogina '作 用：显示用户登录表单 '参 数：无 '================================================= sub ShowUserLogina() dim strLogin If Session("UserName")="" Then strLogin= "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "" strLogin=strLogin & "
    用户名：
    密  码：
    " strLogin=strLogin & "
    新用户注册  忘记密码？
    " response.write strLogin %> <% Else response.write "欢迎您！" & Session("UserName") & "

    " response.write "用户控制面板：

            会员管理中心

    " end if end sub %>