📄 makeofferlist.asp

📁 实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
 		HOPE_body=HOPE_body&"<a href="&HOPE_InstallDir&"vipcom/"&rs("user")&" target=""_blank""><FONT color=#666666>查看该会员企业网站</font></a>"
	End If
  	End If
	rsmp1.close
	end if
		HOPE_body=HOPE_body&"</FONT><BR>"&vbCrlf
 		HOPE_body=HOPE_body&"<font class=s color=666666>主营:"&rs("zycp")&"</FONT><BR>"&vbCrlf
 		 HOPE_body=HOPE_body&" <font color=""#666666"" class=s>"&left(rs("qyjj"),40)&"……</font></TD>"&vbCrlf
		 HOPE_body=HOPE_body&"<TD width=""3%"" class=cate style=""WORD-BREAK: break-all"" align=center></TD>"&vbCrlf
		 HOPE_body=HOPE_body&"<TD width=""20%"" class=S align=left>"&vbCrlf
		HOPE_body=HOPE_body&"联系人："&rs("name")&"<br>"
		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD width=""13%""class=S 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 width=""15%""class=S align=center><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> <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>网站<br>留言</a></td><td width=5></td><td  align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='s'>用TM<br>留言</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&"<TD class=text13 align=middle width='1%' ><div align=""center"">"&vbCrlf
		
		HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
		HOPE_body=HOPE_body&"</TR>"&vbCrlf
		HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
  	icolor=icolor+1
	i=i+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&"-"&tytid&"-"&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&"-"&tytid&"-"&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&"-"&tytid&"-"&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&"-"&tytid&"-"&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&"-"&tytid&"-"&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&"-"&tytid&"-"&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&"-"&tytid&"-"&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&"-"&tytid&"-"&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/com_3_page.asp' />"&vbCrlf
	 
		 HOPE_Title=rssort2("typename_2")   '网页标题头
 	
		 HOPE_Sort="<a href='"&HOPE_InstallDir&"corporation/trade/"&rssort1("sortid")&".html'>"&rssort1("sort")&"</a>" '所属大类名称
	
		HOPE_Type="<a href='"&HOPE_InstallDir&"corporation/trade/"&rssort1("sortid")&"-"&rssort("typeid")&".html'>"&rssort("typename")&"</a>" '所属二类名称
  
		 HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"corporation/'>公司库</a> > "&HOPE_Sort&" > "&  HOPE_Type&" > "&HOPE_Title
	
 		 If totalrec="" Then 
		  totalrec=0
		 End If
		 HOPE_TotalCor="<font color=red>"&totalrec&"</font>"      '此类公司数统计

 	rs.Close    
	rssort.Close    
	rssort1.Close   
	rssort2.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&"corporation/offerlist/"&sttid&"-"&tytid&"-"&ttid&".html"))
	fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/com_3.asp?id="&ttid&"'></script>"
	fout.Close
	End If
	Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"corporation/offerlist/"&sttid&"-"&tytid&"-"&ttid&"-p"&tttid&".html"))
	fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/com_3_page.asp?pages="&tttid&","&ttid&"'></script>"
	fout.Close
	 Else
	Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"corporation/offerlist/"&sttid&"-"&tytid&"-"&ttid&".html"))
	sort_save.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/com_3.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=makeofferlist.asp?all="&Request("all")&"&page="&currentPage&"&page2="&Cint(currentPage2+1)&"&id1="&id1&"&id2="&id2&"'>"
	Else
	  Response.Write "<meta http-equiv=Refresh content='0; URL=makeofferlist.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 + -