📄 admin_itemmanage.asp
字号:
FoundErr=True
ErrCodes=ErrCodes & "<li>目标采集数据库连接出错，请检查根目录中的采集数据库是否存在或已经更名为“OldItem.Mdb”。</li><br>"
End If
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
id=request("checked")
If ID="" Then
FoundErr=True
ErrCodes=ErrCodes & "<li>请选择要导入的项目！</li><br>"
Else
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
set rs=server.createobject("adodb.recordset")
sql="select * from [Item] where Itemid="&viewArray(i)
rs.Open sql,Connitems,1,1
if not rs.eof then
Set Rs1=server.CreateObject("adodb.recordset")
Sql1="Select * from Item"
Rs1.Open Sql1,ConnItem,1,3
Rs1.AddNew
Rs1("WebName")=Rs("WebName")
Rs1("WebUrl")=Rs("WebUrl")
Rs1("EquivType")="gb2312"
Rs1("IsSaveFace")=Rs("IsSaveFiles")
Rs1("IsSaveFiles")=Rs("IsSaveFiles")
Rs1("InputerType")=Rs("InputerType")
Rs1("Inputer")=Rs("Inputer")
Rs1("EditorType")=Rs("EditorType")
Rs1("Editor")=Rs("Editor")
Rs1("LPUrlType")=Rs("LPUrlType")
Rs1("ItemDemo")=Rs("ItemDemo")
Rs1("LoginType")=Rs("LoginType")
Rs1("LoginUrl")=Rs("LoginUrl")
Rs1("LoginPostUrl")=Rs("LoginPostUrl")
Rs1("LoginUser")=Rs("LoginUser")
Rs1("LoginPass")=Rs("LoginPass")
Rs1("LoginFalse")=Rs("LoginFalse")
Rs1("Islisted")=Rs("Islisted")
Rs1("ListPaingsString")=Rs("ListPaingsString")
Rs1("ListPaingoString")=Rs("ListPaingoString")
Rs1("Islisted1")=Rs("Islisted1")
Rs1("listedUrl")=Rs("listedUrl")
Rs1("listedsType")=0
Rs1("listedoType")=0
Rs1("listedsString")=Rs("listedsString")
Rs1("listedoString")=Rs("listedoString")
Rs1("listedType1")=0
Rs1("listedsType1")=0
Rs1("listedoType1")=0
Rs1("listedsString1")=""
Rs1("listedoString1")=""
Rs1("ListPaingType")=Rs("ListPaingType")
Rs1("LPsType")=Rs("LPsType")
Rs1("LPoType")=Rs("LPoType")
Rs1("LPsString")=Rs("LPsString")
Rs1("LPoString")=Rs("LPoString")
Rs1("ListPaingStr")=Rs("ListPaingStr")
Rs1("ShowType")=0
Rs1("ShowStr")=Rs("ShowStr")
Rs1("ShowStrUrl")=Rs("ShowStrNum")
Rs1("SBsType")=Rs("SBsType")
Rs1("SBoType")=Rs("SBoType")
Rs1("SBsString")=Rs("SBsString")
Rs1("SBoString")=Rs("SBoString")
Rs1("FolderType")=Rs("FolderType")
Rs1("ListStr")=Rs("ListStr")
Rs1("B_readsType")=Rs("B_readsType")
Rs1("B_readoType")=Rs("B_readoType")
Rs1("B_readsString")=Rs("B_readsString")
Rs1("B_readoString")=Rs("B_readoString")
Rs1("FolderType1")=Rs("FolderType1")
Rs1("B_readsType1")=Rs("B_readsType1")
Rs1("B_readoType1")=Rs("B_readoType1")
Rs1("B_readsString1")=Rs("B_readsString1")
Rs1("B_readoString1")=Rs("B_readoString1")
Rs1("B_NameType")=Rs("B_NameType")
Rs1("B_NameStr")=Rs("B_NameStr")
Rs1("B_NsType")=Rs("B_NsType")
Rs1("B_NoType")=Rs("B_NoType")
Rs1("B_NsString")=Rs("B_NsString")
Rs1("B_NoString")=Rs("B_NoString")
Rs1("B_NameType1")=Rs("B_NameType1")
Rs1("B_NsType1")=Rs("B_NsType1")
Rs1("B_NoType1")=Rs("B_NoType1")
Rs1("B_NsString1")=Rs("B_NsString1")
Rs1("B_NoString1")=Rs("B_NoString1")
Rs1("B_AuthorType")=Rs("B_AuthorType")
Rs1("B_AuthorStr")=Rs("B_AuthorStr")
Rs1("B_AsType")=Rs("B_AsType")
Rs1("B_AoType")=Rs("B_AoType")
Rs1("B_AsString")=Rs("B_AsString")
Rs1("B_AoString")=Rs("B_AoString")
Rs1("B_AuthorType1")=Rs("B_AuthorType1")
Rs1("B_AsType1")=Rs("B_AsType1")
Rs1("B_AoType1")=Rs("B_AoType1")
Rs1("B_AsString1")=Rs("B_AsString1")
Rs1("B_AoString1")=Rs("B_AoString1")
Rs1("B_LeiType")=Rs("B_LeiType")
Rs1("B_LeiStr")=Rs("B_LeiStr")
Rs1("B_LsType")=Rs("B_LsType")
Rs1("B_LoType")=Rs("B_LoType")
Rs1("B_LsString")=Rs("B_LsString")
Rs1("B_LoString")=Rs("B_LoString")
Rs1("B_LeiType1")=Rs("B_LeiType1")
Rs1("B_LsType1")=Rs("B_LsType1")
Rs1("B_LoType1")=Rs("B_LoType1")
Rs1("B_LsString1")=Rs("B_LsString1")
Rs1("B_LoString1")=Rs("B_LoString1")
Rs1("B_PicType")=Rs("B_PicType")
Rs1("B_PicStr")=Rs("B_PicStr")
Rs1("B_PsType")=Rs("B_PsType")
Rs1("B_PoType")=Rs("B_PoType")
Rs1("B_PsString")=Rs("B_PsString")
Rs1("B_PoString")=Rs("B_PoString")
Rs1("B_PicType1")=Rs("B_PicType1")
Rs1("B_PicType2")=Rs("B_PicType2")
Rs1("B_PicStr1")=Rs("B_PicStr1")
Rs1("B_PicStr2")=Rs("B_PicStr2")
Rs1("B_PsType1")=Rs("B_PsType1")
Rs1("B_PoType1")=Rs("B_PoType1")
Rs1("B_PsString1")=Rs("B_PsString1")
Rs1("B_PoString1")=Rs("B_PoString1")
Rs1("B_KeyType")=Rs("B_KeyType")
Rs1("B_KeyStr")=Rs("B_KeyStr")
Rs1("B_KsType")=Rs("B_KsType")
Rs1("B_KoType")=Rs("B_KoType")
Rs1("B_KsString")=Rs("B_KsString")
Rs1("B_KoString")=Rs("B_KoString")
Rs1("B_KeyType1")=Rs("B_KeyType1")
Rs1("B_KsType1")=Rs("B_KsType1")
Rs1("B_KoType1")=Rs("B_KoType1")
Rs1("B_KsString1")=Rs("B_KsString1")
Rs1("B_KoString1")=Rs("B_KoString1")
Rs1("B_InfoType")=Rs("B_InfoType")
Rs1("B_InfoStr")=Rs("B_InfoStr")
Rs1("B_IsType")=Rs("B_IsType")
Rs1("B_IoType")=Rs("B_IoType")
Rs1("B_IsString")=Rs("B_IsString")
Rs1("B_IoString")=Rs("B_IoString")
Rs1("B_InfoType1")=Rs("B_InfoType1")
Rs1("B_IsType1")=Rs("B_IsType1")
Rs1("B_IoType1")=Rs("B_IoType1")
Rs1("B_IsString1")=Rs("B_IsString1")
Rs1("B_IoString1")=Rs("B_IoString1")
Rs1("B_TaiType")=Rs("B_TaiType")
Rs1("B_TaiStr")=Rs("B_TaiStr")
Rs1("B_TsType")=Rs("B_TsType")
Rs1("B_ToType")=Rs("B_ToType")
Rs1("B_TsString")=Rs("B_TsString")
Rs1("B_ToString")=Rs("B_ToString")
Rs1("B_TaiType1")=Rs("B_TaiType1")
Rs1("B_TsType1")=Rs("B_TsType1")
Rs1("B_ToType1")=Rs("B_ToType1")
Rs1("B_TsString1")=Rs("B_TsString1")
Rs1("B_ToString1")=Rs("B_ToString1")
Rs1("ListStrUrl")=Rs("ListStrNum")
Rs1("LsString")=Rs("LsString")
Rs1("LoString")=Rs("LoString")
Rs1("readType")=0
Rs1("readStrUrl")=""
Rs1("HsType")=Rs("HsType")
Rs1("HoType")=Rs("HoType")
Rs1("HsString")=Rs("HsString")
Rs1("HoString")=Rs("HoString")
Rs1("HUrlType1")=0
Rs1("HsType1")=0
Rs1("HoType1")=0
Rs1("HsString1")=""
Rs1("HoString1")=""
Rs1("HttpUrlType")=Rs("HttpUrlType")
Rs1("HttpUrlStr")=Rs("HttpUrlStr")
Rs1("VsString")=Rs("VsString")
Rs1("VoString")=Rs("VoString")
Rs1("TitleType")=Rs("TitleType")
Rs1("TitleTypes")=Rs("TitleTypes")
Rs1("TsType")=Rs("TsType")
Rs1("ToType")=Rs("ToType")
Rs1("TsString")=Rs("TsString")
Rs1("ToString")=Rs("ToString")
Rs1("TitleType1")=Rs("TitleType1")
Rs1("TsType1")=Rs("TsType1")
Rs1("ToType1")=Rs("ToType1")
Rs1("TsString1")=Rs("TsString1")
Rs1("ToString1")=Rs("ToString1")
Rs1("ContType")=Rs("ContType")
Rs1("CsType")=Rs("CsType")
Rs1("CoType")=Rs("CoType")
Rs1("CsString")=Rs("CsString")
Rs1("CoString")=Rs("CoString")
Rs1("ContType1")=Rs("ContType1")
Rs1("CsType1")=Rs("CsType1")
Rs1("CoType1")=Rs("CoType1")
Rs1("CsString1")=Rs("CsString1")
Rs1("CoString1")=Rs("CoString1")
Rs1("ContType2")=Rs("ContType2")
Rs1("CsType2")=Rs("CsType2")
Rs1("CoType2")=Rs("CoType2")
Rs1("CsString2")=Rs("CsString2")
Rs1("CoString2")=Rs("CoString2")
Rs1("rHsType")=0
Rs1("rHoType")=0
Rs1("rHsString")=""
Rs1("rHoString")=""
Rs1("rHUrlType1")=0
Rs1("rHsType1")=0
Rs1("rHoType1")=0
Rs1("rHsString1")=""
Rs1("rHoString1")=""
Rs1("rHttpUrlType")=0
Rs1("rHttpUrlStr")=" "
Rs1("cookTypes")=0
Rs1("cooksString")=""
Rs1("cookoString")=""
Rs1("readType1")=0
Rs1("cookType")=Rs("cookType")
Rs1("cosType")=Rs("cosType")
Rs1("cooType")=Rs("cooType")
Rs1("cosString")=Rs("cosString")
Rs1("cooString")=Rs("cooString")
Rs1("cookType1")=Rs("cookType1")
Rs1("cosType1")=Rs("cosType1")
Rs1("cooType1")=Rs("cooType1")
Rs1("cosString1")=Rs("cosString1")
Rs1("cooString1")=Rs("cooString1")
Rs1("cookStr")=Rs("cookStr")
Rs1("JDTHType1")=Rs("JDTHType1")
Rs1("JDTHType2")=Rs("JDTHType2")
Rs1("JDTHType3")=Rs("JDTHType3")
Rs1("JDTH1sStr")=Rs("JDTH1sStr")
Rs1("JDTH1oStr")=Rs("JDTH1oStr")
Rs1("JDTH2sStr")=Rs("JDTH2sStr")
Rs1("JDTH2oStr")=Rs("JDTH2oStr")
Rs1("JDTH3sStr")=Rs("JDTH3sStr")
Rs1("JDTH3oStr")=Rs("JDTH3oStr")
Rs1("GJTHType1")=Rs("GJTHType1")
Rs1("GJTHType2")=Rs("GJTHType2")
Rs1("GJTHType3")=Rs("GJTHType3")
Rs1("GJTH1sStr")=Rs("GJTH1sStr")
Rs1("GJTH1oStr")=Rs("GJTH1oStr")
Rs1("GJTH1cStr")=Rs("GJTH1cStr")
Rs1("GJTH2sStr")=Rs("GJTH2sStr")
Rs1("GJTH2oStr")=Rs("GJTH2oStr")
Rs1("GJTH2cStr")=Rs("GJTH2cStr")
Rs1("GJTH3sStr")=Rs("GJTH3sStr")
Rs1("GJTH3oStr")=Rs("GJTH3oStr")
Rs1("GJTH3cStr")=Rs("GJTH3cStr")
Rs1("Itemfalst")=0
Rs1.UpDate
Rs1.Close
Set Rs1=Nothing
else
ErrCodes = ErrCodes & "<li>原项目"&viewArray(i)&"不存在或为空!</li><br>"
FoundErr=True
end if
rs.close
set rs=nothing
Next
end if
if FoundErr=True then
Call ShowAdminErrMsg(ErrCodes,"javascript:history.go(-1)")
else
call connclose()
Call ShowAdminSuccessMsg("<li>采集项目导入成功！</li><br>","admin_ItemManage.asp?Action=list")
end if
end if
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -