savevod.asp

一个最新版的VOD网站程序

<!--#include file="check.asp" -->
<%
'on error resume next

Set my_rs= Server.CreateObject("ADODB.Recordset") 
StrSQL = "Select * FROM listvod"
my_rs.Open StrSQL,Conn,1,3
my_rs.Addnew
Set theForm = Server.CreateObject("ABCUpload.XForm")
sortid=theform("sortid")
sql="select * from sort where sortid="&sortid&""
Set rs= Server.CreateObject("ADODB.Recordset") 
'response.Write sql
'Response.End
 rs.open sql,conn,1,1     
if not rs.eof then
sort=rs("sortname")
end if
rs.close
set rs=nothing


vodsort=theform("vodsort")
vodname=theform("vodname")
vodmeno=theform("vodmeno")
vodpic=theform("vodpic")


'response.write ddate
'response.end
theForm.AbsolutePath = True
theForm.MaxUploadSize = 5000000
Set theField = theForm("lianjie")(1)
If theField.FileExists Then 
	'--------将日期转化成文件名--------
	function MakedownName()
		dim fname
	  	fname = now()
		fname = replace(fname,"-","")
	 	fname = replace(fname," ","") 
		fname = replace(fname,":","")
	  	fname = replace(fname,"PM","")
	  	fname = replace(fname,"AM","")
		fname = replace(fname,"上午","")
	  	fname = replace(fname,"下午","")
	  	fname = int(fname) + int((10-1+1)*Rnd + 1)
		MakedownName=fname
	end function
	varfname1=MakedownName()&"."&theField.RawFiletype
        

        if vodsort="mvod" then
	theField.Save "D:/xwsite/real/vod/"& varfname1 'application("updir") & varfname1
        else
        theField.Save "D:/xwsite/real/real/"& varfname1 'application("updir") & varfname1
        end if
	
    	my_rs("vodname") = vodname
	my_rs("vodmeno") =vodmeno
        my_rs("vodpic") =vodpic
        my_rs("vodtime") =now()
        my_rs("vodsortid")=sortid
        my_rs("vodsort")=sort
        my_rs("voddian")=0
        my_rs("vodlei")=vodsort
        my_rs("vodurl") =varfname1
	my_rs.Update
	my_rs.close
	Set my_rs=nothing
	Conn.Close
	Set Conn=nothing
response.write"上传成功"
Else
	Response.Write "上传失败！"
End If
%>