📄 default.asp
字号:
<!--#include file="head.asp"-->
<%
if request("type")="" then
e_country="0 "
else
e_country=request("type")
end if
'打开展会数据库
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select exhib_id,e_name,e_date,e_state,e_zhanguan from zhanhui where e_country="&e_country&" and E_flag=1"
if request("sortid")<>"" then
sql=sql & " and e_sortid="&request("sortid")&""
end if
sql=sql &" order by exhib_id desc"
rs.open sql,conn,1,1
'打开推荐展会数据库
Set rstj= Server.CreateObject("ADODB.Recordset")
sqltj="select exhib_id,e_name,e_date,e_state,e_zhanguan from zhanhui where tuijian=1 and E_flag=1"
sqltj=sqltj &" order by exhib_id desc"
rstj.open sqltj,conn,1,1
dim MaxPerPage
MaxPerPage=10
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<SCRIPT>
function view1(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460');
}
</SCRIPT>
<center>
<table width="760" border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse">
<tr>
<td width=400>
您现在的位置：<a href="../default.asp">首页</span></a> >> <a href="default.asp">展览、会议</a>
</td>
<td align=right valign="bottom" width=360>
<FORM name=FORM1 action="default.asp" Size="1" method=post>
<select name="sortid">
<option value="">选择所属行业</option>
<%
set s_rs=server.createobject("adodb.recordset")
s_sql="select * from class_1"
s_rs.open s_sql,conn,1,1
do while not s_rs.eof
response.write "<option " & sel & " value="+CStr(s_rs("sortid"))+">"+s_rs("sort")+"</option>"+chr(13)+chr(10)
s_rs.movenext
loop
%></select>
<INPUT type=submit value='确 定' name=Submit2></form>
</td>
</tr>
</table>
<table width="760" border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#22AEFF">
<tr><td class=S width="160" align=center height="217" valign="top">
<TABLE border=0 cellPadding=0 cellSpacing=0 class=border height=116 width=146>
<TBODY>
<TR>
<TD vAlign=bottom>
<p align="left"><IMG src="images/left1.gif"></TD></TR>
<TR>
<TD background=images/left2.gif height=63 vAlign=top>
<table><TR>
<TD height=6></TD></TR>
<%
Max1=15
hyxxsql="select selectpic,newsid,title from hyxx where typeid=15 order by NewsID desc"
Set hyxxrs= Server.CreateObject("ADODB.Recordset")
hyxxrs.open hyxxsql,conn,1,1
%>
<%do while not hyxxrs.eof%>
<TR>
<TD height=20><font color="#000080">·</font><%if hyxxrs("selectpic")=1 then%>[图]<%end if%>
<a href="javascript:view1('../hyxx/shownews.asp?newsid=<%=hyxxrs("newsid")%>')">
<%if len(hyxxrs("title"))>10 then%><%=left(hyxxrs("title"),9)%>..<% else%><%=hyxxrs("title")%><%end if%></a>
</TD></TR>
<% c1=c1+1
if c1>=Max1 then exit do
hyxxrs.movenext
loop
hyxxrs.close
set hyxxrs=nothing
%>
<TR>
<TD height=20>
<DIV align=right>
<a target="_blank" href="../hyxx/more.asp?typeid=15&newstype=展会">
<B><FONT color=#cc9900>>>更多 </FONT></a></B>
</DIV></TD></TR>
</table>
<IMG height=9 src="images/left3.gif" width=147></TD></TR>
<TR>
<TD vAlign=top> </TD></TR>
</TBODY>
</TABLE>
</td>
<td class=S width="602" valign="top">
<TABLE border=0 cellPadding=0 cellSpacing=0 class=t9 height=1 width=585>
<TR>
<TD background=Images/new-xing2.gif height=1 vAlign=top><FONT
color=#000000>
<IMG src="Images/new-dhui.gif"> </FONT>
<TABLE align=center border=0 cellPadding=3 cellSpacing=1 width="97%" height="52">
<TBODY>
<TR>
<TD bgColor=#e6f5ff height=26 vAlign=top width="220" align="center">
展会名称</TD>
<TD bgColor=#e6f5ff height=26 vAlign=top width="70" align="center">
展会时间</TD>
<TD bgColor=#e6f5ff height=26 vAlign=top width="30" align="center">
城市</TD>
<TD bgColor=#e6f5ff height=26 vAlign=top width="180" align="center">
场馆</TD>
</TR>
<TR>
<TD bgColor=#e6f5ff height=26 vAlign=top width="100%" colspan="4">
<%If rs.eof and rs.bof then%>
<TABLE border=0 cellPadding=8 cellSpacing=0 width=560 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR><TD align=center width="30%">还没有相关行业展会信息!</TD>
</TR>
</table>
<%else%>
<TABLE border=0 cellPadding=8 cellSpacing=0 width=560 style="border-collapse: collapse">
<TBODY>
<% do while not rs.eof%>
<TR>
<TD width="220"><IMG src="Images/news_014.gif"> <A href="list_info.asp?id=<%=rs("exhib_id")%>" target=_blank><%=rs("e_name")%></A></TD>
<TD width="70"><%=rs("e_date")%></TD>
<TD width="30"><%=rs("e_state")%></TD>
<TD width="180"><%=rs("e_zhanguan")%></TD>
</TR>
<%
ii=ii+1
if ii>=10 then exit do
rs.movenext
loop
%>
<TR>
<TD width="100%" colspan="4" align=right>
<%
function showpage(filename)
response.write "<form method=Post action='"&filename&"'>"
Response.write "页次:" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " "
Response.write "共<font color=#ff0000>" & Cstr(Rs.RecordCount) & "</font>条 "
If currentpage > 1 Then
response.write "[<a href='"&filename&"?&page="+cstr(1)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>首页</a>]"
Response.write "[<a href='"&filename&"?page="+Cstr(currentpage-1)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>前页</a>]"
Else
Response.write "[首页]"
Response.write "[前页]"
End if
If currentpage < Rs.PageCount Then
Response.write "[<a href='"&filename&"?page="+Cstr(currentPage+1)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>后页</a>]"
Response.write "[<a href='"&filename&"?page="+Cstr(Rs.PageCount)+"&keyword="&request("keyword")&"&sortid="&sortid&"&typeid="&typeid&"'>尾页</a>] "
Else
Response.write "[后页]"
Response.write "[尾页] "
End if
Response.write "</td>"
%>
</form>
<%end function%>
<%showpage ""%>
</TD>
</TR>
</TBODY>
</TABLE>
<%end if%>
</TD>
</TR>
</TBODY></TABLE>
</TD></TR>
<TD height=1 vAlign=top><IMG src="Images/new-xing3.gif"></TD>
</TR>
</TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 class=t9 height=1 width=585>
<TR>
<TD background=Images/new-xing2.gif height=1 vAlign=top>
<IMG src="Images/new-dzhang.gif">
<TABLE align=center border=0 cellPadding=3 cellSpacing=1 width="97%">
<TBODY>
<TR>
<TD bgColor=#e6f5ff height=5 vAlign=top width="100%">
<TABLE align=center border=0 cellPadding=3 cellSpacing=1 width="97%" height="52">
<TBODY>
<TR>
<TD bgColor=#e6f5ff height=26 vAlign=top width="220" align="center">
展会名称</TD>
<TD bgColor=#e6f5ff height=26 vAlign=top width="70" align="center">
展会时间</TD>
<TD bgColor=#e6f5ff height=26 vAlign=top width="30" align="center">
城市</TD>
<TD bgColor=#e6f5ff height=26 vAlign=top width="180" align="center">
场馆</TD>
</TR>
<TR>
<TD bgColor=#e6f5ff height=26 vAlign=top width="100%" colspan="4">
<%If rstj.eof and rstj.bof then%>
<TABLE border=0 cellPadding=8 cellSpacing=0 width=560 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR><TD align=center width="30%">还没有相关行业展会信息!</TD>
</TR>
</table>
<%else%>
<TABLE border=0 cellPadding=1 cellSpacing=0 width=560 style="border-collapse: collapse">
<TBODY>
<% do while not rstj.eof%>
<TR>
<TD width="220"><IMG src="Images/hot.gif"> <A href="list_info.asp?id=<%=rstj("exhib_id")%>" target=_blank><%=rstj("e_name")%></A></TD>
<TD width="70"><%=rstj("e_date")%></TD>
<TD width="30"><%=rstj("e_state")%></TD>
<TD width="180"><%=rstj("e_zhanguan")%></TD>
</TR>
<%
iii=iii+1
if iii>=12 then exit do
rstj.movenext
loop
%>
</TBODY>
</TABLE>
<%end if
rs.close
set rs=nothing
rstj.close
set rstj=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY></TABLE>
</TD></TR>
<TR>
<TD height=1 vAlign=top>
<IMG src="Images/new-xing3.gif"></TD></TR>
</TABLE>
</td></tr>
</table>
</TR>
</TBODY>
</TABLE>
<br>
<!--#include file="../inc/end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -