[求助]在哪里加,怎么加?
老师:请看如下代码!是判断输入框的,但是我判断的只是输入为"空"时的警告,但是如果我想判断只能输入数字(对电话,传真的输入时),修改下面的代码,或者怎么修改下面的代码才更完整?<%
dim mc,dz,dh,cz,yx,yb,khh,zh,sh,error
mc=trim(request("mc"))
dz=trim(request("dz"))
dh=trim(request("dh"))
cz=trim(request("cz"))
yx=trim(request("yx"))
yb=trim(request("yb"))
khh=trim(request("khh"))
zh=trim(request("zh"))
sh=trim(request("sh"))
if mc="" then
error=error&"<br><li>供货单位名称不能为空</li>"
end if
if dz="" then
error=error&"<br><li>供货单位地址不能为空</li>"
end if
if dh="" then
error=error&"<br><li>供货单位电话不能为空</li>"
end if
if cz="" then
error=error&"<br><li>供货单位传真不能为空</li>"
end if
if yx="" then
error=error&"<br><li>供货单位邮箱不能为空</li>"
end if
if yb="" then
error=error&"<br><li>供货单位邮编不能为空</li>"
end if
if khh="" then
error=error&"<br><li>供货单位开户行不能为空</li>"
end if
if zh="" then
error=error&"<br><li>供货单位帐号不能为空</li>"
end if
if sh="" then
error=error&"<br><li>供货单位税号不能为空</li>"
end if
if error="" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from ghdw where mc='"&mc&"'"
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
rs("mc")=mc
rs("dz")=dz
rs("dh")=dh
rs("cz")=cz
rs("yx")=yx
rs("yb")=yb
rs("khh")=khh
rs("zh")=zh
rs("sh")=sh
rs.update
response.redirect"myweb_tianjiagonghuodanwei.asp"
rs.close
set rs=nothing
else
response.write"<li><font color=red>系统处理结果如下</font></li><br><li>该供货单位名称已经存在,请换个名称 <br> <center><a href=javascript:history.go(-1)><font color=red>返回重写</font></a></center>"
end if
else
response.write"<font color=red>系统处理结果如下</font></li><br>"&error&"<center> <a href=javascript:history.go(-1)><font color=red>返回重写</font></a></center>"
end if
%>
谢谢老师,帮帮忙!
