collect_itemattribute.asp
来自「SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括h」· ASP 代码 · 共 447 行 · 第 1/2 页
ASP
447 行
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right"">内容分页方式：</td>"
Response.Write " <td><select name=""PaginationType"">"
Response.Write " <option value=""0"" "
If PaginationType = 0 Then Response.Write "selected"
Response.Write ">不分页</option>"
'Response.Write " <option value=""1"" "
'If PaginationType = 1 Then Response.Write "selected"
' Response.Write ">自动分页</option>"
Response.Write " <option value=""2"" "
If PaginationType = 2 Then Response.Write "selected"
Response.Write ">采用原文分页</option>"
Response.Write " </select>"
'Response.Write " 自动分页时的每页大约字符数（包含HTML标记）：
Response.Write "<input name=""MaxCharPerPage"" type=""hidden"" value=""" & MaxCharPerPage & """ size=""8"" maxlength=""8""> "
Response.Write " </td></tr>"
Response.Write " <tr style=""display:none"">"
Response.Write " <td height=""22"" width=""20%"" align=""right"">文章阅读等级：</td>"
Response.Write " <td><input type='hidden' value='0' name='ReadLevel'></td>"
Response.Write " </tr>"
Response.Write " <tr style=""display:none"">"
Response.Write " <td height=""22"" width=""20%"" align=""right"">文章阅读点数：</td>"
Response.Write " <td><input name='ReadPoint' type='text' id='ReadPoint' value='" & ReadPoint & "' size='5' maxlength='3'>"
Response.Write " <font color='#0000FF'>如果大于0，则用户阅读此文章时将消耗相应点数。（对游客和管理员无效）</font> </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right"">文章评分等级：</td>"
Response.Write " <td><select name=""Stars"">"
Response.Write " <option value=""★★★★★"" "
If Stars = "★★★★★" Then Response.Write "selected"
Response.Write ">★★★★★</option>"
Response.Write " <option value=""★★★★"""
If Stars = "★★★★" Then Response.Write "selected"
Response.Write ">★★★★</option>"
Response.Write " <option value=""★★★"" "
If Stars = "★★★" Then Response.Write "selected"
Response.Write ">★★★</option>"
Response.Write " <option value=""★★"" "
If Stars = "★★" Then Response.Write "selected"
Response.Write ">★★</option>"
Response.Write " <option value=""★"" "
If Stars = "★" Then Response.Write "selected"
Response.Write ">★</option>"
Response.Write " </select> </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right"">点击数初始值：</td>"
Response.Write " <td><input name=""Hits"" type=""text"" id=""Hits"" value=""" & Hits & """ size=""10"" maxlength=""10"">"
Response.Write " <span class=""STYLE4"">文章浏览数作弊</span></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right"">生成扩展名：</td>"
Response.Write " <td>" & KSCMS.GetFsoTypeStr(1)
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right"">文章模板：</td>"
Response.Write " <td><select name='TemplateID' id='TemplateID'>" & KMCObj.GetTemplate(ChannelID, TemplateID) & "</select>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right"">标签过滤：</td>"
Response.Write " <td>"
Response.Write " <input name=""Script_Iframe"" type=""checkbox"" value=""yes"" "
If Script_Iframe = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Iframe"
Response.Write " <input name=""Script_Object"" type=""checkbox"" value=""yes"" "
If Script_Object = -1 Then Response.Write "checked"
Response.Write "onclick='return confirm(""确定要选择该标记吗？这将删除正文中的所有Object标记，结果将导致该文章中的所有Flash动画被删除！"");'>"
Response.Write " Object"
Response.Write " <input name=""Script_Script"" type=""checkbox"" value=""yes"" "
If Script_Script = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Script"
Response.Write " <input name=""Script_Div"" type=""checkbox"" value=""yes"" "
If Script_Div = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Div"
Response.Write " <input name=""Script_Class"" type=""checkbox"" value=""yes"" "
If Script_Class = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Class"
Response.Write " <input name=""Script_Table"" type=""checkbox"" value=""yes"" "
If Script_Table = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Table"
Response.Write " <input name=""Script_Tr"" type=""checkbox"" value=""yes"" "
If Script_Tr = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Tr"
Response.Write " <br>"
Response.Write " <input name=""Script_Span"" type=""checkbox"" value=""yes"" "
If Script_Span = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Span "
Response.Write " <input name=""Script_Img"" type=""checkbox"" value=""yes"" "
If Script_Img = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Img "
Response.Write " <input name=""Script_Font"" type=""checkbox"" value=""yes"" "
If Script_Font = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Font "
Response.Write " <input name=""Script_A"" type=""checkbox"" value=""yes"" "
If Script_A = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " A "
Response.Write " <input name=""Script_Html"" type=""checkbox"" value=""yes"" "
If Script_Html = -1 Then Response.Write "checked"
Response.Write "onclick='return confirm(""确定要选择该标记吗？这将删除正文中的所有Html标记，结果将导致该文章的可阅读性降低！"");'>"
Response.Write " Html "
Response.Write " <input name=""Script_Td"" type=""checkbox"" value=""yes"" "
If Script_Td = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " Td </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right""> 列表深度：</td>"
Response.Write " <td>"
Response.Write " <input name=""CollecListNum"" type=""text"" id=""CollecListNum"" value=""" & CollecListNum & """ size=""10"" maxlength=""10""> "
Response.Write " <font color='#0000FF'>0为所有的列表</font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right""> 采集文章数量：</td>"
Response.Write " <td>"
Response.Write " <input name=""CollecNewsNum"" type=""text"" id=""CollecNewsNum"" value=""" & CollecNewsNum & """ size=""10"" maxlength=""10"">"
Response.Write " "
Response.Write " <font color='#0000FF'>0为所有的文章<span lang=""en-us"">(</span>每一列表的新闻限制数量<span lang=""en-us"">)</span></font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" width=""20%"" align=""right""> 采集选项：</td>"
Response.Write " <td>"
Response.Write " <input name=""IntoBase"" type=""checkbox"" value=""1"" "
If IntoBase = 1 Then Response.Write "checked"
Response.Write ">"
Response.Write " 立即写入数据库"
Response.Write " <input name=""BeyondSavePic"" type=""checkbox"" value=""1"" "
If BeyondSavePic = 1 Then Response.Write "checked"
If KMCObj.IsObjInstalled(KSCMS.GetConfig("FsoObjName")) = False Then Response.Write "disabled"
Response.Write ">"
Response.Write " 保存图片"
Response.Write " <input name=""CollecOrder"" type=""checkbox"" value=""yes"" "
If CollecOrder = -1 Then Response.Write "checked"
Response.Write ">"
Response.Write " 倒序采集 </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""30"" width=""20%"" align=""right""></td>"
Response.Write " <td align-""center""><center>"
Response.Write " <input type=""hidden"" value=""" & ItemID & """ name=""ItemID"">"
Response.Write " <input type=""submit"" value="" 完 成 "" name=""submit""> </center> </td>"
Response.Write " </tr>"
Response.Write "</form>"
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub GetTest()
SqlItem = "Select * From KS_CollectItem Where ItemID=" & ItemID
Set RsItem = Server.CreateObject("adodb.recordset")
RsItem.Open SqlItem, ConnItem, 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")
PaginationType = RsItem("PaginationType")
MaxCharPerPage = RsItem("MaxCharPerPage")
ReadLevel = RsItem("ReadLevel")
Stars = RsItem("Stars")
ReadPoint = RsItem("ReadPoint")
Hits = RsItem("Hits")
UpDateType = RsItem("UpdateType")
UpDateTime = RsItem("UpdateTime")
Strip = RsItem("Strip")
Rolls = RsItem("Rolls")
Comment = RsItem("Comment")
Recommend = RsItem("Recommend")
Popular = RsItem("Popular")
FnameType = RsItem("FnameType")
TemplateID = RsItem("TemplateID")
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")
IntoBase = RsItem("IntoBase")
BeyondSavePic = RsItem("BeyondSavePic")
CollecOrder = RsItem("CollecOrder")
Verific = RsItem("Verific")
CollecListNum = RsItem("CollecListNum")
CollecNewsNum = RsItem("CollecNewsNum")
InputerType = RsItem("InputerType")
Inputer = RsItem("Inputer")
EditorType = RsItem("EditorType")
Editor = RsItem("Editor")
ShowComment = RsItem("ShowComment")
Script_Table = RsItem("Script_Table")
Script_Tr = RsItem("Script_Tr")
Script_Td = RsItem("Script_Td")
End If
RsItem.Close
Set RsItem = Nothing
End Sub
End Class
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?