📄 co.asp
字号:
'产品导行=========================================================================
public function cpdh()
set productclass_rs=server.CreateObject("adodb.recordset")
sqlproductclass_rs="select * from Yixiang_productclass where gsid="&session("id")
productclass_rs.open sqlproductclass_rs,conn,1,1
if not productclass_rs.eof then
dim productclassdh ' 产品导行
dim PtClassid,Ptgsid,httpUrl,EndhttpUrl,UrlName,num,numbr
num=12
numbr=6
set productclass_rs2=server.CreateObject("adodb.recordset")
sqlds="select * from Yixiang_productclass where gsid="&session("id")
productclass_rs2.open sqlds,conn,1,1
if not productclass_rs2.eof then
do while not productclass_rs2.eof
UrlName2="PtClass_"
PtClassid2=productclass_rs2("bigclassid")
Ptgsid2=productclass_rs2("gsid")
httpUrl2="<a href='"&UrlName2&""&PtClassid2&"_"&Ptgsid2&"1.htm'>"
EndhttpUrl2="</a>"
cpdh2=cpdh2&httpUrl2&productclass_rs2("bigclassname")&EndhttpUrl2&" "
productclass_rs2.movenext
loop
productclass_rs2.close
set productclass_rs2=nothing
end if
do while not productclass_rs.eof
UrlName="PtClass_"
PtClassid=productclass_rs("bigclassid")
Ptgsid=productclass_rs("gsid")
httpUrl="<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&"1.htm'>"
EndhttpUrl="</a>"
sqltemp="select wygkcn_productshow.id,wygkcn_productshow.sortid,wygkcn_productshow.bigclassid,wygkcn_productshow.typeid,wygkcn_productshow.typeid_2,wygkcn_productshow.cpmc,wygkcn_productshow.picture,wygkcn_corporation.qymc,wygkcn_corporation.url,wygkcn_corporation.[user] from wygkcn_productshow,wygkcn_corporation where wygkcn_productshow.flag=1 and wygkcn_corporation.id=wygkcn_productshow.gsid and wygkcn_productshow.gsid="&session("id")&" and wygkcn_productshow.bigclassid="& PtClassid &" order by wygkcn_productshow.id desc"
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.open sqltemp,conn,1,3
allnum=rstemp.recordcount
sqlskin="select id, SkinPtHall from Yixiang_userskin where id="&url&" and ispass=1"
set rsskin=server.CreateObject("adodb.recordset")
rsskin.open sqlskin,conn,1,1
dim zhu
if not rsskin.eof then
zhu=rsskin("SkinPtHall") '模版
f2=rsskin("SkinPtHall") '模版
fy=""
strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
If strinfo<>"" then
arrinfo=split(strinfo,"|")
for i=0 to ubound(arrinfo)-1
arry=tempinfo(arrinfo(i))
if isnumeric(arry) then
f2=replace(f2,arrinfo(i),HOPE_Search(arry))
else
f2=replace(f2,arrinfo(i),"标签出错")
end if
next
End If
buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td> <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br /> <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;"" href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
subject=productclass_rs("bigclassname")
f2=replace(f2,"#vip_grade#",gradename)
f2=replace(f2,"#buttominfo#",buttominfo)
f2=replace(f2,"#show_subject_l#",subject)
f2=replace(f2,"#weburl#",weburl)
f2=replace(f2,"#webshoplogo#",webshoplogo)
f2=replace(f2,"#show_newblog#",cp_list)
f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
f2=replace(f2,"#shopname#",qymc)
f2=replace(f2,"#shoplogo#",logo)
f2=replace(f2,"#local_title#",subject)
f2=replace(f2,"#shopabouts#",Qyjj)
f2=replace(f2,"#shopimgabouts#",cimg)
f2=replace(f2,"#shopimgabouts_title#",cimg_title)
f2=replace(f2,"#vip_sysj#",fuwunian)
f2=replace(f2,"#vipbs#","10")
f2=replace(f2,"#vip_rz_fs#",trust_score)
f2=replace(f2,"#Shop_class#",cpdh2)
f2=replace(f2,"#webname#",webname)
f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
set fso=YXFSO
If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
End If
Dim thispage,endpage,everypage
thispage=1
everypage=12 '每页显示几条
endpage=allnum mod everypage
if endpage=0 then
endpage=fix(allnum/everypage)
else
endpage=fix(allnum/everypage)+1
end if
if allnum=0 then
allnum=1
end if
For page_num=1 to allnum
if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then
if thispage>1 then
fy="<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&"1.htm'>首页</a> "
fy=fy&"<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&""&(thispage-1)&".htm'>上一页</a> "
else
fy=fy&"首页 "
fy=fy&"上一页"
end if
fy=fy&" | 第："&thispage&"页 | "
fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页 | "
if thispage<endpage then
fy=fy&"<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&""&(thispage+1)&".htm'>下一页</a> "
fy=fy&"<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&""&endpage&".htm'>尾页</a> "
else
fy=fy&"下一页 "
fy=fy&"尾页"
end if
f2=zhu
strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
If strinfo<>"" then
arrinfo=split(strinfo,"|")
for i=0 to ubound(arrinfo)-1
arry=tempinfo(arrinfo(i))
if isnumeric(arry) then
f2=replace(f2,arrinfo(i),HOPE_Search(arry))
else
f2=replace(f2,arrinfo(i),"标签出错")
end if
next
End If
buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td> <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br /> <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;"" href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
subject=productclass_rs("bigclassname")
f2=replace(f2,"#buttominfo#",buttominfo)
f2=replace(f2,"#vip_grade#",gradename)
f2=replace(f2,"#show_subject_l#",subject)
f2=replace(f2,"#weburl#",weburl)
f2=replace(f2,"#webshoplogo#",webshoplogo)
f2=replace(f2,"#show_newblog#",cp_list)
f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
f2=replace(f2,"#shopname#",qymc)
f2=replace(f2,"#shoplogo#",logo)
f2=replace(f2,"#local_title#",subject)
f2=replace(f2,"#shopabouts#",Qyjj)
f2=replace(f2,"#shopimgabouts#",cimg)
f2=replace(f2,"#shopimgabouts_title#",cimg_title)
f2=replace(f2,"#vip_sysj#",fuwunian)
f2=replace(f2,"#vipbs#","10")
f2=replace(f2,"#vip_rz_fs#",trust_score)
f2=replace(f2,"#Shop_class#",cpdh2)
f2=replace(f2,"#webname#",webname)
f2=replace(f2,"#HOPE_ProductGuide()#",fy)
f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
strinfo=RegExpTest("#HOPE_vipproduct\(\d+,\d+,\d+,\d+\)#", f2)
If strinfo<>"" then
arrinfo=split(strinfo,"|")
for i=0 to ubound(arrinfo)-1
arry=split(tempinfo(arrinfo(i)),",")
if isnumeric(arry(0)) and isnumeric(arry(1)) then
f2=replace(f2,arrinfo(i),HOPE_ClassView(thispage,arry(1),arry(2),PtClassid))
else
f2=replace(f2,arrinfo(i),"标签出错")
end if
next
End If
set f=fso.CreateTextFile(server.mappath( HOPE_InstallDir&"Vipcom/"&user&"/"&UrlName&""&PtClassid&"_"&Ptgsid&""&thispage&".htm" ), true )
f.WriteLine(f2)
f.close
thispage=thispage+1
End If
Next
set f = nothing
set fso = nothing
end if
productclassdh=productclassdh&httpUrl&productclass_rs("bigclassname")&EndhttpUrl&" "
productclass_rs.movenext
loop
productclass_rs.close
set productclass_rs=nothing
end if
cpdh=productclassdh
end function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
public function Hope_Search(typeid)
if typeid=1 then
'站内搜索=========================================================================
Websearch="<SCRIPT LANGUAGE='JavaScript' SRC='"&HOPE_InstallDir&"js/search.js' TYPE='text/javascript'></script>"
Websearch=Websearch&"<FORM name=searchForm action="&HOPE_InstallDir&"select.asp title=_blank onsubmit='javascript:if(doSearch()==false) return false;' method=post>"
Websearch=Websearch&"<INPUT size=20 name=""keywords""><SELECT class=TEXT13 name=""which"">"
Websearch=Websearch&"<OPTION value=""all"" selected>供求信息</OPTION>"
Websearch=Websearch&"<OPTION value=""sale"">供应信息</OPTION>"
Websearch=Websearch&"<OPTION value=""buy"">求购信息</OPTION>"
Websearch=Websearch&"<OPTION value=""productshow"">产品目录</OPTION>"
Websearch=Websearch&"<OPTION value=""corporation"">公司库</OPTION>"
Websearch=Websearch&"<OPTION value=""news"">行业资讯</OPTION>"
Websearch=Websearch&"<OPTION value=""vipinfo"">专项商机</OPTION>"
Websearch=Websearch&"</SELECT><input name=""imageField"" type=""image"" src="&HOPE_InstallDir&"images/serch.gif align=""top"" width=""65"" height=""22"" border=""0""></FORM>"
Websearch=Websearch
else
Websearch="<SCRIPT LANGUAGE='JavaScript' SRC='"&HOPE_InstallDir&"js/search.js' TYPE='text/javascript'></script>"
Websearch=Websearch&"<FORM name=searchForm action="&HOPE_InstallDir&"select.asp title=_blank onsubmit='javascript:if(doSearch()==false) return false;' method=post>"
Websearch=Websearch&"<INPUT size=25 name=""keywords""><SELECT class=TEXT13 name=""which"">"
Websearch=Websearch&"<OPTION value=""all"" selected>供求信息</OPTION>"
Websearch=Websearch&"<OPTION value=""sale"">供应信息</OPTION>"
Websearch=Websearch&"<OPTION value=""buy"">求购信息</OPTION>"
Websearch=Websearch&"<OPTION value=""productshow"">产品目录</OPTION>"
Websearch=Websearch&"<OPTION value=""corporation"">公司库</OPTION>"
Websearch=Websearch&"<OPTION value=""news"">行业资讯</OPTION>"
Websearch=Websearch&"<OPTION value=""vipinfo"">专项商机</OPTION>"
Websearch=Websearch&"</SELECT><input name=""imageField"" type=""image"" src="&HOPE_InstallDir&"images/serch.gif align=""top"" width=""65"" height=""22"" border=""0""></FORM>"
Websearch=Websearch
end if
Hope_Search=Websearch
end function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'产品搜索开始=====================================================================
'cpsearch
public function cp_search()
%>
<script language = "JavaScript">
sallt=new Array();
<%
Dim ii
ii=0
set rs8=server.CreateObject("adodb.recordset")
sql8="select * from Yixiang_productclass_1 where gsid="&id
rs8.open sql8,conn,1,1
if not rs8.eof then
do while not rs8.eof
%>
sallt[<%=ii%>]=new Array("<%=rs8("smallclassname")%>","<%=rs8("bigclassid")%>","<%=rs8("smallclassid")%>");
<%
ii=ii+1
rs8.movenext
loop
rs8.close
end if
%>
function changeselect1(selvalue)
{
document.form.smallclassid.length=0;
var selvalue=selvalue;
var ii;
for(ii=0;ii<sallt.length;ii++)
{
if(sallt[ii][1]==selvalue)
{
var newOption1=new Option(sallt[ii][0],sallt[ii][2]);
document.all.smallclassid.add(newOption1);
}
}
}
</script>
<%
if bigclassid<>"" and smallclassid<>"" then
set rs3=server.CreateObject("adodb.recordset")
sql3="select Yixiang_productclass_1.*,Yixiang_productclass.* from Yixiang_productclass_1,Yixiang_productclass where Yixiang_productclass_1.smallclassid="&smallclassid&" and Yixiang_productclass.bigclassid=Yixiang_productclass_1.bigclassid and Yixiang_productclass.gsid="&id&" and Yixiang_productclass_1.gsid="&id
rs3.open sql3,conn,1,1
if not rs3.eof then
cpsearch="<TABLE cellSpacing=0 cellPadding=5 width=100% align=center border=0>"&_
"<FORM name=form action='' method=post>"&_
"<TBODY>"&_
"<TR>"&_
"<TD bgColor=#d7fff9>"&_
"<FONT color=#cc0000><STRONG>按系列查看产品:</STRONG></FONT>"&_
"<select name=bigclassid onChange='changeselect1(document.form.bigclassid.options[document.form.bigclassid.selectedIndex].value)' size=1>"&_
"<option selected value="&rs3("bigclassid")&">"&rs3("bigclassname")&"</option>"
set rs12=server.CreateObject("adodb.recordset")
sql12="select * from Yixiang_productclass where bigclassid<>"&rs3("bigclassid")&" and gsid="&id
rs12.open sql12,conn,1,1
if not rs12.eof then
do while not rs12.eof
cpsearch=cpsearch&"<option value='"&rs12("bigclassid")&"'>"&rs12("bigclassname")&"</option>"&chr(13)+chr(10)
rs12.movenext
loop
rs12.close
end if
cpsearch=cpsearch&"</select>"&_
"<select name=smallclassid> "&_
"<option selected value="&rs3("smallclassid")&">"&rs3("smallclassname")&"</option> "
set rs4=server.CreateObject("adodb.recordset")
sql4="select * from Yixiang_productclass_1 where bigclassid="&rs3("bigclassid")&" and smallclassid<>"&rs3("smallclassid")&" and gsid="&id
rs4.open sql4,conn,1,1
if not rs4.eof then
do while not rs4.eof
cpsearch=cpsearch&"<option value='"&rs4("smallclassid")&"'>"&rs4("smallclassname")&"</option>"&chr(13)+chr(10)
rs4.movenext
loop
rs4.close
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -