主题:帮我看下这段程序要怎样改呢。。。。
<!--#include file="conn.asp" -->
<%
dim rs,strSQL
set rs=server.CreateObject("ADODB.Recordset")
strSQL="select * from xt_t_user_type where type_name='"&Type_name&"'"
%>
<%
Type_name=request.Form("Type_name")
IsUse=trim(Request.Form("IsUse"))
if IsUse= "" then
IsUse=1
end if
remark=trim(Request.Form("Remark"))
checked=true '用于叛断数据是否合法,如合法则保存数据
if len(Type_name)<1 then
checked=false
end if
rs.Open strSQL,conn,1,3
if rs.eof then
if checked then
rs.AddNew
rs("Type_name")=Type_name
rs("IsUse")=IsUse
rs("Remark")=Remark
rs.update
Response.Write"增加成功。"
end if
else
Response.Write"出错了。"
end if
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
我要实现的是向数据库增加内容。要求Type_name字段的内容不能重复。。。
strSQL="select * from xt_t_user_type where type_name='"&Type_name&"'"
执行这个SQL语句不是可以查出输入的Type_name表单的数据在数据库表中的Type_name字段中是否存在的吗?
if rs.eof then
判断查找的结果,,,游标是否到了最后一行。。。。如果到了最后一行,说明Type_name表单的数据在数据库表中的Type_name字段不存在的?
为什么结果是:不管
Type_name表单的数据是否与数据库Type_name字段数据相同,,,,,都会向数据库写入呢
要实现,,,如果Type_name表单的数据与数据库Type_name字段数据相同。就拒绝写入。。。要怎样改呢?
<%
dim rs,strSQL
set rs=server.CreateObject("ADODB.Recordset")
strSQL="select * from xt_t_user_type where type_name='"&Type_name&"'"
%>
<%
Type_name=request.Form("Type_name")
IsUse=trim(Request.Form("IsUse"))
if IsUse= "" then
IsUse=1
end if
remark=trim(Request.Form("Remark"))
checked=true '用于叛断数据是否合法,如合法则保存数据
if len(Type_name)<1 then
checked=false
end if
rs.Open strSQL,conn,1,3
if rs.eof then
if checked then
rs.AddNew
rs("Type_name")=Type_name
rs("IsUse")=IsUse
rs("Remark")=Remark
rs.update
Response.Write"增加成功。"
end if
else
Response.Write"出错了。"
end if
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
我要实现的是向数据库增加内容。要求Type_name字段的内容不能重复。。。
strSQL="select * from xt_t_user_type where type_name='"&Type_name&"'"
执行这个SQL语句不是可以查出输入的Type_name表单的数据在数据库表中的Type_name字段中是否存在的吗?
if rs.eof then
判断查找的结果,,,游标是否到了最后一行。。。。如果到了最后一行,说明Type_name表单的数据在数据库表中的Type_name字段不存在的?
为什么结果是:不管
Type_name表单的数据是否与数据库Type_name字段数据相同,,,,,都会向数据库写入呢
要实现,,,如果Type_name表单的数据与数据库Type_name字段数据相同。就拒绝写入。。。要怎样改呢?