?? function.asp
字號:
<%
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="images/news/" & NewsID & "-" & i & ".gif"
exit function
else
FileName=CurrentPath & "\" & NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
DelectImageFile="images/news/" & NewsID & "-" & i & ".jpg"
exit function
else
DelectImageFile="images/news/" & NewsID & "-" & i & ".bmp"
exit function
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 & ".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 function
Function SelfEnCode(content,ImageNum)
Image=ImageNum
TempContent=content
' TempContent=replace(TempContent,"<","<")
' TempContent=replace(TempContent,">",">")
TempContent=replace(TempContent,chr(13),"<BR>")
if image>0 then
for i=1 to image
TempContent=replace(TempContent,"[[image" & i & "]]","<img src=" & DelectImageFile(NewsID,i) & " border=0>")
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 & "]]","<img src=" & DelectImageFile(NewsID,i) & " border=0>")
next
end if
TempContent=replace(TempContent,"[[","<")
TempContent=replace(TempContent,"]]",">")
' TempContent=" " & 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),"<BR>")
fString = doCode(fString, "[b]", "[/b]", "<b>", "</b>")
fString = doCode(fString, "[s]", "[/s]", "<s>", "</s>")
fString = doCode(fString, "[strike]", "[/strike]", "<s>", "</s>")
fString = doCode(fString, "[u]", "[/u]", "<u>", "</u>")
fString = doCode(fString, "[i]", "[/i]", "<i>", "</i>")
fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "<font face='Andale Mono'>", "</font id='Andale Mono'>")
fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "<font face='Arial'>", "</font id='Arial'>")
fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "<font face='Arial Black'>", "</font id='Arial Black'>")
fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "<font face='Book Antiqua'>", "</font id='Book Antiqua'>")
fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "<font face='Century Gothic'>", "</font id='Century Gothic'>")
fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "<font face='Courier New'>", "</font id='Courier New'>")
fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "<font face='Comic Sans MS'>", "</font id='Comic Sans MS'>")
fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "<font face='Georgia'>", "</font id='Georgia'>")
fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "<font face='Impact'>", "</font id='Impact'>")
fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "<font face='Tahoma'>", "</font id='Tahoma'>")
fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "<font face='Times New Roman'>", "</font id='Times New Roman'>")
fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "<font face='Trebuchet MS'>", "</font id='Trebuchet MS'>")
fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "<font face='Script MT Bold'>", "</font id='Script MT Bold'>")
fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "<font face='Stencil'>", "</font id='Stencil'>")
fString = doCode(fString, "[font=宋體]", "[/font=宋體]", "<font face='宋體'>", "</font id='宋體'>")
fString = doCode(fString, "[font=Verdana]", "[/font=Verdana]", "<font face='Verdana'>", "</font id='Verdana'>")
fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "<font face='Lucida Console'>", "</font id='Lucida Console'>")
fString = doCode(fString, "[red]", "[/red]", "<font color=red>", "</font id=red>")
fString = doCode(fString, "[green]", "[/green]", "<font color=green>", "</font id=green>")
fString = doCode(fString, "[blue]", "[/blue]", "<font color=blue>", "</font id=blue>")
fString = doCode(fString, "[white]", "[/white]", "<font color=white>", "</font id=white>")
fString = doCode(fString, "[purple]", "[/purple]", "<font color=purple>", "</font id=purple>")
fString = doCode(fString, "[yellow]", "[/yellow]", "<font color=yellow>", "</font id=yellow>")
fString = doCode(fString, "[violet]", "[/violet]", "<font color=violet>", "</font id=violet>")
fString = doCode(fString, "[brown]", "[/brown]", "<font color=brown>", "</font id=brown>")
fString = doCode(fString, "[black]", "[/black]", "<font color=black>", "</font id=black>")
fString = doCode(fString, "[pink]", "[/pink]", "<font color=pink>", "</font id=pink>")
fString = doCode(fString, "[orange]", "[/orange]", "<font color=orange>", "</font id=orange>")
fString = doCode(fString, "[gold]", "[/gold]", "<font color=gold>", "</font id=gold>")
fString = doCode(fString, "[beige]", "[/beige]", "<font color=beige>", "</font id=beige>")
fString = doCode(fString, "[teal]", "[/teal]", "<font color=teal>", "</font id=teal>")
fString = doCode(fString, "[navy]", "[/navy]", "<font color=navy>", "</font id=navy>")
fString = doCode(fString, "[maroon]", "[/maroon]", "<font color=maroon>", "</font id=maroon>")
fString = doCode(fString, "[limegreen]", "[/limegreen]", "<font color=limegreen>", "</font id=limegreen>")
fString = doCode(fString, "[h1]", "[/h1]", "<h1>", "</h1>")
fString = doCode(fString, "[h2]", "[/h2]", "<h2>", "</h2>")
fString = doCode(fString, "[h3]", "[/h3]", "<h3>", "</h3>")
fString = doCode(fString, "[h4]", "[/h4]", "<h4>", "</h4>")
fString = doCode(fString, "[h5]", "[/h5]", "<h5>", "</h5>")
fString = doCode(fString, "[h6]", "[/h6]", "<h6>", "</h6>")
fString = doCode(fString, "[size=1]", "[/size=1]", "<font size=1>", "</font id=size1>")
fString = doCode(fString, "[size=2]", "[/size=2]", "<font size=2>", "</font id=size2>")
fString = doCode(fString, "[size=3]", "[/size=3]", "<font size=3>", "</font id=size3>")
fString = doCode(fString, "[size=4]", "[/size=4]", "<font size=4>", "</font id=size4>")
fString = doCode(fString, "[size=5]", "[/size=5]", "<font size=5>", "</font id=size5>")
fString = doCode(fString, "[size=6]", "[/size=6]", "<font size=6>", "</font id=size6>")
fString = doCode(fString, "[list]", "[/list]", "<ul>", "</ul>")
fString = doCode(fString, "[list=1]", "[/list=1]", "<ol type=1>", "</ol id=1>")
fString = doCode(fString, "[list=a]", "[/list=a]", "<ol type=a>", "</ol id=a>")
fString = doCode(fString, "[*]", "[/*]", "<li>", "</li>")
fString = doCode(fString, "[left]", "[/left]", "<div align=left>", "</div id=left>")
fString = doCode(fString, "[center]", "[/center]", "<center>", "</center>")
fString = doCode(fString, "[centre]", "[/centre]", "<center>", "</center>")
fString = doCode(fString, "[right]", "[/right]", "<div align=right>", "</div id=right>")
fString = doCode(fString, "[code]", "[/code]", "<pre id=code><font face=courier size=" & strDefaultFontSize & " id=code>", "</font id=code></pre id=code>")
fString = doCode(fString, "[quote]", "[/quote]", "<BLOCKQUOTE id=quote><font size=" & strFooterFontSize & " face=""" & strDefaultFontFace & """ id=quote>quote:<hr height=1 noshade id=quote>", "<hr height=1 noshade id=quote></font id=quote></BLOCKQUOTE id=quote>")
fString = doCode(fString, "[url="", ""]", "[url=""", """]")
fString = doCode(fString, "[URL="", ""]", "[url=""", """]")
fString = doCode(fString, "[url", "[/url]", "<a>", "</a>")
fString = replace(fString, "[br]", "<br>", 1, -1, 1)
UBBEnCode=fString
End Function
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -