一个关于提示信息的问题？？请指教
我做了一个合同管理程序，在前台添加页面中的文本框中填好了信息，点击保存，调用执行页面，将前台页面中的文本框的内容添加到数据库中，这个过程已经实现，现在在实现，在添加过程中，判断id、jkr、lmoney这个三个变量对应的文本框中的内容是否为空，为空出现，提示，最好是以消息框的形式出现；不为空执行添加。执行页面代码如下：


<!--#include file="../con_sunrise_data/conn_sunrise_data.asp"-->
<%
Function rmb(num)

num = FormatNumber(num, 2)
Dim numList 
Dim rmbList 
Dim numLen
Dim numChar
Dim numstr
Dim n 
Dim n1, n2 
Dim hz
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"

If num > 9999999999999.99 Then
  rmb = "超出范围的人民币值"
  Exit Function
End If

numstr = CStr(num * 100)
numLen = Len(numstr)
n = 1
Do While n <= numLen
  numChar = CInt(Mid(numstr, n, 1))
  n1 = Mid(numList, numChar + 1, 1)
  n2 = Mid(rmbList, numLen - n + 1, 1)
  If Not n1 = "零" Then
  hz = hz + CStr(n1) + CStr(n2)
  Else
  If n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then
  Do While Right(hz, 1) = "零"
  hz = Left(hz, Len(hz) - 1)
  Loop
  End If
  If (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿") Or n2 = "元") Then
  hz = hz + CStr(n2)
  Else
  If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then
  hz = hz + n1
  End If
  End If
  End If
  n = n + 1
Loop
Do While Right(hz, 1) = "零"
  hz = Left(hz, Len(hz) - 1)
Loop
If Right(hz, 1) = "元" Then
  hz = hz + "整"
End If
rmb = hz
End Function

%>

<%
dim tmpnum
'从第一张页面传过来的小写金额
tmpnum=request.Form("textname8")
'调用并显示大写金额
%>

<%id=request.Form("textname9")%>
<%jkr=request.Form("textname1")%>
<%zjh=request.Form("textname2")%>
<%cjr=request.Form("textname3")%>
<%sfzh=request.Form("textname4")%>
<%lmoney=request.Form("textname8")%>
<%syear=request.Form("textname5")%>
<%smonth=request.Form("textname6")%>
<%sdate=request.Form("textname7")%>

<%
set rs=server.createobject("adodb.recordset")
SQL="select * from jieju"
rs.open sql,conn,3,2
%>

<%

rs.addnew


rs("id")=id
rs("jkr")=jkr
rs("zjh")=zjh
rs("cjr")=cjr
rs("sfzh")=sfzh
rs("lmoney")=lmoney
rs("cmoney")=rmb(cdbl(tmpnum))
rs("syear")=syear
rs("smonth")=smonth
rs("sdate")=sdate

rs.update

%>
<%rs.close%>
<%set rs=nothing%>
<script language="javascript">
alert ("文章已添加成功！")
window.history.go(-2)
</script>

------解决方案--------------------
<%
'id、jkr、lmoney
if id = "" or jkr = "" or lmoney then
response.write"<script>alert('id、jkr、lmoney信息不能为空');history.go(-1);</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
SQL="select * from jieju"
rs.open sql,conn,3,2
%>



楼主 这个意思？