changechr.asp

来自「应用于高等院校党团思想教育」· ASP 代码 · 共 33 行

<!-- #include file = "conn_user.asp" -->
<%
Function ChangeChr(Str)

  ChangeChr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
  ChangeChr=replace(replace(replace(replace(changechr,"[b]","<b>"),"[/b]","</b>"),"[red]","<font color=CC0000>"),"[/red]","</font>") 
  ChangeChr=replace(replace(replace(replace(changechr,"[i]","<i>"),"[/i]","</i>"),"[green]","<font color=009900>"),"[/green]","</font>")
  ChangeChr=replace(replace(replace(replace(changechr,"[u]","<u>"),"[/u]","</u>"),"[blue]","<font color=000099>"),"[/blue]","</font>")

End Function

Function ChangeChrW(Str, WName)

set userrs=server.createobject("adodb.recordset")
userrs.open ("SELECT * FROM Users WHERE Name='" & wName & "'"),Conn_User,0,1
Plans=userrs("Plans")
userrs.close
set userrs=nothing

Conn_User.Close
Set Conn_User = Nothing

ChangeChrW = ChangeChr(Str)
if Plans>300 then

  ChangeChrW = replace(replace(ChangeChrW,"[img]","<img src="),"[/img]",">")

end if

End Function 
%>