ASP检测一个身份z是否正确的程序应该怎样写?

//检查身份z是否是正确格式

function checkCard(cardid)

{

var pattern

if (cardid.length==15)

{

pattern= /^\d{15}$///正则表达式,15位且全是数字

if (pattern.exec(cardid)==null)

{

alert("15位身份z号码必须为数字！")

return false

}

if (!isdate("19"+cardid.substring(6,8),cardid.substring(8,10),cardid.substring(10,12)))

{

alert("身份z号码中所含日期不正确")

return false}

}

else if (cardid.length==18)

{

pattern= /^\d{17}(\d|x|X)$///正则表达式,18位且前17位全是数字，最后一位只能数字,x,X

if (pattern.exec(cardid)==null)

{

alert("18位身份z号码必须为数字！")

return false

}

if (!isdate(cardid.substring(6,10),cardid.substring(10,12),cardid.substring(12,14)))

{

alert("身份z号码中所含日期不正确")

return false

}

var strJiaoYan =[ "1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"]

var intQuan =[7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1]

var intTemp=0

for(i = 0i <cardid.length - 1i++)

intTemp += cardid.substring(i, i + 1) * intQuan[i]

intTemp %= 11

if(cardid.substring(cardid.length - 1,cardid.length).toUpperCase()!=strJiaoYan[intTemp])

{

alert("身份z末位验证码失败！")

return false

}

}

else

{

alert("身份z号长度必须为15或18！")

return false

}

return true

}

写个ASP文件：

假设你的连接方式是：Set Conn = Server.CreateObject("ADODB.Connection")

那么

<%

function TestConn()

if Conn then

TestConn=true

else

TestConn=false

end if

end function

%>

---