📄 collect_itemmodify4.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../SysCls/KS_CollectCommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628个人Access版
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Collect_ItemModify4
KSCls.Execute()
Set KSCls = Nothing
Class Collect_ItemModify4
Private KSCMS
Private KMCObj
Private ConnItem
Private RsItem, SqlItem, FoundErr, ErrMsg, Action, ItemID
Private LoginType, LoginUrl, LoginPostUrl, LoginUser, LoginPass, LoginFalse, LoginResult, LoginData
Private ListStr, LsString, LoString, ListPageType, LPsString, LPoString, ListPageStr1, ListPageStr2, ListPageID1, ListPageID2, ListPageStr3, HsString, HoString, HttpUrlType, HttpUrlStr
Private TsString, ToString, CsString, CoString, DateType, DsString, DoString, AuthorType, AsString, AoString, AuthorStr, CopyFromType, FsString, FoString, CopyFromStr, KeyType, KsString, KoString, KeyStr, NewsPageType, NPsString, NPoString, NewsPageStr, NewsPageEnd
Private ListUrl, ListCode, NewsArrayCode, NewsArray, UrlTest, NewsCode
Private Testi
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set KMCObj=New CollectCommonCls
Set ConnItem = KSCMS.ConnItem()
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConnItem()
Call KSCMS.Closeconn
Set KSCMS=Nothing
Set KMCObj=Nothing
End Sub
Sub Execute()
Action = Trim(Request("Action"))
ItemID = Trim(Request("ItemID"))
FoundErr = False
If ItemID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>参数错误，项目ID不能为空</li>"
Else
ItemID = CLng(ItemID)
End If
If Action = "SaveEdit" And FoundErr <> True Then
Call SaveEdit
End If
If FoundErr <> True Then
Call GetTest
End If
If FoundErr = True Then
Call KMCObj.WriteErrMsg(ErrMsg)
Else
Call Main
End If
End Sub
Sub Main()
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>采集系统</title>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../inc/Admin_Style.css"">"
Response.Write "<style type=""text/css"">"
Response.Write "<!--" & vbCrLf
Response.Write ".STYLE7 {color: #FF0000}" & vbCrLf
Response.Write "-->" & vbCrLf
Response.Write "</style>" & vbCrLf
Response.Write "</head>"
Response.Write "<body oncontextmenu=""return false"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""sortbutton"">"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""center"" nowrap><table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
Response.Write " <tr>"
Response.Write " <td align=""center""><strong>操作步骤：</strong>编辑项目>> 基本设置 >> 列表设置 >> 链接设置 >> <span class=""STYLE7"">正文设置</span> >> 采样测试 >> 属性设置 >> 完成</td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<form method=""post"" action=""Collect_ItemModify5.asp"" name=""form1"">"
Response.Write "<table width=""80%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >标题开始标记：<p> </p>"
Response.Write " 标题结束标记：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""TsString"" cols=""49"" rows=""3"">" & TsString & "</textarea><br>"
Response.Write " <textarea name=""ToString"" cols=""49"" rows=""3"">" & ToString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >正文开始标记：<p> </p>"
Response.Write " 正文结束标记：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""CsString"" cols=""49"" rows=""5"">" & CsString & "</textarea><br>"
Response.Write " <textarea name=""CoString"" cols=""49"" rows=""5"">" & CoString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >时 间 "
Response.Write " 设 置：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <input type=""radio"" value=""0"" name=""DateType"" "
If DateType = 0 Then Response.Write "checked"
Response.Write " onClick=""Date1.style.display='none'"">不作设置 "
Response.Write " <input type=""radio"" value=""1"" name=""DateType"" "
If DateType = 1 Then Response.Write "checked"
Response.Write " onClick=""Date1.style.display=''"">设置标签 </tr>"
Response.Write " <tr id=""Date1"" style=""display:'"
If DateType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>时间开始标记：</font>"
Response.Write " <p> </p>"
Response.Write " <font color=blue>时间结束标记：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""DsString"" cols=""49"" rows=""3"">" & DsString & "</textarea><br>"
Response.Write " <textarea name=""DoString"" cols=""49"" rows=""3"">" & DoString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >作 者 "
Response.Write " 设 置：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <input type=""radio"" value=""0"" name=""AuthorType"" "
If AuthorType = 0 Then Response.Write "checked"
Response.Write " onClick=""Author1.style.display='none';Author2.style.display='none'"">不作设置 "
Response.Write " <input type=""radio"" value=""1"" name=""AuthorType"" "
If AuthorType = 1 Then Response.Write "checked"
Response.Write " onClick=""Author1.style.display='';Author2.style.display='none'"">设置标签 "
Response.Write " <input type=""radio"" value=""2"" name=""AuthorType"" "
If AuthorType = 2 Then Response.Write "checked"
Response.Write " onClick=""Author1.style.display='none';Author2.style.display=''"">指定作者</td>"
Response.Write " </tr>"
Response.Write " <tr id=""Author1"" style=""display:'"
If AuthorType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>作者开始标记：</font>"
Response.Write " <p> </p>"
Response.Write " <font color=blue>作者结束标记：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""AsString"" cols=""49"" rows=""3"">" & AsString & "</textarea><br>"
Response.Write " <textarea name=""AoString"" cols=""49"" rows=""3"">" & AoString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr id=""Author2"" style=""display:'"
If AuthorType <> 2 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>请指定作者：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <input name=""AuthorStr"" type=""text"" id=""AuthorStr"" value=""" & AuthorStr & """> </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >来 源 "
Response.Write " 设 置：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <input type=""radio"" value=""0"" name=""CopyFromType"" "
If CopyFromType = 0 Then Response.Write "checked"
Response.Write " onClick=""CopyFrom1.style.display='none';CopyFrom2.style.display='none'"">不作设置 "
Response.Write " <input type=""radio"" value=""1"" name=""CopyFromType"" "
If CopyFromType = 1 Then Response.Write "checked"
Response.Write " onClick=""CopyFrom1.style.display='';CopyFrom2.style.display='none'"">设置标签 "
Response.Write " <input type=""radio"" value=""2"" name=""CopyFromType"" "
If CopyFromType = 2 Then Response.Write "checked"
Response.Write " onClick=""CopyFrom1.style.display='none';CopyFrom2.style.display=''"">指定来源</td>"
Response.Write " </tr>"
Response.Write " <tr id=""CopyFrom1"" style=""display:'"
If CopyFromType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>来源开始标记：</font>"
Response.Write " <p> </p>"
Response.Write " <font color=blue>来源结束标记：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""FsString"" cols=""49"" rows=""3"">" & FsString & "</textarea><br>"
Response.Write " <textarea name=""FoString"" cols=""49"" rows=""3"">" & FoString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr id=""CopyFrom2"" style=""display:'"
If CopyFromType <> 2 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>请指定来源：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <input name=""CopyFromStr"" type=""text"" id=""CopyFromStr"" value=""" & CopyFromStr & """> </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >关键字词设置：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <input type=""radio"" value=""0"" name=""KeyType"" "
If KeyType = 0 Then Response.Write "checked"
Response.Write " onClick=""Key1.style.display='none';Key2.style.display='none'"">标题生成 "
Response.Write " <input type=""radio"" value=""1"" name=""KeyType"" "
If KeyType = 1 Then Response.Write "checked"
Response.Write "onClick=""Key1.style.display='';Key2.style.display='none'"">标签生成 "
Response.Write " <input type=""radio"" value=""2"" name=""KeyType"" "
If KeyType = 2 Then Response.Write "checked"
Response.Write " onClick=""Key1.style.display='none';Key2.style.display=''"">自定义关键字</td>"
Response.Write " </tr>"
Response.Write " <tr id=""Key1"" style=""display:'"
If KeyType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>关键词开始标记：</font>"
Response.Write " <p> </p>"
Response.Write " <font color=blue>关键词结束标记：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""KsString"" cols=""49"" rows=""3"">" & KsString & "</textarea><br>"
Response.Write " <textarea name=""KoString"" cols=""49"" rows=""3"">" & KoString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr id=""Key2"" style=""display:'"
If KeyType <> 2 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"" ><font color=blue>请指定关键：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <input name=""KeyStr"" type=""text"" id=""KeyStr"" value=""" & KeyStr & """> </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"">正文分页设置：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <input type=""radio"" value=""0"" name=""NewsPageType"" "
If NewsPageType = 0 Then Response.Write "checked"
Response.Write " onClick=""NewsPage1.style.display='none';NewsPage12.style.display='none';NewsPage13.style.display='none';NewsPage2.style.display='none'"">不作设置 "
Response.Write " <input type=""radio"" value=""1"" name=""NewsPageType"" "
If NewsPageType = 1 Then Response.Write "checked"
Response.Write " onClick=""NewsPage1.style.display='';NewsPage12.style.display='';NewsPage13.style.display='';NewsPage2.style.display='none'"">源代码中获取分页URL "
Response.Write " <input style=""display:none"" type=""radio"" value=""2"" name=""NewsPageType"" "
If NewsPageType = 2 Then Response.Write "checked"
Response.Write " onClick=""NewsPage1.style.display='none';NewsPage12.style.display='none';NewsPage13.style.display='none';NewsPage2.style.display=''"">"
' Response.Wreite "手动设置"
Response.Write " </td></tr>"
Response.Write " <tr id=""NewsPage1"" style=""display:'"
If NewsPageType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center""><font color=blue>分页代码开始：</font>"
Response.Write " <p> </p>"
Response.Write " <font color=blue>分页代码结束：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""NPsString"" cols=""49"" rows=""3"">" & server.htmlencode(NPsString) & "</textarea><br>"
Response.Write " <textarea name=""NPoString"" cols=""49"" rows=""3"">" & server.htmlencode(NPoString) & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr id=""NewsPage12"" style=""display:'"
If NewsPageType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center""><font color=""#0000FF"">分页URL开始代码：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <input name=""NewsPageStr"" type=""text"" size=""58"" value=""" & server.htmlencode(NewsPageStr) & """></td>"
Response.Write " </tr>"
Response.Write " <tr id=""NewsPage13"" style=""display:'"
If NewsPageType <> 1 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center""><font color=""#0000FF"">分页URL结束代码：</font></td>"
Response.Write " <td width=""75%"">"
Response.Write " <input name=""NewsPageEnd"" type=""text"" size=""58"" value=""" & server.htmlencode(NewsPageEnd) & """></td>"
Response.Write " </tr>"
Response.Write " <tr id=""NewsPage2"" style=""display:'"
If NewsPageType <> 2 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center""><font color=blue>手 动 设 置：</font></td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -