📄 admin_getphoto.asp
字号:
<input type="radio" value="1" <% If DateType=1 Then Response.Write("checked") %> name="DateType" onClick="Date1.style.display=''">设置标签 </tr>
<tr class="tdbg" id="Date1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>时间开始标记：</font></strong><p> </p>
<strong><font color=blue>时间结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="DsString" cols="70" rows="5" class="lostfocus"><%= DsString %></textarea><br>
<textarea name="DoString" cols="70" rows="5" class="lostfocus"><%= DoString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>作<span lang="en-us"> </span>者<span lang="en-us">
</span>设<span lang="en-us"> </span>置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" <% If AuthorType=0 Or AuthorType="" Then Response.Write("checked") %> name="AuthorType" onClick="Author1.style.display='none';Author2.style.display='none'">不作设置
<input type="radio" value="1" <% If AuthorType=1 Then Response.Write("checked") %> name="AuthorType" onClick="Author1.style.display='';Author2.style.display='none'">设置标签
<input type="radio" value="2" name="AuthorType" <% If AuthorType=2 Then Response.Write("checked") %> onClick="Author1.style.display='none';Author2.style.display=''">指定作者</td>
</tr>
<tr class="tdbg" id="Author1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>作者开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>作者结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="AsString" cols="70" rows="7" class="lostfocus"><%= AsString %></textarea><br>
<textarea name="AoString" cols="70" rows="7" class="lostfocus"><%= AoString %></textarea></td>
</tr>
<tr class="tdbg" id="Author2" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>请指定作者：</font></strong></td>
<td width="75%" class="tdbg">
<input name="AuthorStr" type="text" class="lostfocus" id="AuthorStr" value="<%= AuthorStr %>"> </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>主 页
设 置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" name="CopyFromType" <% If CopyFromType=0 Or CopyFromType="" Then Response.Write("checked") %> onClick="CopyFrom1.style.display='none';CopyFrom2.style.display='none'">不作设置
<input type="radio" value="1" name="CopyFromType" <% If CopyFromType=1 Then Response.Write("checked") %> onClick="CopyFrom1.style.display='';CopyFrom2.style.display='none'">设置标签
<input type="radio" value="2" name="CopyFromType" <% If CopyFromType=2 Then Response.Write("checked") %> onClick="CopyFrom1.style.display='none';CopyFrom2.style.display=''">指定主页</td>
</tr>
<tr class="tdbg" id="CopyFrom1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>主页开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>主页结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="FsString" cols="70" rows="7" class="lostfocus"><%= FsString %></textarea><br>
<textarea name="FoString" cols="70" rows="7" class="lostfocus"><%= FoString %></textarea></td>
</tr>
<tr class="tdbg" id="CopyFrom2" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>请指定主页：</font></strong></td>
<td width="75%" class="tdbg">
<input name="CopyFromStr" type="text" class="lostfocus" id="CopyFromStr" value="<%= CopyFromStr %>"> </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" class="tdbg" ><b>关键字词设置：</b></td>
<td width="75%" class="tdbg">
<input type="radio" value="0" name="KeyType" <% If KeyType=0 Or KeyType="" Then Response.Write("checked") %> onClick="Key1.style.display='none';Key2.style.display='none'">标题生成
<input type="radio" value="1" name="KeyType" <% If KeyType=1 Then Response.Write("checked") %> onClick="Key1.style.display='';Key2.style.display='none'">标签生成
<input type="radio" value="2" name="KeyType" <% If KeyType=2 Then Response.Write("checked") %> onClick="Key1.style.display='none';Key2.style.display=''">自定义关键字</td>
</tr>
<tr class="tdbg" id="Key1" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>关键词开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>关键词结束标记：</font></strong></td>
<td width="75%" class="tdbg">
<textarea name="KsString" cols="70" rows="7" class="lostfocus"><%= KsString %></textarea><br>
<textarea name="KoString" cols="70" rows="7" class="lostfocus"><%= KoString %></textarea></td>
</tr>
<tr class="tdbg" id="Key2" style="display:none">
<td width="20%" align="right" class="tdbg" ><strong><font color=blue>请指定关键：</font></strong></td>
<td width="75%" class="tdbg"><input name="KeyStr" type="text" class="lostfocus" id="KeyStr" value="<%= KeyStr %>">
<br>
格式：关键字之间用<font color=red>|</font>分隔，如：<%= CjName%>|IT </td>
</tr>
<%
'------自定义-----------
Response.Write GetField(1,ModuleID)
%>
<tr class="tdbg">
<td height="30" colspan="2" align="center" class="tdbg">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<input name="Action1" type="hidden" id="Action" value="<%=action1%>">
<input name="Action" type="hidden" id="Action" value="demo">
<input type="hidden" name="UrlTest" id="UrlTest" value="<%=UrlTest%>">
<input name="button1" type="button" class="lostfocus" onClick="window.location.href='javascript:history.go(-1)'" value="上 一 步">
<input name="Submit" type="submit" class="lostfocus" value="下 一 步"> <input type="checkbox" name="ShowCode" value="checkbox">进行采集测试</td>
</tr>
</form>
</table>
<%
End If
End Sub'第二完
Sub demo()'测试页
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，项目ID不能为空</li>"
Else
ItemID=Clng(ItemID)
End If
If FoundErr<>True Then
Req_Err_msg 3
End If
If FoundErr<>True And Action="demo" And Action1="" Then
GetTest()
End If
If FoundErr=True Then
Call Cl.ShowErr(ErrMsg)
Else
If Action1="" And Action="demo" Or CGet.G("ShowCode")="checkbox" Then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>编 辑 项 目--采 样 测 试</strong></div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<tr align="center" class="tdbg">
<td colspan="2" valign="bottom"><span lang="zh-cn">
<%=Title%></span></td>
</tr>
<tr align="center" class="tdbg">
<td colspan="2">
<strong>作者：</strong><%=Author%> <strong>来源：</strong><%=CopyFrom%> <strong>更新时间：</strong><%=UpDateTime%>
</td>
</tr>
<tr class="tdbg">
<td colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<%
If x_tp=1 Then
Response.Write "<tr><td align=right width=100><B>缩略图地址：</b></td><td align=left><a href="& picpath &" target=""_blank"">"& picpath &"<a/></td></tr>"
End If
Response.Write "<tr><td align=right width=100><strong>内 容：</strong></td><td align=left>" & Server.HtmlEncode(Content) &"</td></tr>"
Response.Write "<tr><td align=right width=100><strong>图 片：</strong></td><td align=left><a href="& PicUrls &" target=""_blank"">"& PicUrls &"<a/></td></tr>"
Response.Write "<tr><td align=right width=100><b>关 键 字：</b></td><td align=left>" & Server.HtmlEncode(Key) &"</td></tr>"
%>
</table>
</td>
</tr>
<form method="post" action="<%= CJFileName %>" name="form1">
<tr class="tdbg">
<td colspan="2" align="center">
<input name="Cancel" class="lostfocus" type="button" value=" 上 一 步 " onClick="window.location.href='javascript:history.go(-1)'"> <input type="submit" name="Submit" class="lostfocus" value=" 设置完成 ">
</td>
</tr>
</form>
</table>
<%
else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<tr class="tdbg">
<td colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="30" valign="top"><a href="?action=demo&ItemID=<%= ItemID %>">点击查看测试页</a></td>
</tr>
</table> </td>
</tr>
<form method="post" action="<%= CJFileName %>" name="form1">
<tr class="tdbg">
<td colspan="2" align="center">
<input name="Cancel" class="lostfocus" type="button" value=" 上 一 步 " onClick="window.location.href='javascript:history.go(-1)'"> <input type="submit" name="Submit" class="lostfocus" value=" 设置完成 "> </td>
</tr>
</form>
</table>
<%
End If
End If
End Sub
Sub copy
ItemID=CGet.G("ItemID")
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
Dim copy_s,copyitem(99999)
SqlItem="Select top 1 * from Item where ItemID="& ItemID
Set RsItem=server.CreateObject("adodb.recordset")
RsItem.Open SqlItem,Conn_C,3,3
copy_s =Cint(RsItem.Fields.count)
for i=1 to copy_s - 1
copyitem(i)=RsItem(i)
next
RsItem.AddNew
for i=1 to copy_s - 1
RsItem(i)=copyitem(i)
RsItem(1)=copyitem(1) & " 复制"
next
RsItem.update
RsItem.close
Call show_Manage()
End If
End Sub
Sub Del
ItemID=CGet.G("ItemID")
If CGet.G("Del")="快速采集" Then
Response.redirect "Admin_CollectionFast.asp?ItemID="&ItemID&"&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0"
Elseif CGet.G("Del")="稳定采集" Then
Response.redirect "Admin_Collection.asp?ItemID="&ItemID&"&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0"
Else
If CGet.G("Del")="清空所有记录" Then
Conn_C.Execute("Delete From Item where ModuleID=3")
Conn_C.Execute("Delete From Filters where ModuleID=3")
Else
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
ItemID=Replace(ItemID," ","")
Conn_C.Execute("Delete From [Item] Where ItemID In(" & ItemID & ")")
Conn_C.Execute("Delete From [Filters] Where ItemID In(" & ItemID & ")")
End If
End If
End If
Call show_Manage()
End Sub
'================================================
'函数名：Req_Err_msg
'作 用：检查提交设置并保存
'参 数：erron ----第几步
'================================================
Public Sub Req_Err_msg(erron)
select case erron
case 1
ItemName=Trim(Request.Form("ItemName"))
ChannelID=Cl.GetClng(Request.Form("ChannelID"))
ClassID=Cl.GetClng(Request.Form("ClassID"))
SpecialID=Trim(Request.Form("SpecialID"))
Encoding=Trim(Request.Form("Encoding"))
ModuleID=Cl.GetClng(Request.Form("ModuleID"))
ListStr=Trim(Request.Form("ListStr"))
ListPaingType=Trim(Request.Form("ListPaingType"))
ListPaingStr2=Trim(Request.Form("ListPaingStr2"))
ListPaingID1=Trim(Request.Form("ListPaingID1"))
ListPaingID2=Trim(Request.Form("ListPaingID2"))
ListPaingStr3=Trim(Request.Form("ListPaingStr3"))
LPoString=Trim(Request.Form("LPoString"))
LPsString=Trim(Request.Form("LPsString"))
Passed=Trim(Request.Form("Passed"))
SaveFiles=Trim(Request.Form("SaveFiles"))
if trim(request.form("GetClassPurview"))="yes" then
InfoGroup=5
else
InfoGroup=Trim(request.form("InfoGroup"))
end if
LoginType=Cl.GetClng(Request.Form("LoginType"))
LoginUrl=Trim(Request.Form("LoginUrl"))
LoginPostUrl=Trim(Request.Form("LoginPostUrl"))
LoginUser=Trim(Request.Form("LoginUser"))
LoginPass=Trim(Request.Form("LoginPass"))
LoginFalse=Trim(Request.Form("LoginFalse"))
PaginationType = Cl.GetClng(request.form("PaginationType"))
MaxCharPerPage = Cl.GetClng(request.form("MaxCharPerPage"))
Thumb_WaterMark=Request.Form("Thumb_WaterMark")
SaveFileUrl=Trim(Request.Form("SaveFileUrl"))
Script_Iframe=Trim(Reque⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -