function HotImg(NewsID,i)
set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")
FileName=CurrentPath & "\" & NewsID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
HotImg=""
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
HotImg=""
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
HotImg=""
exit function
else
HotImg=""
exit function
end if
end if
end if
end function
function DelectImageFile(NewsID,i)
set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")
FileName=CurrentPath & "\" & NewsID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
DelectImageFile=""
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
DelectImageFile=""
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
DelectImageFile=""
exit function
else
DelectImageFile=""
exit function
end if
end if
end if
end function
function DelectImageFile_Upload(NewsID,i)
set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("../images/news/")
FileName=CurrentPath & "\" & NewsID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".gif"
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".jpg"
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".swf"
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".bmp"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".bmp"
exit function
else
DelectImageFile_Upload=""
exit function
end if
end if
end if
end if
end function
Function SelfEnCode(content,ImageNum)
Image=ImageNum
TempContent=content
' TempContent=replace(TempContent," ' TempContent=replace(TempContent,">",">")
TempContent=replace(TempContent,chr(13),"")
if image>0 then
for i=1 to image
TempContent=replace(TempContent,"[[image" & i & "]]","")
next
end if
TempContent=replace(TempContent,"[["," TempContent=replace(TempContent,"]]",">")
TempContent=" " & TempContent
SelfEnCode=TempContent
End Function
Function HtmlSelfEnCode(content,ImageNum)
Image=ImageNum
TempContent=content
if image>0 then
for i=1 to image
TempContent=replace(TempContent,"[[image" & i & "]]","" & DelectImageFile(NewsID,i) & "")
next
end if
TempContent=replace(TempContent,"[["," TempContent=replace(TempContent,"]]",">")
HtmlSelfEnCode=TempContent
End Function
function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
fOTagPos = Instr(1, fString, fOTag, 1)
fCTagPos = Instr(1, fString, fCTag, 1)
while (fCTagPos > 0 and fOTagPos > 0)
fString = replace(fString, fOTag, fROTag, 1, 1, 1)
fString = replace(fString, fCTag, fRCTag, 1, 1, 1)
fOTagPos = Instr(1, fString, fOTag, 1)
fCTagPos = Instr(1, fString, fCTag, 1)
wend
doCode = fString
end function
Function UBBEnCode(Content)
fString=Content
fString=replace(fString," fString=replace(fString,">",">")
fString=replace(fString,chr(13),"")
fString = doCode(fString, "[b]", "[/b]", "", "")
fString = doCode(fString, "[s]", "[/s]", "", "")
fString = doCode(fString, "[strike]", "[/strike]", "", "")
fString = doCode(fString, "[u]", "[/u]", "", "")
fString = doCode(fString, "[i]", "[/i]", "", "")
fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "", "")
fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "", "")
fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "", "")
fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "", "")
fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "", "")
fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "", "")
fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "", "")
fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "", "")
fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "", "")
fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "", "")
fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "", "")
fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "", "")
fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "", "")
fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "", "")
fString = doCode(fString, "[font=宋体]", "[/font=宋体]", "", "")
fString = doCode(fString, "[font=Verdana]", "[/font=Verdana]", "", "")
fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "", "")
fString = doCode(fString, "[red]", "[/red]", "", "")
fString = doCode(fString, "[green]", "[/green]", "", "")
fString = doCode(fString, "[blue]", "[/blue]", "", "")
fString = doCode(fString, "[white]", "[/white]", "", "")
fString = doCode(fString, "[purple]", "[/purple]", "", "")
fString = doCode(fString, "[yellow]", "[/yellow]", "", "")
fString = doCode(fString, "[violet]", "[/violet]", "", "")
fString = doCode(fString, "[brown]", "[/brown]", "", "")
fString = doCode(fString, "[black]", "[/black]", "", "")
fString = doCode(fString, "[pink]", "[/pink]", "", "")
fString = doCode(fString, "[orange]", "[/orange]", "", "")
fString = doCode(fString, "[gold]", "[/gold]", "", "")
fString = doCode(fString, "[beige]", "[/beige]", "", "")
fString = doCode(fString, "[teal]", "[/teal]", "", "")
fString = doCode(fString, "[navy]", "[/navy]", "", "")
fString = doCode(fString, "[maroon]", "[/maroon]", "", "")
fString = doCode(fString, "[limegreen]", "[/limegreen]", "", "")
fString = doCode(fString, "[h1]", "[/h1]", "", "")
fString = doCode(fString, "[h2]", "[/h2]", "", "")
fString = doCode(fString, "[h3]", "[/h3]", "", "")
fString = doCode(fString, "[h4]", "[/h4]", "", "")
fString = doCode(fString, "[h5]", "[/h5]", "", "")
fString = doCode(fString, "[h6]", "[/h6]", "", "")
fString = doCode(fString, "[size=1]", "[/size=1]", "", "")
fString = doCode(fString, "[size=2]", "[/size=2]", "", "")
fString = doCode(fString, "[size=3]", "[/size=3]", "", "")
fString = doCode(fString, "[size=4]", "[/size=4]", "", "")
fString = doCode(fString, "[size=5]", "[/size=5]", "", "")
fString = doCode(fString, "[size=6]", "[/size=6]", "", "")
fString = doCode(fString, "[list]", "[/list]", "", "")
fString = doCode(fString, "[list=1]", "[/list=1]", "", "")
fString = doCode(fString, "[list=a]", "[/list=a]", "", "")
fString = doCode(fString, "[*]", "[/*]", "", "")
fString = doCode(fString, "[left]", "[/left]", "", "")
fString = doCode(fString, "[center]", "[/center]", "", "")
fString = doCode(fString, "[centre]", "[/centre]", "", "")
fString = doCode(fString, "[right]", "[/right]", "", "")
fString = doCode(fString, "[code]", "[/code]", "", "")
fString = doCode(fString, "[quote]", "[/quote]", "quote:", "")
fString = doCode(fString, "[url="", ""]", "[url=""", """]")
fString = doCode(fString, "[URL="", ""]", "[url=""", """]")
fString = doCode(fString, "[url", "[/url]", "", "")
fString = replace(fString, "[br]", "", 1, -1, 1)
UBBEnCode=fString
End Function
%>
