file.asp

中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴

<%
Sub CheckContent_Gif()
	dim Str,FileInConter,File_Type
	str=lcase(Rs("Img"))
	FileInConter=Instr(Str,".gif")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"]","")
		response.write "<img src=Images/File/gif.gif> "
	end if
	str=lcase(Rs("Img"))
	FileInConter=Instr(Str,".jpg")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"]","")
		response.write "<img src=Images/File/jpg.gif> "
	end if
	str=lcase(Rs("Img"))
	FileInConter=Instr(Str,".jpeg")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,5),"]","")
		response.write "<img src=Images/File/jpeg.gif> "
	end if
	str=lcase(Rs("Img"))
	FileInConter=Instr(Str,".bmp")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"]","")
		response.write "<img src=Images/File/bmp.gif> "
	end if
	str=lcase(Rs("Img"))
	FileInConter=Instr(Str,".png")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"]","")
		response.write "<img src=Images/File/png.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".pdf")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/pdf.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".rar")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/rar.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".zip")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/zip.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".exe")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/exe.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".htm")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/htm.gif> "
	end if
	'str=lcase(Rs("Content"))
	'FileInConter=Instr(Str,".html")
	'if FileInConter<>0 then
	'	File_Type=replace(mid(str,FileInConter+8,5),"","")
	'	response.write "<img src=Images/File/html.gif> "
	'end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".swf")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/swf.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".mp3")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/mp3.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".mpg")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/mpg.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".mpeg")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,5),"","")
		response.write "<img src=Images/File/mpeg.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".wma")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/wma.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".wmv")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/wmv.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".asf")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/asf.gif> "
	end if
	str=lcase(Rs("Content"))
	'FileInConter=Instr(Str,".ra")
	'if FileInConter<>0 then
	'	File_Type=replace(mid(str,FileInConter+8,3),"","")
	'	response.write "<img src=Images/File/ra.gif> "
	'end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".rm")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,3),"","")
		response.write "<img src=Images/File/rm.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".ram")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/ram.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".mid")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/mid.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".doc")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/doc.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".xls")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/xls.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".mdb")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/mdb.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".chm")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/chm.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".txt")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/txt.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".psd")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/psd.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".ppt")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/ppt.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".xml")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/xml.gif> "
	end if
	str=lcase(Rs("Content"))
	FileInConter=Instr(Str,".xsl")
	if FileInConter<>0 then
		File_Type=replace(mid(str,FileInConter+8,4),"","")
		response.write "<img src=Images/File/xsl.gif> "
	end if
end Sub
%>