co.asp

购物网站源码有需要的赶快下载机不可失

<%dbdns="../../"%>
<!--#include file="../main.asp"-->
<%webkey44%>
<%=citycss%>
<%id=request("id")
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的企业ID号！"
response.end
end if 
'========================
if user_id<>int(id) and userflag20=0 then
response.write SMT_user_flagerr
response.end
end if
'======================================
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select *  from SMT_yp where SMT_key<>0 and SMT_key<>2 and SMT_key1=1 and SMT_id="&id
rs.open sql,conn,1,1
if rs.eof then
response.write"<script>alert('对不起，此企业不存在或已被管理员关闭\n\n如有问题请及时和我们联系');window.open('../../index.asp','_self');</script>"
response.end
else
conn.execute("update SMT_yp set SMT_htc=SMT_htc+1 where SMT_id="&id)

sql1="select *  from SMT_ypxxtwo where SMT_ypxxtwo_id="&rs("SMT_ypxxtwo_id")
rs1.open sql1,conn,1,1
ypxxone=rs1("SMT_ypxxone")
ypxxtwo=rs1("SMT_ypxxtwo")
rs1.close
sql1="select *  from SMT_ypaddtwo where SMT_addtwo_id="&rs("SMT_addtwo_id")
rs1.open sql1,conn,1,1
addone=rs1("SMT_addone")
addtwo=rs1("SMT_addtwo")
rs1.close

if rs("SMT_oicq")<>"" then
oicq=split(rs("SMT_oicq"),",")
for i=0 to ubound(oicq)
qq=qq&"　<a href=http://wpa.qq.com/msgrd?V=1&Uin="&oicq(i)&" target=_blank>"&oicq(i)&"</a>"
next
end if
qq=trim(qq)
'======================================企业名称
coname=rs("SMT_coname")
'======================================VIP会员标志
if rs("SMT_vip")=2 then
covip="<img src="&cityurl&"img/vip.gif title=此为VIP会员 align=absmiddle>"
end if
'======================================企业底部
if rs("SMT_oicq")<>"" then
oicq="<br><img src=../../img/qq.gif align=absmiddle>："&qq&"<br>"
end if
citybottom="<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td align=center><p style=""line-height:150%""><br>版权所有： "&coname&" Powered By <a href="""&cityurl&""" target=_blank>"&cityeurl&"</a><br>"&_
"E-mail：<a href=""mailto:"&rs("SMT_mail")&""">"&rs("SMT_mail")&"</a>　Tel："&rs("SMT_cotelq")&"-"&rs("SMT_cotel")&"<br>技术支持：<a href="""&cityurl&""" target=_blank>"&cityname&"</a>　<a href=""mailto:"&citymail&""">"&citymail&"</a><br>"&oicq&"<br></td></tr></table>"
'======================================企业LOGO
logo=rs("SMT_logo")
if rs("SMT_logo")<>"" then
cologo="<img src=../../"&rs("SMT_logo")&" height=90 width=162>"
else
cologo="<img src="&cityurl&"img/yplogo.gif height=90 width=162>"
end if
'======================================企业形象图片
pic=rs("SMT_pic")
if rs("SMT_pic")<>"" then
copic="<img src=../../"&rs("SMT_pic")&" height=150 width=200>"
else
copic="<img src="&cityurl&"img/yplogo_pic.gif height=150 width=200>"
end if
'======================================企业简介
cointroduce="　　"&Trim(code_jk(rs("SMT_coms")))
'======================================产品分类
sql1="select * from SMT_cp_sort where SMT_yp_id="&id&" order by SMT_date desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
cocpsort=cocpsort&"◎&nbsp;<a href=production.asp?id="&id&"&cpid="&rs1("SMT_id")&">"&rs1("SMT_cpsort")&"</a><br>"
rs1.movenext
loop
rs1.close
'======================================企业扩展信息
coinfo="◆&nbsp;企业名称： "&rs("SMT_coname")&"<br>"
coinfo=coinfo&"◆&nbsp;企业性质： "&rs("SMT_coxz")&"<br>"
coinfo=coinfo&"◆&nbsp;主营行业： "&ypxxone&" / "&ypxxtwo&"<br>"
coinfo=coinfo&"◆&nbsp;主营业务： "&rs("SMT_coyw")&"<br>"
coinfo=coinfo&"◆&nbsp;经营模式： "&rs("SMT_cojy")&"<br>"
coinfo=coinfo&"◆&nbsp;贸易地区： "&rs("SMT_comy")&"<br>"
coinfo=coinfo&"◆&nbsp;主要客户： "&rs("SMT_cokh")&"<br>"
'======================================企业商机
sql1="select * from SMT_sca where SMT_yp_id="&request("id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
rs1.open sql1,conn,1,1                     
if not rs1.eof then
'分页的实现 
listnum=10
Rs1.pagesize=listnum
page=Request("page")
if (page-Rs1.pagecount) > 0 then
page=Rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0
do while not rs1.eof and i<listnum
cosca=cosca&"<strong>·</strong>&nbsp; <a href=../../sca_view.asp?id="&rs1("SMT_id")&" target=_blank class=f14>"&rs1("SMT_scatitle")&"</a> <font color=#cccccc>"&rs1("SMT_begindate")&"</font><br>"
rs1.movenext 
i=i+1 
j=j-1
loop
filename="sca.asp?id="&request("id")&""

if page=1 then
else
upfy1="<a href="&filename&">|<<</a> <a href="&filename&"&page="&page-1&"><<</a> <a href="&filename&"&page="&page-1&">["&page-1&"]</a>"
end if
if Rs1.pagecount=1 then
else
upfy2="["&page&"]"
end if
if Rs1.pagecount-page <> 0 then
upfy3="<a href="&filename&"&page="&page+1&">["&page+1&"]</a> <a href="&filename&"&page="&page+1&">>></a> <a href="&filename&"&page="&Rs1.pagecount&">>>|</a>"
end if
cosca=cosca&"<br><table width=100% border=0 cellspacing=0 cellpadding=5><tr><td align=right height=50>"
cosca=cosca&"<strong>"&page&"/"&Rs1.pagecount&"</strong> 页 "&upfy1&" "&upfy2&" "&upfy3&""
cosca=cosca&"&nbsp;</td></tr></table>"
end if
rs1.close
'======================================产品展示
if request("cpid")<>"" then
sql1="select * from SMT_cp where SMT_key=1 and SMT_key1=1 and SMT_key2=1 and SMT_yp_id="&id&" and SMT_sortid="&request("cpid")&" order by SMT_id desc"
else
sql1="select * from SMT_cp where SMT_key=1 and SMT_key1=1 and SMT_key2=1 and SMT_yp_id="&id&" order by SMT_id desc"
end if
rs1.open sql1,conn,1,1                     
if not rs1.eof then
'分页的实现 
listnum=5
Rs1.pagesize=listnum
page=Request("page")
if (page-Rs1.pagecount) > 0 then
page=Rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0
do while not rs1.eof and i<listnum
cocp=cocp&"<table width=100% border=0 cellspacing=0 cellpadding=5><tr><td width=120 align=center>"
cocp=cocp&"<a href=../../cp_view.asp?id="&rs1("SMT_id")&" target=_blank><img src=../../"&rs1("SMT_pic")&" width=80 style=""border:1px #000000 solid""></a><br>"
cocp=cocp&"</td><td>"
cocp=cocp&"<p style='line-height:150%'><font color=#000000><strong><a href=../../cp_view.asp?id="&rs1("SMT_id")&" target=_blank>"&rs1("SMT_cpname")&"</a></strong></font><br>　　"&trim(rs1("SMT_cpjm"))&""
cocp=cocp&"</td></tr></table>"
rs1.movenext 
i=i+1 
j=j-1
loop
filename="production.asp?id="&request("id")&"&cpid="&request("cpid")&""
if page=1 then
else
upfy11="<a href="&filename&">|<<</a> <a href="&filename&"&page="&page-1&"><<</a> <a href="&filename&"&page="&page-1&">["&page-1&"]</a>"
end if
if Rs1.pagecount=1 then
else
upfy22="["&page&"]"
end if
if Rs1.pagecount-page <> 0 then
upfy33="<a href="&filename&"&page="&page+1&">["&page+1&"]</a> <a href="&filename&"&page="&page+1&">>></a> <a href="&filename&"&page="&Rs1.pagecount&">>>|</a>"
end if
cocp=cocp&"<br><table width=100% border=0 cellspacing=0 cellpadding=5><tr><td align=right height=50>"
cocp=cocp&"<strong>"&page&"/"&Rs1.pagecount&"</strong> 页 "&upfy11&" "&upfy22&" "&upfy33&""
cocp=cocp&"&nbsp;</td></tr></table>"
end if
rs1.close
'======================================企业动态
sql1="select * from SMT_news where SMT_yp_id="&id&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
rs1.open sql1,conn,1,1                     
if not rs1.eof then
'分页的实现 
listnum=10
Rs1.pagesize=listnum
page=Request("page")
if (page-Rs1.pagecount) > 0 then
page=Rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0
do while not rs1.eof and i<listnum
if cityHTML=1 then
webget="../../Html/news/"&year(rs1("SMT_date"))&month(rs1("SMT_date"))&"/"&replace(replace(replace(rs1("SMT_date"),"-",""),":","")," ","")&".html"
else
webget="../../ypnew_view.asp?id="&rs1("SMT_id")&""
end if
conews=conews&"<strong>·</strong>&nbsp; <a href="&webget&" target=_blank class=f14>"&rs1("SMT_title")&"</a> <font color=#cccccc>"&rs1("SMT_date")&"</font><br>"
rs1.movenext 
i=i+1 
j=j-1
loop
filename="news.asp?id="&request("id")&""

if page=1 then
else
upfy111="<a href="&filename&">|<<</a> <a href="&filename&"&page="&page-1&"><<</a> <a href="&filename&"&page="&page-1&">["&page-1&"]</a>"
end if
if Rs1.pagecount=1 then
else
upfy222="["&page&"]"
end if
if Rs1.pagecount-page <> 0 then
upfy333="<a href="&filename&"&page="&page+1&">["&page+1&"]</a> <a href="&filename&"&page="&page+1&">>></a> <a href="&filename&"&page="&Rs1.pagecount&">>>|</a>"
end if
conews=conews&"<br><table width=100% border=0 cellspacing=0 cellpadding=5><tr><td align=right height=50>"
conews=conews&"<strong>"&page&"/"&Rs1.pagecount&"</strong> 页 "&upfy111&" "&upfy222&" "&upfy333&""
conews=conews&"&nbsp;</td></tr></table>"
end if
rs1.close
'======================================联系方式
goname=rs("SMT_user")
goid=rs("SMT_id")
govip=rs("SMT_vip")%>
<!--#include file="../dns/dns.asp"-->
<%SMT_user_lxfsview="◆&nbsp;联系人： "&rs("SMT_colxr")&" ("&rs("SMT_colxrsex")&")<br>"&_
"◆&nbsp;电话： "&rs("SMT_cotelq")&" - "&rs("SMT_cotel")&"<br>"&_
"◆&nbsp;传真： "&rs("SMT_cofaxq")&" - "&rs("SMT_cofax")&"<br>"&_
"◆&nbsp;公司网址： <a href='"&usertwourl&"' target=_blank>"&usertwourl&"</a><br>"&_
"◆&nbsp;E-mail： <a href='mailto:"&rs("SMT_mail")&"'>"&rs("SMT_mail")&"</a><br>"&_
"◆&nbsp;Oicq： "&qq&"<br>"&_
"◆&nbsp;详细地址： "&rs("SMT_coaddress")&"<br>"&_
"◆&nbsp;省市区： "&addone&" / "&addtwo&"<br>"&_
"◆&nbsp;邮政编码： "&rs("SMT_coyb")&"<br>"&_
"◆&nbsp;其它联系方式： "&rs("SMT_colxother")&"<br>"

if int(goid)=int(user_id) then
cocontact=SMT_user_lxfsview
else
if int(govip)=2 then
if userflag15=1 then
cocontact=SMT_user_lxfsview
else
cocontact=SMT_user_seeerr
end if
else
if userflag14=1 then
cocontact=SMT_user_lxfsview
else
cocontact=SMT_user_seeerr
end if
end if
end if

'======================================留言
if int(goid)=int(user_id) or userflag21=1 then
comessage="<script language=javascript src=../../Include/leaveword.asp?sortid=2&tableid=0&ypid="&goid&"></script>"
else
comessage=SMT_user_flagerr
end if
'======================================招聘代码
sql1="select * from SMT_Job_zp where SMT_yp_id="&id&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
if rs1("SMT_lastdate") > date() then
yq=rs1("SMT_yq")
if len(yq)>151 then yq=left(yq,150)&"..."
cojob=cojob&"◆&nbsp;<a href=../../job_zp_view.asp?id="&rs1("SMT_id")&" target=_blank class=f14><strong>"&rs1("SMT_job_name")&"</strong></a>　　　 <a href=../../job_zp_view.asp?id="&rs1("SMT_id")&" target=_blank class=red>详细...>></a><br>"
cojob=cojob&code_jk(yq)&"<br><br>"
end if
rs1.movenext
loop
rs1.close
'======================================登录代码
randomize timer
regjm=left(int(rnd*9998)+1000,4)
if len(regjm)>4 then regjm=len(regjm&9999,4)
cologin="<table width=100% border=0 cellspacing=0 cellpadding=5 align=center>"
cologin=cologin&"<form name=form1 method=post action=../../user/Chkadmin.asp>"
cologin=cologin&"<input name=regjm type=hidden value="&regjm&">"
cologin=cologin&"<tr><td align=center>用户名：<input type=text name=user style='width:80' class=input2></td></tr>"
cologin=cologin&"<tr><td align=center>密　码：<input type=password name=pass style='width:80' class=input2></td></tr>"
cologin=cologin&"<tr><td align=center>认证码：<input type=text name=regjm1 size=7 style='width:50' class=input2> "&regjm&"</td></tr>"
cologin=cologin&"<tr><td align=center><input type=image src="&cityurl&"img/login.gif width='60' height='20' style='border:0px' align=absmiddle> <a href=../../reg.asp>注册</a> <a href=../../help.asp>忘记密码?</a></td></tr>"
cologin=cologin&"</form>"
cologin=cologin&"</table>"
'======================================搜索代码
cosearch="<table width=100% border=0 cellspacing=0 cellpadding=5 align=center>"
cosearch=cosearch&"<form name=form1 method=post action=../../search_redirect.asp  target=_blank>"
cosearch=cosearch&"<tr><td align=center><input type=text name=word style='width:100' class=input2></td></tr>"
cosearch=cosearch&"<tr><td align=center><select name=key><option>...请选择...</option><option value=yp>　企业　</option><option value=sca>　商机　</option><option value=cp>　产品　</option><option value=ypdt>　信息　</option><option value=zh>　展会　</option></select></td></tr>"
cosearch=cosearch&"<tr><td align=center><input type=image src="&cityurl&"img/search.gif width=60 height=20 style='border:0px' align=absmiddle> <a target=_blank href=""../../help.asp?sort_id=6"">帮助?</a></td></tr>"
cosearch=cosearch&"</form>"
cosearch=cosearch&"</table>"
'======================================
end if
rs.close
set rs1=nothing
set rs=nothing%>