📄 temp_inc.asp
字号:
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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
'显示搜索 #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=#800000><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='35' 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 yixiang_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><INPUT style='POSITION: relative; TOP: 3px' type=image src="&HOPE_InstallDir&"images/top_searchbutton.gif name=imageField align=middle> <a href='"&HOPE_InstallDir&"search/searchall.asp'>高级搜索</A> <a href='"&HOPE_InstallDir&"search/searchSimple.asp'>简略搜索</A></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)
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&" />"
sortsql="select * from Yixiang_class_1"
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><TR>"
HOPE_Class1_2=HOPE_Class1_2&"<td height=2></td></tr><tr>"
j=1
Do While Not rssort.Eof
If whoid=1 Then
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"corporation/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
Elseif whoid=2 Then
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"productshow/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
Elseif whoid=3 Then
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"seller/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
Else
HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"tradeinfo/trade/"&rssort("sortid")&".html onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
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 Yixiang_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
m=1
Do While Not rstype1.Eof
If m>1 Then HOPE_Class1_2=HOPE_Class1_2&" <font class=listtopwd>|</font> "
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_Supply(ispic,picwidth,picheight,whotype,typeid,num,leftstr,isnew,brnum,timed)# 一共10个参数
'ispic--(1为图片形式，2为文字形式)
'[picwidth---（图片宽度）、picheight为高度,只有当ispic为1时生效]
'whotype-------（0为全部，1-供(卖)、2-求(买))栏目
'typeid------信息大类id
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为紧急(由yixiang_Info表中的jinji字段),2为 会员(gsid字段)--显示的类型
'brnum---(几条信息换行)
'time--(1为显示时间，0为不显示)
Function HOPE_Supply(ispic,picwidth,picheight,whotype,typeid,num,leftstr,isnew,brnum,timed)
strs=""
If typeid=0 Then
typestr=""
Else
typestr=" and yixiang_Info.sortid="&typeid
End If
If isnew=1 Then '显示的信息类型
sign=" and yixiang_Info.jinji=1"
Elseif isnew=0 Then
sign=""
Elseif isnew=2 Then
sign=""
End If '^^^^^^^^^^^^^^^^^^^
If brnum<=0 Then '换行
brnum=1
End If
sqlstr="select top "&num&" yixiang_Info.*,wygkcn_corporation.[user] as userdd from yixiang_Info left join [wygkcn_corporation] on wygkcn_corporation.id=yixiang_Info.gsid where wygkcn_corporation.flag=1 and yixiang_Info.flag=1 "&sign&" "&typestr&" order by yixiang_Info.Info_ID desc"
Set rst=Server.CreateObject("ADODB.Recordset")
rst.open sqlstr,conn,1,1
If rst.Eof Then
strs="暂无信息"
End If
If Not rst.Eof Then
If whotype=0 Then '信息大类
Dim t
t=1
h=0
strs="<table border=0 align=center cellspadding=0 cellspacing=0 width='100%'><tr>"
If isnew =2 Then '^^^^^^^^^^^^^^只处理会员信息start^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Do While Not rst.Eof
If ispic=1 Then '图片处理start
If trim(rst("draw")&"ok")="ok" OR rst("draw")="nopicture.gig" Then
picimg="<img src="&HOPE_InstallDir&"Uploadfile/nopictrue.gif width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
Else
picimg="<img src="&HOPE_InstallDir&"vipcom/"&rst("userdd")&"/"&rst("draw")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
End If
Else
picimg="·"
End If '^^^^^^^^End ^^^^^^^
Set rsvip=Server.CreateObject("ADODB.Recordset")
vipsql="select * from wygkcn_corporation where flag=1 and ID="&rst("Gsid")
rsvip.open vipsql,conn,1,1
If Not rsvip.Eof Then
If rsvip("flag")=1 Then
h=h+1
strs=strs&"<td>"
If rst("type")="卖" Then '买与卖的静态生成页面路径处理start
strs=strs&" <a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"
Else
strs=strs&" <a href='"&HOPE_InstallDir&"seller/offerdetail/"
End If '^^^^^^^^^^^^end^^^^^^^^^
strs=strs&rst("sortid")&"-"&rst("typeid")&"-"&rst("typeid_2")&"-"&rst("info_id")&".html' target='_blank' class=c>"&picimg&left(rst("showname"),leftstr)&"</a>"
If timed=0 Then '时间显示处理
strs=strs&""
Else
strs=strs&"<font color='#666666' class='S'>("&month(rst("dateandtime"))&"-"&day(rst("dateandtime"))&")</font>"
End If
'^^^^^^^^^End ^^^^^^^^^^^^^
strs=strs&" </td>"
End If
'set rsvip=Nothing
End If
If h Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rst.Movenext
Loop
strs=strs&"</tr></table>"
rst.Close
Set rst=Nothing
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^end^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If isnew<>2 Then '^^^^^^^^^^^^不考虑会员情况start^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Do While Not rst.Eof
If ispic=1 Then
If trim(rst("draw")&"ok")="ok" OR rst("draw")="nopicture.gig" Then
picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gif' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
Else
picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rst("userdd")&"/"&rst("draw")&"' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
End If
Else
picimg="·"
End If
strs=strs&"<td>"
If rst("type")="卖" Then
strs=strs&" <a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"
Else
strs=strs&" <a href='"&HOPE_InstallDir&"seller/offerdetail/"
End If
strs=strs&rst("sortid")&"-"&rst("typeid")&"-"&rst("typeid_2")&"-"&rst("info_id")&".html' target='_blank' class=c>"&picimg&left(rst("showname"),leftstr)&"</a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"<font color='#666666' class='S'>("&month(rst("dateandtime"))&"-"&day(rst("dateandtime"))&")</font>"
End If
strs=strs&" </td>"
If t Mod brnum=0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -