myfile.asp

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

<!--#include FILE="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/chkinput.asp" -->
<%
'Edit by yangzheng 2003-11-24
Dvbbs.LoadTemplates("usermanager")
Dim Dhlint,Updepth
Dhlint=template.html(0)&"<br>"
Updepth=template.Strings(0)
Dvbbs.LoadTemplates("show")
Dvbbs.stats=template.Strings(2)
Dvbbs.nav()
Dim Rs,sql
Dim TopicCount
Dim Redcolor
Dim Pcount,endpage,star,page_count
If Request("star")="" or not isnumeric(request("star")) Then
	star=1
Else
	star=clng(request("star"))
End If
If Dvbbs.UserID=0 Then
	Dvbbs.AddErrCode(6)
End If
Dvbbs.ShowErr()
Redcolor=Dvbbs.Mainsetting(1)
Dvbbs.Head_var 0,0,Updepth,"usermanager.asp"
Select Case request("action")
	Case "edit"
		call edit()
	Case "fsave"
		call filesave()
	Case "fadd"
		call addnew()	
	Case "fsnew"
		call savenew()
	Case  "fdel"
		call fdel()
	Case "alldel"
		call alldel()
	Case Else 
		Call main()
End Select 
Dvbbs.ShowErr()
Call Dvbbs.activeonline()
Call Dvbbs.footer()

Sub main()
	Dim Mylist,sname,stype,searchsql,MainTable,Toplist
	Mylist=Split(Template.Strings(4),"||")
	stype=Request("Stype")
	TopicCount=filenum("")
	If stype="" or not  isnumeric(stype)  Then
		sname=template.Strings(3)
		searchsql=""
		TopicCount=filenum("")
	Else
		Select Case stype
			Case 1
				sname=Split(Dvbbs.lanstr(5),"||")(1)
				searchsql="F_Type=1 and"
			Case 2
				sname=Split(Dvbbs.lanstr(5),"||")(2)
				searchsql="F_Type=2 and"
			Case 3
				sname=Split(Dvbbs.lanstr(5),"||")(3)
					searchsql="F_Type=3 and"
			Case 4
				sname=Split(Dvbbs.lanstr(5),"||")(4)
				searchsql="F_Type=4 and"
			Case 0
				sname=Split(Dvbbs.lanstr(5),"||")(0)
				searchsql="F_Type=0 and"
			Case Else
				sname=Template.Strings(3)
				searchsql=""
			End Select
		TopicCount=filenum(clng(stype))
	End If
	Response.Write "<script language=""JavaScript"">"
	Response.Write Chr(10)
	Response.Write "<!--"
	Response.Write Chr(10)
	Response.Write "function CheckAll(form) {"
	Response.Write Chr(10)
	Response.Write "for (var i=0;i<form.elements.length;i++){"
	Response.Write Chr(10)
	Response.Write "var e = form.elements[i];"
	Response.Write Chr(10)
	Response.Write "if (e.name != 'chkall')  e.checked = form.chkall.checked;"
	Response.Write Chr(10)
	Response.Write "}"
	Response.Write Chr(10)
	Response.Write "}"
	Response.Write Chr(10)
	Response.Write "//-->"
	Response.Write Chr(10)
	Response.Write "</script>"
	Response.Write Chr(10)
	Dim F_Type,F_typename,useradmin,readme
	Set rs=dvbbs.execute("select * from [DV_Upfile] where  "&searchsql&"  F_UserID="&Dvbbs.UserID&" order by F_ID desc ")
	If Rs.EOF Then
		Toplist=Template.html(9)
	Else
		If TopicCount mod Cint(Dvbbs.Forum_Setting(11))=0 Then
			Pcount= TopicCount \ Cint(Dvbbs.Forum_Setting(11))
		Else
			Pcount= TopicCount \ Cint(Dvbbs.Forum_Setting(11))+1
		End If
		RS.MoveFirst
		If star > Pcount Then star = Pcount
		If star < 1 Then star = 1
		RS.Move (star-1) * Dvbbs.Forum_Setting(11)
		page_count=0
		Do while not rs.eof and page_count < Cint(Dvbbs.Forum_Setting(11))
		F_Type=rs("F_Type")
		If F_Type=1 Then
			F_typename=Split(Dvbbs.lanstr(5),"||")(1)
		ElseIf F_Type=2 Then
			F_typename=Split(Dvbbs.lanstr(5),"||")(2)
		ElseIf F_Type=3 Then
			F_typename=Split(Dvbbs.lanstr(5),"||")(3)
		ElseIf F_Type=4 Then
			F_typename=Split(Dvbbs.lanstr(5),"||")(4)
		Else
			F_typename=Split(Dvbbs.lanstr(5),"||")(0)
		End If
		If Rs("F_Readme")<>"" or not isnull(rs("F_Readme")) Then
			If Len(Rs("F_Readme"))>26 Then
				readme=""&left(Dvbbs.HtmlEnCode(replace(rs("F_Readme"),chr(10)," ")),26)&"..."
			Else
				readme=Dvbbs.HtmlEnCode(rs("F_Readme"))
			End If
		End If
		If Dvbbs.GroupSetting(48)=1 Then
			If (instr(rs("F_Filename"),"//") or instr(rs("F_Filename"),":")) and cint(rs("F_Flag"))=1 Then
				useradmin=" <input type=checkbox name=delid value="""&rs("F_ID")&"""> "
			Else
				useradmin=" <input type=checkbox  value="""" disabled > "
			End If
			useradmin=useradmin+"<a href=?action=edit&editid="&rs("F_ID")&"  >"&Mylist(0)&"</a>  | <a href=fileshow.asp?action=send&id="&rs("F_ID")&"  >"&Mylist(1)&"</a>"
		Else
			useradmin=" —— "
		End If
		page_count = page_count + 1
		Toplist=Toplist&Template.html(8)
		Toplist=Replace(Toplist,"{$F_FileType}",Rs("F_FileType"))
		Toplist=Replace(Toplist,"{$boardid}",Rs("F_BoardID"))
		Toplist=Replace(Toplist,"{$F_ID}",Rs("F_ID"))
		Toplist=Replace(Toplist,"{$readme}",readme)
		Toplist=Replace(Toplist,"{$F_FileSize}",Rs("F_FileSize"))
		Toplist=Replace(Toplist,"{$F_DownNum}",Rs("F_DownNum"))
		Toplist=Replace(Toplist,"{$F_ViewNum}",Rs("F_ViewNum"))
		Toplist=Replace(Toplist,"{$F_AddTime}",Rs("F_AddTime"))
		Toplist=Replace(Toplist,"{$F_typename}",F_typename)
		Toplist=Replace(Toplist,"{$useradmin}",useradmin)
		rs.movenext
		loop
	End If
	Rs.close:Set Rs=Nothing
	MainTable=template.html(7)
	MainTable=Replace(MainTable,"{$Filelist}",Toplist)
	MainTable=Replace(MainTable,"{$username}",Dvbbs.Membername)
	If Pcount>0 Then MainTable=MainTable&ShowPage(star,Pcount,TopicCount,Cint(Dvbbs.Forum_Setting(11)),redcolor)
	Response.Write Dhlint&MainTable
End Sub

'分页代码
Function ShowPage(CurrentPage,Pcount,totalrec,PageNum,redcolor)
	Dim SearchStr
	SearchStr="Boardid="&Dvbbs.boardid&"&reaction=onlineinfo"
	ShowPage=template.html(10)
	ShowPage=Replace(ShowPage,"{$CurrentPage}",CurrentPage)
	ShowPage=Replace(ShowPage,"{$Pcount}",Pcount)
	ShowPage=Replace(ShowPage,"{$PageNum}",PageNum)
	ShowPage=Replace(ShowPage,"{$totalrec}",totalrec)
	ShowPage=Replace(ShowPage,"{$SearchStr}",SearchStr)
	ShowPage=Replace(ShowPage,"{$redcolor}",redcolor)
End Function

'编辑文件
Sub edit()
	Dim editid
	Dim F_Type,F_typename,filename,chefile,con,body
	Dim F_Username,postid,F_rootid,F_bbsid,F_Flag
	Dim myurl,upfilexs
	Dim Tempwrite,checked1,checked2

	myurl=false
	editid=trim(request("editid"))
	If Not IsNumeric(editid) or IsNull(editid) Then
		Dvbbs.AddErrCode(34)
		Exit Sub
	End If
	set rs=Dvbbs.execute("select * from [DV_Upfile] where F_ID="&editid)
	if rs.eof and rs.bof then
		Dvbbs.AddErrCode(34)
		exit sub
	else
		F_Username=rs("F_Username")
		F_Type=rs("F_Type")
		filename=rs("F_Filename")
		F_Flag=rs("F_Flag")
		con=rs("F_Readme")

		If instr(filename,"//")=0 or instr(filename,":")=0 then
			myurl=true
			filename="UploadFile/"&filename
		End if
		If F_Type=1 then
			F_typename="<img src='"&filename&"' style='border: 1 solid #000000' width=80 height=80>"
		Else
			F_typename=rs("F_FileType")&Template.Strings(5)
		End if

		If con<>"" then
			body=replace(con,"<br>",chr(13))
			body=replace(body,"&nbsp;","")
			body=body+chr(13)
		End if
	
		If myurl then 
			If instr(rs("F_AnnounceID"),"|") then
				postid=split(rs("F_AnnounceID"),"|")
				F_rootid=postid(0)
				F_bbsid=postid(1)
			End if

			upfilexs="<tr><td valign=middle align=right  class=tablebody2 >"&Template.Strings(6)&"</td><td width=""100%"" height=""26"" class=tablebody1>"
			If Dvbbs.Master Or Dvbbs.superboardmaster Or Dvbbs.boardmaster Or Dvbbs.GroupSetting(48)=1 then
				upfilexs=upfilexs&Split(Template.Strings(7),"||")(0)
				upfilexs=upfilexs&"<input type=text name=""F_BoardID"" value="""&Rs("F_BoardID")&""" size=8>&nbsp;"
				upfilexs=upfilexs&Split(Template.Strings(7),"||")(1)
				upfilexs=upfilexs&"<input type=text name=""F_AnnounceID"" value="""&Rs("F_AnnounceID")&""">&nbsp;<font color="
				upfilexs=upfilexs&Dvbbs.Mainsetting(1)&">"
				upfilexs=upfilexs&Template.Strings(8)&"</font>"
			Else
				upfilexs=upfilexs&"<input type=hidden name=""F_BoardID"" value="
				upfilexs=upfilexs&Rs("F_BoardID")
				upfilexs=upfilexs&"><input type=hidden name=""F_AnnounceID"" value="
				upfilexs=upfilexs&Rs("F_AnnounceID")&">"
			End if
			upfilexs=upfilexs&"<a href=""dispbbs.asp?Boardid="
			upfilexs=upfilexs&Rs("F_BoardID")