ͨÓÃÐ޸ĺÍÔö¼Óº¯Êý¡¾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
Ïà¹ØÎĵµ£º
+++ ASP.NET»º´æÖеÄÊý¾ÝÊDz»Îȶ¨µÄ£¬²»»á±»ÓÀ¾ÃµØ´æ´¢£¬¿ÉÄÜ»áÓÉÓÚÒÔÏÂÔÒòÖ®Ò»¶ø´Ó»º´æÖб»×Ô¶¯ÒƳý£º
1) »º´æÂúÁË
2) »º´æÏîÒѾ¹ýÆÚ
3) »º´æÒÀÀµµÄÏî¸Ä±äÁË
+++ ³ýÁË¿ÉÒÔ×Ô¶¯ÒƳý»º´æÏîÍ⣬Äã¿ÉÒÔÏÔʾÒƳý»º´æÏî¡£ÁíÍ⣬µ±ÄãÓÃInsert·½·¨ºÍAdd·½·¨Ïò»º´æÖÐÌí¼ÓµÄ»º´æÏîÒѾ´æÔÚʱ£¬ÄÇô£¬ÔÀ´µÄ»º´æÏ±»×Ô¶¯É¾³ý¡ ......
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite  ......
'SQL·À×¢È뺯Êý£¬µ÷Ó÷½·¨£¬ÔÚÐèÒª·À×¢ÈëµÄµØ·½Ìæ»»ÒÔÇ°µÄrequest("XXXX")ΪSafeRequest("XXXX")
'www.yongfa365.com
Function
SafeRequest(ParaValue)
ParaValue =
Trim
(
Request
(Pa ......
Õ⼸Ììѧϰ¶¯Ì¬ÍøÕ¾µÄÖÆ×÷£ºASP¡£ÓÉÓÚÀÏʦ½²µÄºÜÈÏÕ棬ºÜÏêϸ£¬¿Î³ÌÄÜÌý¶®£¬×Ô¼ºÒ²ÂòÁËÒ»±¾¹ØÓÚASPµÄÊé¼®£¬ASPµÄһЩ¹¦ÄܵÄʵÏÖ£¬Ôõô×ö³öÀ´ÄÜ¿´µÄ²î²»¶à£¬¿É¾ÍÊÇ×öµÄʱºòºÃ²î¾¢£¬²»ÊÇij¸öÓ¢Óïµ¥´Ê²»»áд£¬¾ÍÊÇÖظ´´íÎó³öÏÖ£¬Éî¿ÌµÄÃ÷°×£¬×öÍøÕ¾ÔÀ´ÕâôÄÑ£¬²»½öÐèÒªÑϽ÷µÄÂ߼˼άÄÜÁ¦£¬¶ø ......