📄 admin_itemmodify2.asp
字号:
FoundErr=True
ErrMsg=ErrMsg& "<br><li>请填写指定的录入员</li>"
End If
End If
End If
If Islisted=0 or Islisted=2 then
if Islisted1=1 Then
ListCode=GetHttpPage(listedUrl,EquivType)
If ListCode<>"$False$" Then
ListCode=GetBody(ListCode,ListPaingsString,ListPaingoString,True,True)
If ListCode<>"$False$" Then
if listedsType=1 then
listedsType=true
elseif listedsType=0 then
listedsType=False
end if
if listed0Type=1 then
listed0Type=true
elseif listed0Type=0 then
listed0Type=False
end if
NewsArrayCode=GetArray(ListCode,listedsString,listedoString,listedsType,listed0Type)
If NewsArrayCode<>"$False$" Then
NewsArray=Split(NewsArrayCode,"$Array$")
For Testi=0 To Ubound(NewsArray)
If listedType1=1 Then
if listedsType1=1 then
listedsType1=true
elseif listedsType1=0 then
listedsType1=False
end if
if ListedoType1=1 then
ListedoType1=true
elseif ListedoType1=0 then
ListedoType1=False
end if
NewsArray(Testi)=GetBody(NewsArray(Testi),listedsString1,listedoString1,listedsType1,ListedoType1)
If NewsArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正测试作品ID/Url时出错。</li>"
End if
End if
if Islisted=0 then
if IsNumeric(NewsArray(Testi))=false then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>截取到的作品ID不是标准数字格式,请检查.</li>"
End If
End If
Next
ShowStrUrl=NewsArray(0)
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取测试作品ID/Url时出错。</li>"
End If
If ListPaingType=1 Then
if LPsType=1 then
LPsType=true
elseif LPsType=0 then
LPsType=False
end if
if LPoType=1 then
LPoType=true
elseif LPoType=0 then
LPoType=False
end if
ListPaingNext=GetPaing(ListCode,LPsString,LPoString,LPsType,LPoType)
If ListPaingNext<>"$False$" Then
If LPUrlType=1 Then
ListPaingNext=Replace(ListPaingStr,"{$ID$}",ListPaingNext)
ElseIf LPUrlType=0 Then
ListPaingNext=DefiniteUrl(ListPaingNext,listedUrl)
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面下一页时出错。</li>"
End If
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取测试作品列表页面时出错。</li>"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面时出错。</li>"
End If
Else
If Islisted=2 and Islisted1=0 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>当选择“仅按照URL列表”时只能选择“按照页面”获取。</li>"
End If
End If
End If
If FoundErr<>True Then
Sql="Select top 1 * from Item where ItemID=" & ItemID
Set Rs=server.CreateObject("adodb.recordset")
Rs.Open Sql,ConnItem,1,3
Rs("WebName")=WebName
Rs("WebUrl")=WebUrl
Rs("EquivType")=EquivType
Rs("Islisted")=Islisted
If Islisted=0 or Islisted=2 Then
Rs("Islisted1")=Islisted1
If Islisted1=1 Then
Rs("listedUrl")=listedUrl
Rs("ListPaingsString")=ListPaingsString
Rs("ListPaingoString")=ListPaingoString
Rs("listedsType")=listedsType
Rs("listedoType")=listed0Type
Rs("listedsString")=listedsString
Rs("listedoString")=listedoString
Rs("listedType1")=listedType1
If listedType1=1 Then
Rs("listedsType1")=listedsType1
Rs("listedoType1")=listedoType1
Rs("listedsString1")=listedsString1
Rs("listedoString1")=listedoString1
End If
Rs("ListPaingType")=ListPaingType
If ListPaingType=1 Then
Rs("LPsType")=LPsType
Rs("LPsString")=LPsString
Rs("LPoType")=LPoType
Rs("LPoString")=LPoString
Rs("LPUrlType")=LPUrlType
If LPUrlType=1 Then
Rs("ListPaingStr")=ListPaingStr
End If
End If
If ListPaingType=2 Then
Rs("ListPaingStr")=ListPaingStr2
End If
End If
End If
Rs("IsSaveFace")=IsSaveFace
Rs("IsSaveFiles")=IsSaveFiles
Rs("InputerType")=InputerType
Rs("ShowType")=ShowType
Rs("EditorType")=EditorType
Rs("Inputer")=Inputer
Rs("Editor")=Editor
If ItemDemo<>"" then
Rs("ItemDemo")=ItemDemo
End if
Rs("LoginType")=LoginType
If LoginType=1 Then
Rs("LoginUrl")=LoginUrl
Rs("LoginPostUrl")=LoginPostUrl
Rs("LoginUser")=LoginUser
Rs("LoginPass")=LoginPass
Rs("LoginFalse")=LoginFalse
End If
Rs.UpDate
ItemID=Rs("ItemID")
ShowStr=Rs("ShowStr")
ListStr=Rs("ListStr")
ShowStrUrl=Rs("ShowStrUrl")
FolderType=Rs("FolderType")
B_readsType=Rs("B_readsType")
B_readoType=Rs("B_readoType")
B_readsString=Rs("B_readsString")
B_readoString=Rs("B_readoString")
FolderType1=Rs("FolderType1")
B_readsType1=Rs("B_readsType1")
B_readoType1=Rs("B_readoType1")
B_readsString1=Rs("B_readsString1")
B_readoString1=Rs("B_readoString1")
SBsType=Rs("SBsType")
SBoType=Rs("SBoType")
SBsString=Rs("SBsString")
SBoString=Rs("SBoString")
B_NameType=Rs("B_NameType")
B_NameStr=Rs("B_NameStr")
B_NsType=Rs("B_NsType")
B_NoType=Rs("B_NoType")
B_NsString=Rs("B_NsString")
B_NoString=Rs("B_NoString")
B_AuthorType=Rs("B_AuthorType")
B_AuthorStr=Rs("B_AuthorStr")
B_AsType=Rs("B_AsType")
B_AoType=Rs("B_AoType")
B_AsString=Rs("B_AsString")
B_AoString=Rs("B_AoString")
B_LeiType=Rs("B_LeiType")
B_LeiStr=Rs("B_LeiStr")
B_LsType=Rs("B_LsType")
B_LoType=Rs("B_LoType")
B_LsString=Rs("B_LsString")
B_LoString=Rs("B_LoString")
B_PicType=Rs("B_PicType")
B_PicStr=Rs("B_PicStr")
B_PsType=Rs("B_PsType")
B_PoType=Rs("B_PoType")
B_PsString=Rs("B_PsString")
B_PoString=Rs("B_PoString")
B_KeyType=Rs("B_KeyType")
B_KeyStr=Rs("B_KeyStr")
B_KsType=Rs("B_KsType")
B_KoType=Rs("B_KoType")
B_KsString=Rs("B_KsString")
B_KoString=Rs("B_KoString")
B_InfoType=Rs("B_InfoType")
B_InfoStr=Rs("B_InfoStr")
B_IsType=Rs("B_IsType")
B_IoType=Rs("B_IoType")
B_IsString=Rs("B_IsString")
B_IoString=Rs("B_IoString")
B_TaiType=Rs("B_TaiType")
B_TaiStr=Rs("B_TaiStr")
B_TsType=Rs("B_TsType")
B_ToType=Rs("B_ToType")
B_TsString=Rs("B_TsString")
B_ToString=Rs("B_ToString")
B_NameType1=Rs("B_NameType1")
B_NsType1=Rs("B_NsType1")
B_NoType1=Rs("B_NoType1")
B_NsString1=Rs("B_NsString1")
B_NoString1=Rs("B_NoString1")
B_AuthorType1=Rs("B_AuthorType1")
B_AsType1=Rs("B_AsType1")
B_AoType1=Rs("B_AoType1")
B_AsString1=Rs("B_AsString1")
B_AoString1=Rs("B_AoString1")
B_LeiType1=Rs("B_LeiType1")
B_LsType1=Rs("B_LsType1")
B_LoType1=Rs("B_LoType1")
B_LsString1=Rs("B_LsString1")
B_LoString1=Rs("B_LoString1")
B_PicType1=Rs("B_PicType1")
B_PicType2=Rs("B_PicType2")
B_PicStr1=Rs("B_PicStr1")
B_PicStr2=Rs("B_PicStr2")
B_PsType1=Rs("B_PsType1")
B_PoType1=Rs("B_PoType1")
B_PsString1=Rs("B_PsString1")
B_PoString1=Rs("B_PoString1")
B_KeyType1=Rs("B_KeyType1")
B_KsType1=Rs("B_KsType1")
B_KoType1=Rs("B_KoType1")
B_KsString1=Rs("B_KsString1")
B_KoString1=Rs("B_KoString1")
B_InfoType1=Rs("B_InfoType1")
B_IsType1=Rs("B_IsType1")
B_IoType1=Rs("B_IoType1")
B_IsString1=Rs("B_IsString1")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -