myfile.asp

品泡女人香XI8.NET文章管理系统的源码

			upfilexs=upfilexs&"&ID="
			upfilexs=upfilexs&F_Rootid
			upfilexs=upfilexs&"&replyID="
			upfilexs=upfilexs&F_bbsid
			upfilexs=upfilexs&"&skin=1"" target=""_blank"" title="
			upfilexs=upfilexs&Template.Strings(9)
			upfilexs=upfilexs&">[<font color="
			upfilexs=upfilexs&Dvbbs.Mainsetting(1)
			upfilexs=upfilexs&">"
			upfilexs=upfilexs&Template.Strings(11)
			upfilexs=upfilexs&"</font>]</a></td></tr>"
		Else
			upfilexs=upfilexs&"<input type=hidden name=""F_BoardID"" value="
			upfilexs=upfilexs&Rs("F_BoardID")
			upfilexs=upfilexs&"><tr><td width=""15%"" height=""26"" class=tablebody2 align=right>"
			upfilexs=upfilexs&Template.Strings(10)
			upfilexs=upfilexs&"</td><td width=""85%""  height=""26"" class=tablebody1 align=left><input type=text name=""fileurl"" size=""80%"" value="
			upfilexs=upfilexs&Rs("F_Filename")
			upfilexs=upfilexs&"></td></tr>"
		End if
		Tempwrite=Template.html(11)
		If F_Flag<2 then
			Tempwrite=Replace(Tempwrite,"{$checked1}","checked")
			Tempwrite=Replace(Tempwrite,"{$checked2}","")
		Else
			Tempwrite=Replace(Tempwrite,"{$checked1}","")
			Tempwrite=Replace(Tempwrite,"{$checked2}","checked")
		End if
		Tempwrite=Replace(Tempwrite,"{$f_username}",Dvbbs.HtmlEnCode(F_Username))
		Tempwrite=Replace(Tempwrite,"{$f_boardid}",rs("F_BoardID"))
		Tempwrite=Replace(Tempwrite,"{$f_id}",rs("F_ID"))
		Tempwrite=Replace(Tempwrite,"{$f_typename}",F_typename)
		Tempwrite=Replace(Tempwrite,"{$upfilexs}",upfilexs)
		Tempwrite=Replace(Tempwrite,"{$body}",Dvbbs.HtmlEnCode(body))
		Response.Write Dhlint&Tempwrite
	End if
	rs.close:set rs=nothing
End sub

'保存修改
Sub filesave()
If Dvbbs.GroupSetting(48)=0 Then
	Dvbbs.AddErrCode(28)
	Exit Sub
End If 
dim saveid,F_Readme,Fflag,fileurl
dim F_BoardID,F_AnnounceID

F_BoardID=dvbbs.checkStr(trim(request.form("F_BoardID")))
F_AnnounceID=dvbbs.checkStr(trim(request.form("F_AnnounceID")))
F_Readme=dvbbs.checkStr(trim(request.form("F_Readme")))
saveid=trim(request.form("saveid"))
Fflag=trim(request.form("Fflag"))

If not isnumeric(Fflag) or not isnumeric(F_BoardID) then 
	Dvbbs.AddErrCode(32)
	Exit sub
End if
if not isnumeric(saveid) or isnull(saveid) then 
	Dvbbs.AddErrCode(34)
	exit sub
end if

if  F_Readme="" or isnull(F_Readme) then 
	Dvbbs.AddErrCode(83)
	exit sub
end if

If strLength(F_Readme)>250 then
	Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(0)&"&action=OtherErr"
End if
fileurl=dvbbs.checkStr(trim(request.form("fileurl")))
If fileurl<>"" then
	if instr(fileurl,"/")=0 or instr(fileurl,"://")=0  or instr(fileurl,".")=0 then
   		Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(13)&"&action=OtherErr"
	end if
	dvbbs.execute("update [DV_Upfile] set F_Filename='"&fileurl&"',F_Readme='"&F_Readme&"' ,F_Flag="&Fflag&" where  F_ID="&saveid)
Else
	dvbbs.execute("update [DV_Upfile]  set F_BoardID="&F_BoardID&",F_AnnounceID='"&F_AnnounceID&"',F_Readme='"&F_Readme&"' ,F_Flag="&Fflag&" where  F_ID="&saveid)
End if
Dvbbs.Dvbbs_suc("<li>"&Template.Strings(14))
End sub

'新增文件
Sub addnew()
	Dim Tempwrite
	Dim filetypelist
	Dim iupload,i
	iupload=Dvbbs.lanstr(5)
	iupload=split(iupload,"||")
	For i=0 to ubound(iupload)
		filetypelist=filetypelist & "<option value="&i&">"&iupload(i)&"</option>"
	Next
	Tempwrite=Template.html(12)
	Tempwrite=Replace(Tempwrite,"{$filetypelist}",filetypelist)
	Response.Write Dhlint&Tempwrite
End sub 

'保存新增文件
Sub savenew()
Dim sucmsg
If dvbbs.GroupSetting(48)=0 then
	Dvbbs.AddErrCode(28)
	Exit sub
End if
Dim F_Readme,fileurl,filetype,fileExt,fileExt_a,filename
Dim F_Type,F_Flag
F_Readme=dvbbs.checkStr(trim(request.form("F_Readme")))
fileurl=dvbbs.checkStr(trim(request.form("fileurl")))
filetype=trim(request.form("filetype"))
F_Flag=trim(request.form("Fflag"))

if  fileurl="" or isnull(fileurl) then 
	Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(15)&"&action=OtherErr"
else
	if dvbbs.strLength(fileurl)>250 then
   		Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(16)&"&action=OtherErr"
	end if
end if

if  F_Readme="" or isnull(F_Readme) then 
	Dvbbs.AddErrCode(83)
	exit sub
end if
if dvbbs.strLength(F_Readme)>250 then
	Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(12)&"&action=OtherErr"
	Exit sub
end if
if not isnumeric(F_Flag) then
	Dvbbs.AddErrCode(34)
	Exit sub
end if

	if instr(fileurl,"/")=0 or instr(fileurl,"://")=0  or instr(fileurl,".")=0 then
   		Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(17)&"&action=OtherErr"
		exit sub
		else
		filename=split(fileurl,"/")
		fileExt=lcase(filename(ubound(filename)))
	end if

	fileExt_a=split(fileExt,".")
	fileExt=lcase(fileExt_a(ubound(fileExt_a)))
	
	if fileEXT="asp" and fileEXT="asa" and fileEXT="aspx" then
	   	Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(18)&"&action=OtherErr"
		exit sub
	end if
	
	if lcase(fileExt)="gif" or lcase(fileExt)="jpg" or lcase(fileExt)="jpeg" or lcase(fileExt)="bmp" or lcase(fileExt)="png" then
	F_Type=1
	elseif lcase(fileExt)="swf" or lcase(fileExt)="swi" then
	F_Type=2
	elseif lcase(fileExt)="mid" or lcase(fileExt)="wav" or lcase(fileExt)="mp3" or lcase(fileExt)="rmi" or lcase(fileExt)="cda" then
	F_Type=3
	elseif lcase(fileExt)="avi" or lcase(fileExt)="wov" or lcase(fileExt)="asf" or lcase(fileExt)="mpg" or lcase(fileExt)="mpeg" or lcase(fileExt)="ra" or lcase(fileExt)="ram" then
	F_Type=4
	else
	F_Type=0
	end if
	dvbbs.BoardID=0
	dvbbs.execute("insert into dv_upfile (F_BoardID,F_UserID,F_Username,F_Filename,F_FileType,F_Type,F_Readme,F_Flag ) values ("&dvbbs.BoardID&","&Dvbbs.UserID&",'"&dvbbs.membername&"','"&replace(fileurl,"|","")&"','"&replace(fileExt,".","")&"',"&F_Type&",'"&F_Readme&"',"&F_Flag&" )")

Dvbbs.Dvbbs_suc("<li>"&Template.Strings(19))
end sub

'删除文件
Sub fdel()
	Dim delid,fixid
	If dvbbs.GroupSetting(48)=0 then
		Dvbbs.AddErrCode(28)
		Exit Sub 
	End if
	delid=replace(request("delid"),"'","")
	delid=replace(delid,";","")
	delid=replace(delid,"--","")
	delid=replace(delid,")","")
	fixid=replace(delid," ","")
	fixid=replace(fixid,",","")
	If Not IsNumeric(fixid) Then
		Dvbbs.AddErrCode(35)
		Exit Sub
	End If
	If delid="" or IsNull(delid) Then 
		Dvbbs.AddErrCode(42)
		Exit Sub
	Else
	If Dvbbs.master or Dvbbs.superboardmaster or Dvbbs.boardmaster Then
		dvbbs.execute("delete from DV_Upfile where F_ID in ("&delid&")")
	Else
		dvbbs.execute("delete from DV_Upfile where F_Flag<>2 and F_UserID="&Dvbbs.userID&" and F_ID in ("&delid&")")
	End If
	Dvbbs.Dvbbs_suc("<li>"&Template.Strings(20))
end if
end sub

'删除所有文件
Sub alldel()
	If dvbbs.GroupSetting(48)=0 then
		Dvbbs.AddErrCode(28)
		Exit  Sub 
	End If 
	Dim delid,fixid
	delid=replace(request("delid"),"'","")
	fixid=replace(delid," ","")
	fixid=replace(fixid,",","")
	If Not IsNumeric(fixid) Then
		Dvbbs.AddErrCode(35)
		Exit Sub
	End If
	If delid="" or isnull(delid) Then
		Dvbbs.AddErrCode(42)
		Exit Sub
	End If
	dvbbs.execute("delete from DV_Upfile where F_Flag=1 and  F_UserID="&Dvbbs.userid)
	Dvbbs.Dvbbs_suc("<li>"&Template.Strings(21))
End Sub 

Function filenum(types)
	Dim stype
	If IsNumeric(types)  Then
		Select case types
			case 0
				stype="F_Type=0 and"
			Case 1
				stype="F_Type=1 and"
			Case 2
				stype="F_Type=2 and"
			Case 3
				stype="F_Type=3 and"
			Case 4
				stype="F_Type=4 and"
			Case Else
				stype=""
		End Select
	Else
		stype=""
	End If
	Rs=Dvbbs.execute("Select Count(F_ID) From DV_Upfile Where  "&stype&" F_UserID="&Dvbbs.userid&"")
	filenum=Rs(0)
	Set rs=nothing
	If IsNull(filenum) Then filenum=0
End Function
%>