📄 admin_collecting.asp
字号:
rs("CollectName")=Request.Form("CollectName")
rs("selEncoding")=Request.Form("selEncoding")
rs("ListPaingType")=Request.Form("ListPaingType")
rs("ListPaingStr")=Request.Form("ListPaingStr")
rs("ListPaingStr2")=Request.Form("ListPaingStr2")
rs("ListPaingid1")=Request.Form("ListPaingid1")
rs("ListPaingid2")=Request.Form("ListPaingid2")
rs("ListPaingStr3")=Request.Form("ListPaingStr3")
rs("SaveFiles")=Request.Form("SaveFiles")
rs.update
rs.close
set rs=nothing
id=Request.Form("id")
end if
if Request.Form("ListPaingType")=3 then
Response.Write"<script>window.location.href='?action=add3&ListPaingType="&Request.Form("ListPaingType")&"&id="&id&"';</script>"
end if
Set rs = server.CreateObject("Adodb.RecordSet")
sql="select LsString,LoString,HsString,HoString from "&web_dbtop&"collect where id="&id
rs.open sql,conn,1,1
%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<form name="form" action="?action=add3" method="post">
<tbody>
<tr>
<td colspan="2" bgColor=#f5fafe>采集列表连接设置</td>
</tr>
<tr>
<td width="20%" bgColor=#f5fafe>影片列表开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.LsString.rows>2)document.form.LsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.LsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="LsString" cols="70" rows="7"><%=rs("LsString")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片列表结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.LoString.rows>2)document.form.LoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.LoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="LoString" cols="70" rows="7"><%=rs("LoString")%></textarea></td>
</tr bgColor=#f5fafe>
<tr>
<td bgColor=#f5fafe>影片链接开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.HsString.rows>2)document.form.HsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.HsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HsString" cols="70" rows="7"><%=rs("HsString")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片链接结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.HoString.rows>2)document.form.HoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.HoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HoString" cols="70" rows="7"><%=rs("HoString")%></textarea></td>
</tr>
<tr>
<td colspan="2" align="center" bgColor=#f5fafe><input type="hidden" name="id" id="id" value="<%=id%>">
<input type="button" name="button" value="上一步" onClick="window.location.href='?action=edit&id=<%=id%>'" class=inputbut>
<input name="Submit" type="submit" id="Submit" value="下一步" class=inputbut></td>
</tr>
</tbody>
</form>
</table>
<%
rs.close:set rs=nothing
end sub
sub add3()
if Request.QueryString("ListPaingType")<>"" then
Session("NewsCode")=Session("ListCode")
id=Request.QueryString("id")
else
id=Request.Form("id")
ListCode=GetBody(Session("ListCode"),request.Form("LsString"),request.Form("LoString"))
NewsArrayCode=GetArray(ListCode,request.Form("HsString"),request.Form("HoString"))
Select Case NewsArrayCode
Case False
call showerr("在获取链接列表时出错。","javascript:history.go(-1)")
Case Else
NewsArray=Split(NewsArrayCode,"$Array$")
UrlTest=NewsArray(0)
UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
NewsCode=GetHttp(UrlTest,Session("selEncoding"))
Session("NewsCode")=NewsCode
Session("ListUrl")=UrlTest
End Select
Set rs = server.CreateObject("Adodb.RecordSet")
sql="select * from "&web_dbtop&"collect where id="&id&""
rs.open sql,conn,1,3
rs("LsString")=Request.Form("LsString")
rs("LoString")=Request.Form("LoString")
rs("HsString")=Request.Form("HsString")
rs("HoString")=Request.Form("HoString")
rs.Update
rs.close
set rs=nothing
end if
Set rs = server.CreateObject("Adodb.RecordSet")
sql="select Htitle,Ftitle,Hname,Fname,Htupian,Ftupian,ClassType,CollectClass,HClass,FClass,RegionType,CollectRegion,HRegion,FRegion,Hcontent,Fcontent,ScopeOn,Hscope,Fscope,Hweburl,Fweburl,urlType,Rurl,Reurl,Hpurl,Fpurl from "&web_dbtop&"collect where id="&id
rs.open sql,conn,1,1
%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<form name="form" action="admin_collecting.asp?action=add4" method="post">
<tbody>
<tr>
<td colspan="2" bgColor=#f5fafe>采集内容与影片地址设置</td>
</tr>
<tr>
<td width="20%" bgColor=#f5fafe>影片名称开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Htitle.rows>2)document.form.Htitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Htitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Htitle" cols="70" rows="7"><%=rs("Htitle")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片名称结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Ftitle.rows>2)document.form.Ftitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Ftitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Ftitle" cols="70" rows="7"><%=rs("Ftitle")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片演员开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Hname.rows>2)document.form.Hname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Hname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hname" cols="70" rows="7"><%=rs("Hname")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片演员结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Fname.rows>2)document.form.Fname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Fname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fname" cols="70" rows="7"><%=rs("Fname")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片图片开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Htupian.rows>2)document.form.Htupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Htupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Htupian" cols="70" rows="7" id="Htupian"><%=rs("Htupian")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片图片结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Ftupian.rows>2)document.form.Ftupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Ftupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Ftupian" cols="70" rows="7" id="Ftupian"><%=rs("Ftupian")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片栏目设置：</td>
<td bgColor=#ffffff><input type="radio" value="0" name="ClassType" onClick="ChangeCutPara(0,'CollectClassN','HClassN','FClassN');" <%if rs("ClassType")=0 then Response.Write"checked"%>>
固定栏目 <input type="radio" value="1" name="ClassType" onClick="ChangeCutPara(1,'CollectClassN','HClassN','FClassN');" <%if rs("ClassType")=1 then Response.Write"checked"%>>按对应栏目自动转换</td>
</tr>
<tr id="CollectClassN">
<td bgColor=#f5fafe>选择栏目：</td>
<td bgColor=#ffffff><%call storageselect("type","typename","CollectClass","请选择栏目",rs("CollectClass"))%></td>
</tr>
<tr id="HClassN">
<td bgColor=#f5fafe>影片栏目开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.HClass.rows>2)document.form.HClass.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.HClass.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HClass" cols="70" rows="7" id="HClass"><%=rs("HClass")%></textarea></td>
</tr>
<tr id="FClassN">
<td bgColor=#f5fafe>影片栏目结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.FClass.rows>2)document.form.FClass.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.FClass.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="FClass" cols="70" rows="7" id="FClass"><%=rs("FClass")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片地区设置：</td>
<td bgColor=#ffffff><input type="radio" value="0" name="RegionType" onClick="ChangeCutPara(0,'CollectRegionN','HRegionN','FRegionN');" <%if rs("RegionType")=0 then Response.Write"checked"%>>
固定地区 <input type="radio" value="1" name="RegionType" onClick="ChangeCutPara(1,'CollectRegionN','HRegionN','FRegionN');" <%if rs("RegionType")=1 then Response.Write"checked"%>>按对应地区自动转换</td>
</tr>
<tr id="CollectRegionN">
<td bgColor=#f5fafe>选择地区：</td>
<td bgColor=#ffffff><%call storageselect("region","regionname","CollectRegion","请选择地区",rs("CollectRegion"))%></td>
</tr>
<tr id="HRegionN">
<td bgColor=#f5fafe>影片地区开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.HRegion.rows>2)document.form.HRegion.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.HRegion.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HRegion" cols="70" rows="7" id="HRegion"><%=rs("HRegion")%></textarea></td>
</tr>
<tr id="FRegionN">
<td bgColor=#f5fafe>影片地区结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.FRegion.rows>2)document.form.FRegion.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.FRegion.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="FRegion" cols="70" rows="7" id="FRegion"><%=rs("FRegion")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片介绍开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Hcontent.rows>2)document.form.Hcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Hcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hcontent" cols="70" rows="7" id="Hcontent"><%=rs("Hcontent")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片介绍结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Fcontent.rows>2)document.form.Fcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Fcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fcontent" cols="70" rows="7" id="Fcontent"><%=rs("Fcontent")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>影片列表范围：</td>
<td bgColor=#ffffff><input type="radio" value="0" name="ScopeOn" onClick="showtr(0,'ScopeN1','ScopeN2')" <%if rs("ScopeOn")=0 then Response.Write"checked"%>>
关闭 <input type="radio" value="1" name="ScopeOn" onClick="showtr(1,'ScopeN1','ScopeN2')" <%if rs("ScopeOn")=1 then Response.Write"checked"%>>开启</td>
</tr>
<tr id="ScopeN1">
<td bgColor=#f5fafe>播放列表开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Hscope.rows>2)document.form.Hscope.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Hscope.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hscope" cols="70" rows="7" id="Hscope"><%=rs("Hscope")%></textarea></td>
</tr>
<tr id="ScopeN2">
<td bgColor=#f5fafe>播放列表结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Fscope.rows>2)document.form.Fscope.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Fscope.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fscope" cols="70" rows="7" id="Fscope"><%=rs("Fscope")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>播放链接开始代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Hweburl.rows>2)document.form.Hweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Hweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hweburl" cols="70" rows="7" id="Hweburl"><%=rs("Hweburl")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>播放链接结束代码：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Fweburl.rows>2)document.form.Fweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Fweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fweburl" cols="70" rows="7" id="Fweburl"><%=rs("Fweburl")%></textarea></td>
</tr>
<tr>
<td bgColor=#f5fafe>特殊播放链接处理：</td>
<td bgColor=#ffffff><input type="radio" value="0" name="urlType" onClick="showtr(0,'Listurl2','Listurl3')" <%if rs("urlType")=0 then Response.Write"checked"%>>
不作设置
<input type="radio" value="1" name="urlType" onClick="showtr(1,'Listurl2','Listurl3')" <%if rs("urlType")=1 then Response.Write"checked"%>/>
替换地址<br> <font color="red">对于使用了JavaScript:openwindow形式的连接请使用以下格式处理:<br>
脚本连接:内容[变量] 内容 如:javaScript:openwindow([变量])<br>
实际连接:内容[变量] 内容 如:play.asp?id=[变量]</font></td>
</tr>
<tr id="Listurl2">
<td bgColor=#f5fafe>要替换的地址：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Rurl.rows>2)document.form.Rurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Rurl.rows+=1" style='cursor:hand'><b>扩大</b></span> 可用标签：<font onmouseover="getActiveText(document.form.Rurl);" onClick="addTag('[变量]')" style="CUrsOR: hand"><b>[变量]</b></font>
<textarea name="Rurl" cols="70" rows="4" id="Rurl"><%=rs("Rurl")%></textarea></td>
</tr>
<tr id="Listurl3">
<td bgColor=#f5fafe>替换为的地址：</td>
<td bgColor=#ffffff> 输入区域： <span onClick="if(document.form.Reurl.rows>2)document.form.Reurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.form.Reurl.rows+=1" style='cursor:hand'><b>扩大</b></span> 可用标签：<font onmouseover="getActiveText(document.form.Reurl);" onClick="addTag('[变量]')" style="CUrsOR: hand"><b>[变量]</b></font>
<textarea name="Reurl" cols="70" rows="4" id="Reurl"><%=rs("Reurl")%></textarea></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -