replace.asp

来自「1.支持文章」· ASP 代码 · 共 33 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="Conn.asp"-->
<%
Function ReplaceChar(Content)
    Content=Replace(Replace(Content,"[",""),"]","")
	Content=Replace(Replace(Content,"［",""),"］","")
	Content=Replace(Replace(Content,"(",""),")","")
	Content=Replace(Replace(Content,"（",""),"）","")
	Content=Replace(Replace(Content,"《",""),"》","")
	Content=Replace(Replace(Content,"{",""),"}","")
	Content=Replace(Replace(Content,"'",""),"""","")
	Content=Replace(Replace(Content,"?",""),""="","")
	Content=Replace(Replace(Content,":",""),"：","")
	Content=Replace(Replace(Content,";",""),"：","")
	Content=Replace(Replace(Content,"/",""),"／","")
	Content=Replace(Replace(Content,"【",""),"】","")
	ReplaceChar=Content
End Function
Dim RS:Set RS=Server.CreateObject("Adodb.Recordset")
RS.Open "Select KeyWords From KS_Article",Conn,1,3
Do While Not RS.Eof
 RS(0)=ReplaceChar(RS(0))
 RS.Update
 RS.MoveNext
Loop
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
Response.Write "<br><br><div align=""center""><font size=2>文章数据表中关键字段的非法字符替换完毕!</font></div><br><div align=center><input type=button value=关闭窗口 onclick=window.close();></div>"
%>