ͨÓÃÐ޸ĺÍÔö¼Óº¯Êý¡¾ASP¡¿

    Ò»°ãÀ´Ëµ±àÊý¾Ý¿âÀàµÄ³ÌÐòÖ÷ÒªÒª½â¾öµÄÎÊÌâÎÞ·ÇÊÇÌí¼Ó£¬É¾³ý£¬Ð޸ĺͲéѯ¡£ÕâÀà±à³Ì¶¼·Ç³£µÄ¼òµ¥¡£½ÓÏÂÀ´ÎÒÀûÓÃÒ»µã¿ÕÓàʱ¼ä·¢Ò»¸öº¯ÊýÀïÃæ°üº¬ºÍÌí¼ÓºÍɾ³ý¹¦ÄÜ¡£ÊµÑéµÄ¼Ü¹¹¿ÉÒÔʹÓÃIIS.5WEB·þÎñÆ÷ACCESSÊý¾Ý¿â¡£Õâ¸öÎÒÆäʵ²»ÓÃ˵µÄºÜÏêϸÁË£¬ÒòΪ´ó¼Ò¶¼Ó¦¸ÃÖªµÀµÄ¡£ÎÒ¾ÍÖ±½Ó°Ñº¯ÊýÌù³öÀ´¡£´ó¼ÒÖ»ÒªÉÔ΢Ð޸ļ´¿ÉʹÓá£
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '±£´æ±à¼­¹ÜÀíÔ±ÐÅÏ¢
set rs = server.createobject("adodb.recordset")
if Result="Add" then '´´½¨ÍøÕ¾¹ÜÀíÔ±
set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")
if not (rsCheckAdd.bof and rsCheckAdd.eof) then 'Åжϴ˹ÜÀíÔ±ÃûÊÇ·ñ´æÔÚ
response.write "<mce:script language=javascript><!--
alert('" & trim(Request.Form("AdminName")) & "¹ÜÀíÔ±ÒѾ­´æÔÚ£¬Çë»»Ò»¸öµÇ¼ÃûÔÙÊÔÊÔ£¡');history.back(-1);
// --></mce:script>"
response.end
end if
sql="select * from Ameav_Admin"
rs.open sql,conn,1,3
rs.addnew
if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10 then
response.write "<mce:script language=javascript><!--
alert('¹ÜÀíÔ±µÇ¼Ãû±ØÌÇÒ×Ö·ûÊýΪ3-10λ£¡');history.back(-1);
// --></mce:script>"
response.end
end if
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<mce:script language=javascript><!--
alert('¹ÜÀíÔ±ÃÜÂë±ØÌÇÒ×Ö·ûÊýΪ6-16λ£¡');history.back(-1);
// --></mce:script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<mce:script language=javascript><!--
alert('Á½´ÎÊäÈëµÄÃÜÂë²»Ò»Ñù£¡');history.back(-1);
// --></mce:script>"
response.end
end if
rs("AdminN