<% If Trim(Request.Form( FormName02 ))<> then Set conn=Server.CreateObject ( ADODB.Connection ) conn.open driver={SQL Server};server=gxclub;database=webcalldb;dsn=;uid=sa ;pwd= sql=select * from webcall_password where BpNum=' & Request.Form( FormName02 ") & "'" set rs=conn.execute(sql) if not rs.eof and not rs.bof then ' if rs( password ) <> Request.Form( formname042 ) then ' ' Response.Write ( 对不起,机主密码不正确,请您与机主联系取得 密码后再发送! ) ' '到输入密码页 ' ErrBZ=ErrBz & 对不起,机主密码不正确,请您与机主联系取得密码后再发送! ' PerIns=False ' end if Response.Redirect ( netcall_1_jzpasw.asp ) end if End If %>网上寻呼
对不起,机主密码不正确,请您与机主联系取得 密码后再发送! ) ' '到输入密码页 ' ErrBZ=ErrBz & 对不起,机主密码不正确,请您与机主联系取得密码后再发送! ' PerIns=False ' end if Response.Redirect ( netcall_1_jzpasw.asp ) end if End If %>