"
response.end
end if
end if
%>
<%=webname%>留言本
<% if len(bookbg)<3 then
bookbg=""
else
bookbg="background="& indeximg & bookbg
end if %>
>
<%=jd100_top%>
>
<%
'主程序
Select Case action_e
Case ""
Case "Add_New"
Call Add_New_Execute()
Case "reply"
Call Reply_Execute()
Case "admin"
Call Admin_Login_Execute()
Case "EditPWD"
Call EditPWD_Execute()
Case "Edit"
Call Edit_Execute()
Case "Edit_web"
Call Edit_web()
End Select
Call Main_Menu()
Select Case action
Case "UbbHelp"
Call UbbHelp()
Case "Admin_Login"
Call Admin_Login()
Case "Exit"
Call Exit_Admin()
Call View_Words()
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "reply"
Call Reply()
Case "View_Words"
Call View_Words()
Case "Delete"
Call Delete()
Call View_Words()
Case "EditPWD"
Call EditPWD()
Case "Edit"
Call Edit()
Case "Edit_web"
Call Edit_web()
End Select
%>
UBB帮助退出留言
<% If Session("Admin")="Login" Then %>
退出管理
<% Else %>
管理留言
<% End If %>
<% If Session("Admin")="Login" Then %>
基本设置修改密 码
<% End If %>
<% End Sub
'''''''''''''''''''''''
'查看留言
Sub View_Words()
dim gbcount,y,j,k
set rs = conn.execute("select COUNT(id) as gbcount From words")
gbcount=rs("gbcount")
rs.close
if gbcount <1 then
Response.Write "当前没有留言记录"
%>
<%
Response.end
end if
if gbcount/n = int(gbcount/n) then '计算出分页数
y=int(gbcount/n)
else
y=int(gbcount/n)+1
end if
if page>y then page=y
page2= int(page/x)
if page/x>page2 then page2=page2+1
k=page2*x
if k>y then k=y
'打开留言字段'
if page=1 then
sql="select top "&n&" id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
else
sql="select top "& n*page &" id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
end if
Set Rs=Conn.Execute(sql)
if Page>1 then
RS.Move n*page-n
end if
%>
有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页
<% if page2>1 then %>
93
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<%=m%>]
<%
Next
%>
<% if page2*x < y then %>
4:
<% end if %>
<% if len(webtitle)>2 then %>
<% end if %>
<%
dim lou,words,reply,email,qq,web,come
if page<2 then
lou=gbcount
else
lou=gbcount-((page-1)*n)
end if
i=0
do while not rs.eof and i "Login" and view<>1 then
words= "
———————————————————— "
words= words & "留言需要审批才能查看"
words=words & " ————————————————————
"
reply=""
end if
if webyn=1 and Session("Admin") = "Login" and view=0 then
words= "
[未审批]
" & words
end if
if view=2 and Session("Admin") <> "Login" then
words= "
———————————————————— "
words= words & "这是秘密留言，仅版主可见"
words=words & " ————————————————————
"
reply=""
end if
if view=2 and Session("Admin") = "Login" then
words= "
<%
lou=lou-1
rs.movenext
loop
Rs.Close
Set Rs = Nothing
%>
有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页
<% if page2>1 then %>
93
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<%=m%>]
<%
Next
%>
<% if page2*x < y then %>
4:
<% end if %>
<% End Sub %>
<%
'''''''''管理员登陆接口
%>
<% Sub Admin_Login()
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("jd100_rn")=rndnum
%>
<% End Sub%>
<%
'''''''''''
%>
<%Sub UbbHelp()%>
UBB功能帮助
[img]
这里填写图片的绝对地址如 http://www.Bird.net/aaa.jpg
[/img]
[url]
这里填写连接地址 http://www.Bird.net/
[/url]
[swf]
这里填写SWF文件的地址http://www.Bird.net/yanshi.swf
[/swf]
[email]
这里填写电子信箱地址yefeilei.com
[/email]
[color=颜色]
这里填写要着色的文字
[/color]
[size=大小]
这里填写要加大的文字
[/size]
[font=字体]
这里填写要改变字体的文字
[/font]
<%End Sub%>
<%Sub EditPWD()%>
<%End Sub%>
<% Sub Edit() %>
<%
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
Sql="Select * From words Where id="&Request.QueryString("id")
set rs=conn.execute(sql)
view2=""
view3=""
view=rs("view")
if view=1 then
view2="checked"
end if
if view=2 then
'webyn=2
view3="checked"
end if
%>
<%
rs.close
set rs=nothing
End Sub %>
<% Sub Edit_web() %>
<%
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
if Request.Form("submit")="修改" then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
rs("title")=Request.Form("webtitle")
rs("gl")=Request.Form("webggg")
rs("gbyn")=cint(Request.Form("webyn"))
rs("webname")=Request.Form("webname")
rs.update
rs.close
set rs=nothing
response.redirect indexfilename &"?action=Edit_web"
response.end
end if
webyn2=""
if webyn=1 then
webyn2="checked"
end if
%>
<% End Sub %>
<% if jd100_fla<>"" then
if Request("action")="View_Words" or Request("action")="" then %>
<% End if
end if
%>
<% sub ubb_jd100()%>
字体大小
颜色：
<% end sub %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()
If Len(Request.Form("name"))>20 Then
Response.Write("")
Response.End
End If
If Request.Form("email")<>"" Then
If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then
Response.Write("")
Response.End
End If
End If
If trim(Request.Form("words"))="" Then
Response.Write("")
Response.End
End If
If len(Request.Form("words")) > txt Then
Response.Write("")
Response.End
End If
user_name=trim(request.form(session("antry")))
if user_name="" then
Response.Write("")
Response.End
'由于用户没有填写名字，或表单被重复提交(标志为session("antry")为空)引起
end if
if len(user_name)<1 then
Response.Write("")
Response.End
end if
session("antry")="" '提交成功，清空session("antry")，以防重复提交！！
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words"
Rs.Open Sql,Conn,2,3
Rs.AddNew
Rs("name")=user_name 'Server.HTMLEncode(Request.Form("name"))
Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
Rs("head")=Server.HTMLEncode(Request.Form("head"))
Rs("web")=Server.HTMLEncode(Request.Form("web"))
Rs("email")=Server.HTMLEncode(Request.Form("email"))
Rs("words")=Server.HTMLEncode(Request.Form("words"))
Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
Rs("head")=Server.HTMLEncode(Request.Form("Img"))
if cint(Request.Form("view"))=2 then
Rs("view")=cint(Request.Form("view"))
end if
Rs("date")=Now()
Rs("ip")=request.servervariables("remote_addr")
Rs("come")=Server.HTMLEncode(Request.Form("come"))
Rs.Update
Rs.Close
Set Rs = Nothing
response.redirect indexfilename
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'验证管理员登陆
Sub Admin_Login_Execute()
username = Server.HTMLEncode(Request.Form("username"))
password = Server.HTMLEncode(Request.Form("password"))
if trim(Server.HTMLEncode(Request.Form("jd100rz")))<>session("jd100_rn") then
Response.Write("")
Response.End
end if
session("jd100_rn")=""
If username = "" OR password = "" Then
Response.Write "用户名或者密码为空"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,1,1
If username = Rs("username") AND password = Rs("password") Then
Session("Admin") = "Login"
Else
Response.Write "用户名或者密码不对，登陆失败"
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub EditPWD_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
oldusername=Server.HTMLEncode(Request.Form("oldusername"))
username = Server.HTMLEncode(Request.Form("username"))
username_c = Server.HTMLEncode(Request.Form("username_c"))
oldpwd = Server.HTMLEncode(Request.Form("oldpwd"))
newpwd = Server.HTMLEncode(Request.Form("newpwd"))
newpwd_c = Server.HTMLEncode(Request.Form("newpwd_c"))
If username = "" OR username_c="" Then
Response.Write "新旧用户名均不能为空"
Response.End
End If
If oldpwd = "" OR newpwd = "" OR newpwd_c="" Then
Response.Write "新旧密码均不能为空"
Response.End
End If
If username<>username_c Then
Response.Write "新填写的两个新用户名不一致，请重新填写"
Response.End
End If
If newpwd<>newpwd_c Then
Response.Write "新填写的两个密码不一致，请重新填写"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
If Rs("password")=oldpwd And Rs("username")=oldusername Then
Rs("username")=username
Rs("password")=newpwd
Rs.Update
Else
Response.Write "你的旧密码填写不对或者旧用户名不对，修改不成功"
Response.End
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub Exit_Admin()
Session.Abandon
response.redirect indexfilename
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'删除数据
Sub Delete()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
'删除数据
Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'回复留言添加到数据库
Sub Reply_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select reply From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Sub Edit_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
if cint(Request.Form("replyedit"))=1 then
Rs("words") = Server.HTMLEncode(Request.Form("reply"))
end if
Rs("reply") = Server.HTMLEncode(Request.Form("words"))
if cint(Request.Form("view2"))=2 then
Rs("view")=cint(Request.Form("view2"))
else
if cint(Request.Form("view"))=1 then
Rs("view")=cint(Request.Form("view"))
else
Rs("view")=0
end if
end if
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Conn.Close
Set Conn = Nothing
%>
<%
function unHtml(content)
unHtml=content
if content <> "" then
'unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13)," ")
unHtml=replace(unHtml,chr(32)," ")
unhtmlgl=split(webgl,"|")
if IsArray(unhtmlgl) then
for i=0 to UBound(unhtmlgl)
unhtml=replace(unhtml,unhtmlgl(i),"***")
next
end if
'unHtml=ubb(unHtml)
end if
end function
function ubb(content)
ubb=content
nowtime=now()
UBB=Convert(ubb,"code")
UBB=Convert(ubb,"html")
UBB=Convert(ubb,"url")
UBB=Convert(ubb,"color")
UBB=Convert(ubb,"font")
UBB=Convert(ubb,"size")
UBB=Convert(ubb,"quote")
UBB=Convert(ubb,"email")
UBB=Convert(ubb,"img")
UBB=Convert(ubb,"swf")
ubb=convert(ubb,"cen")
ubb=convert(ubb,"rig")
ubb=convert(ubb,"lef")
ubb=convert(ubb,"center")
UBB=AutoURL(ubb)
ubb=replace(ubb,"[b]","",1,-1,1)
ubb=replace(ubb,"[/b]","",1,-1,1)
ubb=replace(ubb,"[i]","",1,-1,1)
ubb=replace(ubb,"[/i]","",1,-1,1)
ubb=replace(ubb,"[u]","",1,-1,1)
ubb=replace(ubb,"[/u]","",1,-1,1)
ubb=replace(ubb,"[blue]","",1,-1,1)
ubb=replace(ubb,"[/blue]","",1,-1,1)
ubb=replace(ubb,"[red]","",1,-1,1)
ubb=replace(ubb,"[/red]","",1,-1,1)
for i=1 to 28
ubb=replace(ubb,"{:em"&i&"}","",1,6,1)
ubb=replace(ubb,"{:em"&i&"}","",1,-1,1)
next
ubb=replace(ubb,"["&chr(176),"[",1,-1,1)
ubb=replace(ubb,chr(176)&"]","]",1,-1,1)
ubb=replace(ubb,"/"&chr(176),"/",1,-1,1)
' ubb=replace(ubb,"{;em","{:em",1,-1,1)
end function
function Convert(ubb,CovT)
cText=ubb
startubb=1
do while Covt="url" or Covt="color" or Covt="font" or Covt="size"
startubb=instr(startubb,cText,"["&CovT&"=",1)
if startubb=0 then exit do
endubb=instr(startubb,cText,"]",1)
if endubb=0 then exit do
Lcovt=Covt
startubb=startubb+len(lCovT)+2
text=mid(cText,startubb,endubb-startubb)
codetext=replace(text,"[","["&chr(176),1,-1,1)
codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)
'codetext=replace(codetext,"{:em","{;em",1,-1,1)
codetext=replace(codetext,"/","/"&chr(176),1,-1,1)
select case CovT
case "color"
cText=replace(cText,"[color="&text&"]","",1,1,1)
cText=replace(cText,"[/color]","",1,1,1)
case "font"
cText=replace(cText,"[font="&text&"]","",1,1,1)
cText=replace(cText,"[/font]","",1,1,1)
case "size"
if IsNumeric(text) then
if text>6 then text=6
if text<1 then text=1
cText=replace(cText,"[size="&text&"]","",1,1,1)
cText=replace(cText,"[/size]","",1,1,1)
end if
case "url"
cText=replace(cText,"[url="&text&"]","",1,1,1)
cText=replace(cText,"[/url]","",1,1,1)
case "email"
cText=replace(cText,"["&CovT&"="&text&"]","",1,1,1)
cText=replace(cText,"[/"&CovT&"]","",1,1,1)
end select
loop
startubb=1
do
startubb=instr(startubb,cText,"["&CovT&"]",1)
if startubb=0 then exit do
endubb=instr(startubb,cText,"[/"&CovT&"]",1)
if endubb=0 then exit do
Lcovt=Covt
startubb=startubb+len(lCovT)+2
text=mid(cText,startubb,endubb-startubb)
codetext=replace(text,"[","["&chr(176),1,-1,1)
codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)
'codetext=replace(codetext,"{:em","{;em",1,-1,1)
codetext=replace(codetext,"/","/"&chr(176),1,-1,1)
select case CovT
case "center"
cText=replace(cText,"[center]","
字体大小
颜色：
<% end sub %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()
If Len(Request.Form("name"))>20 Then
Response.Write("")
Response.End
End If
If Request.Form("email")<>"" Then
If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then
Response.Write("")
Response.End
End If
End If
If trim(Request.Form("words"))="" Then
Response.Write("")
Response.End
End If
If len(Request.Form("words")) > txt Then
Response.Write("")
Response.End
End If
user_name=trim(request.form(session("antry")))
if user_name="" then
Response.Write("")
Response.End
'由于用户没有填写名字，或表单被重复提交(标志为session("antry")为空)引起
end if
if len(user_name)<1 then
Response.Write("")
Response.End
end if
session("antry")="" '提交成功，清空session("antry")，以防重复提交！！
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words"
Rs.Open Sql,Conn,2,3
Rs.AddNew
Rs("name")=user_name 'Server.HTMLEncode(Request.Form("name"))
Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
Rs("head")=Server.HTMLEncode(Request.Form("head"))
Rs("web")=Server.HTMLEncode(Request.Form("web"))
Rs("email")=Server.HTMLEncode(Request.Form("email"))
Rs("words")=Server.HTMLEncode(Request.Form("words"))
Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
Rs("head")=Server.HTMLEncode(Request.Form("Img"))
if cint(Request.Form("view"))=2 then
Rs("view")=cint(Request.Form("view"))
end if
Rs("date")=Now()
Rs("ip")=request.servervariables("remote_addr")
Rs("come")=Server.HTMLEncode(Request.Form("come"))
Rs.Update
Rs.Close
Set Rs = Nothing
response.redirect indexfilename
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'验证管理员登陆
Sub Admin_Login_Execute()
username = Server.HTMLEncode(Request.Form("username"))
password = Server.HTMLEncode(Request.Form("password"))
if trim(Server.HTMLEncode(Request.Form("jd100rz")))<>session("jd100_rn") then
Response.Write("")
Response.End
end if
session("jd100_rn")=""
If username = "" OR password = "" Then
Response.Write "用户名或者密码为空"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,1,1
If username = Rs("username") AND password = Rs("password") Then
Session("Admin") = "Login"
Else
Response.Write "用户名或者密码不对，登陆失败"
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub EditPWD_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
oldusername=Server.HTMLEncode(Request.Form("oldusername"))
username = Server.HTMLEncode(Request.Form("username"))
username_c = Server.HTMLEncode(Request.Form("username_c"))
oldpwd = Server.HTMLEncode(Request.Form("oldpwd"))
newpwd = Server.HTMLEncode(Request.Form("newpwd"))
newpwd_c = Server.HTMLEncode(Request.Form("newpwd_c"))
If username = "" OR username_c="" Then
Response.Write "新旧用户名均不能为空"
Response.End
End If
If oldpwd = "" OR newpwd = "" OR newpwd_c="" Then
Response.Write "新旧密码均不能为空"
Response.End
End If
If username<>username_c Then
Response.Write "新填写的两个新用户名不一致，请重新填写"
Response.End
End If
If newpwd<>newpwd_c Then
Response.Write "新填写的两个密码不一致，请重新填写"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
If Rs("password")=oldpwd And Rs("username")=oldusername Then
Rs("username")=username
Rs("password")=newpwd
Rs.Update
Else
Response.Write "你的旧密码填写不对或者旧用户名不对，修改不成功"
Response.End
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub Exit_Admin()
Session.Abandon
response.redirect indexfilename
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'删除数据
Sub Delete()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
'删除数据
Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'回复留言添加到数据库
Sub Reply_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select reply From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Sub Edit_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
if cint(Request.Form("replyedit"))=1 then
Rs("words") = Server.HTMLEncode(Request.Form("reply"))
end if
Rs("reply") = Server.HTMLEncode(Request.Form("words"))
if cint(Request.Form("view2"))=2 then
Rs("view")=cint(Request.Form("view2"))
else
if cint(Request.Form("view"))=1 then
Rs("view")=cint(Request.Form("view"))
else
Rs("view")=0
end if
end if
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Conn.Close
Set Conn = Nothing
%>
<%
function unHtml(content)
unHtml=content
if content <> "" then
'unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13),"![](emot/emotface/em"&i&".gif)
",1,6,1)
ubb=replace(ubb,"{:em"&i&"}","",1,-1,1)
next
ubb=replace(ubb,"["&chr(176),"[",1,-1,1)
ubb=replace(ubb,chr(176)&"]","]",1,-1,1)
ubb=replace(ubb,"/"&chr(176),"/",1,-1,1)
' ubb=replace(ubb,"{;em","{:em",1,-1,1)
end function
function Convert(ubb,CovT)
cText=ubb
startubb=1
do while Covt="url" or Covt="color" or Covt="font" or Covt="size"
startubb=instr(startubb,cText,"["&CovT&"=",1)
if startubb=0 then exit do
endubb=instr(startubb,cText,"]",1)
if endubb=0 then exit do
Lcovt=Covt
startubb=startubb+len(lCovT)+2
text=mid(cText,startubb,endubb-startubb)
codetext=replace(text,"[","["&chr(176),1,-1,1)
codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)
'codetext=replace(codetext,"{:em","{;em",1,-1,1)
codetext=replace(codetext,"/","/"&chr(176),1,-1,1)
select case CovT
case "color"
cText=replace(cText,"[color="&text&"]","",1,1,1)
cText=replace(cText,"[/color]","",1,1,1)
case "font"
cText=replace(cText,"[font="&text&"]","",1,1,1)
cText=replace(cText,"[/font]","",1,1,1)
case "size"
if IsNumeric(text) then
if text>6 then text=6
if text<1 then text=1
cText=replace(cText,"[size="&text&"]","",1,1,1)
cText=replace(cText,"[/size]","",1,1,1)
end if
case "url"
cText=replace(cText,"[url="&text&"]","",1,1,1)
cText=replace(cText,"[/url]","",1,1,1)
case "email"
cText=replace(cText,"["&CovT&"="&text&"]","",1,1,1)
cText=replace(cText,"[/"&CovT&"]","",1,1,1)
end select
loop
startubb=1
do
startubb=instr(startubb,cText,"["&CovT&"]",1)
if startubb=0 then exit do
endubb=instr(startubb,cText,"[/"&CovT&"]",1)
if endubb=0 then exit do
Lcovt=Covt
startubb=startubb+len(lCovT)+2
text=mid(cText,startubb,endubb-startubb)
codetext=replace(text,"[","["&chr(176),1,-1,1)
codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)
'codetext=replace(codetext,"{:em","{;em",1,-1,1)
codetext=replace(codetext,"/","/"&chr(176),1,-1,1)
select case CovT
case "center"
cText=replace(cText,"[center]","
" width=16 height=16 border="0">
" width="16" height="16" border="0">
" width="16" height="16" border="0">
<% end if %>
<% if len(trim(Rs("come")))>1 then %>
" width="16" height="16">
<% end if %>
<% If Session("Admin") = "Login" Then %>
<% else %>
<% end if %>
<% else %>