makedetail.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 609 行 · 第 1/2 页
ASP
609 行
<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 session("id")="" or session("user")="" then
Response.Redirect(HOPE_InStallDir&"login/login1.asp")
End If
%>
<%
Set rs=Server.createobject("adodb.recordSet")
rs.Open ("select productshow_detail from [Yixiang_worldec_Temp] where yx_selected=1"),conn,1,1
If Not rs.Eof Then
pencat=rs("productshow_detail")
rs.Close
End If
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
if Request("all")="update" Then
if Trim(Request("M_other"))<>"Product" then Response.end
Set rs=Server.createobject("adodb.recordSet")
id1=replace(Request("id1"),"'","")
id2=replace(Request("id2"),"'","")
If isnumeric(id2)=false or isnumeric(id2)=false Then Response.Write "参数传递错误" :Response.end
rs.Open ("select id,sortid,typeid,typeid_2,cpmc,gsid from wygkcn_productshow where id between "&id1&" and "&id2&" and flag=1 order by idate asc"),conn,1,1
End If
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总条数
If currentPage>mpage Then
Response.Write "生成完成，完成时间"&Now()&"</b> "
Response.end
End If
If TopNew<>"" Then
currentPage=mpage-TopNew
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")
showname=rs("cpmc")
End If
Else
Response.Write "没有要生成的信息"
Response.end
End If
rs.Close
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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If typeid_2=0 Then
sorttype="select Yixiang_class_2.typeid,Yixiang_class_2.typename,Yixiang_class_1.sort,Yixiang_class_1.sortid from Yixiang_class_2,Yixiang_class_1 where Yixiang_class_2.typeid="&typeid&" and Yixiang_class_1.sortid=Yixiang_class_2.sortid"
Set rssorttype=Server.CreateObject("adodb.recordSet")
rssorttype.Open sorttype,conn,1,1
If not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
rssorttype.Close
End If
Else
sorttype="select Yixiang_class_3.typeid_2,Yixiang_class_3.typename_2,Yixiang_class_2.typeid,Yixiang_class_2.typename,Yixiang_class_1.sort,Yixiang_class_1.sortid from Yixiang_class_3,Yixiang_class_2,Yixiang_class_1 where Yixiang_class_3.typeid_2="&typeid_2&" and Yixiang_class_2.typeid=Yixiang_class_3.typeid and Yixiang_class_1.sortid=Yixiang_class_2.sortid"
Set rssorttype=Server.CreateObject("adodb.recordset")
rssorttype.Open sorttype,conn,1,1
If not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
HOPE_Type=HOPE_Type&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"productshow/offerlist/"&rssorttype("sortid")&"-"&rssorttype("typeid")&"-"&rssorttype("typeid_2")&".html'>"&rssorttype("typename_2")&"</a>"
rssorttype.Close
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.createobject("adodb.recordSet")
rs.Open ("select wygkcn_productshow.id as proid,wygkcn_productshow.flag as proflag,wygkcn_productshow.gsid,wygkcn_productshow.sortid as prosortid,wygkcn_productshow.typeid as protypeid,wygkcn_productshow.cpmc,wygkcn_productshow.cpgg,wygkcn_productshow.cpcd,wygkcn_productshow.xxsm,wygkcn_productshow.cpsb,wygkcn_productshow.Quantity,wygkcn_productshow.Packaging,wygkcn_productshow.Cpjg,wygkcn_productshow.idate,wygkcn_productshow.picture,wygkcn_productshow.picture_summ,wygkcn_productshow.picture,wygkcn_corporation.* from wygkcn_productshow,wygkcn_corporation where wygkcn_productshow.id="&ttid&" and wygkcn_corporation.id=wygkcn_productshow.gsid and wygkcn_productshow.flag=1"),conn,1,1
If not rs.Eof Then
gsid=rs("gsid")
Else
Response.Write "暂无相关信息"
Response.end
End If
'标志此条信息为已经生存HTML
conn.execute("update wygkcn_productshow Set html_pass=1 where id="&ttid&"")
xunjiaid=rs("proid")
If rs("picture")<>"../../UploadFile/nopicture.gif" or rs("picture")<>"" Then
HOPE_Pic=HOPE_Pic&"<A class=s href=#zoom><IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("picture")&" border=0 height=64 width=64 ></A>"
Else
HOPE_Pic=HOPE_Pic&"<FONT class=C color=#cecfce>无图</FONT>"
End If
HOPE_CorName=HOPE_CorName&"<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"'/>"
HOPE_CorName=HOPE_CorName&"<div id='search_resultmsg' style=""display:none"">"
''--是否使用的名片页------------------------------------------------------------
set rsmp1=server.CreateObject("adodb.recordset")
sqlmp1="select * from yixiang_vipgrade where roleid="&rs("gradeid")
rsmp1.open sqlmp1,conn,1,1
if not rsmp1.eof then
if instr(rsmp1("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_CorName=HOPE_CorName&"<A href='http://"&rs("user")&"."&weburl1&"' target=_blank>"&rs("qymc")&" </A> "
Else
HOPE_CorName=HOPE_CORNAME&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>"&rs("qymc")&"</A> "
End If
Else
HOPE_CorName=HOPE_CorName&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>"&rs("qymc")&" </A>"
end if
rsmp1.close
end if
HOPE_CorName=HOPE_CorName&"</div>"
HOPE_LianXi=HOPE_LianXi&"<div id='search_resultmsg1' style=""display:none""><A href=""mailto:"&rs("email")&""">"&rs("name")&"</A> "&rs("ch")&" <br><img src="&HOPE_InstallDir&"images/icon_tianjiasy.gif width=13 height=12 align=absmiddle border=0> <a href="&HOPE_InstallDir&"member/myfriend/addfriend.asp?user="&rs("user")&" target=_blank >添加为商业伙伴</a></div><br><br>"
HOPE_AskId=rs("proid")
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_online=HOPE_online&"<div id='search_resultmsg2' style=""display:none"">"
'msn交谈
IF rs("msn")<>"" Then
HOPE_online=HOPE_online&"MSN:<a href='msnim:chat?contact="&rs("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rs("msn")&"' /> <br><hr size='1' noshade> "
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs("tm")="" Then
HOPE_Online=HOPE_Online&"<a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&" target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
Else
HOPE_Online=HOPE_Online&"<script>"&vbCrlf
HOPE_Online=HOPE_Online&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap> </td><td> <table width='100%' border=1 bordercolor=#E2E7EB align=center cellspacing=0 cellpadding=0 ><tr ><td align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&" class='s' target=_blank>网站<br>留言</a></td><td width=5></td><td align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='s'>用TM<br>留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
HOPE_Online=HOPE_Online&"</SCRIPT>"&vbCrlf
End If
HOPE_Online=HOPE_Online&"</div>"
HOPE_CorCount=HOPE_CorCount&"<style type='text/css'>.cardSelected{background-color: #DB121F;} .cardNormal{background-color: #EFD9C0;}.cardSpace{background-color: #ffffff;}</style><table border=0 cellspacing=0 cellpadding=0 width='100%' id=secTable class=cardFont>"
HOPE_CorCount=HOPE_CorCount&"<tr align=center><td width=140 height=27 class=cardSelected onclick='secCard(1);secBoard(0);'>指数"
HOPE_CorCount=HOPE_CorCount&"<strong>"&rs("trust_score")&"</strong>"
HOPE_CorCount=HOPE_CorCount&"</td><td class=cardSpace width=6> </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> </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> "
if rs("gradeid")<>"" then
set rsgr=server.CreateObject("adodb.recordset")
sqlgr="select gradename from yixiang_vipgrade where roleid="&rs("gradeid")
rsgr.open sqlgr,conn,1,1
if not rsgr.eof then
HOPE_CorCount=HOPE_CorCount&"<font color=red style=""font-size:14px;"" ><b>"&rsgr("gradename")&"</b></font>"
rsgr.close
end if
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'>"
If rs("flag")=1 Then
HOPE_CorCount=HOPE_CorCount&" <strong>工商注册信息：</strong>已通过认证<br>"
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
End If
HOPE_CorCount=HOPE_CorCount&"<br>"
HOPE_CorCount=HOPE_CorCount&"<strong>会员评价总数：</strong>"
sql1="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&rs("id")&""
Set totle1=Server.CreateObject("adodb.recordSet")
totle1.Open sql1,conn,1,1
If Not totle1.Eof Then
totle21=totle1(0)
HOPE_CorCount=HOPE_CorCount&" <FONT color=red><b>"&totle21&"</b></font>条 "
totle1.Close
Set totle1=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>"
HOPE_CorCount=HOPE_CorCount&"<td height=20 class=S><div id='search_resultmsg3' style=""display:none""><div align=right>"
'--是否使用的名片页------------------------------------------------------------
set rsmp2=server.CreateObject("adodb.recordset")
sqlmp2="select * from yixiang_vipgrade where roleid="&rs("gradeid")
rsmp2.open sqlmp2,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&" <div align=right><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></div>"
End If
rsmp2.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> <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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?