📄 admin_itemmodify3.asp
字号:
Rs("B_PoType1")=B_PoType1
Rs("B_PsString1")=B_PsString1
Rs("B_PoString1")=B_PoString1
End If
ElseIf B_PicType=2 Then
Rs("B_PicStr")=B_PicStr
End If
Rs("B_KeyType")=B_KeyType
Rs("B_KeyType1")=B_KeyType1
If B_KeyType=0 Then
Rs("B_KsType")=B_KsType
Rs("B_KoType")=B_KoType
Rs("B_KsString")=B_KsString
Rs("B_KoString")=B_KoString
If B_KeyType1=1 Then
Rs("B_KsType1")=B_KsType1
Rs("B_KoType1")=B_KoType1
Rs("B_KsString1")=B_KsString1
Rs("B_KoString1")=B_KoString1
End If
ElseIf B_KeyType=2 Then
Rs("B_KeyStr")=B_KeyStr
End If
Rs("B_InfoType")=B_InfoType
Rs("B_InfoType1")=B_InfoType1
If B_InfoType=0 Then
Rs("B_IsType")=B_IsType
Rs("B_IoType")=B_IoType
Rs("B_IsString")=B_IsString
Rs("B_IoString")=B_IoString
If B_InfoType1=1 Then
Rs("B_IsType1")=B_IsType1
Rs("B_IoType1")=B_IoType1
Rs("B_IsString1")=B_IsString1
Rs("B_IoString1")=B_IoString1
End If
ElseIf B_InfoType=2 Then
Rs("B_InfoStr")=B_InfoStr
End If
Rs("B_TaiType")=B_TaiType
Rs("B_TaiType1")=B_TaiType1
If B_TaiType=0 Then
Rs("B_TsType")=B_TsType
Rs("B_ToType")=B_ToType
Rs("B_TsString")=B_TsString
Rs("B_ToString")=B_ToString
If B_TaiType1=1 Then
Rs("B_TsType1")=B_TsType1
Rs("B_ToType1")=B_ToType1
Rs("B_TsString1")=B_TsString1
Rs("B_ToString1")=B_ToString1
End If
ElseIf B_TaiType=2 Then
Rs("B_TaiStr")=B_TaiStr
End If
Rs("B_KeyType")=B_KeyType
Rs("B_KeyType1")=B_KeyType1
If B_KeyType=0 Then
Rs("B_KsType")=B_KsType
Rs("B_KoType")=B_KoType
Rs("B_KsString")=B_KsString
Rs("B_KoString")=B_KoString
If B_KeyType1=1 Then
Rs("B_KsType1")=B_KsType1
Rs("B_KoType1")=B_KoType1
Rs("B_KsString1")=B_KsString1
Rs("B_KoString1")=B_KoString1
End If
ElseIf B_KeyType=2 Then
Rs("B_KeyStr")=B_KeyStr
End If
Rs.UpDate
EquivType=Rs("EquivType")
readType=Rs("readType")
LoginType=Rs("LoginType")
LoginUrl=Rs("LoginUrl")
LoginPostUrl=Rs("LoginPostUrl")
LoginUser=Rs("LoginUser")
LoginPass=Rs("LoginPass")
LoginFalse=Rs("LoginFalse")
ListStr=Rs("ListStr")
ListStrUrl=Rs("ListStrUrl")
LsString=Rs("LsString")
LoString=Rs("LoString")
HsType=Rs("HsType")
HoType=Rs("HoType")
HsString=Rs("HsString")
HoString=Rs("HoString")
HUrlType1=Rs("HUrlType1")
HsType1=Rs("HsType1")
HoType1=Rs("HoType1")
HsString1=Rs("HsString1")
HoString1=Rs("HoString1")
HttpUrlType=Rs("HttpUrlType")
HttpUrlStr=Rs("HttpUrlStr")
rHsType=Rs("rHsType")
rHoType=Rs("rHoType")
rHsString=Rs("rHsString")
rHoString=Rs("rHoString")
rHUrlType1=Rs("rHUrlType1")
rHsType1=Rs("rHsType1")
rHoType1=Rs("rHoType1")
rHsString1=Rs("rHsString1")
rHoString1=Rs("rHoString1")
rHttpUrlType=Rs("rHttpUrlType")
rHttpUrlStr=Rs("rHttpUrlStr")
cookTypes=Rs("cookTypes")
cosType=Rs("cosType")
cooType=Rs("cooType")
cosString=Rs("cosString")
cooString=Rs("cooString")
cookType1=Rs("cookType1")
cosType1=Rs("cosType1")
cooType1=Rs("cooType1")
cosString1=Rs("cosString1")
cooString1=Rs("cooString1")
TitleTypes=Rs("TitleTypes")
TsType=Rs("TsType")
ToType=Rs("ToType")
TsString=Rs("TsString")
ToString=Rs("ToString")
TitleType1=Rs("TitleType1")
TsType1=Rs("TsType1")
ToType1=Rs("ToType1")
TsString1=Rs("TsString1")
ToString1=Rs("ToString1")
cooksString=Rs("cooksString")
Rs.Close
Set Rs=Nothing
If LoginType=1 then
LoginData=UrlEncoding(LoginUser & "&" & LoginPass)
LoginResult=PostHttpPage(LoginUrl,LoginPostUrl,LoginData)
If Instr(LoginResult,LoginFalse)>0 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>网站登录失败，请检查登录参数！</li>"
End If
End If
If FoundErr<>True Then
ListUrl=Replace(ShowStr,"{$Bl_id$}",ShowStrUrl)
ListCode=GetHttpPage(ListUrl,EquivType)
If ListCode<>"$False$" Then
ListCode=GetBody(ListCode,SBsString,SBoString,True,True)
If ListCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取:" & ListUrl & "作品资料页时发生错误</li>"
Else
'----------------------------------------------------------------------------------------
If FolderType=0 Then
If B_readsType="" or B_readoType="" or B_readsString="" or B_readoString="" or FolderType1="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>"
Else
if B_readsType=1 then
B_readsType=true
elseif B_readsType=0 then
B_readsType=False
end if
if B_readoType=1 then
B_readoType=true
elseif B_readoType=0 then
B_readoType=False
end if
ListsUrl=GetBody(ListCode,B_readsString,B_readoString,B_readsType,B_readoType)
if FolderType1=1 then
if B_readsType1=1 then
B_readsType1=true
elseif B_readsType1=0 then
B_readsType1=False
end if
if B_readoType1=1 then
B_readoType1=true
elseif B_readoType1=0 then
B_readoType1=False
end if
ListsUrl=GetBody(ListsUrl,B_readsString1,B_readoString1,B_readsType1,B_readoType1)
End If
ListsUrl=DefiniteUrl(ListsUrl,ListUrl)
End If
ElseIf FolderType=1 then
ListsUrl=Replace(ListStr,"{$Bl_id$}",ShowStrUrl)
ElseIf FolderType=2 Then
ListsUrl=ListUrl
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>"
End If
'----------------------------------------------------------------------------------------
If B_NameType=0 Then
if B_NsType=1 then
B_NsType=true
elseif B_NsType=0 then
B_NsType=False
end if
if B_NoType=1 then
B_NoType=true
elseif B_NoType=0 then
B_NoType=False
end if
B_Name=GetBody(ListCode,B_NsString,B_NoString,B_NsType,B_NoType)
If B_NameType1=1 Then
if B_NsType1=1 then
B_NsType1=true
elseif B_NsType1=0 then
B_NsType1=False
end if
if B_NoType1=1 then
B_NoType1=true
elseif B_NoType1=0 then
B_NoType1=False
end if
B_Name=GetBody(B_Name,B_NsString1,B_NoString1,B_NsType1,B_NoType1)
End If
B_Name=GetTextFromHtml(B_Name)
ElseIf B_NameType=2 Then
B_Name=B_NameStr
End If
If B_AuthorType=0 Then
if B_AsType=1 then
B_AsType=true
elseif B_AsType=0 then
B_AsType=False
end if
if B_AoType=1 then
B_AoType=true
elseif B_AoType=0 then
B_AoType=False
end if
B_Author=GetBody(ListCode,B_AsString,B_AoString,B_AsType,B_AoType)
If B_AuthorType1=1 Then
if B_AsType1=1 then
B_AsType1=true
elseif B_AsType1=0 then
B_AsType1=False
end if
if B_AoType1=1 then
B_AoType1=true
elseif B_AoType1=0 then
B_AoType1=False
end if
B_Author=GetBody(B_Author,B_AsString1,B_AoString1,B_AsType1,B_AoType1)
End If
B_Author=GetTextFromHtml(B_Author)
ElseIf B_AuthorType=2 Then
B_Author=B_AuthorStr
End If
If B_LeiType=0 Then
if B_LsType=1 then
B_LsType=true
elseif B_LsType=0 then
B_LsType=False
end if
if B_LoType=1 then
B_LoType=true
elseif B_LoType=0 then
B_LoType=False
end if
B_Lei=GetBody(ListCode,B_LsString,B_LoString,B_LsType,B_LoType)
If B_LeiType1=1 Then
if B_LsType1=1 then
B_LsType1=true
elseif B_LsType1=0 then
B_LsType1=False
end if
if B_LoType1=1 then
B_LoType1=true
elseif B_LoType1=0 then
B_LoType1=False
end if
B_Lei=GetBody(B_Lei,B_LsString1,B_LoString1,B_LsType1,B_LoType1)
End If
B_Lei=GetTextFromHtml(B_Lei)
ElseIf B_LeiType=2 Then
B_Lei=B_LeiStr
End If
If B_PicType=0 Then
if B_PsType=1 then
B_PsType=true
elseif B_PsType=0 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -