📄 admin_batch.asp
字号:
<option value="2">★★</option>
<option value="1">★</option>
<option value="0">无</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MHits" value="Yes"></td>
<td width="80" align="right"><strong>观看次数：</strong></td>
<td colspan="2">本日：
<input name="DayHits" type="text" id="DayHits" value="0" size="10" maxlength="10">
本周：
<input name="WeekHits" type="text" id="WeekHits" value="0" size="10" maxlength="10"><br />本月：
<input name="MonthHits" type="text" id="MonthHits" value="0" size="10" maxlength="10">
总计：
<input name="Hits" type="text" id="Hits" value="0" size="10" maxlength="10"></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MDownNums" value="Yes"></td>
<td width="80" align="right"><strong>下载次数：</strong></td>
<td colspan="2">本日：
<input name="DayDownNums" type="text" id="DayDownNums" value="0" size="10" maxlength="10">
本周：
<input name="WeekDownNums" type="text" id="WeekDownNums" value="0" size="10" maxlength="10"><br />本月：
<input name="MonthDownNums" type="text" id="MonthDownNums" value="0" size="10" maxlength="10">
总计：
<input name="DownNums" type="text" id="DownNums" value="0" size="10" maxlength="10"></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MInfoGroup" value="Yes"></td>
<td width="80" align="right"><strong>观看等级：</strong></td>
<td colspan="2">
<input name="InfoGroup" type="hidden" id="InfoGroup" value="5">
<input name="InfoGroupView" type="text" id="InfoGroupView" value="<%=Cl.GetUserGroupName(5)%>" size="65" onclick="SelectUserGroup('InfoGroup');" Readonly></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MDownLoadGroup" value="Yes"></td>
<td width="80" align="right"><strong>下载等级：</strong></td>
<td colspan="2">
<input name="DownLoadGroup" type="hidden" id="DownLoadGroup" value="5">
<input name="DownLoadGroupView" type="text" id="DownLoadGroupView" value="<%=Cl.GetUserGroupName(5)%>" size="65" onclick="SelectUserGroup('DownLoadGroup');" Readonly></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MInfoPoint" value="Yes">
<br><input type="checkbox" name="MInfoMoney" value="Yes"></td>
<td width="80" align="right"><strong>查看<%=Cl.Web_Setting(28)%>：</strong>
<br><strong>查看<%=Cl.Web_Setting(26)%>：</strong></td>
<td colspan="2">
<input name="InfoPoint" type="text" id="InfoPoint" value="0" size="8" maxlength="5" style="text-align: right;"> <%=Cl.Web_Setting(29)%> <font color="#0000FF">如果大于0，则用户查看此<%=Cl.Channel.selectSingleNode("@channelitemname").text%>时将消耗相应<%=Cl.Web_Setting(28)%>。</font>
<br><input name="InfoMoney" type="text" id="InfoMoney" value="0" size="8" maxlength="5" style="text-align: right;"> <%=Cl.Web_Setting(27)%> <font color="#0000FF">如果大于0，则用户查看此<%=Cl.Channel.selectSingleNode("@channelitemname").text%>时将消耗相应<%=Cl.Web_Setting(26)%>。</font>
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MDownLoadPoint" value="Yes">
<br><input type="checkbox" name="MDownLoadMoney" value="Yes"></td>
<td width="80" align="right"><strong>下载<%=Cl.Web_Setting(28)%>：</strong>
<br><strong>下载<%=Cl.Web_Setting(26)%>：</strong></td>
<td colspan="2">
<input name="DownLoadPoint" type="text" id="DownLoadPoint" value="0" size="8" maxlength="5" style="text-align: right;"> <%=Cl.Web_Setting(29)%> <font color="#0000FF">如果大于0，则用户下载此<%=Cl.Channel.selectSingleNode("@channelitemname").text%>时将消耗相应<%=Cl.Web_Setting(28)%>。</font>
<br><input name="DownLoadMoney" type="text" id="DownLoadMoney" value="0" size="8" maxlength="5" style="text-align: right;"> <%=Cl.Web_Setting(27)%> <font color="#0000FF">如果大于0，则用户下载此<%=Cl.Channel.selectSingleNode("@channelitemname").text%>时将消耗相应<%=Cl.Web_Setting(26)%>。</font>
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MBackPoint" value="Yes">
<br /><input type="checkbox" name="MBackMoney" value="Yes"></td>
<td width="80" align="right"><strong>回扣设置：</strong></td>
<td colspan="2">
<%=Cl.Web_Setting(28)%>：<input name="BackPoint" type="text" id="BackPoint" value="0" size="5" maxlength="3" style="text-align: right;"> <%=Cl.Web_Setting(29)%>＋<%=Cl.Web_Setting(28)%>的<input name="BackPointRate" type="text" id="BackPointRate" value="0" size="5" maxlength="2" style="text-align: right;">%<br />
<%=Cl.Web_Setting(26)%>：<input name="BackMoney" type="text" id="BackMoney" value="0" size="5" maxlength="3" style="text-align: right;"> <%=Cl.Web_Setting(27)%>＋<%=Cl.Web_Setting(26)%>的<input name="BackMoneyRate" type="text" id="BackMoneyRate" value="0" size="5" maxlength="2" style="text-align: right;">%<br /><font color="#0000FF">即当用户游览或下载此内容时，给予一定的回扣给添加者！</font>
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MMovieUrl" value="Yes"></td>
<td width="80" align="right"><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>地址：</strong></td>
<td colspan="2">字 符 串：<input name="CharString" type="text" id="CharString" size="60" maxlength="200">
<br />替 换 为：<input name="CharStringR" type="text" id="CharStringR" size="60" maxlength="200">
</td>
</tr>
</table>
<%
End Sub
Sub Batch_5()
dim rsCusTom,strCusTom
Dim sProductKind,sProductType,sUnit,sKeyword
Dim sProductKindV,sProductTypeV,sUnitV,sKeywordV
strCusTom=Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sProductKind=Split(strCusTom(0),"$")
sProductType=Split(strCusTom(1),"$")
sUnit=Split(strCusTom(2),"$")
sKeyword=Split(strCusTom(3),"$")
sProductKindV=Split(Cl.GotTopic(strCusTom(0),60),"$")
sProductTypeV=Split(Cl.GotTopic(strCusTom(1),60),"$")
sUnitV=Split(Cl.GotTopic(strCusTom(2),60),"$")
sKeywordV=Split(Cl.GotTopic(strCusTom(3),60),"$")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MKeyword" value="Yes"></td>
<td width="80" align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><input name="Keyword" type="text" id="Keyword" value="<%=sKeywordV(0)%>" size="65" maxlength="255"><br />
<font color="#808080">关 键 字：</font><font color="#0000FF"><%for i=0 to Ubound(sKeywordV)
Response.write "<a href=""javascript:ToValue('add','Keyword','|"&sKeywordV(i)&"')"">"&sKeyword(i)&"</a>"
if i<Ubound(sKeywordV) then Response.write "/"
next%></font> <font color=#66666>more...</font><br />
<font color="#0000FF">可输入多个关键字，中间用<font color="#FF0000">“|”</font>分开。不能出现""'*?,.()等字符。</font></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MProducer" value="Yes"><br /><input type="checkbox" name="MTrademarkName" value="Yes"></td>
<td width="80" align="right"><strong>开 发 商：<br />品牌商标：</strong></td>
<td colspan="2"><input name="Producer" type="text" id="Producer" value="" size="65" maxlength="50">
<br /><input name="TrademarkName" type="text" id="TrademarkName" value="" size="65" maxlength="30">
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MDiscount" value="Yes">
</td>
<td width="80" align="right"><strong>降价处理：</strong></td>
<td colspan="2">优惠期限：<input name='BeginDate' type='text' value='<%=date()%>' size='10' maxlength='10' onfocus="show_cele_date(BeginDate,'','',BeginDate)"> 至 <input name='EndDate' type='text' value='<%=date()%>' size='10' maxlength='10' onfocus="show_cele_date(EndDate,'','',EndDate)">
<br />折 扣 率：<input name='Discount' type='text' value='8' size='4' maxlength='4' style='text-align: center;'> 折 限购数量：<input name='LimitNum' type='text' value='0' size='5' maxlength='4' style='text-align: center;'>（0为不限制）
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MStockNum" value="Yes"></td>
<td width="80" align="right"><strong>库存数量：</strong></td>
<td colspan="2"><input name="StockNum" type="text" id="StockNum" value="" size="39" maxlength="39"> <font color="#FF0000">*</font> 库存报警下限：
<input name="AlarmNum" type="text" id="AlarmNum" value="0" size="8" maxlength="8">
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MOnTop" value="Yes"><br />
<input type="checkbox" name="MElite" value="Yes">
</td>
<td width="80" align="right"><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>性质：</strong></td>
<td colspan="2"><input name="OnTop" type="checkbox" id="OnTop" value="yes">
固顶<%=Cl.Channel.selectSingleNode("@channelitemname").text%><br />
<input name="Elite" type=checkbox id="Elite" value="yes">
推荐<%=Cl.Channel.selectSingleNode("@channelitemname").text%>
</td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MStars" value="Yes"></td>
<td width="80" align="right"><strong>评分等级：</strong></td>
<td colspan="2">
<select name="Stars" id="Stars">
<option value="5">★★★★★</option>
<option value="4">★★★★</option>
<option value="3" selected>★★★</option>
<option value="2">★★</option>
<option value="1">★</option>
<option value="0">无</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MHits" value="Yes"></td>
<td width="80" align="right"><strong>点击次数：</strong></td>
<td colspan="2"><input name="Hits" type="text" id="Hits" value="0" size="10" maxlength="10"></td>
</tr>
<tr class="tdbg">
<td width="30" align="center"><input type="checkbox" name="MUpdateTime" value="Yes"></td>
<td width="80" align="right"><strong>上架时间：</strong></td>
<td colspan="2"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=now()%>" maxlength="50"><br />
时间格式为“年-月-日 时:分:秒”，如：<font color="#0000FF">2003-5-12 12:32:47</font></td>
</tr>
</table>
<%
End Sub
Sub SaveBatch_1()
Dim BatchType,TempID,TempClassID,sSQL,rsB
BatchType=Trim(Request("BatchType"))
if Not IsNumeric(BatchType) then BatchType=1
BatchType =Cint(BatchType)
TempID =Trim(Request("InfoID"))
TempClassID =Trim(Request("ClassID"))
Dim MKeyword,MAuthorName,MCopyFrom,MPaginationType,MInfoGroup,MInfoPoint,MOnTop,MHot,MElite,MStars,MHits
Dim Keyword,AuthorName,CopyFromName,PaginationType,InfoGroup,InfoPoint,OnTop,Hot,Elite,Stars,Hits
Dim AuthorEmail,CopyFromUrl,MaxCharPerPage
Dim Author,CopyFrom
Dim MInfoMoney,MBackPoint,MBackMoney
Dim InfoMoney,BackPoint,BackPointRate,BackMoney,BackMoneyRate
MKeyword = Trim(Request("MKeyword"))
MAuthorName = Trim(Request("MAuthorName"))
MCopyFrom = Trim(Request("MCopyFrom"))
MPaginationType = Trim(Request("MPaginationType"))
MInfoGroup = Trim(Request("MInfoGroup"))
MInfoPoint = Trim(Request("MInfoPoint"))
MOnTop = Trim(Request("MOnTop"))
MHot = Trim(Request("MHot"))
MElite = Trim(Request("MElite"))
MStars = Trim(Request("MStars"))
MHits = Trim(Request("MHits"))
MInfoMoney = Trim(Request("MInfoMoney"))
MBackPoint = Trim(Request("MBackPoint"))
MBackMoney = Trim(Request("MBackMoney"))
Keyword = Trim(Request("Keyword"))
AuthorName = Trim(Request("AuthorName"))
AuthorEmail = Trim(Request("AuthorEmail"))
CopyFromName = Trim(Request("CopyFromName"))
CopyFromUrl = Trim(Request("CopyFromUrl"))
PaginationType = Cl.GetClng(Request("PaginationType"))
MaxCharPerPage = Cl.GetClng(Request("MaxCharPerPage"))
InfoGroup = Trim(Request("InfoGroup"))
InfoPoint = Cl.GetClng(Request("InfoPoint"))
OnTop = Trim(Request("OnTop"))
Hot = Trim(Request("Hot"))
Elite = Trim(Request("Elite"))
Stars = Cl.GetClng(Request("Stars"))
Hits = Cl.GetClng(Request("Hits"))
InfoMoney = Cl.GetClng(Request("InfoMoney"))
BackPoint = Cl.GetClng(Request("BackPoint"))
BackPointRate = Cl.GetClng(Request("BackPointRate"))
BackMoney = Cl.GetClng(Request("BackMoney"))
BackMoneyRate = Cl.GetClng(Request("BackMoneyRate"))
if KeyWord="" then
Cl.ShowErr("<br /><li>请输入文章关键字</li>")
else
Keyword=Cl.ReplaceBadChar(Keyword)
Keyword=Replace(Keyword,"||","|")
end if
if AuthorName="" and AuthorEmail="" then
Author="佚名"
else
if AuthorName<>"" then
Author=AuthorName
if AuthorEmail<>"" then
Author=Author & "|" & AuthorEmail
end if
end if
end if
if CopyFromName="" and CopyFromUrl="" then
CopyFrom="创力网"
else
if CopyFromName<>"" then
CopyFrom=CopyFromName
if CopyFromUrl<>"" then
CopyFrom=CopyFrom & "|" & CopyFromUrl
end if
end if
end if
if PaginationType=1 and MaxCharPerPage<1 then
Cl.ShowErr("<br /><li>请指定自动分页时的每页大约字符数，必须大于0</li>")
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -