📄 collect_itemmodify3.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_ItemModify3
KSCls.Execute()
Set KSCls = Nothing
Class Collect_ItemModify3
Private KSCMS
Private KMCObj
Private ConnItem
Private SqlItem, RsItem, ItemID, FoundErr, ErrMsg, Action
Private ListStr, LsString, LoString, ListPageType, LPsString, LPoString, ListPageStr1, ListPageStr2, ListPageID1, ListPageID2, ListPageStr3
Private LoginType, LoginUrl, LoginPostUrl, LoginUser, LoginPass, LoginFalse, LoginResult, LoginData
Private HsString, HoString, HttpUrlType, HttpUrlStr
Private ListUrl, ListCode, ListPageNext
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()
ItemID = Trim(Request("ItemID"))
Action = Trim(Request("Action"))
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 ".STYLE1 {color: #FF0000}" & vbCrLf
Response.Write "-->" & vbCrLf
Response.Write "</style>"
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"" colspan=""2"" align=""center""><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=""STYLE1"">链接设置</span> >> 正文设置 >> 采样测试 >> 属性设置 >> 完成</td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<form method=""post"" action=""Collect_ItemModify4.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"" >链接开始标记：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""HsString"" cols=""49"" rows=""7"">" & HsString & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""20%"" align=""center"" >链接结束标记：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <textarea name=""HoString"" cols=""49"" rows=""7"">" & HoString & "</textarea></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=""HttpUrlType"" "
If HttpUrlType = 0 Then Response.Write "checked"
Response.Write " onClick=""HttpUrl1.style.display='none'""> 自动处理 "
Response.Write " <input type=""radio"" value=""1"" name=""HttpUrlType"" "
If HttpUrlType = 1 Then Response.Write "checked"
Response.Write " onClick=""HttpUrl1.style.display=''""> 重新定位 </td>"
Response.Write " </tr>"
Response.Write " <tr id=""HttpUrl1"" style=""display:'"
If HttpUrlType = 0 Then Response.Write "none"
Response.Write "'"">"
Response.Write " <td width=""20%"" align=""center"">绝对链接字符：</td>"
Response.Write " <td width=""75%"">"
Response.Write " <input name=""HttpUrlStr"" type=""text"" size=""49"" maxlength=""200"" value=""" & HttpUrlStr & """></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""30"" colspan=""2"" align=""center"">"
Response.Write " <input name=""Action"" type=""hidden"" id=""Action"" value=""SaveEdit"">"
Response.Write " <input name=""ItemID"" type=""hidden"" id=""ItemID"" value=""" & ItemID & """>"
Response.Write " <input type=""button"" name=""button1"" value=""上 一 步"" onClick=""window.location.href='javascript:history.go(-1)'"" >"
Response.Write " "
Response.Write " <input type=""submit"" name=""Submit"" value=""下 一 步""""></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</form>"
Response.Write "<table width=""85%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >"
Response.Write " <tr>"
Response.Write " <td height=""22"" colspan=""2"" class=""title""><div align=""center""><strong>列 表 截 取 测 试</strong></div></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" colspan=""2"">" & ListCode & " </td>"
Response.Write " </tr>"
Response.Write "</table>"
If ListPageType = 1 Then
Response.Write "<br>"
Response.Write "<table width=""85%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >"
Response.Write " <tr>"
Response.Write " <td height=""22"" colspan=""2"" >"
Response.Write "<br>下一页列表：<a href='" & ListPageNext & "' target=_blank><font color=red>" & ListPageNext & "</font></a>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
End If
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub SaveEdit()
ListStr = Trim(Request.Form("ListStr"))
LsString = Request.Form("LsString")
LoString = Request.Form("LoString")
ListPageType = Request.Form("ListPageType")
LPsString = Request.Form("LPsString")
LPoString = Request.Form("LPoString")
ListPageStr1 = Trim(Request.Form("ListPageStr1"))
ListPageStr2 = Trim(Request.Form("ListPageStr2"))
ListPageID1 = Request.Form("ListPageID1")
ListPageID2 = Request.Form("ListPageID2")
ListPageStr3 = Request.Form("ListPageStr3")
If ItemID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>参数错误，请从有效链接进入</li>"
Else
ItemID = CLng(ItemID)
End If
If LsString = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>列表开始标记不能为空</li>"
End If
If LoString = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>列表结束标记不能为空</li>"
End If
If ListPageType = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择列表索引分页类型</li>"
Else
ListPageType = CLng(ListPageType)
Select Case ListPageType
Case 0, 1
If ListStr = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>列表索引页不能为空</li>"
Else
ListStr = Trim(ListStr)
End If
If ListPageType = 1 Then
If LPsString = "" Or LPoString = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>索引分页开始/结束标记不能为空</li>"
End If
If ListPageStr1 <> "" And Len(ListPageStr1) < 15 Then
FoundErr = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -