
爱一个人,不一定拥有她,但拥有一个人,就要爱她。也许她不是最好的,但她可能是你最值得的珍惜的人。
[此贴子已经被作者于2007-9-25 11:01:26编辑过]
[CODE]cpname = Request("cpname")
if cpname = "" then
response.write"·请添加产品名称!"
response.end()
elseif cpname = rs1("cp_name") then
response.write"·数据库已有此产品添加,请与管理员联系!"
response.end()
else
cpname = cpname
end if[/CODE]
可以潜套
但是要注意虽然能够嵌套但两种代码不可以直接调用,比如
<script language="javascript">
<%
Dim TestVar
TestVar="Test String"
%>
alert(TestVar);
</script>
这样写就会出错误,javascript里找不到TestVar这个变量,因为变量在<%%>内定义的,这个变量只能在<%%>内使用。
而上面的程序修改成如下代码则正确
<script language="javascript">
<%
Dim TestVar
TestVar="Test String"
%>
alert("<%=TestVar%>");
</script>
因为这里的TestVar是从服务器端借助<%=%>将变量值输出到javascript脚本中的,不是直接调用因此,客户端alert直接显示变量值,所以是正确的。
[CODE]<%
set rs11=Server.CreateObject("Adodb.Recordset")
sql11="select * from cp"
rs11.open sql11,conn,1,3
sub scripterr
response.write"<script>alert('操作出错,下面是产生错误的可能原因:\n\n"&errstyle&"');history.go(-1);</script>"
response.end
end sub
cpname = Request("cpname")
if Request("cpname")=rs11("name") then
errstyle="·产品名称出错"
scripterr
end if
cpbh = Request("cpbh")
if Request("cpbh")=rs11("bh") then
errstyle="·产品编号出错"
scripterr
end if
cpcd=Request("cpcd")
if Request("cpcd")=rs11("qy") then
errstyle="·生产企业出错"
scripterr
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from zx where id="& session("id")
rs.open sql,conn,1,3
rs.addnew
rs("SMT_cpname")=cpname
rs("SMT_cpbh")=cpbh
rs("SMT_cpcd")=cpcd
rs("id")=session("id")
rs.update
rs.close
set rs=nothing
%>[/CODE]
为什么我从a.asp提交到这个b.asp页面后提交后,为什么只可以验证表cp的第一条id为3的记录如下图..
回楼上如果是验证所有的内容,个人认为要么用SQL语句加条件,要么循环rs进行验证。
额。。。如何加rs循环呢?~谢谢