📄 admin_getphoto.asp
字号:
<td><input name="MaxFileSize" type="text" class="lostfocus" value="<%= rs("MaxFileSize") %>" size="27" maxlength="9">
<STRONG>KB </STRONG> <font color="Blue">* 不限制请输入“0”。</font></td>
</tr>
<tr class="tdbg">
<td height="20" align="right"><STRONG>采集保存地址：</STRONG></td>
<td><input name="Dir" type="text" class="lostfocus" value="<% =rs("Dir") %>" size="27" maxlength="30">
<font color="Blue"> 系统默认保存路径为{$DefaultDir}，可使用系统目录标签，若手动填写路径，后面必须带"/"符号。</font></td>
</tr>
<tr class="tdbg">
<td height="20" align="right"><STRONG>采集保存文件类型：</STRONG></td>
<td height="30"><input name="FileExtName" type="text" class="lostfocus" value="<% =rs("FileExtName") %>" size="50" maxlength="300">
<font color="Blue">* 每个文件类型请用“|”分开，如:Rm|swf|rar。</font></td>
</tr>
<tr class="tdbg">
<td height="38" align="right"> </td>
<td height="38"><input name="Submit2" type="submit" class="lostfocus" value="提交"></td>
</tr>
</form>
</table>
<%
Rs.Close
set rs=nothing
End Sub
Sub addnew1()'初步设置
'call SetChannel
ModuleID=CGet.G("ModuleID")
If action="edit" Or action1="edit" Then
If ItemID<>"" Then
ItemID=Clng(ItemID)
SqlItem ="Select * from Item where ItemID=" & ItemID
Set RsItem=Server.CreateObject("adodb.recordset")
RsItem.Open SqlItem,Conn_C,1,1
If RsItem.Eof And RsItem.Bof Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，没有找到该项目！</li>"
Else
ItemName=RsItem("ItemName")
ChannelID=RsItem("ChannelID")
ClassID=RsItem("ClassID")
SpecialID=RsItem("SpecialID")
Encoding=RsItem("Encoding")
WebUrl=RsItem("WebUrl")
ListStr=RsItem("ListStr")
ListPaingType=RsItem("ListPaingType")
LPsString=RsItem("LPsString")
LPoString=RsItem("LPoString")
ListPaingStr2=RsItem("ListPaingStr2")
Select Case ListPaingType
Case 0
ListUrl=ListStr
Case 1
ListPaingID1=RsItem("ListPaingID1")
ListPaingID2=RsItem("ListPaingID2")
ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1))
Case 2
ListPaingStr3=RsItem("ListPaingStr3")
If Instr(ListPaingStr3,"|")>0 Then
ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1)
Else
ListUrl=ListPaingStr3
End If
ListPaingStr3=Replace(ListPaingStr3,"|",CHR(13))
End Select
ModuleID=RsItem("ModuleID")
SaveFileUrl=RsItem("SaveFileUrl")
Passed=RsItem("Passed")
SaveFiles=RsItem("SaveFiles")
CollecOrder=RsItem("CollecOrder")
Script_Iframe=RsItem("Script_Iframe")
Script_Object=RsItem("Script_Object")
Script_Script=RsItem("Script_Script")
Script_Div=RsItem("Script_Div")
Script_Class=RsItem("Script_Class")
Script_Span=RsItem("Script_Span")
Script_Img=RsItem("Script_Img")
Script_Font=RsItem("Script_Font")
Script_A=RsItem("Script_A")
Script_Html=RsItem("Script_Html")
Script_Table=RsItem("Script_Table")
Script_Tr=RsItem("Script_Tr")
Script_Td=RsItem("Script_Td")
Stars=RsItem("Stars")
InfoPoint=RsItem("InfoPoint")
Hits=RsItem("Hits")
ModuleID=RsItem("ModuleID")
Thumb_WaterMark=RsItem("Thumb_WaterMark")
CollecNewsNum=RsItem("CollecNewsNum")
Timing=RsItem("Timing")
LoginType=RsItem("LoginType")
LoginUrl = RsItem("LoginUrl")
LoginPostUrl= RsItem("LoginPostUrl")
LoginUser = RsItem("LoginUser")
LoginPass = RsItem("LoginPass")
LoginFalse = RsItem("LoginFalse")
PaginationType=RsItem("PaginationType")
MaxCharPerPage=RsItem("MaxCharPerPage")
InfoGroup=RsItem("InfoGroup")
strReplace=RsItem("strReplace")
End If
RsItem.Close
Set RsItem=Nothing
else
LoginType=0
Encoding="GB2312"
End If
End If
Call SetChannel(3)
%>
<script language=javascript>
function AddReplace(){
var strthis='替换前的字符串|替换后的字符串';
var str=prompt('请输入替换前的字符串和替换后的字符串，中间用“|”隔开：',strthis);
if(str!=null&&str!=''){document.myform.strReplace.options[document.myform.strReplace.length]=new Option(str,str);}
}
function ModifyReplace(){
if(document.myform.strReplace.length==0) return false;
var strthis=document.myform.strReplace.value;
if (strthis=='') {alert('请先选择一个字符串，再点修改按钮！');return false;}
var str=prompt('请输入替换前的字符串和替换后的字符串，中间用“|”隔开：',strthis);
if(str!=strthis&&str!=null&&str!=''){document.myform.strReplace.options[document.myform.strReplace.selectedIndex]=new Option(str,str);}
}
function DelReplace(){
if(document.myform.strReplace.length==0) return false;
var strthis=document.myform.strReplace.value;
if (strthis=='') {alert('请先选择一个字符串，再点删除按钮！');return false;}
document.myform.strReplace.options[document.myform.strReplace.selectedIndex]=null;
}
function CheckForm(){
if (document.myform.ItemName.value==''){
alert('项目名称不能为空！');
return false;
}
if (document.myform.ListStr.value==''){
alert('请输入远程列表URL！');
return false;
}
for(var n=0;n<document.myform.strReplace.length;n++){
if (document.myform.ReplaceList.value=='') document.myform.ReplaceList.value=document.myform.strReplace.options[n].value;
else document.myform.ReplaceList.value+='$$$'+document.myform.strReplace.options[n].value;
}
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<form method="post" action="<%=CJFileName%>" name="myform" onSubmit="return CheckForm();">
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>添 加 新
项 目--基 本 设 置</strong></div></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>项目名称：</strong></td>
<td width="75%">
<input name="ItemName" type="text" class="lostfocus" value="<%=ItemName%>" size="27" maxlength="30"> <font color=red>*</font>如：创力网－图片中心 既简单又明了 </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong> 所属频道：</strong></td>
<td width="75%"><select ID="ChannelID" name="ChannelID" onChange="changelocation(document.myform.ChannelID.options[document.myform.ChannelID.selectedIndex].value)"><%=ShowChannel_Option(3,ChannelID)%></select>
</td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong> 所属栏目：</strong></td>
<td width="75%"><select name="ClassID" ID="ClassID"><%=ShowClass_Option(ChannelID,ClassID,0,1)%></select>
</td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong> 所属专题：</strong></td>
<td width="75%"><select name="SpecialID" id="SpecialID" multiple style="height:90px;width:200px;"><%=ShowSpecial_Option(ChannelID,SpecialID,1)%></select>  
<font color="#FF0000"><strong>说明：</strong></font><font color="#0000FF">按“Shift”“Ctrl”可多选</font>
</td>
</tr>
<tr class="tdbg">
<td align="right"><STRONG>目标网页编码：</STRONG></td>
<td><input name="Encoding" type="text" value="<%=Encoding%>" size="10" maxlength="20"><font color=blue>请选择编码→</font></span>
<Select name="selEncoding" size="1" onChange="Encoding.value=this.value;">
<option>请选择编码</option>
<option value="GB2312" <% If Encoding="GB2312" Then Response.Write "Selected" %>>GB2312</option>
<option value="UTF-8" <% If Encoding="UTF-8" Then Response.Write "Selected" %>>UTF-8</option>
<option value="BIG5" <% If Encoding="BIG5" Then Response.Write "Selected" %>>BIG5</option>
</Select></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>远程列表URL:</strong></td>
<td><input name="ListStr" type="text" class="lostfocus" value="<%= ListStr %>" size="80" maxlength="200">
<font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>列表分页采集设置:</strong></td>
<td>
<input type="radio" value="0" name="ListPaingType" <%If ListPaingType=0 Or ListPaingType="" Then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='none';ListPaing4.style.display='none'">
不作设置
<input type="radio" value="3" name="ListPaingType" <%If ListPaingType=3 then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='none';ListPaing4.style.display=''">
设置标签
<input type="radio" value="1" name="ListPaingType" <%If ListPaingType=1 Then Response.Write "checked" %> onClick="ListPaing2.style.display='';ListPaing3.style.display='none';ListPaing4.style.display='none'">
批量生成
<input type="radio" value="2" name="ListPaingType" <%If ListPaingType=2 Then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='';ListPaing4.style.display='none'">
手动添加</td>
</tr>
<tr class="tdbg" id="ListPaing2" <% If ListPaingType<>1 Then Response.Write "style=""display:none""" %> >
<td align="right"><strong><font color=blue>批量生成：</font></strong></td>
<td><input name="ListPaingStr2" type="text" class="lostfocus" value="<% =ListPaingStr2 %>" size="80" maxlength="200">
分页代码 <font color=red>{$ID}</font><br>
格式：http://www.scuta.net/list.asp?page={$ID}<br>
生成范围：<br>
<input name="ListPaingID1" value="<%= ListPaingID1 %>" type="text" class="lostfocus" size="8" maxlength="200">
<span lang="en-us"> To </span>
<input name="ListPaingID2" value="<%= ListPaingID2 %>" type="text" class="lostfocus" size="8" maxlength="200">
例如：1 - 9 或者 9 - 1<br>
格式：只能是数字，可升序或者降序。 </td>
</tr>
<tr class="tdbg" id="ListPaing4" <%If ListPaingType<>3 then Response.Write "style=""display:none""" %> >
<td height="30" align="right"><strong><font color=blue>下一页开始标记：</font></strong>
<p> </p>
<p> </p>
<strong><font color=blue>下一页结束标记：</font></strong></td>
<td><textarea name="LPsString" cols="60" rows="7" class="lostfocus"><%= LPsString %></textarea>
<br>
<textarea name="LPoString" cols="60" rows="7" class="lostfocus"><%= LPoString %></textarea></td>
</tr>
<tr class="tdbg" id="ListPaing3" <% If ListPaingType<>2 Then Response.Write "style=""display:none""" %>>
<td align="right"><strong><font color=blue>手动添加：</font></strong></td>
<td><textarea name="ListPaingStr3" cols="60" rows="7" class="lostfocus"><%= ListPaingStr3 %></textarea>
格式：输入一个网址后按回车，再输入下一个</td>
</tr>
<tr class="tdbg">
<td align="right"><strong> 网站登录：</strong></td>
<td>
<input type="radio" value="0" name="LoginType" <%if LoginType=0 Then Response.Write "checked"%> onClick="Login.style.display='none'">不需要登录<span lang="en-us">
</span>
<input type="radio" value="1" name="LoginType" <%if LoginType=1 Then Response.Write "checked"%> onClick="Login.style.display=''">设置参数
</td>
</tr>
<tr class="tdbg" id="Login" style="<%If LoginType=0 Then Response.write "display:none"%>">
<td align="right"><strong> 登录参数：</strong></td>
<td>
登录地址：<input name="LoginUrl" type="text" size="40" maxlength="150" value="<%=LoginUrl%>"><br />
提交地址：<input name="LoginPostUrl" type="text" size="40" maxlength="150" value="<%=LoginPostUrl%>"><br />
用户参数：<input name="LoginUser" type="text" size="30" maxlength="150" value="<%=LoginUser%>"><br />
密码参数：<input name="LoginPass" type="text" size="30" maxlength="150" value="<%=LoginPass%>"><br />
失败信息：<input name="LoginFalse" type="text" size="30" maxlength="150" value="<%=LoginFalse%>"></td>
</tr>
<tr class="tdbg">
<td align="right"><b>内容分页方式：</b></td>
<td><select name="PaginationType">
<option value="0" <%If PaginationType=0 Then response.write "selected"%>>不分页</option>
<option value="1" <%If PaginationType=1 Then response.write "selected"%>>自动分页</option>
<option value="2" <%If PaginationType=2 Then response.write "selected"%>>手动分页</option>
</select>
自动分页时的每页大约字符数（包含HTML标记）：<input name="MaxCharPerPage" type="text" value="<%=MaxCharPerPage%>" size="8" maxlength="8"> </td>
</tr>
<tr class="tdbg">
<td align="right"><strong>阅读等级：</strong></td>
<td>
<input name="InfoGroup" type="hidden" id="InfoGroup" value="<%=InfoGroup%>">
<input name="InfoGroupView" type="text" id="InfoGroupView" value="<%=Cl.GetUserGroupName(InfoGroup)%>" size="82" onclick="SelectUserGroup('InfoGroup');" Readonly> <input type="checkbox" name="GetClassPurview" value="yes" onclick="document.myform.InfoGroupView.disabled=this.checked">继承栏目权限<br /><font color="#0000FF">只有具有相应权限的人才能阅读此图片。</font></td>
</tr>
<tr class="tdbg">
<td height="30" align="right"><STRONG>采集图片文件保存目录</STRONG>：</td>
<td><input name="SaveFileUrl" type="text" class="lostfocus" value="<% =SaveFileUrl %>" size="80" maxlength="200">
<font color="Blue"> 后面必须带"/"符号</font></td>
</tr>
<tr class="tdbg">
<td height="30" align="right"><STRONG><%= CjName %>设置：</STRONG></td>
<td><input name="Passed" type="checkbox" value="yes" <%If Passed=1 Then response.write "checked"%>>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -