📄 admin_mov_add_05.asp
字号:
RsItem("SoStringbstr")=SoStringbstr
End If
RsItem("ZsStringbType")=ZsStringbType
If ZsStringbType=1 Then
RsItem("ZsStringb")=ZsStringb
RsItem("ZoStringb")=ZoStringb
ElseIf ZsStringbType=2 Then
RsItem("ZoStringbstr")=ZoStringbstr
End If
RsItem("LsStringbType")=LsStringbType
If LsStringbType=1 Then
RsItem("LsStringb")=LsStringb
RsItem("LoStringb")=LoStringb
ElseIf LsStringbType=2 Then
RsItem("LoStringbstr")=LoStringbstr
End If
RsItem("MsStringbType")=MsStringbType
If MsStringbType=1 Then
RsItem("MsStringb")=MsStringb
RsItem("MoStringb")=MoStringb
ElseIf MsStringbType=2 Then
RsItem("MoStringbstr")=MoStringbstr
End If
RsItem("QsStringbType")=QsStringbType
If QsStringbType=1 Then
RsItem("QsStringb")=QsStringb
RsItem("QoStringb")=QoStringb
ElseIf QsStringbType=2 Then
RsItem("QoStringbstr")=QoStringbstr
End If
RsItem("CopyFromType")=CopyFromType
If CopyFromType=1 Then
RsItem("FsString")=FsString
RsItem("FoString")=FoString
ElseIf CopyFromType=2 Then
RsItem("CopyFromStr")=CopyFromStr
End If
RsItem("KeyType")=KeyType
If KeyType=1 Then
RsItem("KsString")=KsString
RsItem("KoString")=KoString
ElseIf KeyType=2 Then
RsItem("KeyStr")=KeyStr
End If
RsItem("NewsPaingType")=NewsPaingType
If NewsPaingType=1 Then
RsItem("NPsString")=NPsString
RsItem("NPoString")=NPoString
ElseIf NewsPaingType=2 Then
RsItem("NewsPaingStr1")=NewsPaingStr1
ElseIf NewsPaingType=3 Then
RsItem("NewsPaingStr2")=NewsPaingStr2
End If
RsItem.UpDate
RsItem.Close
Set RsItem=Nothing
End If
NewsUrl=UrlTest
If FoundErr<>True Then
NewsCode=GetHttpPage(NewsUrl)
If NewsCode<>"$False$" Then
Title=GetBody(NewsCode,TsString,ToString,False,False)
Content=GetBody(NewsCode,CsString,CoString,False,False)
If Title="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取标题的时候发生错误：" & NewsUrl & "</li>"
Else
Title=FpHtmlEnCode(Title)'处理回车符等
'Title=dvhtmlencode(Title)
End If
If Content="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：" & NewsUrl & "</li>"
End If
If AuthorType=1 Then
Author=GetBody(NewsCode,AsString,AoString,False,False)
ElseIf AuthorType=2 Then
Author=AuthorStr
Else
Author="不详"
End If
If Author="$False$" Then
Author="佚名"
Else
Author=FpHtmlEnCode(Trim(Author))
End If
If UpdateTimeType=1 Then
UpdateTime=GetBody(NewsCode,UsString,UoString,False,False)
ElseIf UpdateTimeType=2 Then
UpdateTime=UpdateTimeStr
Else
UpdateTime=Now()
End If
If UpdateTime="$False$" Then
UpdateTime=Now()
Else
UpdateTime=FpHtmlEnCode(Trim(UpdateTime))
End If
If BsStringbType=1 Then
BsStringbtxt=GetBody(NewsCode,BsStringb,BoStringb,False,False)
ElseIf BsStringbType=2 Then
BsStringbtxt=BoStringbstr
End If
If BsStringbtxt="$False$" Then
BsStringbtxt=""
Else
BsStringbtxt=FpHtmlEnCode(Trim(BsStringbtxt))
End If
If YsStringbType=1 Then
YsStringbtxt=GetBody(NewsCode,YsStringb,YoStringb,False,False)
ElseIf YsStringbType=2 Then
YsStringbtxt=YoStringbstr
else
YsStringbtxt="中文"
End If
If YsStringbtxt="$False$" Then
YsStringbtxt="中文"
Else
YsStringbtxt=FpHtmlEnCode(Trim(YsStringbtxt))
End If
If PsStringbType=1 Then
PsStringbtxt=GetBody(NewsCode,PsStringb,PoStringb,False,False)
ElseIf PsStringbType=2 Then
PsStringbtxt=PoStringbstr
End If
If PsStringbtxt="$False$" Then
PsStringbtxt=""
Else
PsStringbtxt=FpHtmlEnCode(Trim(PsStringbtxt))
End If
If HsStringbType=1 Then
HsStringbtxt=GetBody(NewsCode,HsStringb,HoStringb,False,False)
ElseIf HsStringbType=2 Then
HsStringbtxt=HoStringbstr
Else
HsStringbtxt="Win9x/NT/2000/XP/2003"
End If
If HsStringbtxt="$False$" Then
HsStringbtxt="Win9x/NT/2000/XP/2003"
Else
HsStringbtxt=FpHtmlEnCode(Trim(HsStringbtxt))
End If
If JsStringbType=1 Then
JsStringbtxt=GetBody(NewsCode,JsStringb,JoStringb,False,False)
ElseIf JsStringbType=2 Then
JsStringbtxt=JoStringbstr
End If
If JsStringbtxt="$False$" Then
JsStringbtxt=""
Else
JsStringbtxt=FpHtmlEnCode(Trim(JsStringbtxt))
End If
If SsStringbType=1 Then
SsStringbtxt=GetBody(NewsCode,SsStringb,SoStringb,False,False)
ElseIf SsStringbType=2 Then
SsStringbtxt=SoStringbstr
Else
SsStringbtxt="http://"
End If
If SsStringbtxt="$False$" Then
SsStringbtxt="http://"
Else
SsStringbtxt=FpHtmlEnCode(Trim(SsStringbtxt))
End If
If ZsStringbType=1 Then
ZsStringbtxt=GetBody(NewsCode,ZsStringb,ZoStringb,False,False)
ElseIf ZsStringbType=2 Then
ZsStringbtxt=ZoStringbstr
Else
ZsStringbtxt="http://"
End If
If ZsStringbtxt="$False$" Then
ZsStringbtxt="http://"
Else
ZsStringbtxt=FpHtmlEnCode(Trim(ZsStringbtxt))
End If
If LsStringbType=1 Then
LsStringbtxt=GetBody(NewsCode,LsStringb,LoStringb,False,False)
ElseIf LsStringbType=2 Then
LsStringbtxt=LoStringbstr
Else
LsStringbtxt="通用"
End If
If LsStringbtxt="$False$" Then
LsStringbtxt="通用"
Else
LsStringbtxt=FpHtmlEnCode(Trim(LsStringbtxt))
End If
If QsStringbType=1 Then
QsStringbtxt=GetBody(NewsCode,QsStringb,QoStringb,False,False)
ElseIf QsStringbType=2 Then
QsStringbtxt=QoStringbstr
Else
QsStringbtxt="免费"
End If
If QsStringbtxt="$False$" Then
QsStringbtxt="免费"
Else
QsStringbtxt=FpHtmlEnCode(Trim(QsStringbtxt))
End If
If MsStringbType=1 Then
MsStringbtxt=GetBody(NewsCode,MsStringb,MoStringb,False,False)
ElseIf MsStringbType=2 Then
MsStringbtxt=MoStringbstr
Else
MsStringbtxt="0"
End If
If MsStringbtxt="$False$" Then
MsStringbtxt="0"
Else
MsStringbtxt=FpHtmlEnCode(Trim(MsStringbtxt))
End If
If DsStringbType=1 Then'判断通过源代码取下载地址
DsStringbtxt=GetBody(NewsCode,DsStringb,DoStringb,False,False)'NewsCode=截取的整个网页源码'判断获取地址是否需要取绝对地址
DsStringbtxt=GetArray(DsStringbtxt,DsStringbb,DoStringbb,False,False)
if XsStringbType=1 Then'判断是否新页面取下载地址 1=true 0=false
if HttpDownUrlType=1 then'判断获取地址特殊链接 1=true 0=false
dim Url,Uri
Url=Split(DsStringbtxt,"$Array$") '分解地址列表
Uri=Ubound(Url) '计算列表数量
DsStringbtxt=Url(Uri)
sXsStringbtxt=Trim(Replace(HttpDownUrlStr,"{$ID}",DsStringbtxt))
else
sXsStringbtxt=Trim(DefiniteUrl(DsStringbtxt,Urltest))'调用《将相对地址转换为绝对地址》函数
end if
XsStringbtxt=GetHttpPage(sXsStringbtxt)
DsStringbtxt=GetBody(XsStringbtxt,XsStringb,XoStringb,False,False)
DsStringbtxt=GetBody(DsStringbtxt,XsStringbb,XoStringbb,False,False)
'DsStringbtxt=Trim(DefiniteUrl(DsStringbtxt,sXsStringbtxt))
End If
'DsStringbtxt=Trim(DefiniteUrl(DsStringbtxt,Trim(DefiniteUrl(DsStringbtxt,Urltest))))
Else
DsStringbtxt=NewsUrl'将页面链接作为下载地址
End If
If DsStringbtxt="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取电影地址的时候发生错误：" & NewsUrl & "</li>"
End If
If CopyFromType=1 Then
CopyFrom=GetBody(NewsCode,FsString,FoString,False,False)
ElseIf CopyFromType=2 Then
CopyFrom=CopyFromStr
Else
CopyFrom="不详"
End If
If CopyFrom="$False$" Then
CopyFrom="不详"
Else
CopyFrom=FpHtmlEnCode(Trim(CopyFrom))
End If
dim dd
If KeyType=1 Then
Key=GetBody(NewsCode,KsString,KoString,False,False)
ElseIf KeyType=2 Then
Key=KeyStr
Else
keytempstr=ReplaceKeyChar(title)
for dd=1 to len(keytempstr)-1
Key=Key&"|"&mid(keytempstr,dd,2)
Next
Key=Key&"|"
End If
If Key="$False$" Then
keytempstr=ReplaceKeyChar(title)
for dd=1 to len(keytempstr)-1
Key=Key&"|"&mid(keytempstr,dd,2)
Next
Key=Key&"|"
Else
Key=FpHtmlEnCode(Trim(Key))
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取源码时发生错误："& NewsUrl &"</li>"
End If
End If
If FoundErr<>True Then
'Content=ReplaceSaveRemoteFile(Content,FilesStartStr,FilesOverStr,False,True,False,FilesPath,NewsUrl)
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Response.End
End if
%>
<SCRIPT language='javascript'>
function resizepic(thispic){
if(thispic.width>600) thispic.width=600;
}
function bbimg(o){
var zoom=parseInt(o.style.zoom, 10)||100;
zoom+=event.wheelDelta/12;
if (zoom>0) o.style.zoom=zoom+'%';
if (zoom>0) o.style.zoom=zoom+'%';
return false;
}
</SCRIPT>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_mov_Manage.asp">管理首页</a> >> <a href="Admin_mov_Add.asp?Type=modify&ItemID=<%=ItemID%>">基本设置</a> >> <a href="Admin_mov_Add.asp?action=Add1&Type=modify&ItemID=<%=ItemID%>">列表设置</a> >> <a href="Admin_mov_Add.asp?action=Add2&Type=modify&ItemID=<%=ItemID%>">链接设置</a> >> <a href="Admin_mov_Add.asp?action=Add3&Type=modify&ItemID=<%=ItemID%>">正文设置</a> >> <a href="Admin_mov_Add.asp?action=Add4&Type=modify&ItemID=<%=ItemID%>"><font color=red>采样测试</font></a> >> <a href="Admin_mov_Add.asp?action=Add5&Type=modify&ItemID=<%=ItemID%>">属性设置</a> >> 完成</td>
</tr>
</table>
<br>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='title'> <td height='22' colspan='4'> <div align="center"><strong>项 目 编 辑--采 样 测 试</strong></div></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影名称：</td> <td colspan='3'><strong><%=Title%></strong></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影主演：</td> <td width='300'><%=BsStringbtxt%></td> <td colspan='2' rowspan='7' align=center valign='middle'><%=PsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影大小：</td> <td width='300'><%=FormatNum(MsStringbtxt)%> K</td>
<tr class='tdbg'> <td width='100' align='right'>开 发 商：</td> <td width='300'><%=Author%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影来源：</td> <td width='300'><%=CopyFrom%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影类型：</td> <td width='300'><%=HsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>关 键 字：</td> <td width='300'><%=Key%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影类别：</td> <td width='300'><%=LsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影语言：</td> <td colspan='3'><%=YsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>授权形式：</td> <td colspan='3'><%=QsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>相关链接：</td> <td colspan='3'><a href='<%=SsStringbtxt%>' target='_blank'>电影演示地址</a> <a href='<%=ZsStringbtxt%>' target='_blank'>电影注册地址</a></td></tr>
<tr class='tdbg'> <td width='100' align='right'>解压密码：</td> <td colspan='3'><%=JsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>添加时间：</td> <td colspan='3'><%=UpdateTime%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>播放地址：</td> <td colspan='3'><%=DsStringbtxt%></td></tr>
<tr class='tdbg'> <td width='100' align='right'>电影简介：</td> <td height='100' colspan='3'><%=Content%></td></tr>
</table>
<form method="post" action="Admin_mov_Add.asp" name="form1">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg" height="50">
<input name="ItemID" type="hidden" id="ItemID" value="<%=ItemID%>">
<input name="Action" type="hidden" id="Action" value="Add5">
<input name="Flag" type="hidden" id="Flag" value="True">
<input name="Cancel" type="button" id="Cancel" value="返回上一步" onClick="window.location.href='javascript:history.go(-1)'" >
<input type="submit" name="Submit" value=" 下一步 " >
</td>
</tr>
</table>
</form>
<%End Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -