联系

点击这里立即发消息给我

加腾讯QQ:211812590
E_mail: 211812590@qq.com

条码二维码软件
实用工具软件

站点日历
73 2018 - 7 48
1234567
891011121314
15161718192021
22232425262728
293031




日志搜索

 标题   内容

联系

点击这里立即发消息给我

E_mail: 211812590@qq.com


CSS布局框架例子(冰峰七月原创) 圆角层布局的实例(转)
晴天 ASP自动入库(ACCESS数据库)电影的代码   [ 日期:2011-04-06 ]   [ 来自:本站原创 ]

<!--#include file="conn.asp"-->
<title>入库处理</title>
<%
'获取页面传送过来的变量:路径,ID等
WebPath=request.form("fPath")
Rpath=Replace(WebPath,"\","/")
svrid=request.form("svrid")
if request("action")="next" and WebPath<>"" then
'过滤字符函数
Function ZW(s)
On Error Resume Next
For tt = 1 To 127
    If (tt < 65) Or (tt > 90 And tt < 97) Or tt > 122 Then s = Replace(s, Chr(tt), "")
Next
ZW = s
End Function
'提取电影集数中数字的函数
function RegExpTestsp(str,pat)
Dim r, Match, Matches
Set r = New RegExp
r.Pattern = pat
r.IgnoreCase = false
r.Global = True
Set Matches = r.Execute(str)
For Each Match in Matches
RetStr = RetStr & Match.Value
Next
RegExpTestsp = RetStr
End function
'==============================入库电影基本信息开始
'建立循环过程
Recursion(Rpath)
Function Recursion(Path)
'创建FSO实例
Set Fso=Server.CreateObject("Scripting.FilesystemObject")
      Set Folder = Fso.GetFolder(Path)
      Set Folders = Folder.SubFolders
      Set f=fso.GetFolder(Rpath)
      For Each Folder In Folders
      set f1=Folder.files
      tmpDateStr = Folder.Name
      Nowpath = Path & "\" & Folder.Name 
      Set Files = Folder.Files
      For Each File In Files
        TempStr = Replace(Replace(File.ParentFolder,"\","/"),WebPath,"") & "/" & File.Name
        webpathtxt = File.ParentFolder & "\" & ""& tmpDateStr & ".txt"
        webpicpath = Replace(Replace(File.ParentFolder,"/","\"),Path,"") & "\" & ""& tmpDateStr & ".jpg"
        '拷贝图片到指定目录
        bkfolder="F:\wwwroot\MV\vodjpg" '使用本系统前先修改这里为你网站vodjpg目录的路径
        imgpath=bkfolder&"\"&"" & tmpDateStr & ".jpg"
        if fso.fileexists(imgpath) then '判断图片是否存在vodjpg目录里
           picpath="vodjpg/" & tmpDateStr & ".jpg"
        else
        if fso.fileexists(webpicpath) then '判断电影目录里是否有图片
           fso.copyfile webpicpath,bkfolder& "\"& tmpDateStr & ".jpg"
        End if
           picpath="vodjpg/" & tmpDateStr & ".jpg"
        End if
        '获取TXT文本内容
        If FSO.FileExists(webpathtxt) Then
        set txt=Fso.opentextfile(webpathtxt,1,true)
        if not txt.atendofstream then
        line1=ZW(txt.readline) '读取第1行
        line2=ZW(txt.readline) '读取第2行
        line3=ZW(txt.Readall) '获取第3行后全部内容
        end if
        else
        line1="主演:未知"
        line2="地区:其他地区"
        line3="简介:暂无"
        end if
        '将路径拆分为数组
        Dim S,V,N
        TempStr9=StrReverse(Replace(TempStr,".","/"))
        S=TempStr9
        V=Split(S,"/")
        N=UBound(V)
        For i=0 To N
           mvjs=StrReverse(v(1))
        Next
Filetype=StrReverse(v(0))
        if UBound(V) >=2 then mvname=StrReverse(v(2))
        if UBound(V) >=3 then mvtype=StrReverse(v(3))
        if UBound(V) >=4 then mvdq=StrReverse(Replace(v(4),":",""))
        '判断过滤主演
        if left(line1,3)<>"" then
           zhuyan=Replace(right(Replace(line1,":",""),len(Replace(line1,":",""))-2),":","")
        else
           zhuyan="未知"
        end if
        '判断过滤地区名
        if left(line2,3)<>"" then mvdqname= Replace(right(Replace(line2,":",""),len(Replace(line2,":",""))-2),":","")
        '判断过滤简介
        if left(line3,3)<>"" then 
           jianjie=Replace(right(Replace(line3,":",""),len(Replace(line3,":",""))-2),":","")
        else
           jianjie="暂无"
        end if
'判断地区分类
if mvdq="" then
        if mvdqname="大陆地区" or mvdqname="中国大陆" or mvdqname="中国内地" or mvdqname="中国大陆地区" then
            dqid=1
        elseif mvdqname="港台地区" or mvdqname="香港地区" or mvdqname="台湾地区" or mvdqname="中国香港地区" or mvdqname="中国台湾地区" then
            dqid=2
        elseif mvdqname="日韩地区" or mvdqname="韩国地区" or mvdqname="日本地区" then
            dqid=3
        elseif mvdqname="欧美地区" or mvdqname="美国地区" or mvdqname="法国地区" or mvdqname="英国地区" then
            dqid=4
        else
           dqid=5
        end if
else
set rs2=server.createobject("adodb.recordset")
sql2="select * from dq where dqname='"&mvdq&"' "
rs2.open sql2,conn,1,1
if not rs2.bof then
        dqid=rs2("id")
        else
        if mvdqname="大陆地区" or mvdqname="中国大陆" or mvdqname="中国内地" or mvdqname="中国大陆地区" then
            dqid=1
        elseif mvdqname="港台地区" or mvdqname="香港地区" or mvdqname="台湾地区" or mvdqname="中国香港地区" or mvdqname="中国台湾地区" then
            dqid=2
        elseif mvdqname="日韩地区" or mvdqname="韩国地区" or mvdqname="日本地区" then
            dqid=3
        elseif mvdqname="欧美地区" or mvdqname="美国地区" or mvdqname="法国地区" or mvdqname="英国地区" then
            dqid=4
        else
            dqid=5
        end if
end if
rs2.close 
end if
'判断电影分类
if mvtype<>"" then
        set rs=server.createobject("adodb.recordset")
sql="select * from type where typename='"&mvtype&"'"
rs.open sql,conn,1,1
        if not rs.eof then
            typeid=rs("typeid")
     mvtype=rs("typename")
        else
     typeid=20
     mvtype="未分类"
        end if
rs.close
else
typeid=20
        mvtype="未分类"
end if
    '判断文件类型并入库电影信息
    if Filetype<>"" and Filetype="rmvb" or Filetype="rm" or Filetype="avi" or Filetype="mtv" or Filetype="mp4" or Filetype="wmv" or Filetype="amv" or Filetype="3gp" then
set rs=server.createobject("adodb.recordset")
sql="select name from movie where [name]='"&mvname&"'"
rs.open sql,conn,1,1
if rs.eof then
        SqlStr = "Insert Into movie(typename,name,zhuyan,jianjie,filetype,img,AvgBitRate,typeid,diqu,serid)Values('" & mvtype & "','" & tmpDateStr & "','" & zhuyan & "','" & jianjie & "','" & Filetype & "','" & picpath & "','" & (Fix((File.Size/1024)*100))/100 & "','" & typeid & "'," & dqid & ",'" & svrid & "')"
        Conn.ExeCute(SqlStr)
        Response.Write("<font style='font-size: 14px'><BR>入库---《" & tmpDateStr & "》基本信息---成功!</font>")
end if
end if
    Next
Recursion(Nowpath)
Next

Set txt=Nothing
Set Files = Nothing
Set Folder = Nothing
Set Folders = Nothing
Set Fso = Nothing
End Function
'==============================入库电影基本信息结束

'==============================入库电影路径开始
Recursion1(Rpath)
Function Recursion1(Path)
Set Fso=Server.CreateObject("Scripting.FilesystemObject")
      Set Folder = Fso.GetFolder(Path)
      Set Folders = Folder.SubFolders
      Set ff=fso.GetFolder(Rpath)
      For Each Folder In Folders
      set f1=Folder.files
      tmpDateStr = Folder.Name
      Nowpath = Path & "\" & Folder.Name 
      Set Files = Folder.Files
     For Each File In Files
        TempStr = Replace(Replace(File.ParentFolder,"\","/"),WebPath,"") & "/" & File.Name
        Dim S,V,N
        TempStr9=StrReverse(Replace(TempStr,".","/"))
        S=TempStr9
        V=Split(S,"/")
        N=UBound(V)
        For i=0 To N
Filetype1=V(0)
        Next
Filetype=StrReverse(v(0))
        PValue = StrReverse(v(1))
        pat="[\d]+" 
        mvjsname=(RegExpTestsp(PValue,pat))
        if mvjsname<>"" then
        mvjsid=RegExpTestsp(PValue,pat)
        mvjsname=RegExpTestsp(PValue,pat)
        else
        mvjsid=1
        mvjsname=StrReverse(v(1))
        end if
      ''判断文件类型并入库电影路径,服务器ID
      if Filetype<>"" and Filetype="rmvb" or Filetype="rm" or Filetype="avi" or Filetype="mtv" or Filetype="mp4" or Filetype="wmv" or Filetype="amv" or Filetype="3gp" then
set rs=server.createobject("adodb.recordset")
sql="select id,name from movie where [name]='"&tmpDateStr&"'"
rs.open sql,conn,1,1
if not rs.eof then
        mvid=rs("id")
        if mvid<>"" then
        set rs=server.createobject("adodb.recordset")
sql="select path,mvid from mvpath where [path]='"&TempStr&"'"
rs.open sql,conn,1,1
if rs.eof then
           SqlStr = "Insert Into mvpath(path,mvjs,mvjsname,mvid,serverid)Values('" & TempStr & "'," & mvjsid & ",'" & mvjsname & "'," & mvid & ",'" & svrid & "')"
           Conn.ExeCute(SqlStr)
           Response.Write("<font style='font-size: 14px'><BR>入库---《" & tmpDateStr & "》路径---成功!</font>")
           if mvid<>"" and mvid<>0 then
              sql2 = "select top 1 * from [movie] where [id]=" & mvid & ""
              Set Rs2 = Server.CreateObject("ADODB.Recordset")
              Rs2.Open sql2, conn, 3, 2
              Rs2("gxdate") = date()
              Rs2.Update
              rs2.close
              set rs2=nothing
           end if
        end if
        end if
        end if
      end if
    Next
Recursion1(Nowpath)
Next
Set Files = Nothing
Set Folder = Nothing
Set Folders = Nothing
Set Fso = Nothing
End Function
'==============================入库电影路径结束
end if
Response.Write("<font style='font-size: 14px'><BR>所有电影入库完毕!</font>")
%>



在本网站提供显示的任何文字内容及图片仅供学习研究参考之用,若有觉的侵犯了您的合法权益,请联系删除!
Copyright@zg126.net all rights reserved 2010-2016