📄 default.asp
字号:
rs11.movenext
loop
rs11.close
set rs11=nothing
%></TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
<TBODY>
<TR>
<TD width="15%"><IMG height=34 src="imgwx/zixun.gif" width=121></TD>
<TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 bgcolor="#F1F1F1">
<TR>
<% n=0
Set rsty=Server.CreateObject("adodb.recordset")
rsty.open "select top 14 * from hyxxtype order by typeid asc",conn,1,1
Do While Not rsty.eof
n=n+1
%>
<TD height="27" class=norightbuttonborder id=club11><A href="hyxx/more.asp?typeid=<%=rsty("typeid")%>&newstype=<%=rsty("type")%>" target=_blank><%=rsty("type")%></A></TD>
<%
if n mod 7 = 0 then response.write "</tr><tr>"
if n>14 then exit do
rsty.Movenext
Loop
%>
</TR>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD vAlign=top width="11%">
<TABLE cellSpacing=0 cellPadding=0 width="68%" border=0>
<TBODY>
<TR>
<TD><IMG height=41 alt="" src="imgwx/news_02.gif"
width=179></TD></TR>
<TR>
<TD vAlign=top align=middle background=imgwx/news_08.gif>
<TABLE cellSpacing=0 cellPadding=0 width="87%" align=center
border=0>
<TBODY>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=5 width="100%" align=center
border=0>
<TBODY>
<%sqlzx="select top 1 * from hyxx where selectpic=1 order by NewsID desc"
Set rszx= Server.CreateObject("ADODB.Recordset")
rszx.open sqlzx,conn,1,1
if not rszx.eof then
do while not rszx.eof
%>
<TR>
<TD align=middle><DIV align=center>
<a href="hyxx/shownews.asp?newsid=<%=rszx("newsid")%>" target=_blank>
<img src="hyxx/pic/<%=rszx("picurl")%>" width=138 height=91 style="border: 0px solid #000000"></a></DIV></TD></TR>
<TR>
<TD align=middle><%=rszx("title")%></TD></TR><%
rszx.movenext
loop
end if
rszx.close
set rszx=nothing
%>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR><TR>
<TD><IMG height=68 alt="" src="imgwx/news_12.gif"
width=179></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<%
const TjMax2222=9
const PicMax2=1
sql="select * from hyxx where tjnews=1 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<body>
<TABLE border=0 cellPadding=4 cellSpacing=1 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<%do while not rs.eof%>
<TR height=20>
<TD> <span class="S"><a target="_blank" href="hyxx/more.asp?typeid=<%=rs("typeid")%>&newstype=<%=rs("Typename")%>"><font color="#FF6600"><%=rs("Typename")%></font></a>|
<%if rs("selectpic")=1 then%>
<%end if%>
<span style='font-size:9pt;line-height: 15pt'><a target="_blank" href="hyxx/shownews.asp?newsid=<%=rs("newsid")%>">
<% if len(rs("title"))>20 then%>
<%=left(rs("title"),20)%>..
<% else%>
<%=rs("title")%>
<%end if%>
</a></span></span></TD>
<%rs.movenext %>
<TD><span class="S"><a target="_blank" href="hyxx/more.asp?typeid=<%=rs("typeid")%>&newstype=<%=rs("Typename")%>"><font color="#FF6600">
<%=rs("Typename")%></font></a>|
<%if rs("selectpic")=1 then%>
<%end if%>
<span style='font-size:9pt;line-height: 15pt'><a target="_blank" href="hyxx/shownews.asp?newsid=<%=rs("newsid")%>">
<% if len(rs("title"))>20 then%>
<%=left(rs("title"),20)%>..
<% else%>
<%=rs("title")%>
<%end if%>
</a></span></span></TD>
</TR>
<% x=x+1
if x>=TjMax2222 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</TD>
</TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD
style="FONT-SIZE: 13px; BORDER-BOTTOM: #0099cc 3px solid; TEXT-DECORATION: none"
bgColor=#f1f1f1 height=28><STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0>
供求信息搜索</STRONG></TD></TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD
style="FONT-SIZE: 13px; BORDER-BOTTOM: #0099cc 3px solid; TEXT-DECORATION: none"
bgColor=#f1f1f1 height=28><STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0>
供应信息</STRONG></TD></TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD
style="FONT-SIZE: 13px; BORDER-BOTTOM: #0099cc 3px solid; TEXT-DECORATION: none"
bgColor=#f1f1f1 height=28><STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0>
求购信息</STRONG></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff height=135>
<TABLE cellSpacing=0 cellPadding=2 width="96%" align=center border=0>
<FORM action=select.asp method=POST name=search>
<TBODY>
<TR>
<TD align=middle>
<SELECT name=IndexArea>
<OPTION value=syjh selected>商业机会</OPTION>
<OPTION value=cpzs>产品展示</OPTION>
<OPTION value=gsk>企业名录</OPTION>
<OPTION value=job>企业招聘</OPTION>
<option value="person">人才求职</option>
<OPTION value=news>行业信息</OPTION>
<option value="qyfw">商务服务</option>
</SELECT></TD></TR>
<TR>
<TD align=middle>
<DIV align=center><input style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: 1px solid; COLOR: #999999; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #f0f0f0" size=15 name=txtitle> </DIV></TD></TR>
<TR>
<TD align=middle bgColor=#ffffff><INPUT id=search_now2 type=submit value=交易信息 name=search_now22></TD></TR>
<TR>
<TD align=middle bgColor=#ffffff>
</TD></TR></FORM></TBODY></TABLE></TD>
<TD vAlign=top align=middle bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><%
'打开一级分类数据库
MaxNumber=6
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from Class_1"
rssort.open sortsql,conn,1,1
'打开供求信息数据库开始
Set mrs= Server.CreateObject("ADODB.Recordset")
msql="select Info_Id,showname from info where type like '" & "采购" & "' and flag=1 order by info_id desc"
mrs.open msql,conn,1,1
cgnum=mrs.recordcount
Set grs= Server.CreateObject("ADODB.Recordset")
gsql="select Info_Id,showname from info where type like '" & "供应" & "' and flag=1 order by info_id desc"
grs.open gsql,conn,1,1
gynum=grs.recordcount
Set drs= Server.CreateObject("ADODB.Recordset")
dsql="select Info_Id,showname from info where type like '" & "代理" & "' and flag=1 order by info_id desc"
drs.open dsql,conn,1,1
dlnum=drs.recordcount
Set hrs= Server.CreateObject("ADODB.Recordset")
hsql="select Info_Id,showname from info where type like '" & "合作" & "' and flag=1 order by info_id desc"
hrs.open hsql,conn,1,1
hznum=hrs.recordcount%>
<TABLE width="96%" border=0 cellPadding=0 cellSpacing=4>
<TBODY>
<%do while not grs.eof%>
<TR>
<TD valign="top" style="color: #000; font-family: 宋体; font-size: 13px; line-height:200%">
<img border="0" src="images/Tp.gif"> <a href="syjh/business_info.asp?info_id=<%=grs("info_id")%>">
<FONT
color=#008000>【供应】</FONT><% if len(grs("showname"))>16 then%>
<%=left(grs("showname"),15)%>..
<% else%>
<%=grs("showname")%>
<%end if%>
</a></TD>
</TR>
<%num2=num2+1
if num2>=MaxNumber then exit do
grs.movenext
loop
grs.close
set grs=nothing
%>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=middle bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
<TBODY>
<TR>
<TD>
<TABLE width="269" border=0 cellPadding=0 cellSpacing=4 bordercolor="#6699CC">
<TBODY>
<%do while not mrs.eof%>
<TR>
<TD valign="top" style="color: #ffffff; font-family: 宋体; font-size: 13px; line-height:200%" width="261">
<img border="0" src="images/Tp.gif"> <a href="syjh/business_info.asp?info_id=<%=mrs("info_id")%>">
<FONT
color=red>【求购】</FONT><% if len(mrs("showname"))>16 then%>
<%=left(mrs("showname"),14)%>..
<% else%>
<%=mrs("showname")%>
<%end if%></a></TD>
</TR>
<%
num1=num1+1
if num1>=MaxNumber then exit do
mrs.movenext
loop
mrs.close
set mrs=nothing
%>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=32 alt="" src="imgwx/index_42.gif" width=180></TD>
<TD><IMG height=32 alt="" src="imgwx/index_43.gif" width=295></TD>
<TD><IMG height=32 alt="" src="imgwx/index_44.gif"
width=305></TD></TR></TBODY></TABLE>
<TABLE borderColor=#ffffff cellSpacing=0 cellPadding=0 width=780 align=center
border=0>
<TBODY>
<TR>
<TD borderColor=#ffffff bgColor=#ffffff>
<TABLE borderColor=#ffffff cellSpacing=0 cellPadding=0 width=780
border=0><TBODY>
<tr>
<TD>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0 id="table2">
<TBODY>
<TR>
<TD
style="FONT-SIZE: 13px; BORDER-BOTTOM: #0099cc 3px solid; TEXT-DECORATION: none"
bgColor=#f1f1f1 height=28><STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0> 友情链接</STRONG></TD></TR></TBODY></TABLE></TD>
</tr>
<TR>
<TD width=765 height="50"><script language="JavaScript" src="ads/linka.asp"></script></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="inc/end.asp"--><!--#include file="counter/Counter.asp"--></TR></TABLE></BODY></HTML>
<%
Function leftfy(str,n)
If len(str)<=n/2 Then
LeftT=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftT = TStr+".."
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -