makedetail.asp

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

ASP
669 行
字号
123
	   Else
	        HOPE_CorCount=HOPE_CorCount&"指数 <strong>0</strong>" 
	   End If
			HOPE_CorCount=HOPE_CorCount&"</td><td class=cardSpace width=6>&nbsp;</td>" 
			HOPE_CorCount=HOPE_CorCount&"<td width=95 height=27 class=cardNormal onclick='secCard(2);secBoard(1);'>公司信息</td>" 
			HOPE_CorCount=HOPE_CorCount&"<td class=cardSpace width=6>&nbsp;</td>" 
			HOPE_CorCount=HOPE_CorCount&"<td width=95 height=27 class=cardNormal onclick='secCard(3);secBoard(2);' nowrap><img src="&HOPE_InstallDir&"images/icon_contact.gif width=23 height=15 align=absmiddle border=0 hspace=3>联系信息</td>" 
			HOPE_CorCount=HOPE_CorCount&"</tr>" 
			HOPE_CorCount=HOPE_CorCount&"</table>" 
			HOPE_CorCount=HOPE_CorCount&"<table border=0 cellspacing=0 cellpadding=0 width='100%' height=38 id=mainTable class=boardMain>" 
			HOPE_CorCount=HOPE_CorCount&"<tbody style='display:blank;'>" 
			HOPE_CorCount=HOPE_CorCount&"<tr>" 
			HOPE_CorCount=HOPE_CorCount&"<td width=100 align=center>"
			'-等级名-------------------------------------------
			set rsdm=server.CreateObject("adodb.recordset")
			sqldm="select gradename from yixiang_vipgrade where roleid="&rs("gradeid")
			rsdm.open sqldm,conn,1,1
			if not rsdm.eof then
			HOPE_CorCount=HOPE_CorCount&"<font color=red style=""font-size:14px""><b>"&rsdm("gradename")&"</b></font>"
			rsdm.close
			end if
			'-----------------------------------------
			
			HOPE_CorCount=HOPE_CorCount&"</td>" 
			HOPE_CorCount=HOPE_CorCount&"<td align=center valign=middle> <table width='95%' align=left border=0 cellspacing=0 cellpadding=0>" 
			HOPE_CorCount=HOPE_CorCount&"<tr>" 
			HOPE_CorCount=HOPE_CorCount&"<td><table width='100%' border=0 cellspacing=0 cellpadding=0>" 
			HOPE_CorCount=HOPE_CorCount&"<tr><td class=S  style='line-height:180%;padding-top:5px'> " 
 
 			HOPE_CorCount=HOPE_CorCount&"<strong>工商注册信息：</strong>已通过认证<br>" 
 			HOPE_CorCount=HOPE_CorCount&"<strong>证书及荣誉：</strong>" 
		sql="select count(id) from Yixiang_bizre where gsid="&rs("id")&" And sh=1"
		Set totle=Server.CreateObject("adodb.recordset")
		  totle.OPen sql,conn,1,1
		 If Not totle.Eof Then 
		     totle2=totle(0)
		    HOPE_CorCount=HOPE_CorCount&"<FONT color=red><b>"&totle2&"</b></font>项"
		totle.Close 
		Set totle=Nothing
 		
		    HOPE_CorCount=HOPE_CorCount&"<br>" 
		    HOPE_CorCount=HOPE_CorCount&"<strong>会员评价总数：</strong>" 
			
		sqlw="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&rs("id")&""
		Set totlew=Server.CreateObject("adodb.recordset")
		 totlew.Open sqlw,conn,1,1
		 If Not totlew.Eof Then
		 		totle2w=totlew(0)
		     HOPE_CorCount=HOPE_CorCount&" <FONT color=red><b>"&totle2w&"</b></font>条 "
		totlew.Close 
		Set totlew=Nothing
		End If
		
		    HOPE_CorCount=HOPE_CorCount&"<a href='"&HOPE_InstallDir&"trustadv/rempost.asp?id="&rs("id")&"' target='_blank'>发表评价</a>" 
	  End If
		    HOPE_CorCount=HOPE_CorCount&"</td></tr>" 
		    HOPE_CorCount=HOPE_CorCount&"</table></td>" 
		    HOPE_CorCount=HOPE_CorCount&"</tr>" 
		    HOPE_CorCount=HOPE_CorCount&"<tr><td height=20 class=S><div >" 
		
		HOPE_CorCount=HOPE_CorCount&"<div id='search_resultmsg3' style=""display:none"">"
 '--是否使用的名片页------------------------------------------------------------
	   set rsmp2=server.CreateObject("adodb.recordset")
	   sqlmp2="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp2.open sqlmp1,conn,1,1
	   if not rsmp2.eof  then
	   if instr(rsmp2("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></div> " 
          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></div>" 
          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></div> " 
 		 end if
	   rsmp2.close
	   end if
			
			HOPE_CorCount=HOPE_CorCount&"</td></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> <table width='90%' border=0 cellspacing=0 cellpadding=0>" 
			HOPE_CorCount=HOPE_CorCount&"<tr>" 
			HOPE_CorCount=HOPE_CorCount&"<td> <table width='100%' border=0 cellspacing=0 cellpadding=0>" 
			HOPE_CorCount=HOPE_CorCount&"<tr>" 
			HOPE_CorCount=HOPE_CorCount&"<td class=""S lh15"">"
		c="select * from Yixiang_cor_format where id="&rs("p_z_Z_LegalStatus")&""
		Set rsc=Server.CreateObject("ADODB.Recordset")
		rsc.Open c,conn,1,1
		If Not rsc.Eof  Then
		    HOPE_CorCount=HOPE_CorCount&"<strong>企业类型：</strong> "&rsc("title")&" <br>"
		rsc.Close
		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>"
			HOPE_CorCount=HOPE_CorCount&"<div id='search_resultmsg4' style=""display:none"">"
  '--是否使用的名片页------------------------------------------------------------
	   set rsmp3=server.CreateObject("adodb.recordset")
	   sqlmp3="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp3.open sqlmp1,conn,1,1
	   if not rsmp3.eof  then
	   if instr(rsmp3("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
	    rsmp3.close
		End If
		HOPE_CorCount=HOPE_CorCount&"</div>"
			HOPE_CorCount=HOPE_CorCount&"</td></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><strong>公司主页：</strong></TD>" 
  '--是否使用的名片页------------------------------------------------------------
	   set rsmp4=server.CreateObject("adodb.recordset")
	   sqlmp4="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp4.open sqlmp1,conn,1,1
	   if not rsmp4.eof  then
	   if instr(rsmp4("rolelist"),"qw")>0 then
  		If is2weburl=1 Then
			HOPE_CorCount=HOPE_CorCount&"<tr><TD class=text13 colspan=2 style='WORD-BREAK: break-all'>「本站」<a href='http://"&rs("user")&"."&weburl1&"'    target=_blank> http://"&rs("user")&"."&weburl1&"</a></td></tr>" 
		Else
			HOPE_CorCount=HOPE_CorCount&"<tr><TD  colspan=2 class=text13 style='WORD-BREAK: break-all'>「本站」<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'  target=_blank>http://"&WebUrl1&HOPE_InstallDir&"vipcom/"&rs("user")&"/ </a></td></tr>" 
		End If
		Else
		 	HOPE_CorCount=HOPE_CorCount&"<tr><TD  colspan=2 class=text13 style='WORD-BREAK: break-all'>「本站」<a href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html'  target=_blank>http://"&WebUrl1&HOPE_InstallDir&"Ptcom/"&rs("user")&".html  </a></td></tr>" 
	end if
	  rsmp4.close
   		End If
			HOPE_CorCount=HOPE_CorCount&"<tr><td colspan=2>「其它」<a href="&rs("web")&" target=_blank>"&rs("web")&"</a> </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'>"&rs("content")&"</a>"
		
		   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		
		
		  '产品属性
		    HOPE_BC=HOPE_BC&"<TABLE width='98%' border=0 align=center cellPadding=3 cellSpacing=1 bgColor=#eaeaea>" 
		    HOPE_BC=HOPE_BC&"<TBODY>" 
		If rs("Specifications")<>"" Then 
			HOPE_BC=HOPE_BC&"<TR>"
123

makedetail.asp - 源码说明

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

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

⌨️ 快捷键说明

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