admin_mov_add_02.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

<%
Sub Add2
If ItemName="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>项目名称不能为空</li>"
End If
If WebName="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>网站名称不能为空</li>"
End If
If ListStr="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>网站网址不能为空</li>" 
End If
If LoginType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择登录类型</li>"
Else
   LoginType=Clng(LoginType)
   If LoginType=1 Then
         If LoginUrl="" or LoginPostUrl="" or LoginUser="" or  LoginPass="" or  LoginFalse="" then
         FoundErr=True
         ErrMsg=ErrMsg& "<br><li>请将登录参数填写完整</li>"
      End If
   End If
End If
If FoundErr=True Then
	WriteErrMsg(ErrMsg)
	Response.End
else
   SqlItem="Select top 1 ItemID,ItemName,WebName,WebUrl,ClassID,SpecialID,ItemDemo,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,ListPaingStr1,ListPaingStr2,liststr from Item"
   if ItemID<>"" then
   	  SqlItem=SqlItem&" where ItemID="&ItemID&""
   End if
   Set RsItem=server.CreateObject("adodb.recordset")
   RsItem.Open SqlItem,ConnItem,1,3
   if ItemID="" then
   	  RsItem.AddNew
   End if
   RsItem("ItemName")=ItemName
   RsItem("WebName")=WebName
   RsItem("WebUrl")=WebUrl
   If ItemDemo<>"" then
      RsItem("ItemDemo")=ItemDemo
   End if
   RsItem("LoginType")=LoginType
   If LoginType=1 Then
      RsItem("LoginUrl")=LoginUrl
      RsItem("LoginPostUrl")=LoginPostUrl
      RsItem("LoginUser")=LoginUser
      RsItem("LoginPass")=LoginPass
      RsItem("LoginFalse")=LoginFalse
   End If
   ItemID=RsItem("ItemID")
   RsItem("liststr")=liststr
   RsItem.UpDate
   RsItem.Close
   Set RsItem=Nothing
End If
Set rrs=server.createobject("adodb.recordset")
	SqlItemR="Select * from Item Where ItemID=" & ItemID
	rrs.open SqlItemR,ConnItem,1,1
%>

<script language="VBScript">
 Private Sub ceshi(Num)
    Dim content
    Content=document.form1.Content.value
    Select Case Num   
    Case 1
        huoqv=document.form1.LsString.value
    Case 2
        huoqv=document.form1.LoString.value
    Case 3
        huoqv=document.form1.LPsString.value
    Case 4
        huoqv=document.form1.LPoString.value
    Case 5
        huoqv=document.form1.TsString.value
    Case 6
        huoqv=document.form1.ToString.value
    Case 7
        huoqv=document.form1.CsString.value
    Case 8
        huoqv=document.form1.CoString.value
    Case 9
        huoqv=document.form1.AsString.value
    Case 10
        huoqv=document.form1.AoString.value
    Case 11
        huoqv=document.form1.FsString.value
    Case 12
        huoqv=document.form1.FoString.value
    Case 13
        huoqv=document.form1.KsString.value
    Case 14
        huoqv=document.form1.KoString.value
    Case 15
        huoqv=document.form1.NPsString.value
    Case 16
        huoqv=document.form1.NPsString.value
    Case 17
        huoqv=document.form1.DsString.value
    Case 18
        huoqv=document.form1.DoString.value
    Case Else
        Exit sub
    End Select
    if huoqv="" then 
       alert("测试无效！代码为空！")
       exit Sub
    End if 
    If InStr(Content,huoqv) = 0 Then
       alert("测试无效！网页没有这些代码。")
    Else
       If InStr(Mid(Content,InStr(Content,huoqv)+LenB(huoqv),LenB(Content)),huoqv) = 0 Then
          alert("测试成功！代码在页面是唯一的。")
       Else
          alert("测试失败！代码有重复,开始或结束至少有一处代码是唯一才有效！")
       End if
    End if
 End Sub
 Private Sub Analyse()
    Dim AnalyseString,AnalyseString2
    Dim content,Analysetemp
    Content=document.form1.Content.value
    AnalyseString=document.form1.AnalyseString.value
    if AnalyseString="" then 
        alert("分析无效！分析代码为空！")
        Exit Sub
    End if
    if isNumeric(document.form1.AnalyseNum.value)=false then 
        alert("分析字符数不是有效数字！")
        Exit Sub
    End if
    AnalyseString2=LenB(AnalyseString)
    If InStr(Content,AnalyseString) = 0 Then
        alert("分析无效！网页没有这些代码。")
    Else
        if InStr(Content,AnalyseString)-document.form1.AnalyseNum.value <= 0 then
            Analysetemp = 1
        Else
            Analysetemp =InStr(Content,AnalyseString)-document.form1.AnalyseNum.value
        End if
        If InStr(Mid(Content,InStr(Content,AnalyseString)+AnalyseString2, LenB(Content)),AnalyseString) = 0 Then
            if document.form1.AnalyseWay(0).checked=true Then
                document.form1.AnalyseContent.value=Mid(Content,Analysetemp,Len(AnalyseString)+document.form1.AnalyseNum.value)
            elseif document.form1.AnalyseWay(1).checked=true then
                document.form1.AnalyseContent.value=Mid(Content,InStr(Content,AnalyseString),Len(AnalyseString)+document.form1.AnalyseNum.value)