<%
set rs=server.createobject("adodb.recordset")
sql="select * from banner where bannerfunctiontype='" & 1 & "'"
'response.Write(sql)
'response.end
rs.open sql,strconn_1,1,1
if not(rs.bof and rs.eof) then
topbannertype=rs("bannertype")
topbannerfilename=rs("bannerfile")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from banner where bannerfunctiontype='" & 2 & "'"
'response.Write(sql)
'response.end
rs.open sql,strconn_1,1,1
if not(rs.bof and rs.eof) then
bigbannertype=rs("bannertype")
bigbannerfilename=rs("bannerfile")
bigbannerclick = rs("bannerclick")
bannerlink=rs("bannerlink")
end if
rs.close
set rs=nothing
'response.Write("topbannertype:" & topbannertype & "" )
'response.Write("topbannerfilename:" & topbannerfilename & "" )
'response.Write("bigbannertype:" & bigbannertype & "" )
'response.Write("bigbannerfilename:" & bigbannerfilename & "" )
'response.Write("bannerlink:" & bannerlink & "" )
'response.End()
'*************計數首頁,不管進到前台的那一頁,一天一台機子記一次數*************
response.expires=0
application.lock
set rs=server.createobject("adodb.recordset")
sql="select * from website where countid=1"
rs.open sql,strconn_2,3,2
websitecount=rs("countnumber")
if request.cookies("dscount")=empty then
response.cookies("dscount")="yes"
if websitecount<1000 then
rs("countnumber")=1000
rs.update
else
websitecount=websitecount+1
rs("countnumber")=websitecount
rs.update
end if
end if
rs.close
set rs=nothing
application.unlock
%>
<%=ExhibitionTitle_cht%>
<%
Dim err
'抓回傳錯誤訊息
err = request.QueryString("err")
searchtext= trim(request.QueryString("searchtext"))
'if searchtext="" then searchtext="請輸入關鍵字"
search_type= trim(request.QueryString("search_type"))
fuzzy= trim(request.QueryString("fuzzy"))
if search_type="" then search_type="0"
selectLge= trim(request.QueryString("selectLge"))
%>
<%
'Response.Write("memberaccount="&session("memberaccount")&"//buyeraccount="&session("buyeraccount"))
'作三組畫面登錄的判斷
if (session("memberaccount")="") and (session("buyeraccount")="") then
%>
<%
elseif session("buyeraccount")="" then
%>
展覽資訊 
展會新聞
.jpg)
