ASP的注册程序,怎么让错误注册信息提示弹对话框出来???谁帮我改改哦!求助!!!

来源：百度知道 编辑：UC知道 时间：2024/06/08 15:30:09
<%
ac=request.QueryString("ac")
msg="注册错误信息"
if request.Form("username")="" then
msg=msg&"<br>"&"用户名不能为空"
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then
msg=msg&"<br>"&"两次密码输入不同"
end if

if len(request.Form("password"))<6 then
msg=msg&"<br>"&"密码太简单"
end if
if request.Form("quest")="" then
msg=msg&"<br>"&"联系电话不能为空"
end if
if request.Form("getpassword")="" then
msg=msg&"<br>"&"城市不能为空"
end if

'if len(request.Form("password"))=0 or len(request.Form("password2"))=0 then
'msg=msg&"<br>"&"密码不能为空"
'end if
'if len(request.Form(&qu

<%
'*********************************************************************************************************************
' 函数/过程名称: 提示、警告框
' 函数/过程功能: 显示提示、警告信息
' 函数/过程调用: JAlert(str,IsGoBack)
' 函数/过程返回: 返回提示、警告框
' 函数/过程实例: JAlert(s,0)
' 创建日期: 2006年12月10日
' 关键字: 提示 警告
'*********************************************************************************************************************
Function JAlert(str,IsGoBack)
Select Case IsGoBack
Case 0
Response.Write "<script language='JavaScript'>alert('" & str & "');</script>"
Case 1
Response.Write "<script language='JavaScript'>alert('" & str & "');history.go(-1);</script>"
Response.End
End Select
End Function
%>

我自用的函数集

<script language="javascript"