📄 maketrade.asp

📁 网胜B2B电子商务蓝色风格2008SP6.0.1普及版
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
	<title>生成公司一级分类</title>
	<style type="text/css">
	<!--
	body {
		margin-left: 0px;
		margin-top: 0px;
		margin-right: 0px;
		margin-bottom: 0px;
		background-color: #E4EDF9;
	}
	body,td,th {
		font-size: 12px;
	}
	-->
	</style>
	</head>
<body>

<%
   data_path="../../../" 'ACC连接数据库路径，对SQL无效
 dir="no"
 numid="no"
   %>
   	<!--#include file="../../../conn/conn.asp"-->
	<!--#include file="../../../inc/safe.asp"-->
	<!--#include file="../../../inc/filesystem.asp"-->
	<!--#include file="../../../inc/classcount.asp"-->
	<!--#include file="../index/temp_inc.asp"-->
   <!--#include file="../makerole.asp"-->

<%


'过滤内容中出现的html代码，引用时用 “RemoveHTML(调用内容)”

Function RemoveHTML(strHTML) 
Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
'取闭合的<> 
objRegExp.Pattern = "<.+?>" 
'进行匹配 
Set Matches = objRegExp.Execute(strHTML) 
' 遍历匹配集合，并替换掉匹配的项目 
For Each Match in Matches 
strHtml=Replace(strHTML,Match.Value,"") 
Next 
RemoveHTML=strHTML 
Set objRegExp = Nothing 
End Function

'定义结束。

	 Set rs=Server.createobject("adodb.recordSet")
	rs.Open ("select corporation_sort from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
	If rs.Eof Then 
	 Response.Write("<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>对不起!该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
	 Response.End()
	 End If
	If Not rs.Eof Then
 	pencat=rs("corporation_sort")
	rs.Close
	End If
	
     If Request("page")<>"" Then
      If Cint(Request("page"))<1 Then
         currentPage=1
      Else
         currentPage=Cint(Request("page"))
      End If
   Else        
      currentPage=1        
   End If
    If Request("page2")<>"" Then
      If Cint(Request("page2"))<1 Then
         currentPage2=1
      Else
         currentPage2=Cint(Request("page2"))
      End If
   Else        
      currentPage2=1        
   End If
   
       MaxPerPage=1
     If Request("all")="all" Then
	 Set rs=Server.createobject("adodb.recordSet")
     rs.Open ("select * from Websen_class_1 order by sortID desc"),conn,1,1
     End If
     If not rs.Eof Then
     rs.pagesize=MaxPerPage
     mpage=rs.pagecount     '得到总条数
	 If currentPage>mpage Then 
			 Response.Write "<br><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<b>生成完毕 完成时间："&now()&"</b>"
			 Response.end
		 End If
     rs.move  (currentPage-1)*MaxPerPage
       If mpage>=currentPage Then
		 sortid=rs("sortid")
		 sortname=rs("sort")
       End If
     End If
	 rs.Close
 	 
	If sortid="" Then
	 sortid=0
	End If	
	
	
	    response.write "<b>已生成/要生成的一级分类:<font color=#FF0000>"&currentPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
    If mpage<currentPage Then
	response.write "，完成时间"&Now()&"</b> "
	Else
	
   	 msg_per_page=15
     If Request("all")="all"   Then
	 Set rs=Server.createobject("adodb.recordset")
     rs.Open ("select * from Websen_corporation where  Websen_corporation.sortid="&sortid&" and  flag=1 order by trust_score desc"),conn,1,1
	 
     End If
     If not rs.Eof Then
	 totalrec=RS.RecordCount'总记录条数
     rs.Pagesize=msg_per_page  '每页数
     mpage2=rs.Pagecount     '得到总页数
	 rowcount=msg_per_page
     rs.Move  (currentPage2-1)*MaxPerPage
       If mpage2>=currentPage2 Then
         tttid=currentPage2
       End If
     End If
%>
<!--#include file="../../../inc/headpage_html.asp"-->
<%
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
        HOPE_type=HOPE_type&"<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr'  style='display:none; width:12;height:1'  value="&HOPE_InstallDir&"autokind/trade_2.asp><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>" 
	HOPE_type=HOPE_type&"<div id='yabock'><div class='mulur'><a href='"&HOPE_InstallDir&"index.html' class='la'>网站首页</a> &gt; <a href='"&HOPE_InstallDir&"corporation/index.html' class='la'>公司信息</a> > "&sortname&"</div>  <div class='fenli'><div class='yoleft'><img src='#HOPE_InstallDir#images/indexpoint.gif' width='5' height='9' /> 按<strong>分类</strong>筛选：</div><div class='yorift'><table width='600' border='0' cellspacing='0' cellpadding='0'><tr>"
	sqltype="SELECT * FROM Websen_class_2 WHERE sortid="&sortid
	Set rstype=Server.CreateObject("ADODB.Recordset")
	rstype.Open sqltype,conn,1,1 
	If Not rstype.Eof Then
	j=1
 	 Do While Not rstype.Eof
         '^^^^^^^^^^^^^^^^^^^^^^^^^    start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 '查询出属于第一类的二级分类下的所含小分类的总数
		 
		 Set thirrs=Server.CreateObject("ADODB.Recordset")
		  thirsql="SELECT COUNT(*)AS thircount FROM Websen_Class_3 WHERE typeid="&rstype("typeid")
		  thirrs.Open thirsql,conn,1,1
		  If thirrs.Eof Then
		  seCount_sale=""
		  End If
		  If not thirrs.Eof Then
		  If thirrs("thircount")<=0 Then
		  seCount_sale=""
		  Else
		  seCount_sale="<font style=' color:#000000'>("&thirrs("thircount")&")</font>"
		  End If
		  thirrs.close    
		  End If
		 
		 '^^^^^^^^^^^^^^^^^^^^^^^^^     end    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		  
  			HOPE_type=HOPE_type&" <td height=10 valign=top>"
			HOPE_type=HOPE_type&"<A href="""&sortid&"-"&rstype("typeid")&".html"" class=M onclick='AjaxSearchtr("&rstype("typeid")&")'>"&rstype("typename")&"</A> "&seCount_sale&""
 		    HOPE_type=HOPE_type&" </td> " 
		If j MOD 5 = 0 Then 
			HOPE_type=HOPE_type&"</tr><tr>" 
		End If 
	rstype.Movenext
		j=j+1
	Loop
    Set rstype=Nothing
  End If
           HOPE_type=HOPE_type&"</tr></table></div></div></div>"
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	

	
 '************** 开始读取内容开始 ***************
 	HOPE_body=HOPE_body&""	 

     If rs.Eof Then
		HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无公司信息</div><br>"
     Else
	 
	 
	 i=1
	HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script   language='vbscript'>sub AjaxSearchmsg() end  sub </script><input type='text' id='installurlmsg'  style='display:none; width:12;height:1'  value='"&HOPE_InstallDir&"autokind/showmsgrole.asp'/> "
     do while not rs.Eof and rowcount > 0
		
		HOPE_body=HOPE_body&" <TABLE width='100%' height=105 border=0 align=center cellPadding=0 cellSpacing=0>"&vbCrlf
		HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"<TR"
     If icolor=0 Then 
		HOPE_body=HOPE_body&" bgColor=#ffffff" 
     Else 
		HOPE_body=HOPE_body&" bgColor=#f6f6f6" 
     End If
		HOPE_body=HOPE_body&">"&vbCrlf
		HOPE_body=HOPE_body&"<td width='1%' class='peyen'>&nbsp;</td>"&VbCrLf
		HOPE_body=HOPE_body&"<td width='60%' valign='top' class='peyen'>"&vbCrlf
'--是否使用的名片页------------------------------------------------------------
	   set rsmp=server.CreateObject("adodb.recordset")
	   sqlmp="select * from Websen_vipgrade where roleid="&rs("gradeid")
	   rsmp.open sqlmp,conn,1,1
	   if not rsmp.eof  then
	   if instr(rsmp("rolelist"),"qw")>0 then		
     If is2weburl=1 Then'二级域名'''''''''''''''''''''''''''''''''''''''''''''''''''
		
		HOPE_body=HOPE_body&"<a href='http://"&rs("user")&"."&weburl1&"' target=_blank class=b>"&rs("qymc")&"</A>"&vbCrlf 
     Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"' target=_blank class=b>"&rs("qymc")&"</A>"&vbCrlf 
		
     End If          
			
      Else
		HOPE_body=HOPE_body&"<A href="""&HOPE_InstallDir&"Ptcom/"&rs("user")&".html"" target=""_blank"" class=b>"&rs("qymc")&"</A>"&vbCrlf
12 下一页
⌨️ 快捷键说明

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