ok.asp

内无病毒,请放心下载,有不足之出请提出,

<!--#include file=blogdata.asp-->
<%
function changechr(str) 
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
changechr=replace(replace(replace(replace(changechr,"[owen]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=5>") 
changechr=replace(replace(replace(replace(changechr,"[/owen]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function

set rs=server.createobject("adodb.recordset")
rs.open "select * from PL" ,conn,1,3
rs.addnew
rs("name")=changechr(request.form("name"))
rs("cont")=changechr(request.form("cont"))
rs("id")=request("id")
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>location.href='article.asp?id="&request("id")&"';</script>　"
response.End 
%>