<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="TaskConfig.asp"-->
<!--#include file="../HSK_Cls/HSK.MemberCls.asp"-->
<!--#include file="../Plus/md5.asp"-->
<%
Dim KSCls
Set KSCls = New AddTaskCls
KSCls.Run()
Set KSCls = Nothing

Class AddTaskCls
	Private HSK
	Private KS,KSUser,ID,ClassID,RS
	Private ComeUrl,LoginTF,Title,Action,I,Province,City
	
	Private Sub Class_Initialize()
		Set KS = New PublicCls
		Set KSUser = New UserCls
		Set HSK = CreateObject("ASP_AiCaiBa.AiCaiBa")
		Set HSK = HSK.AiCaiBa (TaskConfig,1001)
		Session(KS.SiteSN & "UserInfo") = Empty
	End Sub

	Private Sub Class_Terminate()
		Call CloseConn()
		Set KS=Nothing
		Set KSUser=Nothing
		HSK.Class_Terminate()
		Set HSK=Nothing
	End Sub
	
	Public Sub Run()
		ComeUrl=Request.ServerVariables("HTTP_REFERER")
		LoginTF=Cbool(KSUser.UserLoginChecked)
		IF LoginTF=false  Then
		  GCls.ComeUrl=ComeUrl	'GCls.GetUrl()
		  Response.Redirect("/user/login/")
		  Exit Sub
		End If
		IF KS.ChkClng(KSUser.GetUserInfo("KS_IDAuthentication")) <> 1 And SMS_IDAuthentication_Enabled = 1 Then
			KS.Alert "抱歉！\n\n为了营造一个真实、安全、高效的信誉互动平台，要求所有用户必需通过手机认证确认真实身份后，才可以发布任务，由于您的账号尚未通过手机认证，暂时不能发布任务，请点击确定按钮跳转到认证页面。","../User/User_IDAuthentication.asp"
		End IF
		IF KS.ChkClng(KSUser.GetUserInfo("KS_MaxXinYu")) > 0 Then
			IF Conn.Execute("Select Count(0) From KS_U_sxyrw Where Inputer='" & KSUser.UserName & "'")(0) >= KS.ChkClng(KSUser.GetUserInfo("KS_MaxXinYu")) Then
				KS.AlertHistory "抱歉！\n\n您发布任务数量已经达到"& KSUser.GetUserInfo("KS_MaxXinYu") &"条了，如需发布更多请联系客服！","-1"
			End IF
		End IF
		If KS.ChkClng(KSUser.GetUserInfo("KS_JinzhiFaBu")) = 1 Then
			KS.AlertHistory "抱歉！\n\n您当前被禁止发布任务，如需解除禁止请联系客服！","-1"
		End IF
		If KS.C_S(ChannelID,6)<>1 Then Response.End()
		IF TaskAddEnabled = 0 Then Call KS.AlertHistory(TaskAddCloseMsg,"-1")

		Action=KS.S("Action")
		Select Case Action
		 Case "Add","Edit"  Call AddTask()
		 Case "DoSave" Call HSK.DoSave()
		 Case Else  Call AddTask()
		End Select
	End Sub
	
	Sub AddTask()
%>
<!--#include file="Template/head.html"-->
<%
KS.Echo vbCrlf
KS.Echo "<script type=""text/javascript"">" & vbCrlf
KS.Echo "var Fabu_HongbaoDaifu_LimitShangBaoJieShou = " & Fabu_HongbaoDaifu_LimitShangBaoJieShou & ";" & vbCrlf
KS.Echo "var Fabu_LailuSearchPoint = " & KS.GetN(Fabu_LailuSearchPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_IsCollectPoint = " & KS.GetN(Fabu_IsCollectPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_IsModAddressPoint = " & KS.GetN(Fabu_IsModAddressPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_RealNameType1Point = " & KS.GetN(Fabu_RealNameType1Point,2) & ";" & vbCrlf
KS.Echo "var Fabu_RealNameType2Point = " & KS.GetN(Fabu_RealNameType2Point,2) & ";" & vbCrlf
KS.Echo "var Fabu_ShangBaoPoint = " & KS.GetN(Fabu_ShangBaoPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_LimitCityPoint = " & KS.GetN(Fabu_LimitCityPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_LimitBuyPoint = " & KS.GetN(Fabu_LimitBuyPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_WangWangChatPoint = " & KS.GetN(Fabu_WangWangChatPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_VerificUserPoint = " & KS.GetN(Fabu_VerificUserPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_BaseFilterPoint = " & KS.GetN(Fabu_BaseFilterPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_LimitUserNamePoint = " & KS.GetN(Fabu_LimitUserNamePoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_PlanAddDatePoint = " & KS.GetN(Fabu_PlanAddDatePoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_ContinueAddPoint = " & KS.GetN(Fabu_ContinueAddPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_DapeiMealPoint = " & KS.GetN(Fabu_DapeiMealPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_HongbaoDaifuSetPoint = " & KS.GetN(Fabu_HongbaoDaifuSetPoint,2) & ";" & vbCrlf
KS.Echo "var Fabu_HaoPingPoint = new Array(" & Fabu_HaoPingPoint & ");" & vbCrlf
KS.Echo "var Fabu_PriceAndPointCalc = new Array(" & Fabu_PriceAndPointCalc & ");" & vbCrlf
KS.Echo "</script>"
%>
<script type="text/javascript" src="/style/js/common_def.js"></script>
<script type="text/javascript" src="/style/js/ChkAddTask.js"></script>
<script type="text/javascript" src="/style/js/My97DatePicker/WdatePicker.js"></script>
<style type="text/css">
.center_tbl td {border-bottom:1px solid #E5F5FF; line-height:30px; height:32px; clear:both; background-color:#FFF}
.center_tbl tr:hover td{background-color:#EBF5FF}
.center_tbl2 td {border-bottom:1px solid #E0F0FF; line-height:30px; height:32px; clear:both; background-color:#F2FCFF}
.center_tbl2 tr:hover td{background-color:#FFFEEE}
.center_tbl .Lailu {border:1pt #71BBFF solid;}
.center_tbl .Lailu tr:hover td{background-color:#D7EBFF}
.AddTask{
	margin:0 auto;
	color:#106899;
	background-color:#FFFEEE;
	width:952px;
	border: 4px solid #FF8902;
	border-top: 0px;
	position: relative;
	padding-top:10px;
}
.AddTask .title{
	height: 33px;
	color: #F60;
	font-weight: bold;
	font-size: 14px;
	background-color: #39F;
	background-image: url(/style/images/w_b.gif);
	line-height: 33px;
}
.AddTask .function_title{
	height: 33px;
	color: #F60;
	font-weight: bold;
	font-size: 14px;
	background-color: #39F;
	background-image: url(/style/images/w_b_2.gif);
	line-height: 33px;
}
.AddTask .center{
	background-color:#fff;
	border:1px solid #FFDEB9;
	height: auto;
	margin: 0 10px 10px 10px;
}
.AddTask .Example{background:url(/style/images/ModAddress_Example.gif) no-repeat #FFF;}
.AddTask .getpwd{color:#B9B9B9; text-decoration:none}
.AddTask .getpwd:hover{color:#F00; text-decoration:underline}
</style>

<div class="clear"></div>
  <div class="task_content"> 
	<!-- 外框 -->
	<div class="taskHall">
	<ul class="task_tab">
        <li id="tab_m1" class="current"><a href="AddTask.asp"><span>发布任务</span></a></li>
      <li><a href="TaskFaBu.asp"><span>已发布任务</span></a></li>
      <li><a href="TaskJieShou.asp"><span>已接手任务</span></a></li>
      <li><a href="BinDing.asp"><span>绑定买卖号</span></a></li>
      <li><a href="TaskTemplate.asp"><span>任务模板</span></a></li>
      <li><a href="../user/User_Express_Buy.asp"><span>购买空包</span></a></li>
      </ul>
      <div class="clear"></div>

	<!-- 发布任务表单开始 -->

<%

'以下变量用于读取任务模板
Dim Title
Dim Tid
Dim Province
Dim City
Dim KS_ShopName
Dim KS_ProductUrl
Dim KS_ShopCartTF
Dim KS_LailuSearch,isLailuSearch,KS_LailuSearchItem,KS_LailuSearchKey,KS_LailuSearchTips,KS_LailuPhotoUrl
Dim KS_Price
Dim KS_Point
Dim KS_AddPoint
Dim KS_ModPriceTF
Dim KS_XuShiTF
Dim KS_HaoPingLimit
Dim KS_ShopDynamic
Dim isCollect
Dim KS_ModAddress
Dim KS_RealNameType
Dim KS_ShangBao
Dim KS_PayType
Dim KS_HaoPingContent
Dim KS_MessageRemind
Dim isLimitCity
Dim KS_LimitBuy
Dim KS_ChatTF
Dim KS_Verific
Dim BaseFilter
Dim isBaseFilter(3)
Dim KS_BaseFilter(3)
Dim KS_LimitUserName
Dim tplID : tplID = KS.ChkClng(KS.S("tplID"))
IF tplID <> 0 And tplID <> "" Then
	Dim tplRS:	Set tplRS=Server.CreateObject("ADODB.RECORDSET")
	tplRS.Open "Select * From TaskTemplate Where Inputer='" & KSUser.UserName & "' And ID="& tplID &"",Conn,1,1
	If Not tplRS.Eof Then
		Tid	  = tplRS("Tid")
		Title = tplRS("Title")
		Province = tplRS("Province")
		City = tplRS("City")
		KS_ShopName = tplRS("KS_ShopName")
		KS_ProductUrl = tplRS("KS_ProductUrl")
		KS_ShopCartTF = tplRS("KS_ShopCartTF")
		IF Not KS.IsNul(tplRS("KS_LailuSearch")) Then
			KS_LailuSearch = Split(tplRS("KS_LailuSearch") & "^%^", "^%^")	'新增搜索位置截图，为兼容老版本加多个^%^
			isLailuSearch		= KS_LailuSearch(0)
			KS_LailuSearchItem	= KS_LailuSearch(1)
			KS_LailuSearchKey	= KS_LailuSearch(2)
			KS_LailuSearchTips	= KS_LailuSearch(3)
			KS_LailuPhotoUrl	= KS_LailuSearch(4)
		End IF
		KS_PayType = KS.ChkClng(tplRS("KS_PayType"))
		KS_Price = tplRS("KS_Price")
		KS_Point = tplRS("KS_Point")
		KS_AddPoint = tplRS("KS_AddPoint")
		KS_ModPriceTF = tplRS("KS_ModPriceTF")
		KS_XuShiTF = tplRS("KS_XuShiTF")
		KS_HaoPingLimit = tplRS("KS_HaoPingLimit")
		KS_ShopDynamic = tplRS("KS_ShopDynamic")
		isCollect = tplRS("KS_CollectTF")
		'KS_CollectTag = tplRS("KS_CollectTag")
		KS_ModAddress = tplRS("KS_ModAddress")
		KS_RealNameType = tplRS("KS_RealNameType")
		KS_ShangBao = tplRS("KS_ShangBao")
		KS_HaoPingContent = tplRS("KS_HaoPingContent")
		KS_MessageRemind = tplRS("KS_MessageRemind")
		KS_LimitBuy = tplRS("KS_LimitBuy")
		KS_ChatTF = tplRS("KS_ChatTF")
		KS_Verific =  tplRS("KS_Verific")
		KS_LimitUserName = tplRS("KS_LimitUserName")
		BaseFilter = Split(tplRS("KS_BaseFilter"), ",")
		For i=0 to Ubound(BaseFilter)
			isBaseFilter(i+1)	= Split(BaseFilter(i), "|")(0)
			KS_BaseFilter(i+1)	= Split(BaseFilter(i), "|")(1)
		Next
	Else
		KS.Echo "<script>alert('系统提示：\n\n找不到你选择的模板！\n如有问题请联系管理员！谢谢！');</script>"
	End IF
	tplRS.Close
 	Set tplRS=Nothing
End IF
%>

<div class="AddTask">
<div class="center">
<form action="?Action=DoSave&ID=<%=KS.S("ID")%>" method="post" name="myform" id="myform" onSubmit="return CheckForm('<%=KSUser.GetUserInfo("Money")%>','<%=KSUser.GetUserInfo("Point")%>');">
<div id="tips" style="border-bottom:1px #E5F5FF solid; width:auto; height:auto; padding:10px; display:; background:url(/style/images/loudspeaker.gif) 10px center no-repeat; padding-left: 85px;">1.欢迎选择【<%= KS.Setting(0) %>】平台发布任务！ <a href="/html/ptgg/3964.html" target="_blank" class="orange">选择【<%= KS.Setting(0) %>】平台的18个理由</a><br />
  2.请把您店铺的商品发布出来，让平台刷客们帮您模拟真实购买你商品，从而快速提升你店铺的信誉值，请你生意更好；<br />
3.平台发布任务后，接手人拍下商品需要改价的任务，请立即到淘宝修改价格为任务的价格，修改价格不能低于50%，否则淘宝视为信用炒作处理；<br />
4.你账号下的存款和发布点不得少于任务的价格和发布点，成功发布任务后将会扣押相应的任务担保金和发布点；接手人完成您的任务要求后，担保金才会转到接手人账号。</div>


<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="center_tbl">
 <tr>
  <td colspan=2 align=center class="title">发 布 任 务</td>
 </tr>
 <tr>
   <td style="height:10px;background:#FFF;"></td>
   <td style="height:10px;background-color:#FFF;"></td>
 </tr>
 <tr class="tdbg">
   <td  height="25" align="right"><strong>从任务模板中创建：</strong></td>
   <td>&nbsp;<select name='fromTemplate' onchange='getTemplate(this);'><option value='0'>请选择任务模板</option>
<%   Dim RStpl:	Set RStpl=Server.CreateObject("ADODB.RECORDSET")
		 Dim tpl_TopNum
		 If KS.ChkClng(KSUser.GroupID) <> AdminGroupID And KS.ChkClng(KSUser.GroupID) <> UserGroupVipID Then	'非管理员和VIP
		 	tpl_TopNum = "TOP " & TemplateCommonUserNum
		 End If
         RStpl.Open "Select " & tpl_TopNum & " ID,TemplateName From TaskTemplate Where Inputer='" & KSUser.UserName & "'",Conn,1,1
         If Not RStpl.Eof Then
             Do While Not(RStpl.Eof) %><option value='<%=RStpl("ID")%>'<%if tplID=RStpl("ID") then Response.Write " selected='selected'"%>><%=RStpl("TemplateName")%></option>
        <%	 RStpl.MoveNext
             loop
         End If
         RStpl.Close
     Set RStpl=Nothing
     %></select> <span style="color:blue;margin-top:5px"> 你可以选择已存在的任务模板，快速轻松创建任务。 <a href="TaskTemplate.asp" target="_blank" class="orange">任务模板管理>></a></span></td>
 </tr>
 <tr class="tdbg">
  <td width="22%" height="28" align="right"><strong><span>任务区：</span></strong></td>
  <td width="78%">&nbsp;<select onChange='eval("Class" + this.value + "()");GetTitle()' name='ClassID' id='ClassID' style='width:100px'>
  <option pubtf='1'  value='20100598989251'<%if Tid="20100598989251" then Response.Write " selected='selected'"%>>淘宝任务</option>
  <option pubtf='1' value='20104912544927'<%if Tid="20104912544927" then Response.Write " selected='selected'"%>>通刷任务</option>
  <!-- <option pubtf='1' value='20107602754390'<%if Tid="20107602754390" then Response.Write " selected='selected'"%>>有啊任务</option> -->
</select></td>
 </tr>
 <tr class="tdbg">
   <td  height="28" align="right"><strong>选择掌柜名称：</strong></td>
   <td id="ShopNameFlag">
   <%
    Dim TidArr: TidArr = Array("20100598989251","20104912544927","20107602754390")	'定义任务区栏目的ID
    Dim RSSN,Scriptstr
    For I = 0 To Ubound(TidArr)
    Set RSSN=Server.CreateObject("ADODB.RECORDSET")
     RSSN.Open "Select ID,ShopName From MaiMaiUser Where UserName='" & KSUser.UserName & "' And Tid='" & TidArr(I) & "' And AccountType=2 And IsDel=0 And Status=0 And IsActivate=1",Conn,1,1
    If Not RSSN.Eof Then
        Scriptstr = ""
        Do While Not(RSSN.Eof)
            if Not KS.IsNul(Tid) And Tid=TidArr(I) then
            KS.Echo "<label><input type=""radio"" name=""KS_ShopName"" id=""KS_ShopName"" value='" & RSSN("ShopName") & "'"
            if Tid=TidArr(I) And KS_ShopName=RSSN("ShopName") then Response.Write " checked='checked'"
            KS.Echo " />" & RSSN("ShopName") & "</label> &nbsp; &nbsp; " & vbcrlf
            Scriptstr = Scriptstr & "<label><input type=""radio"" name=""KS_ShopName"" id=""KS_ShopName"" value=""" & RSSN("ShopName") & """ />" & RSSN("ShopName") & "</label> &nbsp; &nbsp; "
            else
                if KS.IsNul(Tid) And I=0 then
                KS.Echo "<label><input type=""radio"" name=""KS_ShopName"" id=""KS_ShopName"" value=""" & RSSN("ShopName") & """ />" & RSSN("ShopName") & "</label> &nbsp; &nbsp; " & vbcrlf
                Scriptstr = Scriptstr & "<label><input type=""radio"" name=""KS_ShopName"" id=""KS_ShopName"" value=""" & RSSN("ShopName") & """ />" & RSSN("ShopName") & "</label> &nbsp; &nbsp; "
                else
                Scriptstr = Scriptstr & "<label><input type=""radio"" name=""KS_ShopName"" id=""KS_ShopName"" value=""" & RSSN("ShopName") & """ />" & RSSN("ShopName") & "</label> &nbsp; &nbsp; "
                end if
            end if
        RSSN.MoveNext
        loop
        IF Scriptstr<>"" Then KS.Echo "<SCRIPT>function Class"& TidArr(I) &"(){ $('#ShopNameFlag').html('"& Scriptstr &"'); }</SCRIPT>" & vbcrlf
    Else
        if Tid=TidArr(I) Or (KS.IsNul(Tid) And I=0) then
        KS.Echo "您还没有在" & KS.C_C(TidArr(I),1) & "区绑定掌柜号，请点击 <a href=""BinDing.asp"" target=""_blank"" class=""red"">【绑定掌柜号】</a>"
        end if
        KS.Echo "<SCRIPT>function Class"& TidArr(I) &"(){ $('#ShopNameFlag').html('您还没有在" & KS.C_C(TidArr(I),1) & "区绑定掌柜号，请点击 <a href=""BinDing.asp"" target=""_blank"" class=""red"">【绑定掌柜号】</a>'); }</SCRIPT>"
    End If
    RSSN.Close
    Set RSSN=Nothing
    Next
%></td>
 </tr>
 <tr class="tdbg" height="28">
  <td align="right"><strong>使用购物车：</strong></td>
  <td><%
if KS.ChkClng(KSUser.GroupID) = AdminGroupID Or KS.ChkClng(KSUser.GroupID) = UserGroupVipID Or Fabu_ShopCartOpenVIP = 0 then	'VIP组
%><input type="checkbox" name="KS_ShopCartTF" id="KS_ShopCartTF" value="1" onClick="chkShopCart()"<%if KS_ShopCartTF=1 And (KS.ChkClng(KSUser.GroupID) = AdminGroupID Or KS.ChkClng(KSUser.GroupID) = UserGroupVipID Or Fabu_ShopCartOpenVIP = 0) then Response.Write " checked='checked'"%> /> <span style="color:blue;margin-top:5px"> 如果你想让接手方一次拍下你多件宝贝，那么请勾上！注：任务担保价格是购物车总价(含运费)。</span>
<% else %>
<input type="checkbox" name="KS_ShopCartTF" id="KS_ShopCartTF" value="0" disabled="disabled" /> <span style="color:blue;margin-top:5px"> 购物车功能只对VIP会员开放，<a href="/user/user_card.asp" target="_blank" class="orange">立即升级VIP会员>></a></span>
<% end if %></td>
 </tr>
 <tr class="tdbg" height="28">
  <td align="right"><strong>商品地址：</strong></td>
  <td>&nbsp;<span id="UrlChange"><%
  If KS_ShopCartTF = 1 And (KS.ChkClng(KSUser.GroupID) = AdminGroupID Or KS.ChkClng(KSUser.GroupID) = UserGroupVipID Or Fabu_ShopCartOpenVIP = 0) Then
  %><textarea style="width:500px;height:140px" rows="5" class="textbox" name="KS_ProductUrl" id="KS_ProductUrl" onblur='ChangePoint(getObj("KS_Price"));GetTitle()'><%= KS_ProductUrl %></textarea>&nbsp;<span style="color:blue;display:inline-block;height:50px;line-height:24px">购物车任务每行一个地址，回车换行<br />至少3条地址起，最多发布6条</span><%
  Else
  %><input name="KS_ProductUrl" type="text" maxlength="200" class="textbox" id="KS_ProductUrl" style="width:500px;height:20px" value="<%If Not KS.IsNul(KS_ProductUrl) Then KS.Echo Split(KS_ProductUrl,vbCrlf)(0) %>" onblur='ChangePoint(getObj("KS_Price"));GetTitle()' />&nbsp;<span style="color:blue;margin-top:5px">安全起见请尽量发布不同商品地址</span><%
  End If
  %></span></td>
 </tr>
 <tr class="tdbg" height="28">
   <td align="right"><strong>商品标题：</strong></td>
   <td>&nbsp;<input name="Title" id="Title" type="text" maxlength="50" class="textbox" style="width:440px;height:20px" value="<%=Title%>" /> 
     <span style="color:blue;margin-top:5px">方便接手人准确找到您商品<span class="red">(输入地址可自动获取)</span></span></td>
 </tr>
 <tr class="tdbg" height="28">
    <td align="right"><strong><font color="#FF6600">使用搜索来路：</font></strong></td>
    <td>
    <%
    if KS.ChkClng(KSUser.GroupID) = AdminGroupID Or KS.ChkClng(KSUser.GroupID) = UserGroupVipID Or Fabu_LailuSearchOpenVIP = 0 then	'VIP组
    %>
    <table width="99%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="26"><input type="checkbox" name="isLailuSearch" id="isLailuSearch" value="1" title="勾上表示启用" onClick="$('#LailuSearch').toggle()"<%if isLailuSearch=1 then Response.Write " checked='checked'"%><%if Fabu_Enabled_LailuSearch<>1 then Response.Write " disabled='disabled'"%> />
        </td>
        <td><span style="color:blue;margin-top:5px;line-height:22px">搜索来路是指接手方在淘宝首页搜索你店铺名或宝贝关键字进入你的店铺，模拟真实交易的同时使量子来路统计真实有效<%If Fabu_LailuSearchPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_LailuSearchPoint,2)%></font>个发布点奖励给接手方。<%End If%> 注：如果使用购物车，请在搜索提示框详细描述如何找到您宝贝</span>
          <table class="Lailu" id="LailuSearch" style="display:<%if isLailuSearch<>1 then Response.Write "none"%>;" width="99%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;<label><input name="KS_LailuSearchItem" id="KS_LailuSearchItem" type="radio" onClick="ChangeLailuSearchItem()" value="1" checked />淘宝店铺搜索来路 &nbsp; &nbsp;<span class="red">（接手方在淘宝搜索您的店铺关键字进入您网店）</span></label></td>
  </tr>
  <tr>
    <td>&nbsp;<label><input name="KS_LailuSearchItem" id="KS_LailuSearchItem" type="radio" onClick="ChangeLailuSearchItem()" value="2"<%if KS_LailuSearchItem=2 then Response.Write " checked='checked'"%> />淘宝宝贝搜索来路 &nbsp; &nbsp;<span class="red">（接手方在淘宝搜索您的宝贝关键字进入您网店）</span></label></td>
  </tr>
  <tr>
    <td>&nbsp;<label><input name="KS_LailuSearchItem" id="KS_LailuSearchItem" type="radio" onClick="ChangeLailuSearchItem()" value="3"<%if KS_LailuSearchItem=3 then Response.Write " checked='checked'"%> />淘宝信用评价来路 &nbsp; &nbsp;<span class="red">（接手方从买过你宝贝的买家信用评价页面访问您的宝贝地址）</span></label></td>
  </tr>
  <tr>
    <td>&nbsp;<label><input name="KS_LailuSearchItem" id="KS_LailuSearchItem" type="radio" onClick="ChangeLailuSearchItem()" value="4"<%if KS_LailuSearchItem=4 then Response.Write " checked='checked'"%> /><span class="orange">淘宝直通车来路</span>　 &nbsp; &nbsp;<span class="red">（接手方在淘宝搜索您的宝贝关键字，然后点击右边的直通车推广链接进入您网店）</span></label></td>
  </tr>
  <tr>
    <td>&nbsp;<label title="例如您在某货源网站打广告推广，可以填写该网站网址让接手人点击您广告连接进入你店铺"><input name="KS_LailuSearchItem" id="KS_LailuSearchItem" type="radio" onClick="ChangeLailuSearchItem()" value="5"<%if KS_LailuSearchItem=5 then Response.Write " checked='checked'"%> <%if KS.ChkClng(KSUser.GetUserInfo("KS_TotalScore")) < Fabu_MinScore Or KS.ChkClng(KSUser.GetUserInfo("KS_FaBuTaskCount")) < Fabu_MinScore then Response.Write " disabled=""disabled"" title=""新手不能使用本项功能（至少发布超过" & Fabu_MinScore & "条任务方可使用）"""%> /><span class="orange">指定网站来路</span>　　 &nbsp; &nbsp;<span class="red">（接手方在您指定的网站中点击您的宝贝链接进入您网店，例如在某货源网点击你的广告进入等等）</span></label></td>
  </tr>
  <tr>
    <td>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr height="28">
        <td width="130" align="right" nowrap="nowrap"><strong><span id="LailuKey">搜索店铺关键字：</span></strong>&nbsp;</td>
        <td><input name="KS_LailuSearchKey" id="KS_LailuSearchKey" type="text" maxlength="60" style="width:390px;height:20px" value="<%= KS_LailuSearchKey %>" /><br />
        <span id="LailuKeyTips" style="color:blue;margin-top:5px">输入您的店铺名称或者你的掌柜名称，确保接手人在淘宝可以搜索到你的店铺</span>
        </td>
      </tr>
      <tr height="28">
        <td align="right"><strong><span id="LailuTips">搜索提示：</span></strong>&nbsp;</td>
        <td><input name="KS_LailuSearchTips" id="KS_LailuSearchTips" type="text" maxlength="80" style="width:390px;height:20px" value="<%= KS_LailuSearchTips %>" /><br />
        <span id="LailuTips2" style="color:blue;margin-top:5px">填写给接手人的提示，说明店铺在关键字搜索结果列表中的位置，商品在店铺首页中大概位置等信息，例如：店铺在搜索结果列表第二个，商品在我店铺首页第二排第一个等等提示</span>
        </td>
      </tr>
      <tr height="28">
        <td align="right"><strong><span id="LailuJieTu">店铺链接位置截图：</span></strong>&nbsp;</td>
        <td><script language="javascript">function CheckClassID(){return true;}
        function insertHTMLToEditor(codeStr){}
        </script><input name='PhotoUrl' type='text' id='PhotoUrl' value="<%= KS_LailuPhotoUrl %>" maxlength="150" style="width:390px;height:20px" title="没有图片请保留空" />&nbsp;<iframe  id='UpPhotoFrame' name='UpPhotoFrame' src='/User/User_UpFile.asp?ChannelID=1' frameborder="0" scrolling="No"  width='146' height='22' align="absmiddle"></iframe><br />
        <span style="color:blue;margin-top:5px">可以用QQ截图功能把目标链接位置截图并保存到你的电脑，再上传图片方便接手人查看链接所在位置</span>
        </td>
      </tr>
    </table>
    </td>
   </tr>
   </table>
        </td>
      </tr>
    </table>
    <%	If isLailuSearch=1 Then KS.Echo "<script>ChangeLailuSearchItem();</script>"
    else
        KS.Echo "<input type=""checkbox"" name=""isLailuSearch"" id=""isLailuSearch"" value=""0"" disabled=""disabled"" /> <span style=""color:blue;margin-top:5px""> 搜索来路功能只对VIP会员开放，<a href=""/user/user_card.asp"" target=""_blank"" class=""orange"">立即升级VIP会员>></a></span>"
    end if %>
    </td>
  </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>支付方式：</strong></td>
      <td><div class="newRadio" id="newRadio">
	  <a class="radioCurr" onClick="ChangeRadio('newRadio',1)" title="接手方拍下宝贝并直接付款！">接手方支付<input name="payType" type="radio" id="payType" value="1" checked></a>
	  <a onClick="ChangeRadio('newRadio',2)" title="接手方需要联系您获取红包卡密，拍下宝贝后用红包支付">红包支付<input name="payType" type="radio" id="payType" value="2"></a>
	  <a onClick="ChangeRadio('newRadio',3)" title="接手方拍下宝贝后，支付时选择【找人代付】，输入您的支付宝号由您代付">发布方代付<input name="payType" type="radio" id="payType" value="3"></a></div><span style="color:blue;"> &nbsp;选择红包支付或发布方代付，发布任务不用押扣任务资金，只需填写任务担保价格即可</span>
      </td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>任务担保价格：</strong></td>
      <td>&nbsp;<input type="text" maxlength="7" class="textbox" style="width:80px" name="KS_Price" id="KS_Price" value="<%= KS_Price %>" onBlur="ChangePoint(this)" onKeyPress= "return regInput(this,/^\d*\.?\d{0,2}$/,String.fromCharCode(event.keyCode))" onpaste="return regInput(this,/^\d*\.?\d{0,2}$/,window.clipboardData.getData('Text'))" ondrop="return regInput(this,    /^\d*\.?\d{0,2}$/,event.dataTransfer.getData('Text'))" title="请输入宝贝(+邮费)总价格" /> 
        元 <font color=red>您账户余额：<%=formatnumber(KSUser.GetUserInfo("Money"),2,-1)%> 元<% if KS.ChkClng(KSUser.GetUserInfo("Money"))<1 Then KS.Echo " <a href=""/user/user_payonline.asp"" target=""_blank"" class=""orange""><b>我要充值>></b></a>&nbsp; "%></font> &nbsp; <span style="color:blue;margin-top:5px">担保价格 = 你淘宝的宝贝价格(或改价后价格) + 邮费的总价</span>
      </td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>基本发布点：</strong></td>
      <td>&nbsp;<input type="text" maxlength="5" class="textbox" style="width:80px;background-color:#E6E6E6;" title="自动计算，不可手工输入" name="KS_Point" id="KS_Point" readonly="readonly" value="<%= KS_Point %>" /> 点 <font color=red>您的剩余发布点：<%=formatnumber(KSUser.GetUserInfo("Point"),2,-1)%> 点<% if KS.ChkClng(KSUser.GetUserInfo("Point"))<1 Then KS.Echo " <a href=""/User/User_Card.asp"" target=""_blank"" class=""orange""><b>购买发布点>></b></a>&nbsp; "%></font> &nbsp; <a href="/html/ptgg/3950.html" target="_blank" class="orange">查看商品价格与发布点对应关系&gt;&gt;</a>
      </td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>大厅竞价排名追加发布点：</strong></td>
      <td>&nbsp;<input type="text" maxlength="4" class="textbox" style="width:80px" name="KS_AddPoint" id="KS_AddPoint" value="<%If KS_AddPoint>0 Then Response.Write FormatNumber(KS_AddPoint,1,-1) %>" onKeyPress= "return regInput(this,/^\d*\.?\d{0,1}$/,String.fromCharCode(event.keyCode))" onpaste="return regInput(this,/^\d*\.?\d{0,1}$/,window.clipboardData.getData('Text'))" ondrop="return regInput(this,/^\d*\.?\d{0,1}$/,event.dataTransfer.getData('Text'))" title="输入格式如：0.5 或 1" /> 点 <span style="color:blue;margin-top:5px">追加发布点数越多，你的任务在大厅排名越靠前，越快被人接手，刷钻效率越高</span></td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>宝贝是否需要改价：</strong></td>
      <td><input type="checkbox" name="KS_ModPriceTF" id="KS_ModPriceTF" value="1" title="勾上表示商品需要改价"<%if KS_ModPriceTF=1 then Response.Write " checked='checked'"%>  />
    <span style="color:blue;margin-top:5px"> 如果接手方拍下你宝贝后还需要修改宝贝价格，请勾上。（例如你改价后的商品价格+邮费=100元，担保价必须也是100元）</span></td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>任务类型：</strong></td>
      <td><label title="注意：店铺有开启自动发货功能的卖家请关闭该功能，否则会造成资金损失！"><input name="KS_XuShiTF" id="KS_XuShiTF" type="radio" value="0" onClick="checkType(0)"<%if KS_XuShiTF="0" then Response.Write " checked='checked'"%> />
      虚拟</label>&nbsp;<img src="/style/images/virtual.gif" align="absmiddle" />&nbsp;&nbsp;&nbsp;
      <label><input name="KS_XuShiTF" id="KS_XuShiTF" type="radio" value="1"  onclick="checkType(1)"<%if KS_XuShiTF=1 then Response.Write " checked='checked'"%> />
      实物</label>&nbsp;<img src="/style/images/realobject.gif" align="absmiddle" />&nbsp;&nbsp;&nbsp;
      <label title="套餐任务发布点=基本发布点 + <%=Fabu_DapeiMealPoint%>个"><input name="KS_XuShiTF" id="KS_XuShiTF" type="radio" value="2"  onclick="checkType(1)"<%if KS_XuShiTF=2 then Response.Write " checked='checked'"%> />
      套餐</label>&nbsp;<img src="/style/images/dapei.gif" title="套餐任务发布点=基本发布点 + <%=Fabu_DapeiMealPoint%>个" align="absmiddle" /><span class="orange">（套餐任务需额外加 <%=Fabu_DapeiMealPoint%> 个发布点）</span></td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>好评要求时限：</strong></td>
      <td><p><% Dim hp: hp = Split(Replace(Replace(Fabu_HaoPingPoint,"'",""),"+"," + "),",") %>
        <select name="KS_HaoPingLimit" id="KS_HaoPingLimit" onChange="checkType(2)">
          <option value="1" selected="selected">马上好评</option>
          <option value="2"<%if KS_HaoPingLimit=2 then Response.Write "  selected='selected'"%>>30分钟后好评（接手方30分钟后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(0)%>）</option>
          <option value="3"<%if KS_HaoPingLimit=3 then Response.Write "  selected='selected'"%>>1天后好评（接手方1天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(1)%>）</option>
          <option value="4"<%if KS_HaoPingLimit=4 then Response.Write "  selected='selected'"%>>2天后好评（接手方2天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(2)%>）</option>
          <option value="5"<%if KS_HaoPingLimit=5 then Response.Write "  selected='selected'"%>>3天后好评（接手方3天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(3)%>）</option>
          <option value="6"<%if KS_HaoPingLimit=6 then Response.Write "  selected='selected'"%>>4天后好评（接手方4天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(4)%>）</option>
          <option value="7"<%if KS_HaoPingLimit=7 then Response.Write "  selected='selected'"%>>5天后好评（接手方5天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(5)%>）</option>
          <option value="8"<%if KS_HaoPingLimit=8 then Response.Write "  selected='selected'"%>>6天后好评（接手方6天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(6)%>）</option>
          <option value="9"<%if KS_HaoPingLimit=9 then Response.Write "  selected='selected'"%>>7天后好评（接手方7天后才可以收货，所需发布点 = 基本发布点 &times; <%=hp(7)%>）</option>
        </select>
      </p>
        </td>
      </tr>
      <tr class="tdbg" height="28">
        <td align="right"><strong>指定好评内容：</strong></td>
        <td><table border="0" cellpadding="0" cellspacing="0">
        <tr><td>&nbsp;<textarea style="width:270px;height:50px" rows="4" class="textbox" name="KS_HaoPingContent" id="KS_HaoPingContent"><%= KS_HaoPingContent %></textarea></td><td>&nbsp;
            <select name="HaoPingYu" id="HaoPingYu" onChange="setValue('KS_HaoPingContent',this.options[this.selectedIndex].value)">
              <option selected="selected">=============  您可以在这里快速选择常用的评语  =============</option>
              <%
              Dim Content,CI
              Content = KS.ReadFromFile("评语#.txt")
              IF Not KS.IsNul(Content) Then
                 Content = Split(Content,vbCrlf)
                 For CI = 0 To UBound(Content)
				 	IF Not KS.IsNul(Trim(Content(CI))) Then
						IF Left(Content(CI),4) = "【分类】" Then
							KS.Echo "<optgroup label=""" & Replace(Content(CI),"【分类】","") & """></optgroup>" & vbcrlf
						Else
							KS.Echo "<option value=""" & Content(CI) & """>" & Left(Content(CI),30) & "</option>" & vbcrlf
						End IF
					End IF
                 Next
              End If
              %>
            </select>
          <p>&nbsp; <span style="color:blue;margin-top:5px">您可以在此要求接手方好评时填写指定的内容,留空表示不带字好评。</span>
        </td></tr>
        </table></td>
    </tr>
	<tr class="tdbg" height="28">
      <td align="right" width="19%"><strong>平台留言提醒：</strong></td>
      <td><table border="0" cellpadding="0" cellspacing="0">
        <tr><td>&nbsp;<textarea style="width:270px;height:50px" rows="4" name="KS_MessageRemind" id="KS_MessageRemind" readonly="readonly" title="不可手工输入，请选择旁边常用留言，如没有你想要的留言，请联系客服帮你增加上。"><%= KS_MessageRemind %></textarea></td><td>&nbsp;
      		<select name="HaoPingYu" id="HaoPingYu" onChange="setValue('KS_MessageRemind',getObj('KS_MessageRemind').value + this.options[this.selectedIndex].value);if(getObj('KS_MessageRemind').value.substr(0,1)=='，'){setValue('KS_MessageRemind',getObj('KS_MessageRemind').value.substr(1,50));};if(this.options[this.selectedIndex].value=='清空'){setValue('KS_MessageRemind','');}">
              <option selected="selected">=============  您可以在这里快速选择常用的留言  =============</option>
              <option value="清空">====== 清空留言内容 ======</option>
              <%
              Content = KS.ReadFromFile("留言#.txt")
              IF Not KS.IsNul(Content) Then
                 Content = Split(Content,vbCrlf)
                 For CI = 0 To UBound(Content)
                    IF Not KS.IsNul(Trim(Content(CI))) Then
                        KS.Echo "<option value=""，" & Content(CI) & """>" & Left(Content(CI),30) & "</option>" & vbcrlf
                    End IF
                 Next
              End If
              Content = null
              %>
            </select><p>&nbsp; <span style="color:blue;margin-top:5px">您可以在此给接手方留言提醒，比如简单地描述下接手任务的要求或条件等。</span>
            </td></tr>
        </table></td>
    </tr>
    <tr class="tdbg" height="28">
      <td align="right"><strong>商铺动态评分：</strong></td>
      <td><label><input name='KS_ShopDynamic' type='radio' value='5' id='KS_ShopDynamic' checked='checked' />全部5分</label>&nbsp;&nbsp;<label><input name='KS_ShopDynamic' type='radio' value='0' id='K S_ShopDynamic'<%if KS_ShopDynamic="0" then Response.Write " checked='checked'"%> />全部不打分</label>
    &nbsp; &nbsp;　<span style="color:blue;margin-top:5px">掌柜店铺动态评分，请全给对方打5分</span></td>
    </tr>
	<tr>
	  <td colspan="2" height="28" align="center" onClick="chkshow();" style="cursor:pointer;" title="点击展开/收缩" class="function_title"><strong><font color="#0000FF"> 任务增值功能区</font></strong><font color="red"> &nbsp; 增值功能区中的功能需要额外支付发布点，请根据需求选择。  </font> &nbsp; &nbsp; &nbsp; <span id="showfont"><strong>点击收缩↑</strong></span></td>
    </tr>
   </table>
        <div id="trfunction" style="display:block;">
        <script language="javascript">autoshow();</script>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="center_tbl2">
 <tr class="tdbg" height="28">
	<td width="22%" align="right"><strong><font color="red">手机拍单：</font></strong></td>
	<td><input name="isCollect" type="checkbox" id="isCollect" value="1"  title="勾上才启用"<%if isCollect=1 then KS.Echo " checked='checked'"%> /> <span style="color:blue;margin-top:5px">要求接手方通过手机、PAD等智能设备的淘宝客户端下单购买<%If Fabu_IsCollectPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_IsCollectPoint,2)%></font>个发布点奖励给接手方<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
	<td width="22%" align="right"><img src="/style/images/ShangBao.gif" width="20" height="20" align="absmiddle" /> <strong><font color="red">商家保障：</font></strong></td>
	<td><%
if KS.ChkClng(KSUser.GroupID) = AdminGroupID Or KS.ChkClng(KSUser.GroupID) = UserGroupVipID Or Fabu_ShangBaoOpenVIP = 0 Or Fabu_HongbaoDaifu_LimitShangBaoJieShou=1 then	'VIP组
%><input name="isShangBao" type="checkbox" id="isShangBao" value="1"  title="勾上才启用"<%if KS_ShangBao=1 then KS.Echo " checked=""checked"""%> /> <span style="color:blue;margin-top:5px">要求接手人缴纳保证金加入平台商保服务的用户才可以接手此任务<%If Fabu_ShangBaoPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_ShangBaoPoint,2)%></font>个发布点奖励给接手方<%End If%></span>
<%else%>
<input name="isShangBao" type="checkbox" id="isShangBao" value="1"  title="勾上才启用" disabled="disabled" /> <span style="color:blue;margin-top:5px"> 商家保障功能只对VIP会员开放，<a href="/user/user_card.asp" target="_blank" class="orange">立即升级VIP会员>></a></span>
<%end If%>
</td>
</tr>
 <tr class="tdbg" height="28">
	<td align="right"><strong><font color="red">指定收货地址：</font></strong></td>
	<td><input name="isModAddress" type="checkbox" id="isModAddress" value="1"  title="勾上才启用"<%if Not KS.IsNul(KS_ModAddress) then KS.Echo " checked='checked'"%> /> <input type="text" style="width:600px;height:18px" name="KS_ModAddress" id="KS_ModAddress"<%if KS.IsNul(KS_ModAddress) then KS.Echo " class=""Example"""%> value="<%=KS_ModAddress%>" onFocus="this.className='';" onBlur="if(this.value==''){this.className='Example';}" maxlength="200" /><br><span style="color:blue;margin-top:5px; margin-left:26px">要求接手方拍下宝贝时收货地址按上面指定的收货地址填写<%If Fabu_IsModAddressPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_IsModAddressPoint,2)%></font>个发布点奖励给接手方<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
	<td width="22%" align="right"><strong><font color="red">实名认证买号：</font></strong></td>
	<td><%
if KS.ChkClng(KSUser.GroupID) = AdminGroupID Or KS.ChkClng(KSUser.GroupID) = UserGroupVipID Or Fabu_RealNameShopOpenVIP = 0 then	'VIP组
%><input name="isRealNameShop" type="checkbox" id="isRealNameShop" value="1"  title="勾上才启用"<%if KS_RealNameType<>0 then KS.Echo " checked=""checked"""%> /> <div style="display:none">
    <input type="radio" name="KS_RealNameType" value="1" id="isReal_1"<%if KS_RealNameType<>2 then KS.Echo " checked=""checked"""%> /><label for="isReal_1">普通实名认证买号</label> &nbsp;
    <input type="radio" name="KS_RealNameType" value="2" id="isReal_2"<%if KS_RealNameType=2 then KS.Echo " checked=""checked"""%> /><label for="isReal_2">掌柜号（开店铺的账号）</label> 
	<br></div><span style="color:blue;margin-top:5px;">要求接手买号必须是通过支付宝实名认证才可以接手此任务<%If Fabu_RealNameType1Point>0 Or Fabu_RealNameType2Point>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_RealNameType1Point,2)%></font>个发布点奖励给接手方<%End If%></span>
<%else%>
<input name="isRealNameShop" type="checkbox" id="isRealNameShop" value="1"  title="勾上才启用" disabled="disabled" /> <span style="color:blue;margin-top:5px"> 实名认证买号功能只对VIP会员开放，<a href="/user/user_card.asp" target="_blank" class="orange">立即升级VIP会员>></a></span>
<%end If%>
</td>
</tr>
<tr class="tdbg" height="28">
	<td align="right"><strong><font color="green">指定某地区接手：</font></strong></td>
	<td><input name="isLimitCity" type="checkbox" id="isLimitCity" value="1"  title="勾上才启用&#13;&#10;Tips:如果你只想指定某个省份接手，只需要选择省份即可，不需要选择市；也可以具体指定到某个省某个市接手"<%if Fabu_Enabled_LimitArea<>1 then Response.Write " disabled='disabled'"%> /> 
  <script src="../plus/area.asp" type="text/javascript"></script>
 <input name="isMultiple" type="checkbox" onClick="ChangeMultiple()" />多选  <span style="color:blue;margin-top:5px">例如你指定北京和上海用户才可以接手，这样可避免重复用户交易<%If Fabu_LimitCityPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_LimitCityPoint,2)%></font>个发布点<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
  <td align="right"><strong>限制用户不重复接手：</strong></td>
  <td><input name="KS_LimitBuy" type="checkbox" id="KS_LimitBuy" value="1"<%if KS_LimitBuy=1 then Response.Write " checked='checked'"%> /> <span style="color:blue;margin-top:5px">限制同一天内接手人不允许重复接手相同掌柜的任务<%If Fabu_LimitBuyPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_LimitBuyPoint,2)%></font>个发布点<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
  <td align="right"><strong>需要旺旺聊天：</strong></td>
  <td><input type="checkbox" id="KS_ChatTF" value="1" name="KS_ChatTF"<%if KS_ChatTF=1 then Response.Write " checked='checked'"%><%If Fabu_Enabled_WangWangChat<>1 then Response.Write " disabled='disabled'"%> /> <span style="color:blue;margin-top:5px">要求接手方先在旺旺上聊几句，作为交易的依据<%If Fabu_WangWangChatPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_WangWangChatPoint,2)%></font>个发布点奖励给接手方<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
  <td align="right"><strong>审核接手人：</strong></td>
  <td><input name="KS_Verific" type="checkbox" id="KS_Verific" value="1"<%if KS_Verific=1 then Response.Write " checked='checked'"%> /> 
  <span style="color:blue;margin-top:5px">接手方接您任务后，要您审核后才可以看到商品地址<%If Fabu_VerificUserPoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_VerificUserPoint,2)%></font>个发布点奖励给接手方<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
    <td align="right"><strong>基础过虑：</strong></td>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="26"><input name="isBaseFilter1" type="checkbox" id="isBaseFilter1" value="1" title="勾上才启用"<%if isBaseFilter(1)=1 then Response.Write " checked='checked'"%> /></td>
    <td width="160">接手人经验积分不低于：</td>
    <td width="190"><input type="radio" name="KS_BaseFilter1"  value="50" checked />
            50　 
              <input type="radio" name="KS_BaseFilter1" value="200"<%if KS_BaseFilter(1)=200 then Response.Write " checked='checked'"%> />
            200　<input type="radio" name="KS_BaseFilter1" value="400"<%if KS_BaseFilter(1)=400 then Response.Write " checked='checked'"%> />
            400</td>
    <td rowspan="3"><span style="color:blue;margin-top:5px">您可以根据自己需求设置接手条件，系统将自动为您过滤掉不符合条件的接手人。<%If Fabu_BaseFilterPoint>0 Then%>每项过滤条件需额外支付<font color=red><%=KS.GetN(Fabu_BaseFilterPoint,2)%></font>个发布点<%End If%></span></td>
  </tr>
  <tr>
    <td><input name="isBaseFilter2" type="checkbox" id="isBaseFilter2" value="1" title="勾上才启用"<%if isBaseFilter(2)=1 then Response.Write " checked='checked'"%> /></td>
    <td>接手人信用满意度不低于：</td>
    <td><input name="KS_BaseFilter2" type="radio" value="100"<%if KS_BaseFilter(2)=100 then Response.Write " checked='checked'"%> />
      100% <input name="KS_BaseFilter2" type="radio" value="95"<%if KS_BaseFilter(2)=95 then Response.Write " checked='checked'"%> />
      95%&nbsp;&nbsp; <input name="KS_BaseFilter2" type="radio" value="90"<%if KS_BaseFilter(2)<>100 And KS_BaseFilter(2)<>95 then Response.Write " checked='checked'"%> />
      90%</td>
    </tr>
  <tr>
    <td><input name="isBaseFilter3" type="checkbox" id="isBaseFilter3" value="1" title="勾上才启用"<%if isBaseFilter(3)=1 then Response.Write " checked='checked'"%> /></td>
    <td>接手人被拉黑名单数不大于：</td>
    <td><input type="radio" name="KS_BaseFilter3" value="0"<%if KS_BaseFilter(3)="0" then Response.Write " checked='checked'"%> />
      0　　
      <input type="radio" name="KS_BaseFilter3" value="3"<%if KS_BaseFilter(3)<>"0" And KS_BaseFilter(2)<>"10" then Response.Write " checked='checked'"%> />
      3　　&nbsp;<input type="radio" name="KS_BaseFilter3" value="10"<%if KS_BaseFilter(3)=10 then Response.Write " checked='checked'"%> />
      10</td>
    </tr>
</table>
</td>
</tr>
<tr class="tdbg" height="28">
  <td align="right"><strong><font color="#FF6600">指定任务接手人：</font></strong></td>
  <td>&nbsp;<input type="text" maxlength="20" class="textbox" style="width:120px" name="KS_LimitUserName" id="KS_LimitUserName" value="<%=KS_LimitUserName%>" onBlur="chk_username();" onKeyUp="chk_username();" onpaste="chk_username();" /> 
    <span style="color:blue;margin-top:5px" id="UserNameMsg">例如你只希望给 hao123 用户接手，就输入接手方的登录账号<%If Fabu_LimitUserNamePoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_LimitUserNamePoint,2)%></font>个发布点<%End If%></span></td>
</tr>
<tr class="tdbg" height="28">
  <td align="right"><strong>计划发布时间：</strong></td>
  <td><input name="isPlanAddDate" type="checkbox" id="isPlanAddDate" value="1"  title="勾上才启用" onClick="chkPlanAdd()" /> <input type="text" style="width:150px" name="KS_PlanAddDate" id="KS_PlanAddDate"  class="textbox" onClick="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:ss'});" readonly="readonly" />
  <span style="color:blue;margin-top:5px">设定任务计划发布的时间，只有到设定的时间后才显示在任务大厅<%If Fabu_PlanAddDatePoint>0 Then%>，需额外支付<font color=red><%=KS.GetN(Fabu_PlanAddDatePoint,2)%></font>个发布点<%End If%></span></td>
</tr>
<tr class="tdbg">
  <td height="28" align="right"><strong><font color="red">计划批量发布任务：</font></strong></td>
  <td height="28"><input name="isContinueAdd" type="checkbox" id="isContinueAdd" value="1" title="勾上才启用" onClick="chkContinueAdd()" /> 批量发布<input type="text" maxlength="2" class="textbox" style="width:40px" name="ContinueAddNum" id="ContinueAddNum" value="5" title="请输入整数，例如 5&#13;&#10;表示5条" />条任务 &nbsp; 间隔<input type="text" maxlength="2" class="textbox" style="width:40px" name="ContinueAddTime" id="ContinueAddTime" value="10" title="请输入整数，例如 10&#13;&#10;表示10分钟"/>分钟自动发布下一条 &nbsp; <span style="color:blue;margin-top:5px"><%If Fabu_ContinueAddPoint>0 Then%>需额外支付<font color=red><%=KS.GetN(Fabu_ContinueAddPoint,2)%></font>个发布点<%End If%></span></td>
</tr>
</table>
</div>

<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0" class="center_tbl2">
 <tr class="tdbg">
  <td width="22%" height="28" align="right"><strong><font color="#FF00FF">将本次任务保存为模板：</font></strong></td>
  <td height="28"><input type='checkbox' name='istpl' id='istpl' value='1' title="勾上才启用"> 模板名称：<input type="text" maxlength="20" class="textbox" style="width:120px" name="tplName" id="tplName" value="" title="请输入任务模板的名称（根据自己喜好输入）&#13;&#10;Tips:普通用户最多可保存<%=TemplateCommonUserNum%>个任务模板，VIP用户可无限保存任务模板" /> 
  <span class="orange rough">发布任务同时将该任务保存到任务模板中，方便下次发同样任务</span></td>
 </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
 <tr><% IF KS.IsNul(KS.R(Trim(KS.C("SecurityCode")))) Then %>
   <td width="50%" height="80" align="right"><a href="/User/GetPassword.asp?GetPassType=2" target="_blank" class="getpwd" title="找回安全密码，请不要设置过于简单，以免被暴力破解">（忘记？点我找回）</a><strong>安全密码：</strong><input style="width:120px;" type="password" id="SecurityCode" maxlength="30" name="SecurityCode" value="" title="安全密码主要用于资金流转、账户安全二层保护作用。&#13;&#10;注：安全密码不是登录密码，只需第一次输入。" /> &nbsp; &nbsp; &nbsp; </td>
   <td height="80" align="left"><% Else
   KS.Echo "<td height=""80"" align=""center"">"
   End IF %>
<input type="hidden" name="Total_Point" id="Total_Point" value="" />
<input type="hidden" name="Total_Price" id="Total_Price" value="" />
<input type="hidden" name="KS_ProductCount" id="KS_ProductCount" value="" />
<input type="image" name="submit_bt" id="submit_bt" src="/style/images/ConfirmButton_2.gif" align="absmiddle" /></td>
 </tr>
</table>
  </form>
     </div>
  </div>
</div>
<%If KS_PayType > 1 Then KS.Echo "<script language=""javascript"">ChangeRadio('newRadio'," & KS_PayType & ");</script>"%>

<!-- 发布任务表单结束 -->
</div>

<!--#include file="Template/foot.html"-->
<%
End Sub

End Class
%>