📄 makelist.asp

📁 实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank><FONT color=#666666>"&rs("qymc")&"</font></A>"
		 End If
		
		Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html'  target=_blank><FONT color=#666666>"&rs("qymc")&"</font></A>"
		
		End If
		rsmp.close
		end if
		
		HOPE_body=HOPE_body&"<FONT color=#666666><BR>"
'--是否使用的名片页------------------------------------------------------------
	   set rsmp1=server.CreateObject("adodb.recordset")
	   sqlmp1="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp1.open sqlmp1,conn,1,1
	   if not rsmp1.eof  then
	   if instr(rsmp1("rolelist"),"qw")>0 then			
		If is2weburl=1 Then
		HOPE_body=HOPE_body&"<A href='http://"&rs("user")&"."&weburl1&"/VipProduct1.htm' target=_blank><FONT color=#666666>该会员所有产品</FONT></A> <a target='_blank' href='http://"&rs("user")&"."&weburl1&"'><font color='#666666'>查看该会员企业网站</font></a>"
		 Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/VipProduct1.htm'  target=_blank><FONT color=#666666>该会员所有产品</FONT></A> <a target='_blank' href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'><font color='#666666'>查看该会员企业网站</font></a>"
		End If
		
		End If
		rsmp1.close
		end if
		HOPE_body=HOPE_body&"</FONT></FONT></TD>"
		HOPE_body=HOPE_body&"<TD align=center width='15%'>"
 		HOPE_body=HOPE_body&" <FONT class=c><b>"&rs("trust_score")&"</b></FONT> "
 		 
		HOPE_body=HOPE_body&"</TD>"
		HOPE_body=HOPE_body&"<TD class=s align=center width='15%'><div align=center>"
		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&"</div></TD>"
			HOPE_body=HOPE_body&"<TD  align=center width='15%' ><input type='checkbox'   style='display:none;'    name='msgid' checked  value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none"">"&vbCrlf
					
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		'msn交谈
		IF rs("msn")<>"" Then 
		    HOPE_body=HOPE_body&"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")&"' /><br><br> "
		End If
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
			
		 If rs("tm")="" Then
			HOPE_body=HOPE_body&"<a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&"  target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
		Else
			HOPE_body=HOPE_body&"<script>"&vbCrlf
			HOPE_body=HOPE_body&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap> </td><td> <table width='100%' border=1 bordercolor=#E2E7EB align=center  cellspacing=0 cellpadding=0  ><tr ><td   align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&" class='s' target=_blank>网站留言</a></td><td width=5></td><td  align='center' bgcolor=#E2E7EB><a href=Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&" class='s'>用TM留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
		   HOPE_body=HOPE_body&"</SCRIPT>"&vbCrlf
		End If
			HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR></TBODY></TABLE><br>"
		 i=i+1
		icolor=icolor+1
		If icolor>1 Then icolor=0
		rowcount=rowcount-1
		rs.movenext
		loop
		End If
		
		HOPE_body=HOPE_body&"<br>"
		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'>"
		HOPE_body=HOPE_body&"<TBODY>"
		HOPE_body=HOPE_body&"<tr><td align=center><br><font color=red>→</font><input type=checkbox value='' checked  disabled>请选择要比较的项:<input type='button' onclick='AjaxSearchb();' style='background-color:#CCCCCC'   value='我要进行产品比较' /></td></tr><TR>"
		HOPE_body=HOPE_body&"<TD>"
		HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width=100% border=0>"
		HOPE_body=HOPE_body&"<TBODY>"
		HOPE_body=HOPE_body&"<TR>"
		HOPE_body=HOPE_body&"<TD class=M noWrap align=center>"
		
		
		
		'************** 分页开始 ***************
		   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&")>←前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=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=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>"
		HOPE_body=HOPE_body&"</TR>"
		HOPE_body=HOPE_body&"</TBODY>"
		HOPE_body=HOPE_body&"</TABLE></TD>"
		HOPE_body=HOPE_body&"</TR>"
		HOPE_body=HOPE_body&"</TBODY>"
		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/pro_2_page.asp' />"
    		   HOPE_Title=rssort("typename") '网页标题头
  		   HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"productshow/'>产品库</a> > <a href='"&HOPE_InstallDir&"productshow/trade/"&rssort1("sortid")&".html'>"&rssort1("sort")&"</a> > "&HOPE_Title
 	'属于该行业的推荐的易商通会员的产品^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		Set rstjy=Server.CreateObject("ADODB.Recordset")
		 sqltjy="select  top  15  wygkcn_productshow.id,wygkcn_productshow.sortid,wygkcn_productshow.typeid,wygkcn_productshow.typeid_2,wygkcn_productshow.Cpmc from wygkcn_productshow,wygkcn_corporation where wygkcn_productshow.GsID=wygkcn_corporation.id and wygkcn_corporation.Tjbz like '%0%' and wygkcn_productshow.flag=1  and wygkcn_productshow.sortid="&sttid&" and  wygkcn_productshow.typeid="&ttid&" and wygkcn_productshow.typeid_2=0 and wygkcn_corporation.flag=1  order by wygkcn_corporation.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&"productshow/offerdetail/"&rstjy("sortid")&"-"&rstjy("typeid")&"-"&rstjy("typeid_2")&"-"&rstjy("id")&".html'  target=_blank>"&rstjy("cpmc")&"</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&"productshow/trade/"&sttid&"-"&ttid&".html"))
		fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_2.asp?id="&ttid&"'></script>"
		fout.Close
		End If
		Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"productshow/trade/"&sttid&"-"&ttid&"-p"&tttid&".html"))
		fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_2_page.asp?pages="&tttid&","&ttid&"'></script>"
		fout.Close
		
		Else
		Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"productshow/trade/"&sttid&"-"&ttid&".html"))
		sort_save.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_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 + -