makedetail.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 609 行 · 第 1/2 页

ASP
609 行
字号
12
	Set rsc=Nothing
	End If
	HOPE_CorCount=HOPE_CorCount&"<strong>经营模式：</strong> "&rs("qylb")&" <br>"
	c1="select * from Yixiang_cor_total where id="&rs("p_z_Z_EmployeesCount")&""
	Set rsc1=Server.CreateObject("adodb.recordSet")
	rsc1.Open c1,conn,1,1
	If Not rsc1.Eof Then
	HOPE_CorCount=HOPE_CorCount&"<strong>员工人数：</strong> "&rsc1("title")&" <br>"
	rsc1.Close
	Set rsc1=Nothing
	End If
	
	c2="select * from Yixiang_cor_bank where id="&rs("p_z_Z_RegCapital")&""
	 Set rsc2=Server.CreateObject("adodb.recordSet")
	 rsc2.Open c2,conn,1,1
	 If not rsc2.Eof Then
	 
	HOPE_CorCount=HOPE_CorCount&"<strong>注册资金：</strong> "&rsc2("title")&""
	rsc2.Close
	Set rsc2=Nothing 
	End If
	HOPE_CorCount=HOPE_CorCount&"</tr>" 
	HOPE_CorCount=HOPE_CorCount&"</table></td>" 
	HOPE_CorCount=HOPE_CorCount&"</tr>" 
	HOPE_CorCount=HOPE_CorCount&"<tr>" 
	
	HOPE_CorCount=HOPE_CorCount&"<td height=20 align=right class=S><div id='search_resultmsg4' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
	   set rsmp=server.CreateObject("adodb.recordset")
	   sqlmp="select * from yixiang_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_CorCount=HOPE_CorCount&" <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href='http://"&rs("user")&"."&weburl1&"'  target=_blank>查看该公司</a> " 
	Else
	HOPE_CorCount=HOPE_CorCount&" <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href="&HOPE_InstallDir&"Vipcom/"&rs("user")&" target=_blank>查看该公司</a> " 
	End If
	Else
	HOPE_CorCount=HOPE_CorCount&"  <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>查看该公司</a>" 
  	End If
 rsmp.close
	end if	
	HOPE_CorCount=HOPE_CorCount&"</div></td>"
	
	HOPE_CorCount=HOPE_CorCount&"</tr>" 
	HOPE_CorCount=HOPE_CorCount&"</table></td>" 
	HOPE_CorCount=HOPE_CorCount&"</tr>" 
	HOPE_CorCount=HOPE_CorCount&"</tbody>" 
	HOPE_CorCount=HOPE_CorCount&"<tbody style='display:none;'>" 
	HOPE_CorCount=HOPE_CorCount&"<tr>" 
	HOPE_CorCount=HOPE_CorCount&"<td align=center valign=top> <div id='search_resultmsg5' style=""display:none""><table width='90%' border=0 cellpadding=0 cellspacing=0>" 
	HOPE_CorCount=HOPE_CorCount&"<tr>" 
	HOPE_CorCount=HOPE_CorCount&"<td height=22><A href=mailto:"&rs("email")&">"&rs("name")&"</A> "&rs("ch")&"" 
	If rs("zw")<>"" Then 
	HOPE_CorCount=HOPE_CorCount&"("&rs("zw")&")"
	Else
	End If 
	HOPE_CorCount=HOPE_CorCount&"<br> </td>" 
	HOPE_CorCount=HOPE_CorCount&"</tr>" 
	HOPE_CorCount=HOPE_CorCount&"</table>" 
 	HOPE_CorCount=HOPE_CorCount&"<TABLE cellSpacing=0 cellPadding=0 width='90%' align=center border=0>" 
	HOPE_CorCount=HOPE_CorCount&"<TBODY>" 
	HOPE_CorCount=HOPE_CorCount&"<TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top noWrap height=18><strong>电　　话：</strong></TD>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("phone")&"</TD>" 
	HOPE_CorCount=HOPE_CorCount&"</TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top height=18><strong>传　　真：</strong></TD>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("fax")&" </TD>" 
	HOPE_CorCount=HOPE_CorCount&"</TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TR>"
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top noWrap height=18><strong>移动电话：</strong></TD>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("mobile")&"</TD>" 
	HOPE_CorCount=HOPE_CorCount&"</TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top noWrap height=18><strong>办公地址：</strong></TD>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=lh13><SPAN class=text13>"&rs("Country")&""&rs("sf")&""&rs("city")&""&rs("address")&"</SPAN></TD>" 
	HOPE_CorCount=HOPE_CorCount&"</TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top height=18><strong>邮　　编：</strong></TD>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("post")&"</TD>" 
	HOPE_CorCount=HOPE_CorCount&"</TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TR>" 
	HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top height=18 colspan=2><strong>公司主页：</strong></TD></tr>" 
	
	
	HOPE_CorCount=HOPE_CorCount&"<tr><TD class=text13 colspan=2 style='WORD-BREAK: break-all'>"
 '--是否使用的名片页------------------------------------------------------------
	   set rsmp3=server.CreateObject("adodb.recordset")
	   sqlmp3="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp3.open sqlmp3,conn,1,1
	   if not rsmp3.eof  then
	   if instr(rsmp3("rolelist"),"qw")>0 then		
	   	If is2weburl=1 Then
				HOPE_CorCount=HOPE_CorCount&"「本站」<a href='http://"&rs("user")&"."&weburl1&"'    target=_blank> http://"&rs("user")&"."&weburl1&"</a> " 
			Else
				HOPE_CorCount=HOPE_CorCount&" 「本站」<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'  target=_blank>http://"&WebUrl1&HOPE_InstallDir&"vipcom/"&rs("user")&"/ </a> " 
			End If
	Else
				HOPE_CorCount=HOPE_CorCount&" 「本站」<a href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html'  target=_blank>http://"&WebUrl1&HOPE_InstallDir&"Ptcom/"&rs("user")&".html </a>" 
	 End If
 rsmp3.close
	 end if
	HOPE_CorCount=HOPE_CorCount&"</td></tr><tr><td colspan=2 style='WORD-BREAK: break-all'> </TD>" 
	
	
	HOPE_CorCount=HOPE_CorCount&"</TR>" 
	HOPE_CorCount=HOPE_CorCount&"</TBODY>" 
	HOPE_CorCount=HOPE_CorCount&"</TABLE></div></td>" 
	HOPE_CorCount=HOPE_CorCount&"</tr>" 
	HOPE_CorCount=HOPE_CorCount&"</tbody>" 
	HOPE_CorCount=HOPE_CorCount&"</table>" 
	
	HOPE_CountInfo="<table border=0 cellpadding=0 cellspacing=0 width='100%' ><tr><td style='word-break:break-all'>"&replace(rs("xxsm"),chr(10),"<br>")&"</td></tr></table>"
	
	HOPE_BC=HOPE_BC&"<TABLE width=""98%"" border=0 align=""center"" cellPadding=3 cellSpacing=1 bgColor=#eaeaea>"
	If rs("cpgg")<>"" Then
	HOPE_BC=HOPE_BC&"<TR><TD height=25 class=M align=right width=""16%"" bgColor=#f9f9f9>产品型号：</TD>"
	HOPE_BC=HOPE_BC&"<TD class=C width=""84%"" bgColor=#ffffff>"&rs("cpgg")&"</TD>"
	HOPE_BC=HOPE_BC&"</TR>"
	End If
	If rs("cpcd")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR>"
	HOPE_BC=HOPE_BC&"<TD height=25 class=M align=right width=""16%"" bgColor=#f9f9f9>原 产 地：</TD>"
	HOPE_BC=HOPE_BC&"<TD  class=C width=""84%"" bgColor=#ffffff>"&rs("cpcd")&"</TD>"
	HOPE_BC=HOPE_BC&"</TR>"
	End If
	If rs("cpsb")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR>"
	HOPE_BC=HOPE_BC&"<TD height=25 class=M align=right width=""16%"" bgColor=#f9f9f9>产品品牌：</TD>"
	HOPE_BC=HOPE_BC&"<TD class=C width=""84%"" bgColor=#ffffff>"&rs("cpsb")&"</TD>"
	HOPE_BC=HOPE_BC&"</TR>"
	End If
	If rs("Quantity")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR>"
	HOPE_BC=HOPE_BC&"<TD height=25 class=M align=right width=""16%"" bgColor=#f9f9f9>产品数量：</TD>"
	HOPE_BC=HOPE_BC&"<TD class=C width=""84%"" bgColor=#ffffff>"&rs("Quantity")&"</TD>"
	HOPE_BC=HOPE_BC&"</TR>"
	End If
	If rs("Packaging")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR>"
	HOPE_BC=HOPE_BC&"<TD height=25 class=M align=right width=""16%"" bgColor=#f9f9f9>包装说明：</TD>"
	HOPE_BC=HOPE_BC&"<TD class=C width=""84%"" bgColor=#ffffff>"&rs("Packaging")&"</TD>"
	HOPE_BC=HOPE_BC&"</TR>"
	End If
	If rs("Cpjg")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR>"
	HOPE_BC=HOPE_BC&"<TD height=25 class=M align=right width=""16%"" bgColor=#f9f9f9>价格说明：</TD>"
	HOPE_BC=HOPE_BC&"<TD class=C width=""84%"" bgColor=#ffffff>"&rs("Cpjg")&"</TD>"
	HOPE_BC=HOPE_BC&"</TR>"
	End If
	HOPE_BC=HOPE_BC&"</TABLE>"
	
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TABLE width='100%'  border=0  align=center cellPadding=0 cellSpacing=0>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TBODY>" 
	If rs("picture")<>"../../UploadFile/nopicture.gif" Then 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TR>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD align=center> <a name=zoom></a>"  
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TABLE width=600 height=350 border=0 align=center cellPadding=0 cellSpacing=0 class=porductborder>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TBODY>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TR>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD align=middle> <div align=center>" 
	If rs("picture")<>"../../UploadFile/nopicture.gif" Then
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("picture")&" NAME=prodView onload=""javascript:if(this.width>650){this.width=650;}"" border=0>" 
	Else
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<FONT class=C color=#cecfce>无图</FONT>" 
	End If
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TD>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TR>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TBODY>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TABLE></TD>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TR>" 
	End If 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TBODY>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TABLE>"
	
	HOPE_XG=HOPE_XG&"<table width='98%'  border=0 align=center cellpadding=0 cellspacing=0 class=prmcontentborder>" 
	HOPE_XG=HOPE_XG&"<tr>" 
	HOPE_XG=HOPE_XG&"<td><TABLE width='100%' border=0 align=center cellPadding=0 cellSpacing=0>" 
	HOPE_XG=HOPE_XG&"<TBODY>" 
	HOPE_XG=HOPE_XG&"<TR>" 
	HOPE_XG=HOPE_XG&"<TD class=smallheader align=middle colSpan=2>&nbsp;该公司其他信息</TD>" 
	HOPE_XG=HOPE_XG&"</TR>" 
	HOPE_XG=HOPE_XG&"<TR align=middle bgColor=#efefef>" 
	HOPE_XG=HOPE_XG&"<TD class=C bgColor=#efefef height=30>" 
	
	
	
	HOPE_XG=HOPE_XG&"<div id='search_resultmsg6' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
	   set rsmp4=server.CreateObject("adodb.recordset")
	   sqlmp4="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp4.open sqlmp4,conn,1,1
	   if not rsmp4.eof  then
	   if instr(rsmp4("rolelist"),"qw")>0 then		
	   HOPE_XG=HOPE_XG&"<FONT color=#333333>该公司供求信息推荐 </FONT><IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
		If is2weburl=1 Then
		 HOPE_XG=HOPE_XG&"<A href='http://"&rs("user")&"."&weburl1&"/VipProduct1.htm' target=_blank>全部产品目录</A>&nbsp;&nbsp; <IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
		 HOPE_XG=HOPE_XG&"<A href='http://"&rs("user")&"."&weburl1&"/supply1.htm' target=_blank>全部供求信息</A>"
		Else
		HOPE_XG=HOPE_XG&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/VipProduct1.htm' target=_blank>全部产品目录</A>&nbsp;&nbsp; <IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
		HOPE_XG=HOPE_XG&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank>全部供求信息</A>"
		 End If
		 end if
 rsmp4.close
	End If
	HOPE_XG=HOPE_XG&"</div>"
	sql="select top 6 Yixiang_info.info_id,Yixiang_info.draw,Yixiang_info.draw1,Yixiang_info.draw2,Yixiang_info.flag as Yixiang_infoflag,Yixiang_info.gsid,Yixiang_info.sortid as infosortid,Yixiang_info.typeid as infotypeid,Yixiang_info.typeid_2 as infotypeid_2,Yixiang_info.type,Yixiang_info.showname,Yixiang_info.content,Yixiang_info.period,Yixiang_info.dateandtime,Yixiang_info.picture,Yixiang_info.picture_summ,Yixiang_info.Specifications,Yixiang_info.Quantity,Yixiang_info.Packaging,Yixiang_info.PriceTerms,wygkcn_corporation.* from Yixiang_Info,wygkcn_corporation where Yixiang_info.gsid="&gsid&" and wygkcn_corporation.id=Yixiang_info.gsid and Yixiang_info.flag=1 and Yixiang_info.type='卖'"
	Set rs= Server.CreateObject("ADODB.RecordSet") 
	rs.Open sql,conn,1,1
	If not rs.Eof Then 
	gsid=rs("gsid")
	End If 
	If rs.Eof Then
	HOPE_XG=HOPE_XG&"<br><br><br><div align='center' class=s>该公司暂无其他供应信息</div>"
	Else
	HOPE_XG=HOPE_XG&"</TD>" 
	HOPE_XG=HOPE_XG&"</TR>" 
	HOPE_XG=HOPE_XG&"</TBODY>" 
	HOPE_XG=HOPE_XG&"</TABLE>" 
	HOPE_XG=HOPE_XG&"<TABLE width='100%' height=85 border=0 cellPadding=5 cellSpacing=5 align=left>" 
	HOPE_XG=HOPE_XG&"<TBODY>" 
	HOPE_XG=HOPE_XG&"<TR>" 
	j=1
	do while not rs.Eof
	HOPE_XG=HOPE_XG&"<TD width=100 align=middle>" 
	HOPE_XG=HOPE_XG&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>" 
	HOPE_XG=HOPE_XG&"<TBODY>" 
	HOPE_XG=HOPE_XG&"<TR>" 
	HOPE_XG=HOPE_XG&"<TD align=middle>"
	
	If Trim(rs("draw"))="" And Trim(rs("draw1"))=""  And Trim(rs("draw2"))="" Then 
		HOPE_XG=HOPE_XG&"<FONT class=C color=#cecfce>无图</FONT>" 
	 Else
		  If Trim(rs("draw1"))<>"" And  Trim(rs("draw2"))<>""  And Trim(rs("draw"))<>"" Then 
		   pgong=rs("draw")
		  ElseIf Trim(rs("draw2"))="" And Trim(rs("draw1"))="" Then
			pgong=rs("draw")
		  ElseIf Trim(rs("draw2"))="" And Trim(rs("draw"))="" Then
			 pgong=rs("draw1")
		  Else
			 pgong=rs("draw2")
		  End If 
	 
	
 		HOPE_XG=HOPE_XG&"<A class=s href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html><IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&pgong&" height=64 width=64  border=0> </A>" 
   End If 
 	HOPE_XG=HOPE_XG&"</TD>" 
	HOPE_XG=HOPE_XG&"</TR>" 
	HOPE_XG=HOPE_XG&"</TBODY>" 
	HOPE_XG=HOPE_XG&"</TABLE></TD>" 
	HOPE_XG=HOPE_XG&"<TD class=cate>" 
	If rs("type")="买" Then
	HOPE_XG=HOPE_XG&"<A class=M href='"&HOPE_InstallDir&"seller/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html'>"
	ElseIf rs("type")="卖" Then
	HOPE_XG=HOPE_XG&"<A class=M href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html'>"
	End If
	HOPE_XG=HOPE_XG&"<SPAN class=lh15>"&rs("showname")&"</SPAN></a><BR>" 
	HOPE_XG=HOPE_XG&"<FONT color=#666666>"&FormatDate(rs("dateandtime"),2)&"</FONT></TD>" 
	If j mod 2 = 0 Then 
	HOPE_XG=HOPE_XG&"</TR>" 
	HOPE_XG=HOPE_XG&"<tr>" 
	End If
	rs.movenext
	j=j+1
	loop
	End If
	HOPE_XG=HOPE_XG&"</TBODY>" 
	HOPE_XG=HOPE_XG&"</TABLE></td>" 
	HOPE_XG=HOPE_XG&"</tr>" 
	HOPE_XG=HOPE_XG&"</table>"
	rs.Close
	
	
	
	
	Response.Write "<br><b>已生成/要生成的页面条数:<font color=#FF0000>"&currentPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
	If mpage<currentPage Then
	Response.Write ",完成时间"&Now()&"</b> "
	Else
 	
 	        HOPE_TradeInfoID=ttid '当前页面ID
 	        HOPE_Title=showname
			HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"productshow/'>产品库</a> > "&HOPE_Sort&" "&HOPE_Type&" > "&HOPE_Title 
  	
	
	pencat=Hope_HtmlResult(pencat)
	
	
	Set fso = YXFSO
	Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"productshow/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html"))
	sort_save.Write pencat
	sort_save.Close
	If Request("other")=1 Then Response.End()
	Response.Write "<meta http-equiv=Refresh content='0; URL=makedetail.asp?all="&Request("all")&"&id1="&id1&"&id2="&id2&"&page="&currentPage+1&"&schtml="&Request("schtml")&"'>"
	End If
	'************** 生成HTML页 结束 ***************
	Set rs=Nothing
	conn.Close
	Set conn=Nothing
	%>
12

makedetail.asp - 源码说明

本页面展示了「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统」中的 makedetail.asp 源码文件，采用 ASP 编程语言编写，共 609 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与JSP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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