badword.asp

电子商务网络购物系统

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
Dim intBadWord
Dim saryNewWord(3)
Dim saryReplaceWord(3)

For intBadWord = 1 to 3
	saryNewWord(intBadWord) = Request.Form("badWord" & intBadWord)
	saryReplaceWord(intBadWord) = Request.Form("replaceWord" & intBadWord)
	saryNewWord(intBadWord) = Replace(saryNewWord(intBadWord), "'", "''", 1, -1, 1)
	saryReplaceWord(intBadWord) = Replace(saryReplaceWord(intBadWord), "'", "''", 1, -1, 1)
	If saryNewWord(intBadWord) <> "" AND saryReplaceWord(intBadWord) <> "" Then
		strSQL = "INSERT INTO timesword (mist, okworld) VALUES ('" & saryNewWord(intBadWord) & "', '" & saryReplaceWord(intBadWord) & "');"
		adoCon.Execute(strSQL)		
	End If
Next
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect "badwordcfg.asp"
%>