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

📄 usercard.asp

📁 实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
				HOPE_CorCount=HOPE_CorCount&"<tr>" 
		
		 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 If is2weburl=1 Then
		        HOPE_CorCount=HOPE_CorCount&"<td height=20 class=S><div align=right><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></td>" 
		Else
		        HOPE_CorCount=HOPE_CorCount&"<td height=20 class=S><div align=right><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></td>" 
		End If
		 
		''^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 
				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> <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
		End If 
		
		Set rsc1=Nothing
		         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 title 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>   </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> <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>" 
		
		
		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
 		
 			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></td>" 
			HOPE_CorCount=HOPE_CorCount&"</tr>" 
			HOPE_CorCount=HOPE_CorCount&"</tbody>" 
			HOPE_CorCount=HOPE_CorCount&"</table>" 
		Else
		'处理普通会员的产品介绍信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
			HOPE_CorCount=HOPE_CorCount&"<table border=0 cellspacing=0 cellpadding=0 width='100%' id=secTable class=cardFont>" 
			HOPE_CorCount=HOPE_CorCount&"<tr  >"
			HOPE_CorCount=HOPE_CorCount&"<td width='32%' height=27 align=left class=cardSelected1>公司基本资料信息</td><td class=cardNormal nowrap ></td>" 
			HOPE_CorCount=HOPE_CorCount&"</tr>" 
			HOPE_CorCount=HOPE_CorCount&"</table>" 
			HOPE_CorCount=HOPE_CorCount&"<table width='100%'  border=0 cellpadding=0 cellspacing=0 class=boardMain>" 
			HOPE_CorCount=HOPE_CorCount&"<tr>" 
			HOPE_CorCount=HOPE_CorCount&"<td><TABLE cellSpacing=1 cellPadding=0 width='90%' align=center border=0>" 
			HOPE_CorCount=HOPE_CorCount&"<TBODY>"
			HOPE_CorCount=HOPE_CorCount&"<TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TD width='24%' height=18 vAlign=top noWrap class=s><strong>公司名称：</strong></TD>" 
			HOPE_CorCount=HOPE_CorCount&"<TD width='76%' class=s>"
			 HOPE_CorCount=HOPE_CorCount&"<A href="""&HOPE_InstallDir&"Ptcom/"&rs("user")&".html"" target=_blank>"&rs("qymc")&"</A> </TD>" 
			 HOPE_CorCount=HOPE_CorCount&"</TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s vAlign=top noWrap height=18><strong>电　　话：</strong></TD>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s>"&rs("phone")&"</TD>" 
			HOPE_CorCount=HOPE_CorCount&"</TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s vAlign=top height=18><strong>传　　真：</strong></TD> "
			HOPE_CorCount=HOPE_CorCount&"<TD class=s>"&rs("fax")&" </TD>" 
			HOPE_CorCount=HOPE_CorCount&"</TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s vAlign=top height=18><strong>办公地址：</strong></TD>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s>"&rs("Country")&""&rs("sf")&""&rs("city")&""&rs("address")&" </TD>" 
			HOPE_CorCount=HOPE_CorCount&"</TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TR>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s vAlign=top height=18><strong>邮　　编：</strong></TD>" 
			HOPE_CorCount=HOPE_CorCount&"<TD class=s>"&rs("post")&"</TD>" 
			HOPE_CorCount=HOPE_CorCount&"</TR>" 
			HOPE_CorCount=HOPE_CorCount&"</TBODY>" 
			HOPE_CorCount=HOPE_CorCount&"</TABLE></td>" 
			HOPE_CorCount=HOPE_CorCount&"</tr>" 
			HOPE_CorCount=HOPE_CorCount&"</table>"
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		End If

	going= cint(((mpage-currentPage)/mpage)*100)
 
  Response.Write "<br><center>"&(100-going)&"%</center><br><table align=center width=600 bgcolor=white><tr><td height=5 bgcolor=red   width='"&(100-going)&"%'><td width=200  ></td></tr></table><br><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<b>当前生成[<font color=red>"&user&"</font>]的默认名片页;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;已生成/要生成的页面条数:<font color=#FF0000>"&currentPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
 
 	If mpage<currentPage Then
	Response.Write ",完成时间"&Now()&"</b> "
	Else
	 
	 
	 HOPE_TradeInfo=rs("qymc") '页面标题
	 
	 HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"corporation/'>公司库</a> > "&HOPE_TradeInfo&" "
	
	
	'执行模版页中的标签替换操作^^^^^^^^^^^^^^^^^^^^^^^^
	
	 pencat=Hope_HtmlResult(pencat)
	 
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		
	'生成信息页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^	
	conn.Execute("update wygkcn_corporation Set html_pass=1 where id="&ttid&"")
	
	Set fso = YXFSO
	Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"Ptcom/"&user&".html"))
	sort_save.Write pencat
	sort_save.Close
	Response.Write "<meta http-equiv=Refresh content='2; URL=usercard.asp?userid="&userid&"&page="&currentPage+1&"'>"
	End If
 	Set rs=Nothing
	conn.Close
	Set conn=Nothing
 	%>
123

⌨️ 快捷键说明

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