📄 fileshow.asp

📁 品泡女人香XI8.NET文章管理系统的源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		Sql="select F_ID,F_AnnounceID,F_BoardID,F_UserID,F_Username,F_Filename,F_FileType,F_Type ,F_FileSize,F_Readme,F_DownNum,F_ViewNum,F_DownUser,F_Flag,F_AddTime from [DV_Upfile] where F_ID="&sid
	Else
		Dvbbs.head_var 1,Dvbbs.Board_Data(4,0),"",""
		Sql="select F_ID,F_AnnounceID,F_BoardID,F_UserID,F_Username,F_Filename,F_FileType,F_Type ,F_FileSize,F_Readme,F_DownNum,F_ViewNum,F_DownUser,F_Flag,F_AddTime from [DV_Upfile] where F_ID="&sid&" and F_boardid="&Dvbbs.Boardid
	End if

	Dim Rs
	Set Rs=Dvbbs.Execute(Sql)
	If Not(Rs.EOF And Rs.BOF) Then
	Dvbbs.Execute("update [DV_Upfile] set F_ViewNum=F_ViewNum+1 where  F_ID="& sid)
	F_ID=rs(0)
	F_AnnounceID=rs(1)
	F_BoardID=rs(2)
	F_UserID=rs(3)
	F_Username=rs(4)
	F_Filename=rs(5)
	F_FileType=rs(6)
	F_Type=rs(7)
	F_FileSize=rs(8)
	F_Readme=Rs(9)
	F_DownNum=rs(10)
	F_ViewNum=rs(11)
	'F_DownUser=rs(12)
	'F_Flag=rs(13)
	F_AddTime=rs(14)
	End If
	Rs.Close:Set Rs=Nothing

	If F_Readme<>"" or Not IsNull(F_Readme) Then
		F_Readme=Dvbbs.HtmlEnCode(F_Readme)
	Else
		F_Readme="<font color=gray>"&Template.Strings(24)&"</font>"
	End If
	'判断文件是否本论坛，若不是则采用表中的记录．
	If InStr(F_Filename,":")=0 or InStr(F_Filename,"//")=0 Then
		If Dvbbs.Forum_Setting(75)="0" Then
			F_Filename=bbsurl&"UploadFile/"&F_Filename
		Else
			F_Filename="showimg.asp?Boardid="&Dvbbs.BoardID&"&filename="&F_Filename
		End If
	End If 
	If Not IsNull(F_AnnounceID) And F_AnnounceID<>"" And InStr(F_AnnounceID,"|")>0 Then
		F_AnnounceID=split(F_AnnounceID,"|")
		golist="<a href=dispbbs.asp?Boardid="&F_BoardID&"&ID="&F_AnnounceID(0)&"&replyID="&F_AnnounceID(1)&"&skin=1 target=_blank title="&Template.Strings(9)&">"&Template.Strings(25)&"</a>"
	Else
		golist=Template.Strings(26)
	End If
	Select Case F_Type
	Case 1
		F_typename=Selfiletype(1) '图片集
		IF Renzhen(F_BoardID,Dvbbs.Membername) Then
			showfile="[IMG]"&F_Filename&"[/img]"
			ubblists=ubblist(showfile)&"39,"
			showfile=dv_ubb.Dv_UbbCode(showfile,Dvbbs.UserGroupID,2,1)
			csend="<a href=fileshow.asp?action=send&amp;id="&f_id&"><img title="&Template.Strings(32)&" src=skins/default/newmail.gif border=0 width=28 height=11></a>"
		Else
			csend=""
			showfile=Template.Strings(31)&F_typename
		End if
	case 2
		F_typename=Selfiletype(2) 'Flash集
		IF Renzhen(F_BoardID,Dvbbs.Membername) Then
			showfile="[flash=500,350]"&F_Filename&"[/flash]"
			ubblists=ubblist(showfile)&"39,"
			showfile=dv_ubb.Dv_UbbCode(showfile,Dvbbs.UserGroupID,2,1)
			csend="<a href=fileshow.asp?action=send&amp;id="&f_id&"><img title="&Template.Strings(32)&" src=skins/default/newmail.gif border=0 width=28 height=11></a>"
		Else
			showfile=Template.Strings(31)&F_typename
			csend=""
		End if
	case 3
		F_typename=Selfiletype(3) '音乐集
		IF Renzhen(F_BoardID,Dvbbs.Membername) Then
			showfile="<img src=skins/default/filetype/"&F_FileType&".gif border=0><a href="&Dvbbs.htmlencode(F_Filename)&" target=_blank title="&Template.Strings(28)&">"&Dvbbs.htmlencode(F_Filename)&"</a>"
			csend="<a href=fileshow.asp?action=send&amp;id="&f_id&"><img title="&Template.Strings(32)&" src=skins/default/newmail.gif border=0 width=28 height=11></a>"
		Else
			showfile=Template.Strings(31)&F_typename
			csend=""
		End if
	Case 4
		F_typename=Selfiletype(4) '电影集
		IF Renzhen(F_BoardID,Dvbbs.Membername) Then
			showfile="<img src=skins/default/filetype/"&F_FileType&".gif border=0><a href="&Dvbbs.htmlencode(F_Filename)&" target=_blank title="&Template.Strings(28)&">"&Dvbbs.htmlencode(F_Filename)&"</a>"
			csend="<a href=fileshow.asp?action=send&amp;id="&f_id&"><img title="&Template.Strings(32)&" src=skins/default/newmail.gif border=0 width=28 height=11></a>"
		Else
			showfile=Template.Strings(31)&F_typename
			csend=""
		End if
	Case Else 
		F_typename=Selfiletype(0) '文件集
		IF Renzhen(F_BoardID,Dvbbs.Membername) Then
			showfile="[upload="&F_FileType&"]viewfile.asp?ID="&F_ID&"[/upload]"
			ubblists=ubblist(showfile)&"39,"
			showfile=dv_ubb.Dv_UbbCode(showfile,Dvbbs.UserGroupID,2,1)
			csend="<a href=fileshow.asp?action=send&amp;id="&f_id&"><img title="&Template.Strings(32)&" src=skins/default/newmail.gif border=0 width=28 height=11></a>"
		Else
			showfile=Template.Strings(31)&F_typename
			csend=""
		End if
	End Select
	Dim edit
	edit=""
	If Dvbbs.GroupSetting(48)=1 Then
		If Dvbbs.master or Dvbbs.superboardmaster or Dvbbs.boardmaster  Then
			edit="<a title="&Template.Strings(29)&" href=myfile.asp?action=edit&amp;editid="&Clng(F_ID)&"><img src=skins/default/editfile.gif border=0 width=10 height=10></a>&nbsp;<a title="&Template.Strings(30)&" href=myfile.asp?action=fdel&amp;delid="&Clng(F_ID)&"><img height=10 src=skins/default/delete.gif width=10 border=0></a>"
		ElseIf F_Username=Dvbbs.membername Then
			edit="<a title="&Template.Strings(29)&" href=myfile.asp?action=edit&amp;editid="&Clng(F_ID)&"><img src=skins/default/editfile.gif border=0 width=10 height=10></a>&nbsp;<a title="&Template.Strings(30)&" href=myfile.asp?action=fdel&amp;delid="&Clng(F_ID)&"><img height=10 src=skins/default/delete.gif width=10 border=0></a>"
		Else
			edit=""
		End If
	End If
	Tempwrite=Template.html(13)
	Tempwrite=Replace(Tempwrite,"{$f_userid}",Clng(F_UserID))
	Tempwrite=Replace(Tempwrite,"{$f_username}",Dvbbs.HtmlEnCode(f_username))
	Tempwrite=Replace(Tempwrite,"{$showfile}",showfile)
	Tempwrite=Replace(Tempwrite,"{$edit}",edit)
	Tempwrite=Replace(Tempwrite,"{$f_typename}",f_typename)
	Tempwrite=Replace(Tempwrite,"{$f_filesize}",f_filesize & "")
	Tempwrite=Replace(Tempwrite,"{$f_viewnum}",f_viewnum)
	Tempwrite=Replace(Tempwrite,"{$f_downnum}",f_downnum)
	Tempwrite=Replace(Tempwrite,"{$f_addtime}",f_addtime)
	Tempwrite=Replace(Tempwrite,"{$golist}",golist)
	Tempwrite=Replace(Tempwrite,"{$f_readme}",f_readme)
	Tempwrite=Replace(Tempwrite,"{$csend}",csend)
	Response.Write Tempwrite

End Sub

Function IsFind(UserName)
	IsFind=False
	If UserName<>"" Then
		USerName=replace(UserName,"'","")
		Dim Rs
		Set Rs=Dvbbs.Execute("select Count(*) from [dv_user] where username='"&USerName&"'")
		If Rs(0)>0 Then IsFind=True
		Set Rs=Nothing
	End If 
End Function

'用户好友下拉名单
Function OPTION_Friend()
DIM i,Rs
Sql="SELECT F_friend FROM Dv_Friend WHERE F_userid="&Dvbbs.userid&" ORDER BY F_addtime DESC"
Set Rs=Dvbbs.Execute(Sql)
If not Rs.eof Then
	SQL=Rs.GetRows(-1)
	Rs.Close:Set Rs=Nothing
End if
If IsArray(SQL) Then
For i=0 To Ubound(SQL,2)
OPTION_Friend=OPTION_Friend & "<OPTION value="""&SQL(0,i)&""">"&SQL(0,i)&"</OPTION> "
Next
Else
OPTION_Friend=""
End If
End Function

'黑名单验证
Function CHKHateName(name)
DIM Sql,Rs
CHKHateName=False
Sql="Select F_friend From Dv_Friend Where (F_userid="&Dvbbs.userid&" or F_username='"&name&"') And F_Mod=2"
Set Rs=Dvbbs.Execute(Sql)
If not Rs.eof Then
	Sql=Rs.GetString(,, ",", "", "")
	Rs.Close:Set Rs=Nothing
	If instr(Sql,name) or instr(Sql,Dvbbs.Membername) Then CHKHateName=True
End If
End Function

'更新用户短信通知信息（新短信条数||新短讯ID||发信人名）
Sub UPDATE_User_Msg(username)
	Dim msginfo,i,UP_UserInfo,newmsg
	newmsg=newincept(username)
	If newmsg>0 Then
		msginfo=newincept(username) & "||" & inceptid(1,username) & "||" & inceptid(2,username)
	Else
		msginfo="0||0||null"
	End If
	Dvbbs.execute("UPDATE [Dv_User] Set UserMsg='"&Dvbbs.CheckStr(msginfo)&"' WHERE username='"&Dvbbs.CheckStr(username)&"'")
	If username=Dvbbs.MemberName Then
		UP_UserInfo=Session(Dvbbs.CacheName & "UserID")
		UP_UserInfo(30)=msginfo
		Session(Dvbbs.CacheName & "UserID")=UP_UserInfo
	Else
		Call Dvbbs.NeedUpdateList(username,1)
	End If
End Sub

'统计留言
Function newincept(iusername)
Dim Rs
Rs=Dvbbs.execute("SELECT Count(id) FROM Dv_Message WHERE flag=0 And issend=1 And DelR=0 And incept='"& iusername &"'")
    newincept=Rs(0)
	Set Rs=nothing
	If isnull(newincept) Then newincept=0
End Function

Function inceptid(stype,iusername)
	Dim Rs
	Set Rs=Dvbbs.execute("SELECT top 1 id,sender FROM Dv_Message WHERE flag=0 And issend=1 And DelR=0 And incept='"& iusername &"'")
	If not rs.eof Then
		If stype=1 Then
			inceptid=Rs(0)
		Else
			inceptid=Rs(1)
		End If
	Else
		If stype=1 Then
			inceptid=0
		Else
			inceptid="null"
		End If
	End If
	Set Rs=nothing
End Function

'认证论坛的文件的判断
Function renzhen(boardid,username)
	Dim boarduser,rrs,Board_Setting,BoardMaster,i
	Dim sql
	renzhen=false
	If Dvbbs.Master then
		renzhen=true
	Elseif boardid=0 then
		renzhen=true
	Else
		sql="select boarduser,Board_Setting,BoardMaster from Dv_board where boardid="&boardid
		set rrs=server.createobject("adodb.recordset")
		rrs.open sql,conn,1,1
		Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1
		Board_Setting=split(rrs("board_setting"),",")
		If cint(Board_Setting(2))=1 then
			If not (isnull(rrs(2)) or rrs(2)="") then
				BoardMaster=split(rrs(2), "|")
				For i = 0 to ubound(BoardMaster)
					If trim(BoardMaster(i))=trim(username) then
						renzhen=true
						Exit for
					End if
				Next
			End if
			If renzhen=false then
				If isnull(rrs(0)) or rrs(0)="" then
					renzhen=false
				Else
					boarduser=split(rrs(0), ",")
					For i = 0 to ubound(boarduser)
						If trim(boarduser(i))=trim(username) then
							renzhen=true
							Exit for
						End if
					Next
				End if
			End if
		Else
			renzhen=true
		End if
		rrs.close
		Set rrs=nothing
	End if
End function

'只读，获得UBB模板
Function Temp_UBB()
	Dvbbs.Loadtemplates("post")
	Dim TempArray,i
	Temp_UBB = template.html(3)
	TempArray = Split(template.html(9),"|")
	For i = 1 To Ubound(TempArray)
		Temp_UBB = Replace(Temp_UBB,"{$ubb"&i&"}",TempArray(0) & TempArray(i))
	Next
End function
'发贴时用，为了减少入库量
Function Html2Ubb(str)
	If Str<>"" And Not IsNull(Str) Then
		Dim re
		Set re=new RegExp
		re.IgnoreCase =True
		re.Global=True
		re.Pattern = "(&nbsp;)"
		Str = re.Replace(Str,Chr(9))
		re.Pattern = "(<p>)"
		Str = re.Replace(Str,"")
		re.Pattern = "(<\/p>)"
		Str = re.Replace(Str,CHR(10) & CHR(10))
		re.Pattern = "(<STRONG>)"
		Str = re.Replace(Str,"<b>")
		re.Pattern = "(<\/STRONG>)"
		Str = re.Replace(Str,"</b>")
		Html2Ubb = Str
	Else
		Html2Ubb = ""
	End If
End Function
%>
上一页 12
💿 文件大小 1632 K
👤 上传用户 c_word
📂 所属分类技术管理
🏷️ 相关标签

#NET #XI #管理系统 #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -