asp不允许输入重复数据

上面是一些代码,比如if ******* then

 

Dim rs666, sql666

Set rs666 = Server.CreateObject("ADODB.RecordSet")
sql666 = "SELECT * FROM 表名 WHERE 字段名 like '" & Request.Form("字段名") & "'"
rs666.Open sql666, conn, 1, 1
If Not rs666.Eof Then
response.Write"<script language=javascript> alert('数据重复'); history.go(-1); </script>"
else

 

下面是一些插入代码