📄 usercard.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成普通会员页</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../manage/makehtml/index/temp_inc.asp"-->
<%
'读取模板^^^^^^^^^^^start^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select corporation_detail from [Yixiang_worldec_Temp] where yx_selected=1"),conn,1,1
If rs.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs.Eof Then
pencat=rs("corporation_detail")
rs.Close
End If
'^^^^^^^^^^^^^^^^^^end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'获取要生成的条数…………………………………………………………
If Replace_Text(Request("page"))<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
' '………………………………………………………………………………
userid=Replace_Text(request("userid"))
if request("userid")="" then
userid=0
end if
MaxPerPage=1
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from wygkcn_corporation where id in ("&userid&") order by idate asc"
rs.Open sql,conn,1,3
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总页数
If currentPage>mpage Then
Response.Write "<script language='vbscript'>sub window_onload() loadopener() end sub</script><br><br><br> <b>生成完毕:共生成会员名片页<font color=red>"&mpage&"</font>个 完成时间："&now()&"</b> <a href='#' onclick='javascript:window.close();'>关闭</a><script>function loadopener(){window.opener.location.reload();}</script>"
Response.end
End If
rs.move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("id")
sortid=rs("sortid")
typeid=rs("typeid")
typeid_2=rs("typeid_2")
user=rs("user")
zycp=rs("zycp")'主营产品
End If
Else
Response.Write "没有数据"
Response.End
End If
If ttid="" Then
ttid=0
End If
If sortid="" Then
sortid=0
End If
If typeid="" Then
typeid=0
End If
If typeid_2="" Then
typeid_2=0
End If
HOPE_Show=HOPE_Show&"<table width=""100%"" border=""1"" bordercolor=#F1F1F1 cellpadding=""5"" cellspacing=""0""><tr><td> " & vbCrlf
HOPE_Show=HOPE_Show&"<table width=""98%"" border=""0"" cellpadding=""5"" cellspacing=""0""> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" height=""30"" style=""word-break:break-all""> <strong><span class=""S"">主营产品或服务：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width=""30%"" style=""line-height:150%"" align=""left"">"
If zycp<>"" Then
HOPE_Show=HOPE_Show&zycp
End If
HOPE_Show=HOPE_Show&"</td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">主营行业：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width=""30%"" style=""line-height:150%""><span class=""S"">"
Set srs=Server.CreateObject("ADODB.Recordset")
ssql="select * from yixiang_Class_1 where sortid="&rs("sortid")
srs.Open ssql,conn,1,1
If not srs.Eof Then
HOPE_Show=HOPE_Show&"<a href='"&HOPE_InstallDir&"corporation/trade/"&rs("sortid")&".html' target=_blank>"&srs("sort")&"</a> "
srs.Close
End If
If typeid<>0 or typeid<>"" Then
Set srs1=Server.CreateObject("ADODB.Recordset")
ssql1="select * from yixiang_Class_2 where typeid="&rs("typeid")
srs1.Open ssql1,conn,1,1
If not srs1.Eof Then
HOPE_Show=HOPE_Show&"→<a href='"&HOPE_InstallDir&"corporation/trade/"&rs("sortid")&"-"&rs("typeid")&".html' target=_blank>"&srs1("typename")&"</a> "
srs1.Close
End If
End If
If typeid_2<>0 or typeid_2<>"" Then
Set srs2=Server.CreateObject("ADODB.Recordset")
ssql2="select * from yixiang_Class_3 where typeid_2="&rs("typeid_2")
srs2.Open ssql2,conn,1,1
If not srs2.Eof Then
HOPE_Show=HOPE_Show&"→<a href='"&HOPE_InstallDir&"corporation/offerlist/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&".html' target=_blank>"&srs2("typename_2")&"</a> "
srs2.Close
End If
End If
HOPE_Show=HOPE_Show&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">企业类型：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width='30%' bgcolor=""#FFFFFF""> <span class=""S"">"
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 rsc.Eof Then
HOPE_Show=HOPE_Show&"未提供"
Else
HOPE_Show=HOPE_Show&""&rsc("title")&"<br>"
End If
rsc.Close
Set rsc=Nothing
HOPE_Show=HOPE_Show&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""><strong><span class=""S"">经营模式：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=30% bgcolor=""#FFFFFF""> <span class=""S"">"&rs("qylb")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" style=""word-break:break-all""><strong><span class=""S"">法人代表/负责人：</span></strong></td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=30% bgcolor=""#FFFFFF"">"&rs("frdb")&"</td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""><strong><span class=""S"">公司注册地：</span></strong></td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width='30%' bgcolor=""#FFFFFF"">"&rs("p_z_Z_BizPlace")&"</td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">员工人数：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"
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 rsc1.Eof Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -