index.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

		next
	%>
    <li>&nbsp;</li>
	<li><span class="right f14">共有<%=rs.recordcount%>条文章&nbsp;<%=anysale.pagelink(page,npage,"companydetail.asp?","&amp;action=bbs&amp;"&search)%></span></li>
	<%
	else
		response.write "<ul class=""line10""><li></li></ul><ul><li>&nbsp;&nbsp;暂无相关文章!</li></ul>"
	end if
	rs.close
	set rs=nothing
	%>
   </ul>
  </div>
  
 </div>
 <!--right.end-->
 </div>
 <!--content.end-->
</div>
<%
end sub

sub bbsdetail()
	dim ID,rs
	if request("ID")="" or not isnumeric(request("ID")) then
		call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
	else
		ID=request("ID")
	end if
	set rs=conn.execute("select * from as_bbslist where bbsID="&ID)
	if rs.eof or rs.bof then
		call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
	else
		conn.execute("update as_bbslist set views=views+1 where bbsID="&ID)
	
		call header("bbs",rs("title")&" - 论坛文章 - "&company,rs("title")&","&rs("tags"),rs("intro"))
%>
<div class="bodyer">
 <!--content-->
 <%call lefter()%> 
 <div style="float:left;width:702px;">
 <!--right-->
 <div class="tab" style="width:700px;">
  <div class="tabList">
   <ul><li class="line30">&nbsp;&nbsp;<strong>您的位置:</strong>&nbsp;<a href="companydetail.asp?u=<%=username%>">首页</a>&raquo;<a href="companydetail.asp?u=<%=username%>&amp;action=bbs">论坛文章</a>&raquo;<%=rs("title")%></li></ul>
  </div>
  <div style="padding:20px;">
   <ul>
	<li><h1 class="txtCen"><%=rs("front")%> <%=rs("title")%></h1></li>
	<li class="txtCen">时间：<%=rs("addtime")%>，人气：<%=rs("views")%>，回复：<span class="red"><%=rs("child")%></span></li>
	<li>&nbsp;</li>
	<li class="f12 txtCen">
	 <img src="images/iStar.gif" alt="收藏" width="13" height="12" />&nbsp;<a href="javascript:anysale();" onclick="getPage('windows.asp?action=favorite&amp;groups=8&amp;title=<%=server.urlEncode(rs("title"))%>&amp;link=<%=server.urlEncode("companydetail.asp?u="&username&"&amp;action=bbsdetail&amp;ID="&ID)%>');">收藏此信息</a>&nbsp;&nbsp;&nbsp;
	 <img src="images/iMail.gif" alt="推荐" width="13" height="13" />&nbsp;<a href="javascript:anysale();" onclick="getPage('windows.asp?action=email&amp;title=<%=server.urlEncode(rs("title"))%>&amp;detail=<%=server.urlEncode("老朋友好久不见，我是“"&anysale.nickname&"”. 我在 "&anysale.asInfo(1)&" 上发现一文章,也许你会感兴趣，看一下？ 详细信息请参看："&anysale.asInfo(1)&"companydetail.asp?u="&username&"&amp;action=bbsdetail&amp;ID="&ID)%>');">推荐给朋友</a>&nbsp;&nbsp;&nbsp;
	 <img src="images/iNote.gif" alt="举报" width="12" height="12" />&nbsp;<a href="javascript:anysale();" onclick="getPage('windows.asp?action=message&amp;username=admin&amp;title=<%=server.urlEncode("举报："&rs("title"))%>&amp;detail=<%=server.urlEncode(anysale.asInfo(1)&"companydetail.asp?u="&username&"&amp;action=bbsdetail&amp;ID="&ID)%>');">举报此信息</a>
	</li>
	<li>&nbsp;</li>
	<li class="detail" style="width:560px;overflow:hidden;word-wrap:break-word;word-break:normal;">
	<%=anysale.chkBadWords(anysale.getValue("as_bbs","detail","parentID=0 and rootID="&rs("bbsID")))%>
	</li>
	<li>&nbsp;</li>
	<li class="txtCen"><button onclick="window.open('bbsdetail.asp?ID=<%=ID%>');" class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'">共有<span class="red"><%=rs("child")%></span>条回复 点击查看</button></li>
	<li>&nbsp;</li>
   </ul>
  </div>
 </div>
 <!--right.end-->
 </div>
 <!--content.end-->
</div>
<%
	end if
	rs.close
	set rs=nothing
end sub

'contact
sub myContact()
	call header("contact","联系方式 - "&company,business(6),anysale.asInfo(4))
	dim qq,msn,skype,i
	qq=split(contact(4),",")
	msn=split(contact(5),",")
	skype=split(contact(6),",")
%>
<div class="bodyer">
 <!--content-->
 <%call lefter()%> 
 <div style="float:left;width:702px;">
 <!--right-->
 <div class="tab" style="width:700px;">
  <div class="tabList">
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">联系方式</li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <div style="padding:20px;" class="line30">
   <ul>
    <li><h1 class="red" style="padding:7px 0 6px 42px;"><%=company%></h1></li>
   </ul>
   <ul class="clear"><li class="name txtRig">联系地址：</li><li><%=contact(8)%> (邮编：<%=contact(7)%>)</li></ul>
   <ul class="clear"><li class="name txtRig">联系人：</li><li><%=contact(0)%> <%if contact(1)=1 then response.write" 先生" else response.write " 女士" end if%></li></ul>
   <ul class="clear"><li class="name txtRig">职位：</li><li><%=business(1)%></li></ul>
   <ul class="clear"><li class="name txtRig">公司网站：</li><li><%=business(7)%></li></ul>
   <ul class="clear"><li class="name txtRig">电子邮箱：</li><li><%=email%></li></ul>
   <ul class="clear"><li class="name txtRig">联系电话：</li><li><%=contact(2)%> 传真：<%=contact(3)%></li></ul>
   <ul class="clear"><li class="name txtRig">手机：</li><li><%=mobile%></li></ul>
   <%if replace(contact(4),"QQ","")<>"" then%>
   <ul class="clear"><li class="name txtRig">QQ号码：</li><li class="left">
   <%for i=0 to UBound(qq)%>
   <a target="_blank" href="http://wpa.qq.com/msgrd?V=1&amp;Uin=<%=qq(i)%>&amp;site=<%=company%>&amp;menu=yes"><img alt="在线服务" src="http://wpa.qq.com/pa?p=1:<%=qq(i)%>:10" /></a>&nbsp;
   <%next%>
   </li></ul>
   <%
   end if
   if replace(contact(5),"MSN","")<>"" then
   %>
   <ul class="clear"><li class="name txtRig">MSN：</li><li class="left">
   <%for i=0 to UBound(msn)%>
   <a href="msnim:add?contact=<%=msn(i)%>"> <img src="images/msn.gif" style="clear: both;height:18px;border: 0px;" /></a>&nbsp;
   <%next%>
   </li></ul>
   <%
   end if
   if replace(contact(6),"skype","")<>"" then
   %>
   <ul class="clear"><li class="name txtRig">Skype：</li><li class="left">
   <%for i=0 to UBound(skype)%>
   <a href="callto://<%=skype(i)%>"><img src="images/skype.gif" border="0" height="18"></a>&nbsp;
   <%next%>
   </li></ul>
   <%end if%>
   <ul><li>&nbsp;</li></ul>
  </div>
 </div>
 <!--right.end-->
 </div>
 <!--content.end-->
</div>
<%
end sub

'会员头部
function header(nav,title,keywords,descrip)
	if nav="" then nav="home" end if
	response.write"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><title>"&title&" - Powered by AnySale!</title><meta name=""robots"" content=""index,follow"" /><meta name=""keywords"" content="""&keywords&""" /><meta name=""description"" content="""&descrip&""" />"
	response.write"<meta name=""generator"" content=""AnySale v2.0"" /><meta name=""author"" content=""AnySale"" /><meta name=""copyright"" content=""2006-2008 anysale.cn"" /><meta name=""MSSmartTagsPreventParsing"" content=""True"" /><meta http-equiv=""MSThemeCompatible"" content=""Yes"" /><meta http-equiv=""x-ua-compatible"" content=""ie=7"" />"
	response.write"<link href="""&style(0)&""" rel=""stylesheet"" type=""text/css"" id=""skin"" /><link rel=""shortcut icon"" href="""&anysale.asInfo(1)&"images/favicon.ico"" type=""image/x-icon"" /><link rel=""bookmark icon"" href="""&anysale.asInfo(1)&"images/favicon.ico"" /><script type=""text/javascript"" src=""inc/anysale.js""></script></head><body>"
	response.write"<div id=""windows"" class=""hidden""></div><div class=""line10""></div><div class=""header""><div class=""headR""><div style=""padding:0 0 0 55px;"">"
	response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL"">&nbsp;</li><li class=""linkM""><a href=""index.asp"">返回首页</a></li><li class=""linkR"">&nbsp;</li></ul>"
	response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL"">&nbsp;</li><li class=""linkM""><a href=""javascript:anysale();"" onclick=""getPage('windows.asp?action=addFriend&amp;friend="&username&"&amp;readme="&server.urlEncode(title)&"');"">加为好友</a></li><li class=""linkR"">&nbsp;</li></ul>"
	response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL"">&nbsp;</li><li class=""linkM""><a href=""javascript:anysale();"" onClick=""getPage('windows.asp?action=message&amp;username="&username&"');"">发送留言</a></li><li class=""linkR"">&nbsp;</li></ul>"
	response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL"">&nbsp;</li><li class=""linkM""><a href=""javascript:anysale();"" onclick=""getPage('windows.asp?action=email&amp;email="&email&"');"">发送邮件</a></li><li class=""linkR"">&nbsp;</li></ul>"
	response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL"">&nbsp;</li><li class=""linkM""><a href=""companydetail.asp?u="&username&"&action=contact"">联系方式</a></li><li class=""linkR"">&nbsp;</li></ul></div>"
	if istrust=1 then
		response.write"<div style=""width:400px;""><ul><li class=""ann""><span class=""iTrust"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><a href=""javascript:anysale();"" onclick="""">诚信会员第"&year(now())-year(trustTime)+1&"年</a> &nbsp;&nbsp; </li></ul></div>"
	end if
	response.write"</div><div class=""headL""><ul>"
	if trim(logo(0))<>"images/nologo.gif" then
		response.write"<li><a href="""&anysale.asInfo(1)&"companydetail.asp?u="&username&"""><img src="""&logo(0)&""" alt="""&username&""" width="""&logo(1)&""" height="""&logo(2)&""" /></a></li>"
	end if
	response.write"<li><h1 style=""padding:20px 10px;font-size:20px;""><a href="""&anysale.asInfo(1)&"companydetail.asp?u="&username&""">"&company&"</a></h1></li></ul></div></div><div class=""line5""></div>"
	
	response.write"<div class=""header""><div class=""nav"" id="""&nav&"""><ul class=""left"" style=""width:20px;""><li>&nbsp;</li></ul>"
	response.write"<ul class=""navN"" id=""nHome""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&""">&nbsp;&nbsp;首&nbsp;&nbsp;&nbsp;页&nbsp;&nbsp;</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nAbout""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=about"">公司介绍</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nNews""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=news"">新闻资讯</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nBus""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=business"">供求信息</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nPro""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=products"">产品展示</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nJob""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=job"">人才招聘</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nMes""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=message"">留言反馈</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nBbs""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=bbs"">论坛文章</a></li><li class=""navR""></li></ul>"
	response.write"<ul class=""navN"" id=""nCon""><li class=""navL""></li><li class=""navM""><a href=""companydetail.asp?u="&username&"&amp;action=contact"">联系方式</a></li><li class=""navR""></li></ul>"
	response.write"</div><div class=""subNav""><form name=""headSearch"" action=""companydetail.asp?u="&username&"&action=usearch"" method=""post""><ul><li class=""txtCen"" style=""padding:6px 0 0 0;"">"
	response.write"<select name=""anysale"" style=""width:150px;""><option value=""1"">搜索新闻</option><option value=""2"">搜索供求</option><option value=""3"">搜索产品</option><option value=""4"">搜索工作</option><option value=""5"">搜索文章</option></select>"
	response.write"<input type=""text"" name=""keywords"" class=""inpWidth"" />"
	response.write" <input type=""submit"" name=""search"" value=""搜索"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"" />"
	response.write"</li></ul></form></div></div><div class=""line5""></div><img src="""&style(1)&""" width=""950"" /><div class=""line5""></div>"
end function

sub lefter()
	dim news,products,business
	news=1
	products=1
	dim sortID,parentID,child
	sortID=request("sortID")
	if sortID="" or not isnumeric(sortID) then
		sortID=0
	end if
%>
<div style="float:left;width:243px;margin:0 5px 0 0;">
 <!--lefter-->
 <div class="tab" style="width:241px;">
  <div class="tabList">
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">新闻分类</li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <div style="padding:9px;">
   <ul>
    <%
	dim rsn
	if sortID>0 and request("action")="news" then
		child=anysale.getValue("as_sort","child","sortID="&sortID)
		if child=0 then
			parentID=anysale.getValue("as_sort","parentID","sortID="&sortID)
		else
			parentID=sortID
		end if
	else
		parentID=0
		child=0
	end if
	
	set rsn=conn.execute("select sortID,sortName from as_sort where userID="&userID&" and parentID="&parentID&" and groups=2 order by orders asc")
	if not (rsn.bof and rsn.eof) then
	do while not rsn.eof
	%>
    <li>·<a href="?u=<%=username%>&amp;action=news&amp;sortID=<%=rsn(0)%>"><%=anysale.cutStr(rsn(1),16)%></a></li>
    <%
	rsn.movenext
	loop
	end if
	rsn.close:set rsn=nothing
	%>
   </ul>
  </div>
 </div>
 <div class="line5"></div>

 <div class="tab" style="width:241px;">
  <div class="tabList">
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">产品分类</li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <div style="padding:9px;">
   <ul>
    <%
	dim rsp
	if sortID>0 and request("action")="products" then
		child=anysale.getValue("as_sort","child","sortID="&sortID)
		if child=0 then
			parentID=anysale.getValue("as_sort","parentID","sortID="&sortID)
		else
			parentID=sortID
		end if
	else
		parentID=0
		child=0
	end if
	
	set rsp=conn.execute("select sortID,sortName from as_sort where userID="&userID&" and parentID="&parentID&" and groups=1 order by orders asc")
	if not (rsp.bof and rsp.eof) then
	do while not rsp.eof
	%>
    <li>·<a href="?u=<%=username%>&amp;action=products&amp;sortID=<%=rsp(0)%>"><%=anysale.cutStr(rsp(1),16)%></a></li>
    <%
	rsp.movenext
	loop
	end if
	rsp.close:set rsp=nothing
	%>
   </ul>
  </div>
 </div>
 <!--lefter.end-->
</div>
<%
end sub

sub usearch()
	dim keywords,classID
	keywords=trim(request("keywords"))
	select case cint(request("anysale"))
		case "1"
			response.redirect "?keywords="&keywords&"&u="&username&"&action=news"
		case "2"
			response.redirect "?keywords="&keywords&"&u="&username&"&action=business"
		case "3"
			response.redirect "?keywords="&keywords&"&u="&username&"&action=products"
		case "4"
			response.redirect "?keywords="&keywords&"&u="&username&"&action=job"
		case "5"
			response.redirect "?keywords="&keywords&"&u="&username&"&action=bbs"
	end select
end sub

'会员底部
function footer()
	response.write"<div class=""footer clear""><ul><li class=""xline"">&nbsp;</li></ul><ul style=""padding:0 0 10px 0;""><li class=""txtCen line20"">"
	response.write"电话："&contact(2)&" &nbsp; 传真："&contact(3)
	if mobile<>"" then response.write" &nbsp; 手机："&mobile end if
	response.write" &nbsp; 邮箱：<a href=""javascript:anysale();"" onclick=""getPage('windows.asp?action=email&amp;email="&email&"');"">"&email&"</a>"
	response.write"<br />公司名称："&company&" &nbsp; 公司地址："&business(4)&" &nbsp; 邮编："&business(5)
	response.write"<br />Powered by <a href=""http://www.anysale.cn"" target=""_blank"">AnySale.cn</a>!"
	response.write"</li></ul></div></body></html>"
end function
%>