vb µÇ½½çÃæÖÐÈçºÎʹÓÃvbÀ´ÅжÏÊäÈëµÄÊý¾ÝÊÇ·ñºÏ·¨
¾ÍÊÇʹÓÃvb scriptÓïÑÔʹµã»÷°´Å¥Ê±ÅжÏËùÊäÈëµÄÊý¾ÝÊÇ·ñºÏ·¨£¬ÀýÈçǰºóÊäÈëµÄÃÜÂë²»Ò»Ö¿ÉÒÔµ¯³öÌáʾҪÄãÖØÐÂÊäÈëµÈ
<script language="vbscript">
<!--
sub tijiao_onclick()
if len(login.userid.value) <3 then
msgbox "Óû§ÃûÌ«¶Ì£¬ÇëÑ¡ÔñÒ»¸ö³¤¶È´óÓÚ3µÄÃû×Ö"
login.userid.select
exit sub
end if
if instr(trim(login.userid.value),"¡¡")>1 then
msgbox "Óû§ÃûÖÐÇë²»Òª¼ÓÈë¿Õ¸ñ"
login.userid.select
exit sub
end if
if len(login.userpw.value) <4 then
msgbox "ÃÜÂëÌ«¶Ì£¬ÇëÊäÈëÒ»¸ö³¤¶È´óÓÚ4µÄÃÜÂë"
login.userpw.select
exit sub
end if
if login.userpw.value <>login.verifypw.value then
login.userpw.value=""
login.verifypw.vallue=""
login.userpw.select
exit sub
end if
if login.name.value="" then
msgbox "ΪÁ˸üºÃµØÎªÄã·þÎñ£¬ÇëÊäÈëÄãµÄÃû×Ö"
login.name.select
exit sub
end if
if login.idnumber.value="" or Not isnumeric(login.idnumber.value) or
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......