婚介管理信息系统毕业设计

   

name=mysubmit src=\

cellPadding=5 cellSpacing=0 width=\

name=form_reg1 onsubmit=\

注册代码：

function checkdata() {

if(document.form_reg.login.value==\ {

alert(\请填写用户名称\ return false; }

var index=0; var count=0; var counoir=0;

var str=document.form_reg.login.value var thechar; var

array=\WXYZ\

var array1=\

var arry2=\ while((thechar=str.charAt(index))!=\ {

if(array.indexOf(thechar)==-1) count+=2; else count++;

if(arry2.indexOf(thechar)!==-1) counoir++; index++; }

if(count>16) {alert(\用户名称过长!\

if(counoir>0) {window.alert (\用户名不能出现不规则字符!\

if(document.form_reg.passwd.value==\ {

alert(\请输入密码\ return false; }

var index=0; var count=0;

var str=document.form_reg.passwd.value var thechar; var

array=\WXYZ\

var array1=\

while((thechar=str.charAt(index))!=\ {

if(array.indexOf(thechar)==-1) count+=2;

else count++; index++; }

查询管理代码：

情牵一线婚介系统 查询结果

<%

sex = TRIM(Request(\ age0 =cint(Request(\ age1 =cint(Request(\ edu = TRIM(Request(\

photo = TRIM(Request(\ keywords = TRIM(Request(\ Set rootRs=Server.CreateObject(\ mySQL = \ if sex <> \ then mySQL = mySQL & \ end if

if age0 <> 0 then

mySQL = mySQL & \ end if

if age1 <> 70 then mySQL = mySQL & \ end if if edu <> \ then mySQL = mySQL & \ end if

if photo = \ then mySQL = mySQL & \ end if

if photo = \ then mySQL = mySQL & \ end if if keywords <> \ then mySQL = mySQL & \ end if mySQL = mySQL & \ rootRs.Open mySQL,conn,1,1 If rootRs.Eof Then Response.Write \没有符合要求的记录。\ else Response.Write \共找到 \ response.write rootrs.recordcount Response.Write \条记录\ rootRs.pagesize=10 rootRs.AbsolutePage =1 if Request(\ RowCount =rootRs.pagesize %> <%Do While Not rootRs.Eof AND RowCount>0%>

bordercolordark=\

href=\

Response.Write \无照片\ end if %>

href=\电子情书