⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 makelist.asp

📁 实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'  target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
	End If
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	Else
 		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html'   target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
	End If
	rsmp1.close
	end if
	
		HOPE_body=HOPE_body&"<FONT color=#666666> </FONT><FONT color=#666666>"&rs("dateandtime")&"</FONT> <BR>"
'--是否使用的名片页------------------------------------------------------------
	   set rsmp2=server.CreateObject("adodb.recordset")
	   sqlmp2="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp2.open sqlmp2,conn,1,1
	   if not rsmp2.eof  then
	   if instr(rsmp2("rolelist"),"qw")>0 then				
	'用于二级域名处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	If is2weburl=1 Then
		HOPE_body=HOPE_body&"<A href='http://"&rs("user")&"."&WebUrl1&"/supply1.htm'  target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a   href='http://"&rs("user")&"."&WebUrl1&"'  target=_blank><font color='#666666'>查看该会员企业网站</font></a>"
	Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a target='_blank' href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'><font color='#666666'>查看该会员企业网站</font></a>"
	End If
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	  end if
	  rsmp2.close
	
	End If
 
        HOPE_body=HOPE_body&"</FONT></TD>"&vbCrlf
        HOPE_body=HOPE_body&"<TD align=middle width='10%' >"&vbCrlf
  	
 		HOPE_body=HOPE_body&" <FONT class=c><b>"&rs("trust_score")&"</b></FONT> "
  
 		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD class=s align=middle width='12%' >"&vbCrlf
		HOPE_body=HOPE_body&"<div align=center>"&vbCrlf
	
	If rs("country")="中国" Then 
		HOPE_body=HOPE_body&""&rs("sf")&"-"&rs("city")&"" 
	Else 
		HOPE_body=HOPE_body&""&rs("country")&"" 
	End If
	

	
		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD class=text13 align=middle width='12%' > "&vbCrlf
		
			 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	'msn交谈
	IF rs("msn")<>"" Then 
	  HOPE_body=HOPE_body&"<input type='checkbox'   style='display:none;'    name='msgid' checked  value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none""> (MSN:<a href='msnim:chat?contact="&rs("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rs("msn")&"' />) </div> "
 	End If
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		
		
		
		HOPE_body=HOPE_body&"</TD></TR>"&vbCrlf
		HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
	    i=i+1
	   tmon=tmon+1
	   icolor=icolor+1
	If icolor>1 Then icolor=0
	   rowcount=rowcount-1
	rs.Movenext
	loop
	End If

'进行分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^		
			HOPE_body=HOPE_body&"<br>"&vbCrlf
			HOPE_body=HOPE_body&"<TABLE width='100%' border=0 align=center cellPadding=1 cellSpacing=0 style='BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid'>"&vbCrlf
			HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"<TR>"&vbCrlf
			HOPE_body=HOPE_body&"<TD>"&vbCrlf
			HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width='100%' border=0>"&vbCrlf
			HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"<TR>"&vbCrlf
			HOPE_body=HOPE_body&"<TD class=M noWrap align=middle>"&vbCrlf
		If not (rs.Eof and rs.Bof) Then
			gopage=currentpage2
			totalpage=mpage2
			blockPage=Int((gopage-1)/10)*10+1
			
		If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
			strTemp = "http://" 
		Else 
			strTemp = "https://" 
		End If 
			strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 
		If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 
			strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
			lenstrTemp=Len(strTemp)+1	
		If Instr(Left(linkfile,lenstrTemp),"?")>0 Then 
			
		If blockPage = 1 Then
		   HOPE_body=HOPE_body&"<span disabled>【←前10页</span> "
		Else
		   HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sttid&"-"&ttid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>←前10页</a> "
		End If
		   i=1
	    Do Until i > 10 or blockPage > mpage2
		If blockPage=Int(gopage) Then
		   HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
		   HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>["&blockPage&"]</a> "
		End If
			blockPage=blockPage+1
			i = i + 1
		Loop
		If blockPage > totalpage Then
		   HOPE_body=HOPE_body&" <span disabled>后10页→】"
		Else
		   HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&ttid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sttid&"-"&ttid&"-p"&i&".html"
		If i=gopage Then HOPE_body=HOPE_body&"   selected"
			HOPE_body=HOPE_body&">"&i&"</option>"
		next
			HOPE_body=HOPE_body&"</select>"
			HOPE_body=HOPE_body&" 页<Br><Br>"
			
		Else
			
		If blockPage = 1 Then
		   HOPE_body=HOPE_body&"<span disabled>【←前10页</span> "
		Else
		   HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sttid&"-"&ttid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&ttid&","&blockPage-10&")>←前10页</a> "
		End If
		   i=1
		Do Until i > 10 OR blockPage > mpage2
		If blockPage=int(gopage) Then
		    HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
		    HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>["&blockPage&"]</a> "
		End If
			blockPage=blockPage+1
			i = i + 1
		Loop
		If blockPage > totalpage Then
		   HOPE_body=HOPE_body&" <span disabled>后10页→】"
		Else
		   HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&ttid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sttid&"-"&ttid&"-p"&i&".html"
		If i=gopage Then HOPE_body=HOPE_body&"   selected"
			HOPE_body=HOPE_body&">"&i&"</option>"
		next
			HOPE_body=HOPE_body&"</select>"
			HOPE_body=HOPE_body&" 页<Br><Br>"
			
		End If
			
			Startinfo=((gopage-1)*msg_per_page)+1
			Endinfo=gopage*msg_per_page
		If Endinfo>totalrec Then Endinfo=totalrec
		    HOPE_body=HOPE_body&"  共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页"
		End If
		
			HOPE_body=HOPE_body&"</TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR>"&vbCrlf
			HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR>"&vbCrlf
			HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"</TABLE><script language='javascript' src="&HOPE_InstallDir&"autokind/autokind_p.js></script><input type='text' id='installurltrp'  style='display:none; width:12;height:1'  value='"&HOPE_InstallDir&"autokind/trade_2_page.asp' />"&vbCrlf

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
       'HOPE_Title用于显示当前网页标题头^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
        HOPE_Title=rssort("typename")
 
       '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
      'HOPE_Sort用于显示所属大类名称(用于导航)^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
 
        HOPE_Sort="<a href='"&HOPE_InstallDir&"tradeinfo/trade/"&rssort1("SortID")&".html' >"&rssort1("sort")&"</a>"        
      '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	  
	  
	  
      ' 导航标签#HOPE_TradeGo#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

	  HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> ><a href='"&HOPE_InstallDir&"tradeinfo'>我要采购</a>>"&HOPE_Sort&" > "&HOPE_Title
		
      '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

     	  
 	  '属于该行业的推荐的易商通会员的供应信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Set rstjy=Server.CreateObject("ADODB.Recordset")
	 sqltjy="select  top  15   yixiang_Info.showname,yixiang_Info.Info_ID,yixiang_Info.sortid,yixiang_Info.typeid,yixiang_Info.typeid_2 from yixiang_Info,wygkcn_corporation where yixiang_Info.Gsid=wygkcn_corporation.id and wygkcn_corporation.Tjbz like '%0%' and wygkcn_corporation.flag=1  and yixiang_Info.sortid="&sttid&" and yixiang_Info.typeid="&ttid&" and yixiang_Info.typeid_2=0  and yixiang_Info.type='卖' order by trust_score desc"
       rstjy.Open sqltjy,conn,1,1
	   If rstjy.Eof Then
	    tjcompany="暂无"
	   End If
	   If Not rstjy.Eof Then 
        tjcompany=""
 	   End If
	   If Not rstjy.Eof Then 
	    tji=1
	    tjcompany=""
	   Do While Not rstjy.Eof 
	    tjcompany=tjcompany&"．<a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rstjy("sortid")&"-"&rstjy("typeid")&"-"&rstjy("typeid_2")&"-"&rstjy("Info_ID")&".html' target=_blank>"&rstjy("showname")&"</a><br>"
	   If tji=15 Then	   Exit Do
  	   tji=tji+1
 	   rstjy.Movenext
	   Loop
	   rstjy.Close
	   End If 

	HOPE_TjCom=tjcompany
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


	  
	rs.Close
	rssort.Close
	rssort1.Close
	
	
	'替换模版中的标签函数^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	pencat=Hope_HtmlResult(pencat)
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	'进行静态页面的生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Set fso = YXFSO
	If mpage2>1 Then
	
	If Cint(Request("page2"))<1 Then
	Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"tradeinfo/trade/"&sttid&"-"&ttid&".html"))
	fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/trade_2.asp?id="&ttid&"'></script>"
	fout.Close
	End If
	'生成分页页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"tradeinfo/trade/"&sttid&"-"&ttid&"-p"&tttid&".html"))
	fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/trade_2_page.asp?pages="&tttid&","&ttid&"'></script>"
	fout.Close
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Else
	
	Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"tradeinfo/trade/"&sttid&"-"&ttid&".html"))
	sort_save.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/trade_2.asp?id="&ttid&"'></script>"
	sort_save.Close
	End If
	set fso = nothing
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	 If currentPage2<mpage2 Then
	  Response.Write "<br>已生成*页/此类共*页:<font color=#FF0000>"&currentPage2&"</font>/共<font color=#FF0000><b>"&mpage2&"</b></font>页，"
	  Response.Write "<meta http-equiv=Refresh content='0; URL=makelist.asp?all="&Request("all")&"&page="&currentPage&"&page2="&Cint(currentPage2+1)&"&id1="&id1&"&id2="&id2&"'>"
	Else
	  Response.Write "<meta http-equiv=Refresh content='0; URL=makelist.asp?all="&Request("all")&"&page="&currentPage+1&"&id1="&id1&"&id2="&id2&"'>"
	End If
	End If
	 
	Set rs=nothing
	conn.Close
	set conn=nothing
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
12

⌨️ 快捷键说明

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