📄 temp_inc.asp
字号:
If orderall=0 Then
str=str&""
Else
str=str&""
' str=str&"订单数:?单 ,"'?????????????????
End If
If memberall=0 Then
str=str&""
Else
str=str&""
str=str&userlist&" ,"
End If
'^^^^end^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If ShowType=1 Then '控制滚动方向^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
scrollgo="up"
Elseif ShowType=2 Then
scrollgo="left"
End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
strinfo="<table cellpadding=0 cellspacing=0 border=0 width="&tablewidth&" ><tr><td>"
If ShowType<>0 Then
strinfo=strinfo&" <marquee behavior=scroll direction="&scrollgo&" onMouseOver='stop()' onMouseOut='start()' height="&scrollhign&" scrollamount='1' >"
Else
strinfo=strinfo&""
End If
arr=split(str,",") '换行操作^^^^^^^^^^^^^^^^^^
For i=1 To ubound(arr)-1
strinfo=strinfo&arr(i)
If brnum<>0 Then 'brnum=0时,不换行
If i Mod (brnum)=0 Then
strinfo=strinfo&"<br>"
End If
Else
strinfo=strinfo&""
End If
next
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If ShowType=0 Then
strinfo=strinfo&""
Else
strinfo=strinfo&"</marquee>"
End If
strinfo=strinfo&"</td></tr></table>"
HOPE_ShowSiteCountAll=strinfo
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
'行业资讯来源标签
Function Websen_layuan()
Set laiyuan=Server.Createobject("ADODB.Recordset")
sqlly="select Nfrom from Websen_news where newsid="&rs("newsid")&""
laiyuan.Open sqlly,conn,1,1
If Not laiyuan.Eof Then
strs=strs&laiyuan("Nfrom")
laiyuan.close
End If
Websen_layuan=strs
End Function
'行业资讯来源标签
Function Websen_exlayuan()
Set exlaiyuan=Server.Createobject("ADODB.Recordset")
sqlexly="select Nfrom from websen_expoinfo where id="&rs("id")&""
exlaiyuan.Open sqlexly,conn,1,1
If Not exlaiyuan.Eof Then
strexs=strexs&exlaiyuan("Nfrom")
exlaiyuan.close
End If
Websen_exlayuan=strexs
End Function
'显示搜索 #HOPE_ShowSearch(cityid)#
'cityid--(1为显示地区，0为关闭)
Function HOPE_ShowSearch(cityid)
str=""
If cityid=0 Then
str="<script> function checkSearchk(){ var"
str=str&" strSearch=document.searchBarForm.keywords;if(strSearch.value=='请输入关键字'){alert('请输入搜索的关键字！');strSearch.focus();return false; }if(strSearch.value.replace(/^\s+|\s+$/g,'')==''){ alert('请输入搜索的关键字！');strSearch.focus();return false; } var querystr=document.searchBarForm.searchkind[document.searchBarForm.searchkind.selectedIndex].value; searchBarForm.action=querystr; } "
str=str&"function onChangestr(){ var "
str=str&"str=document.searchBarForm.searchkind[document.searchBarForm.searchkind.selectedIndex].index; var proa=document.all('sortid'); if(str==1){if(proa.style.display=='none') { proa.style.display=''; } else { proa.style.display=''; }}else{ proa.style.display='none';}} </script>"
str=str&"<table border='0' cellpadding='0' cellspacing='0' width='100%' align='center'><FORM name='searchBarForm' onSubmit='return checkSearchk();' action='' method='post'><tr><td> <FONT color=#ffffff><STRONG>请输入关键字：</STRONG></FONT></td><td><INPUT class='searchBarTxt' style='PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; PADDING-TOP: 2px' onclick=this.value='' size='30' name='keywords' value='请输入关键字' maxlength='25'> <select name='searchkind' size='1' onChange='onChangestr();'> <option value='"&HOPE_InstallDir&"search/searchall.asp'>-请选择类别-</option> <option value='"&HOPE_InstallDir&"search/searchproduct.asp'>产品</option> <option value='"&HOPE_InstallDir&"search/searchsale.asp'>供应</option><option value='"&HOPE_InstallDir&"search/searchbuy.asp'>求购</option> <option value='"&HOPE_InstallDir&"search/searchcom.asp'>企业</option> <option value='"&HOPE_InstallDir&"search/news_search.asp'>行业信息</option> <option value='"&HOPE_InstallDir&"search/searchvipinfo.asp'>专项商机</option> </select> <select name='sortid' size='1' style='display:none'>"
Set rssort=Server.CreateObject("ADODB.Recordset")
sortsql="select * from Websen_Class_1"
rssort.open sortsql,conn,1,1
If Not rssort.Eof Then
Do While Not rssort.Eof
str=str&"<option value="&rssort("SortID")&">"&Left(rssort("Sort"),4)&"</option>"
rssort.Movenext
Loop
rssort.Close
Set rssort=Nothing
End If
str=str&"</select></td><td align='left' valign='top'><INPUT style='POSITION: relative; TOP: 3px' type=image src="&HOPE_InstallDir&"images/top_searchbutton.gif name=imageField align=middle></td><td width='140'></td></tr> </FORM> </table>"
Else
str="<TABLE cellSpacing=0 cellPadding=0 border=0 align='center'>"
str=str&"<FORM name=frmAreaSearch action='"&HOPE_InstallDir&"search/searchall.asp?sortid="&sortid&"&typeid="&typeid&"&keywords="&keywords&"' method=post> <TR> <TD class=text13 noWrap>过滤信息： 时间<SELECT name='DateTime'>"
str=str&" <OPTION value=90 selected>显示所有未过期</OPTION> <OPTION value=1>显示今日最新</OPTION><OPTION value=3>显示最近3天</OPTION> <OPTION value=5>显示最近5天</OPTION> <OPTION value=10>显示最近10天</OPTION><OPTION value=30>显示最近30天</OPTION><OPTION value=60>显示最近60天</OPTION> <OPTION value=180>显示最近半年</OPTION><OPTION value='no'>显示所有过期</OPTION></SELECT> 地区<SELECT style='WIDTH: 90px' onchange=javascript:changeCountry1(this); name=country1></SELECT>"
str=str&" <SELECT style='WIDTH: 60px' onchange=changeProvince(this); name=province> <OPTION value='' selected>省份</OPTION> </SELECT> <SELECT name=city><OPTION value='' selected>地级</OPTION></SELECT> <input name='imageField' type='image' src='"&HOPE_InstallDir&"seller/images/search.gif' align='top' width='65' height='22' border='0'></TD> </TR></FORM> </TABLE> "
str=str&" <SCRIPT language=javascript src='"&HOPE_InstallDir&"js/area.js' purpose='INITIALIZER'></SCRIPT> <SCRIPT language=javascript> for (var i=0;i<5;i++){ if (country1Form1.options[i].value == ''){ country1Form1.options[i].selected=true; }}"
str=str&"for(var i=0;i<catArr1.length;i++) {catForm1.options[i+1]=new Option(catArr1[i].title,catArr1[i].id);if(catForm1.options[i+1].value == '"
str=str&" '){catForm1.options[i+1].selected=true;}}changeProvince(catForm1);var len = boardForm1.options.length;for (var i=0;i<len;i++) { if(boardForm1.options[i].value == ' ') { boardForm1.options[i].selected=true;}} "
str=str&"if (country1Form1.options[country1Form1.selectedIndex].value!='中国') { catForm1.style.display = 'none'; "
str=str&"boardForm1.style.display = 'none';} for (var i=0;i<9;i++){ if (document.frmAreaSearch.DateTime[i].value ==''){ document.frmAreaSearch.DateTime[i].selected = true; } }</SCRIPT>"
End If
HOPE_ShowSearch=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^加入等级和身份的搜索^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function HOPE_SearchGrade()
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'所有分类#HOPE_Class(whoid,xiaolei,numed)#
'whoid ---0为供应信息分类、1为企业库分类、2为产品库分类 ,3为求购信息
'xiaolei ---0为不显示小类，1为显示
'numed------ 多少个按行
Function HOPE_Class(whoid,xiaolei,numed,brNum)
HOPE_Class1_2="<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr' style='display:none; width:12;height:1' "
If xiaolei=1 Then
If whoid=1 Then
HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/com_2.asp"
ElseIf whoid=2 Then
HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/pro_2.asp"
ElseIf whoid=3 Then
HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/seller_2.asp"
Else
HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/trade_2.asp"
End If
End If
HOPE_Class1_2=HOPE_Class1_2&" ><script language='javascript' src="&HOPE_InstallDir&"autokind/autokind_index.js></script><input type='text' id='installurltri' style='display:none; width:12;height:1' "
If whoid=1 Then
HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/com_1.asp"
Elseif whoid=2 Then
HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/pro_1.asp"
Elseif whoid=3 Then
HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/seller_1.asp"
Else
HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/trade_1.asp"
End If
HOPE_Class1_2=HOPE_Class1_2&" />"
if brNum=0 then
sortsql="select * from Websen_class_1 order by orderid"
else
sortsql="select top " & brNum & " * from Websen_class_1 order by orderid"
end if
Set rssort=Server.CreateObject("ADODB.Recordset")
rssort.open sortsql,conn,1,1
If rssort.Eof Then
HOPE_Class1_2=""
Else
HOPE_Class1_2=HOPE_Class1_2&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align=center>"
HOPE_Class1_2=HOPE_Class1_2&"<tr>"
j=1
Do While Not rssort.Eof
If whoid=1 Then
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><div style=' margin-bottom: 5px'><A href="&HOPE_InstallDir&"corporation/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:14px; color: #001BA4'><b>"&rssort("sort")&"</b></font></A></div>"
Elseif whoid=2 Then
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><div style=' margin-bottom: 5px'><A href="&HOPE_InstallDir&"productshow/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:14px; color: #001BA4'><b>"&rssort("sort")&"</b></font></A></div>"
Elseif whoid=3 Then
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><div style=' margin-bottom: 5px'><A href="&HOPE_InstallDir&"seller/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:14px; color: #001BA4'><b>"&rssort("sort")&"</b></font></A></div>"
Else
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><div style=' margin-bottom: 5px'><A href="&HOPE_InstallDir&"tradeinfo/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:14px; color: #001BA4'><b>"&rssort("sort")&"</b></font></A></div>"
End If
If xiaolei=1 Then
HOPE_Class1_2=HOPE_Class1_2&"<table width='96%' border='0' cellspacing='0' cellpadding='0'><tr><td>"
typesql1="select * from Websen_class_2 where sortid="&rssort("sortid")&" and [Top]=1"
Set rstype1=Server.CreateObject("ADODB.Recordset")
rstype1.open typesql1,conn,1,1
If rstype1.Eof Then
HOPE_Class1_2=HOPE_Class1_2&""
End If
If Not rstype1.Eof Then
Dim m,length
m=1
length=1
Do While Not rstype1.Eof
If m>1 Then
str=rstype1("typename")
length=length+len(str)+1
if length<20 then
HOPE_Class1_2=HOPE_Class1_2&" <font class=listtopwd>|</font> "
else
length=1
HOPE_Class1_2=HOPE_Class1_2&"<br />"
end if
end if
If whoid=1 Then
HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"corporation/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
Elseif whoid=2 Then
HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"productshow/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
Elseif whoid=3 Then
HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"seller/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
Else
HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"tradeinfo/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
End If
m=m+1
rstype1.Movenext
Loop
rstype1.close
End If
HOPE_Class1_2=HOPE_Class1_2&"</td></tr></table>"
End If
HOPE_Class1_2=HOPE_Class1_2&"</TD>"
If j Mod numed = 0 Then HOPE_Class1_2=HOPE_Class1_2&"</TR><tr><td height=2></td></tr><tr>"
rssort.Movenext
j=j+1
Loop
HOPE_Class1_2=HOPE_Class1_2&"</table>"
End If
HOPE_Class=HOPE_Class1_2
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'hope_scl() 所有分类的小类
function hope_scl(daclass,ssclass,Nben)
i=1
Set rssorts=Server.CreateObject("ADODB.Recordset")
if ssclass=0 then
sqlss="select top "&Nben&" * from Websen_class_2 where [Top]=1"
else
sqlss="select top "&Nben&" * from Websen_class_2 where sortid="&ssclass&" and [Top]=1"
end if
rssorts.open sqlss,conn,1,1
do while not rssorts.eof
if daclass=1 then
hope_scl=hope_scl&"<A href='"&HOPE_InstallDir&"corporation/trade/"&rssorts("sortid")&"-"&rssorts("typeid")&".html' >"&rssorts("typename")&"</A> "
elseif daclass=2 then
hope_scl=hope_scl&"<A href='"&HOPE_InstallDir&"productshow/trade/"&rssorts("sortid")&"-"&rssorts("typeid")&".html' >"&rssorts("typename")&"</A> "
elseif daclass=3 then
hope_scl=hope_scl&"<A href='"&HOPE_InstallDir&"seller/trade/"&rssorts("sortid")&"-"&rssorts("typeid")&".html' >"&rssorts("typename")&"</A> "
elseif daclass=4 then
hope_scl=hope_scl&"<A href='"&HOPE_InstallDir&"brand/trade/"&rssorts("sortid")&"-"&rssorts("typeid")&".html' >"&rssorts("typename")&"</A> "
else
hope_scl=hope_scl&"<A href='"&HOPE_InstallDir&"tradeinfo/trade/"&rssorts("sortid")&"-"&rssorts("typeid")&".html' >"&rssorts("typename")&"</A> "
end if
rssorts.movenext
if (i mod 4)=0 then
hope_scl=hope_scl&"<br>"
end if
i=i+1
loop
rssorts.close
set rssorts=nothing
End function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'品牌首页设置
'Chooses 0为显示图片，1为显示文字信息
'bwidth 图片宽度 bheight 图片高度
'sifies 行业分类 nteger 显示条数 namer 显示字数 row 行数
'col 列数 blandhot 推荐信息
'sten 文字标题样式
function Websen_brand(Chooses,bwidth,bheight,sifies,nteger,brnam,namer,blandhot,sten)
If brnam<=0 Then
brnam=1
End If
if blandhot=0 then
Recom=""
elseif blandhot=1 then
Recom="and hot=1"
else
Recom="and hot=0"
end if
if sifies=0 then
sqlstr="select top "&nteger&" * from websen_post where flag=1 "&Recom&" order by id desc"
else
sqlstr="select top "&nteger&" * from websen_post where flag=1 "&Recom&" and type_class1="&sifies&" order by id desc"
end if
Set rst=Server.CreateObject("ADODB.Recordset")
rst.open sqlstr,conn,1,1
If rst.Eof Then
stris="暂无招商信息"
else
w=1
stris=stris&"<table width='100%'><tr>"
Do While Not rst.Eof
if Chooses=0 then
stris=stris&"<td ><div id='bland_bg'>"
stris=stris&"<ul><li class='photo'><A href="&HOPE_InstallDir&"brand/offerdetail/"&rst("type_class1")&"-"&rst("type_class2")&"-"&rst("type_class3")&"-"&rst("id")&".html target=_blank><IMG src='../vipcom/"&trim(rst("username"))&"/"&trim(rst("logo"))&"' height="&bheight&" width="&bwidth&" border=0></A></li>"
username=rst("username")
stris=stris&"<li class='title'><A href="&HOPE_InstallDir&"brand/offerdetail/"&rst("type_class1")&"-"&rst("type_class2")&"-"&rst("type_class3")&"-"&rst("id")&".html target=_blank>"&left(rst("Project"),namer)&"</a></li></ul></div>"
else
stris=stris&"<td>"
if sten=1 then
stris=stris&"<div class='Writing'>·<A href="&HOPE_InstallDir&"brand/offerdetail/"&rst("type_class1")&"-"&rst("type_class2")&"-"&rst("type_class3")&"-"&rst("id")&".html target=_blank>"&left(rst("Project"),namer)&"</a></div>"
else
stris=stris&"·<A href="&HOPE_InstallDir&"brand/offerdetail/"&rst("type_class1")&"-"&rst("type_class2")&"-"&rst("type_class3")&"-"&rst("id")&".html target=_blank>"&left(rst("Project"),namer)&"</a>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -