📄 admin_mov_add_05.asp

📁 重庆宽频P2P电影小偷程序,可以做一个大型的电影站了
💻 ASP
📖 第 1 页 / 共 3 页
字号:
	End If 
End If
If BsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影主演类型</li>" 
Else
   BsStringbType=Clng(BsStringbType)
   If BsStringbType=0 Then
   ElseIf BsStringbType=1 Then
      If BsStringb="" or BoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影主演的开始/结束标记填写完整！</li>" 
      End If
   ElseIf BsStringbType=2 Then
      If BoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影主演</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If

If YsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影语言类型</li>" 
Else
   YsStringbType=Clng(YsStringbType)
   If YsStringbType=0 Then
   ElseIf YsStringbType=1 Then
      If YsStringb="" or YoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影语言的开始/结束标记填写完整！</li>" 
      End If
   ElseIf YsStringbType=2 Then
      If YoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影语言</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If
If PsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影图片类型</li>" 
Else
   PsStringbType=Clng(PsStringbType)
   If PsStringbType=0 Then
   ElseIf PsStringbType=1 Then
      If PsStringb="" or PoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影图片的开始/结束标记填写完整！</li>" 
      End If
   ElseIf PsStringbType=2 Then
      If PoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影图片</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If
If HsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影格式类型</li>" 
Else
   HsStringbType=Clng(HsStringbType)
   If HsStringbType=0 Then
   ElseIf HsStringbType=1 Then
      If HsStringb="" or HoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影格式的开始/结束标记填写完整！</li>" 
      End If
   ElseIf HsStringbType=2 Then
      If HoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影格式</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If
If JsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影解压密码类型</li>" 
Else
   JsStringbType=Clng(JsStringbType)
   If JsStringbType=0 Then
   ElseIf JsStringbType=1 Then
      If JsStringb="" or JoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影解压密码的开始/结束标记填写完整！</li>" 
      End If
   ElseIf JsStringbType=2 Then
      If JoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影解压密码</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If
If SsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影演示地址类型</li>" 
Else
   SsStringbType=Clng(SsStringbType)
   If SsStringbType=0 Then
   ElseIf SsStringbType=1 Then
      If SsStringb="" or SoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影演示地址的开始/结束标记填写完整！</li>" 
      End If
   ElseIf SsStringbType=2 Then
      If SoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影演示地址</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If


If ZsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影注册地址类型</li>" 
Else
   ZsStringbType=Clng(ZsStringbType)
   If ZsStringbType=0 Then
   ElseIf ZsStringbType=1 Then
      If ZsStringb="" or ZoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影注册地址的开始/结束标记填写完整！</li>" 
      End If
   ElseIf ZsStringbType=2 Then
      If ZoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影注册地址</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If


If LsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影类别类型</li>" 
Else
   LsStringbType=Clng(LsStringbType)
   If LsStringbType=0 Then
   ElseIf LsStringbType=1 Then
      If LsStringb="" or LoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影类别的开始/结束标记填写完整！</li>" 
      End If
   ElseIf LsStringbType=2 Then
      If LoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定类别地址</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If


If MsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影大小类型</li>" 
Else
   MsStringbType=Clng(MsStringbType)
   If MsStringbType=0 Then
   ElseIf MsStringbType=1 Then
      If MsStringb="" or MoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影大小的开始/结束标记填写完整！</li>" 
      End If
   ElseIf MsStringbType=2 Then
      If MoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影大小</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If


If QsStringbType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置电影授权类型</li>" 
Else

   QsStringbType=Clng(QsStringbType)
   If QsStringbType=0 Then
   ElseIf QsStringbType=1 Then
      If QsStringb="" or QoStringb="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将电影授权形式的开始/结束标记填写完整！</li>" 
      End If
   ElseIf QsStringbType=2 Then
      If QoStringbStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定电影授权形式</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If


If CopyFromType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置来源类型</li>" 
Else
   CopyFromType=Clng(CopyFromType)
   If CopyFromType=0 Then
   ElseIf CopyFromType=1 Then
      If FsString="" or FoString="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将来源的开始/结束标记填写完整！</li>" 
      End If
   ElseIf CopyFromType=2 Then
      If CopyFromStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定来源</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If 
End If

If KeyType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置关键字类型</li>" 
Else
   KeyType=Clng(KeyType)
   If KeyType=0 Then
   ElseIf KeyType=1 Then
      If KsString="" or KoString="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>关键字的开始/结束标记不能为空</li>" 
      End If
   ElseIf KeyType=2 Then
      If KeyStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定关键字</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>" 
   End If
End If


If NewsPaingType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置新闻分页类型</li>"
Else
   NewsPaingType=Clng(NewsPaingType)
End If
If FoundErr<>True Then
   SqlItem="Select * from Item Where ItemID=" & ItemID
   Set RsItem=server.CreateObject("adodb.recordset")
   RsItem.Open SqlItem,ConnItem,2,3

   RsItem("TsString")=TsString
   RsItem("ToString")=ToString
   RsItem("CsString")=CsString
   RsItem("CoString")=CoString

   RsItem("AuthorType")=AuthorType
   If AuthorType=1 Then
      RsItem("AsString")=AsString
      RsItem("AoString")=AoString
   ElseIf AuthorType=2 Then
      RsItem("AuthorStr")=AuthorStr
   End If
   
   RsItem("UpdateTimeType")=UpdateTimeType
   If UpdateTimeType=1 Then
      RsItem("UsString")=UsString
      RsItem("UoString")=UoString
   ElseIf UpdateTimeType=2 Then
      RsItem("UpdateTimeStr")=UpdateTimeStr
   End If
   
   RsItem("DsStringbType")=DsStringbType
   RsItem("XsStringbType")=XsStringbType
   If DsStringbType=1 Then
      RsItem("DsStringb")=DsStringb
      RsItem("DoStringb")=DoStringb
      RsItem("DsStringbb")=DsStringbb
      RsItem("DoStringbb")=DoStringbb   
      If XsStringbType=1 Then
         RsItem("XsStringb")=XsStringb
         RsItem("XoStringb")=XoStringb
         RsItem("XsStringbb")=XsStringbb
         RsItem("XoStringbb")=XoStringbb
      End If
   End If
   
   RsItem("HttpDownUrlType")=HttpDownUrlType
   
   If HttpDownUrlType=1 Then
      RsItem("HttpDownUrlStr")=HttpDownUrlStr
   End If
   
   RsItem("BsStringbType")=BsStringbType
   If BsStringbType=1 Then
      RsItem("BsStringb")=BsStringb
      RsItem("BoStringb")=BoStringb
   ElseIf BsStringbType=2 Then
      RsItem("BoStringbstr")=BoStringbstr
   End If
   
   RsItem("YsStringbType")=YsStringbType
   If YsStringbType=1 Then
      RsItem("YsStringb")=YsStringb
      RsItem("YoStringb")=YoStringb
   ElseIf YsStringbType=2 Then
      RsItem("YoStringbstr")=YoStringbstr
   End If
   
   RsItem("PsStringbType")=PsStringbType
   If PsStringbType=1 Then
      RsItem("PsStringb")=PsStringb
      RsItem("PoStringb")=PoStringb
   ElseIf PsStringbType=2 Then
      RsItem("PoStringbstr")=PoStringbstr
   End If
   
   RsItem("HsStringbType")=HsStringbType
   If HsStringbType=1 Then
      RsItem("HsStringb")=HsStringb
      RsItem("HoStringb")=HoStringb
   ElseIf HsStringbType=2 Then
      RsItem("HoStringbstr")=HoStringbstr
   End If
   
   RsItem("JsStringbType")=JsStringbType
   If JsStringbType=1 Then
      RsItem("JsStringb")=JsStringb
      RsItem("JoStringb")=JoStringb
   ElseIf JsStringbType=2 Then
      RsItem("JoStringbstr")=JoStringbstr
   End If
   
   RsItem("SsStringbType")=SsStringbType
   If SsStringbType=1 Then
      RsItem("SsStringb")=SsStringb
      RsItem("SoStringb")=SoStringb
   ElseIf SsStringbType=2 Then
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -