📄 sk_getphoto.asp
字号:
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<form method="post" action="?" name="form1">
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>添 加 新
项 目--正 文 设 置</strong></div> </td>
</tr>
<tr class="tdbg">
<td width="30%" align="right" bgcolor="f3f3f3" class="tdbg" ><strong>标题开始标记：</strong><p> </p>
<strong>标题结束标记：</strong></td>
<td width="70%" bgcolor="f3f3f3" class="tdbg">
<textarea name="TsString" cols="70" rows="5" class="lostfocus"><%= TsString %></textarea><br>
<textarea name="ToString" cols="70" rows="5" class="lostfocus"><%= ToString %></textarea></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><strong>正文开始标记：</strong><p> </p>
<strong>正文结束标记：</strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<textarea name="CsString" cols="70" rows="5" class="lostfocus"><%= CsString %></textarea><br>
<textarea name="CoString" cols="70" rows="5" class="lostfocus"><%= CoString %></textarea></td>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><b>图片<span lang="en-us">地址<strong>开始标记：</strong></span></b></td>
<td bgcolor="f3f3f3" class="tdbg"><textarea name="photourls" cols="70" rows="5" class="lostfocus"><%= photourls %></textarea>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><b>图片<span lang="en-us">地址<strong>结束标记：</strong></span></b></td>
<td bgcolor="f3f3f3" class="tdbg"><textarea name="photourlo" cols="70" rows="5" class="lostfocus"><%= photourlo %></textarea>
</tr>
<tr class="tdbg">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><b>是否2级图片分类设置：</b></td>
<td bgcolor="f3f3f3" class="tdbg"><input type="radio" value="0" name="PhotoPaingType" <% if PhotoPaingType=0 or PhotoPaingType="" then Response.Write("checked") %> onClick="photo1.style.display='none'">
不作设置
<input type="radio" value="1" name="PhotoPaingType" <% if PhotoPaingType=1 then Response.Write("checked") %> onClick="photo1.style.display=''">
图片分类页 </tr>
<tr class="tdbg" id="photo1" style="display:none">
<td align="right" bgcolor="f3f3f3" class="tdbg" ><p><strong><font color=blue>2级分类图片列表开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片列表结束标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue><br>
2级分类图片链接开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片链接结束标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片列表分页开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片列表分页结束标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片列表分页连接开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片列表分页连接结束标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片地址开始标记:</font></strong></p>
<p> </p>
<p><strong><font color=blue>2级分类图片地址开始标记:</font></strong></p>
</td>
<td bgcolor="f3f3f3" class="tdbg"><p>
<textarea name="PhotoType_s" cols="70" rows="5" class="lostfocus"><%= PhotoType_s %></textarea>
<br>
<textarea name="PhotoType_o" cols="70" rows="5" class="lostfocus"><%= PhotoType_o %></textarea>
<br>
<textarea name="PhotoLurl_s" cols="70" rows="5" class="lostfocus"><%= PhotoLurl_s %></textarea>
<br>
<textarea name="PhotoLurl_o" cols="70" rows="5" class="lostfocus"><%= PhotoLurl_o %></textarea>
<br>
<textarea name="Phototypefy_s" cols="70" rows="5" class="lostfocus"><%= Phototypefy_s %></textarea>
<br>
<textarea name="Phototypefy_o" cols="70" rows="5" class="lostfocus"><%= Phototypefy_o %></textarea>
<br>
<textarea name="Phototypefyurl_s" cols="70" rows="5" class="lostfocus"><%= Phototypefyurl_s %></textarea>
<br>
<textarea name="Phototypefyurl_o" cols="70" rows="5" class="lostfocus"><%= Phototypefyurl_o %></textarea>
<br>
<textarea name="Phototypeurl_s" cols="70" rows="5" class="lostfocus"><%= Phototypeurl_s %></textarea>
<br>
<textarea name="Phototypeurl_o" cols="70" rows="5" class="lostfocus"><%= Phototypeurl_o %></textarea>
</p> </tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>链接地址重定：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg"><input name="HttpUrlStr" type="text" class="lostfocus" value="<% =HttpUrlStr %>" size="60" maxlength="200"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>时 间
设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input type="radio" value="0" name="DateType" <% if DateType<>1 then Response.Write("checked") %> onClick="Date1.style.display='none'">不作设置
<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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>时间开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>时间结束标记：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><b>作<span lang="en-us"> </span>者<span lang="en-us">
</span>设<span lang="en-us"> </span>置：</b></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>作者开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>作者结束标记：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>请指定作者：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input name="AuthorStr" type="text" class="lostfocus" id="AuthorStr" value="<%= AuthorStr %>"> </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>来 源
设 置：</b></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>来源开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>来源结束标记：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>请指定来源：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg">
<input name="CopyFromStr" type="text" class="lostfocus" id="CopyFromStr" value="<%= CopyFromStr %>"> </td>
</tr>
<tr class="tdbg">
<td width="20%" align="right" bgcolor="f3f3f3" class="tdbg" ><b>关键字词设置：</b></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>关键词开始标记：</font></strong><p> </p>
<p> </p>
<strong><font color=blue>关键词结束标记：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" 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" bgcolor="f3f3f3" class="tdbg" ><strong><font color=blue>请指定关键：</font></strong></td>
<td width="75%" bgcolor="f3f3f3" class="tdbg"><input name="KeyStr" type="text" class="lostfocus" id="KeyStr" value="<%= KeyStr %>">
<br>
格式：关键字之间用<font color=red>|</font>分隔，如：新闻|IT </td>
</tr>
<tr class="tdbg">
<td height="30" colspan="2" align="center" bgcolor="f3f3f3" class="tdbg">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<%
Response.Write "<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" style="cursor: hand;background-color: #cccccc;" onClick="window.location.href='javascript:history.go(-1)'" value="上 一 步">
<input name="Submit" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" 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
SK.Err_msg 3
End if
If FoundErr<>True and Action="demo" and Action1="" Then
SK.GetTest()
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Else
if Action1="" and Action="demo" or Request.Form("ShowCode")="checkbox" then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<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="tableBorder" >
<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">
作者：<%=Author%> 来源：<%=CopyFrom%> 更新时间：<%=UpDateTime%>
</td>
</tr>
<tr class="tdbg">
<td colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="200" valign="top">
<%
Response.Write "图片地址:"
Response.Write "<a href="& PicUrls &">"& PicUrls &"<a/>"
%>
<p><p><span lang="zh-cn"><%=Content%></span></p><br>
<b>关键字：<%=Key%></b>
</td>
</tr>
</table>
</td>
</tr>
<form method="post" action="sk_getphoto.asp" 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)'" style="cursor: hand;background-color: #cccccc;"> <input type="submit" name="Submit" class="lostfocus" value=" 设置完成 " style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
</form>
</table>
<%
else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<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="sk_getphoto.asp" 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)'" style="cursor: hand;background-color: #cccccc;"> <input type="submit" name="Submit" class="lostfocus" value=" 设置完成 " style="cursor: hand;background-color: #cccccc;"> </td>
</tr>
</form>
</table>
<%
end if
End If
end sub
sub copy
ItemID=Trim(Request("ItemID"))
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
SqlItem="select top 1 * from Item where ItemID="& ItemID
Set RsItem=server.CreateObject("adodb.recordset")
RsItem.Open SqlItem,ConnItem,3,3
for i=1 to Ubound(copyitem)
copyitem(i)=RsItem(i)
next
RsItem.AddNew
for i=1 to Ubound(copyitem)
RsItem(i)=copyitem(i)
RsItem(1)=copyitem(1) & " 复制"
next
RsItem.update
RsItem.close
Call show_Manage()
end if
end sub
Sub Del
ItemID=Trim(Request("ItemID"))
If Request("Del")="清空所有记录" Then
ConnItem.Execute("Delete From Item")
ConnItem.Execute("Delete From Filters")
ConnItem.Execute("Delete From Histroly")
Else
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
ItemID=Replace(ItemID," ","")
ConnItem.Execute("Delete From [Item] Where ItemID In(" & ItemID & ")")
ConnItem.Execute("Delete From [Filters] Where ItemID In(" & ItemID & ")")
ConnItem.Execute("Delete From [Histroly] Where ItemID In(" & ItemID & ")")
End If
End If
Call show_Manage()
End Sub
%>
<!--#include file="Admin_ItemFoot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -