business.asp

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

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<%
anysale.chkUser()
select case request("action")
	case "add"
		call add()
	case "saveAdd"
		call saveAdd()
	case "edit"
		call edit()
	case "saveEdit"
		call saveAdd()
	case "resend"
		call resend()
	case "del"
		call del()
	case else
		call main()
end select

sub main()
%>
<div id="business">
<!--business-->
<form name="businessForm" id="businessForm" method="post">
<%
dim rs,sql,period,page,ipage
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs=server.createobject("adodb.recordset")
sql="select * from as_business where userID="&anysale.userID&" order by addtime desc"
rs.open sql,conn,1,1
if not rs.eof then
	rs.pageSize = 20
	if page>rs.pageCount then page=rs.pageCount end if
	rs.absolutePage = page
end if
%>
<div class="subNav">
 <div class="right">
  <ul><li>
   共<%=rs.recordcount%>条信息 
   <%if page>1 then%><a href="javascript:anysale();" title="上一页" onclick="getPage('user/business.asp?page=<%=page-1%>','business');">&laquo;</a><%end if%>
   <select name="page" id="page" onchange="if(this.options[this.selectedIndex].value!=''){getPage('user/business.asp?page='+this.options[this.selectedIndex].value,'business');}">
    <%for ipage=1 to rs.pageCount%>
	<option value="<%=ipage%>" <%if ipage=page then response.write"selected=""selected"" " %>><%=ipage%>/<%=rs.pageCount%></option>
	<%next%>
   </select>
   <%if page<rs.pageCount then%><a href="javascript:anysale();" title="下一页" onclick="getPage('user/business.asp?page=<%=page+1%>','business');">&raquo;</a><%end if%>
  </li></ul>
 </div>
 <div>
  <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="getPage('user/business.asp','business');">供求管理</a></li><li class="linkR"></li></ul>
  <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="tabs.addTab('发布供求信息','user/business.asp?action=add');">发布供求</a></li><li class="linkR"></li></ul>
  <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="tabs.addTab('供求信息收藏','user/favorite.asp?group=1');">供求收藏</a></li><li class="linkR"></li></ul>
  <ul class="subLine"><li></li></ul>
  <%if rs.recordcount>0 then%>
  <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="getPage('user/business.asp?action=del','business',0,'businessForm');">删除</a></li><li class="linkR"></li></ul>
  <%end if%>
  <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="getPage('user/business.asp?page=<%=page%>','business');">刷新</a></li><li class="linkR"></li></ul>
 </div>
</div>

<div class="item" id="businessItem">
 <ul>
  <li class="check"><input name="chkAll" id="chkAll" type="checkbox" onclick="checkAll(this.form)" value="checkbox" /></li>
  <li class="link">图片</li>
  <li class="value">供求标题</li>
  <li class="link">单价</li>
  <li class="name">属性</li>
  <li class="name">操作</li>
 </ul>
</div>

<div class="list contentBig" id="businessList">
<%
if not rs.eof then
	for ipage = 1 to rs.pageSize
		period=cdate(anysale.formatDate(rs("endtime"),1))-cdate(anysale.formatDate(now(),1))
		if period>180 then period="长期" else period=period&" 天" end if
%>
 <ul onmouseover="this.className='hover'" onmouseout="this.className=''" style="padding:5px 0;">
  <li class="check txtCen">
   <input name="businessID" onclick="unCheckAll('businessForm')" type="checkbox" value="<%=rs("businessID")%>" />
   <input name="channelID" type="hidden" value="<%=rs("channelID")%>" />
  </li>
  <li class="link"><%if rs("preview")="" then%><img src="images/noimage.gif" style="padding:5px;" class="border whitebg" alt="<%=rs("title")%>" /><%else%><img src="<%=rs("preview")%>" class="border" width="60" height="60" alt="<%=rs("title")%>" /><%end if%></li>
  <li class="value line20">
   <h2><%=rs("title")%></h2>
   <h5> 日期：<%=anysale.formatDate(rs("addtime"),1)%></h5>
   <h5>有效期：<%=period%> 点击：<%=rs("views")%></h5>
  </li>
  <li class="link txtCen"><%if rs("price")>0 then%><%=rs("price")%>/<%=rs("unit")%><%else response.write"洽谈" end if%></li>
  <li class="name txtCen">
   <%if rs("iselite")=1 then%> 荐 <%end if%>
   <%if rs("istop")=1 then%> 固 <%end if%>
   <%if rs("islock")=1 then%> 锁 <%end if%>
   <%if rs("endtime")<now() then%> 过 <%end if%>
  </li>
  <li class="name txtCen">
   <a href="javascript:anysale();" onclick="getPage('user/business.asp?action=edit&amp;editID=<%=rs("businessID")%>&amp;page=<%=page%>','businessDetail');mod('businessList','businessDetail');">修改</a>
   <a href="javascript:anysale();" onclick="getPage('user/business.asp?action=resend&amp;editID=<%=rs("businessID")%>&amp;period=<%=period%>','business');">更新</a>
  </li>
 </ul>
<%
		rs.moveNext
		if rs.eof then exit for end if
	next
else
	response.write "<ul><li>还没有任何供求!</li></ul>"
end if
rs.close
set rs=nothing
%>
</div>
</form>

<div class="detail" id="businessDetail" style="display:none;"></div>
<!--business.end-->
</div>
<%
end sub

sub add()
%>
<div id="businessAdd">
<!--businessAdd-->
<div class="subNav">
 <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="tabs.addTab('供求信息管理','user/business.asp');">供求管理</a></li><li class="linkR"></li></ul>
 <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="tabs.addTab('发布供求信息','user/business.asp?action=add');">发布供求</a></li><li class="linkR"></li></ul>
 <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="tabs.addTab('供求信息收藏','user/favorite.asp?group=1');">供求收藏</a></li><li class="linkR"></li></ul>
 <ul class="linkA" onmouseover="this.className='linkN'" onmouseout="this.className='linkA'"><li class="linkL"></li><li class="linkM"><a href="javascript:anysale();" onclick="getPage('user/business.asp?action=add&amp;index=<%=request("index")%>','businessAdd');">刷新</a></li><li class="linkR"></li></ul>
</div>
 
<div class="detailBig" id="businessAddDetail">
 <ul><li class="detailT"><h2>发布供求信息</h2></li></ul>
 <ul>
  <li>
  <div class="detailBigC" id="businessAddContent">
<!---->
<form name="businessAddForm" id="businessAddForm" method="post">
 <div class="list line30">
  <ul>
   <li class="name txtRig">所属分类：</li>
   <li class="value">
    <select name="channelID" id="businessAddChannelID">
    <%=anysale.IDSelect("channel",0,1,0,0)%>
	</select>
	&nbsp;&nbsp;<span class="iArr" style="cursor:pointer;" title="点击选择分类" onclick="getPage('windows.asp?action=clickID&amp;upValue=businessAddChannel&amp;table=channel&amp;parentID=0&amp;groups=1&amp;isuser=0&amp;isselect=0');">&nbsp;&nbsp;&nbsp;</span>
   </li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 所属行业：</li>
   <li class="value">
    <select name="classID" id="businessAddClassID">
    <%=anysale.IDSelect("class",0,0,0,anysale.userClass)%>
	</select>
	&nbsp;&nbsp;<span class="iArr" style="cursor:pointer;" title="点击选择行业" onclick="getPage('windows.asp?action=clickID&amp;upValue=businessAddClass&amp;table=class&amp;parentID=0&amp;groups=0&amp;isuser=0&amp;isselect=0');">&nbsp;&nbsp;&nbsp;</span>
   </li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 供求标题：</li>
   <li class="value"><input type="text" name="title" id="businessAddTitle" class="inpWidth" maxlength="200" onblur="check('供求标题',this.value,'businessAddTitleNote',0,0,2,200)" /></li>
   <li><span class="note" id="businessAddTitleNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 计量单位：</li>
   <li class="value"><input type="text" name="unit" id="businessAddUnit" class="inpWidth" maxlength="5" onblur="check('单位',this.value,'businessAddUnitNote',0,0,1,5)" /></li>
   <li><span class="note" id="businessAddUnitNote">如：件</span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 单价：</li>
   <li class="value"><input type="text" name="price" id="businessAddPrice" class="inpWidth" maxlength="9" onblur="check('单价',this.value,'businessAddPriceNote',0,1,1,9)" /></li>
   <li class="note"><span>元，洽谈请填：0</span><span id="businessAddPriceNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">图片：</li>
   <li class="value">
    <iframe name="upfile" src="upfile.asp?upValue=businessAddImage&amp;ismark=1&amp;ispre=1&amp;group=1" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="no" style="width:100%;height:24px;"></iframe> <br />
	<input type="text" name="image" id="businessAddImage" style="width:242px;height:17px;" /> 
	&nbsp;&nbsp;<input type="button" name="button" value="图库" onclick="getPage('windows.asp?action=images&amp;upValue=businessAddImage');" class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
   </li>
   <li><span class="note">建议尺寸:300 x 300</span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 供求内容：</li>
   <li>
    <textarea name="businessAddDetails" id="businessAddDetails" style="display:none"></textarea>
    <iframe name="editor" src="editor/anysale.htm?groups=@@@1@@@1@@@0@@@id=businessAddDetails" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="no" style="width:602px;height:318px;"></iframe>
   </li>
   <li><span class="note" id="businessAddDetailsNote"></span></li>
  </ul>
  <ul>
   <li class="name txtRig">有效期：</li>
   <li>
    <input type="radio" name="period" value="7" checked="checked" /> 一周    
    <input type="radio" name="period" value="15" /> 两周    
    <input type="radio" name="period" value="30" /> 一个月
    <input type="radio" name="period" value="90" /> 三个月
    <input type="radio" name="period" value="180" /> 半年
	<input type="radio" name="period" value="3650" /> 长期
   </li>
  </ul>
  <ul>
   <li class="name txtRig">关键字：</li>
   <li class="value"><input type="text" name="tags" id="businessAddTags" class="inpWidth" maxlength="250" onblur="check('关键字',this.value,'businessAddTagsNote',1,0,1,250)" /></li>
   <li><span class="note" id="businessAddTagsNote">多个关键字用,号隔开</span></li>
  </ul>
  <ul>
   <li class="name txtRig"><span class="red">*</span> 验证码：</li>
   <li class="value"><input type="text" name="passcode" id="businessAddPasscode" onfocus="setCode('businessAddCode','businessAddPasscodeNote');" onblur="checkCode('验证码',this.value,'businessAddPasscodeNote')" size="8" maxlength="4" /><span id="businessAddCode"></span></li>
   <li><span class="note" id="businessAddPasscodeNote"><strong>提示</strong>：点击文本框显示验证码</span></li>
  </ul>
  <ul>
   <li class="name">&nbsp;</li>
   <li>
    <input type="button" name="button" value="确 定" 
	onclick="if(
	check('供求标题',$('businessAddTitle').value,'businessAddTitleNote',0,0,2,200) && 
	check('单位',$('businessAddUnit').value,'businessAddUnitNote',0,0,1,5) &&
	check('单价',$('businessAddPrice').value,'businessAddPriceNote',0,1,1,9) &&
	check('内容',$('businessAddDetails').value,'businessAddDetailsNote',0,0) &&
	check('关键字',$('businessAddTags').value,'businessAddTagsNote',1,0,1,250) &&
	checkCode('验证码',$('businessAddPasscode').value,'businessAddPasscodeNote')
	){getPage('user/business.asp?action=saveAdd','businessAdd',1,'businessAddForm');};" 
	class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	<input type="hidden" name="index" value="<%=cint(request("index"))%>" />
   </li>
  </ul>
 </div>
</form>
<!---->
  </div>  
  </li>
 </ul>
 
</div>
<!--businessAdd.end-->
</div>
<%
end sub

sub edit()
dim sql, rs
if request("editID")="" or not isnumeric(request("editID")) then
	anysale.errWin("<li>请选择要修改的信息。</li>")
	exit sub
end if
	
sql = "select * from as_business where userID="&anysale.userID&" and businessID="&clng(request("editID"))
set rs=conn.execute(sql)
%>
 <ul ondblclick="zoom('businessItem','businessList','businessDetail','businessContent');">
  <li class="detailT">
   <span class="right">
	<a href="javascript:anysale();" class="iZoom" title="缩放" onclick="zoom('businessItem','businessList','businessDetail','businessContent');"></a>
    <a href="javascript:anysale();" class="iClose" title="关闭" onclick="hide('businessItem','businessList','businessDetail');"></a>
   </span>
   <h2>修改供求信息：<%=rs("title")%></h2>
  </li>
 </ul>
 <ul>
  <li>
  <div class="detailC" id="businessContent">
<!---->
<form name="businessEditForm" id="businessEditForm" method="post">
 <div class="list line30">
  <ul>
   <li class="name txtRig">所属分类：</li>
   <li class="value">
    <select name="channelID" id="businessChannelID">
	<%=anysale.IDSelect("channel",0,1,0,rs("channelID"))%>
	</select>
	&nbsp;&nbsp;<span class="iArr" style="cursor:pointer;" title="点击选择行业" onclick="getPage('windows.asp?action=clickID&amp;upValue=businessChannel&amp;table=channel&amp;parentID=0&amp;groups=1&amp;isuser=0&amp;isselect=0');">&nbsp;&nbsp;&nbsp;</span>