📄 makedetail.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="../index/temp_inc.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<%
if issession=0 then
gsid=Replace_Text(request.Cookies("Yxmemberid"))
else
gsid=session("id")
end if
if gsid="" then
Response.Redirect(HOPE_InStallDir&"login/login1.asp")
End If
'读取模板^^^^^^^^^^^start^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select corporation_detail from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
If Not rs.Eof Then
pencat=rs("corporation_detail")
rs.Close
End If
'^^^^^^^^^^^^^^^^^^end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'获取要生成的条数…………………………………………………………
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
If Request("TopNew")>"" Then
If Chkrequest(Request("TopNew")) Then
TopNew=Request("TopNew")
Else
Response.Redirect (HOPE_InstallDir&"login/chklogin.asp?login=4")
End If
End If
'………………………………………………………………………………
'取出要生成的第一类的相关信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
MaxPerPage=1
Set rs=Server.CreateObject("ADODB.Recordset")
if Request("all")="update" Then
if Request("other")<>"Confirm" then Response.end
id1=replace(Request("id1"),"'","")
id2=replace(Request("id2"),"'","")
If isnumeric(id1)=False or isnumeric(id2)=False Then Response.Write "参数传递错误" :Response.End
sql="select * from Websen_corporation where id between "&id1&" and "&id2&" and flag=1 order by idate asc"
'and flag=0若不用之则生成所有公司的单页面名片信息
End If
rs.Open sql,conn,1,3
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总条数
If currentPage>mpage Then
Response.Write "生成完毕"
Response.End
End If
If TopNew<>"" Then currentPage=mpage-TopNew
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 Websen_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 Websen_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 Websen_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 Websen_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 Websen_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
HOPE_Show=HOPE_Show&"未提供"
Else
HOPE_Show=HOPE_Show&""&rsc1("title")&"<br>"
End If
rsc1.Close
Set rsc1=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 bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_EstablishedYear")&"</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 bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_BizPlace")&"</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 bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_KeyClients")&"</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 bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_BrandName")&"</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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -