Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

asp ÈçºÎ×öÄÜÌá¸ßÁ´½Ó´«µÝ²ÎÊýµÄ°²È«ÐÔ

Âé·³´ó¼Ò¸øÌáÌáÒâ¼ûÈçºÎ×ö²ÅÄÜ×öµ½Á´½Ó²ÎÊýµÄ°²È«ÐÔ
ûÓз־ÍûÈËÀí£¿


ÊÔÊÔÕâÖÖ¡£¡£
VBScript code:



Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name

'------¶¨Ò岿·Ý Í·----------------------------------------------------------------------

Err_Message = 1 '´¦Àí·½Ê½£º1=ÌáʾÐÅÏ¢,2=תÏòÒ³Ãæ,3=ÏÈÌáʾÔÙתÏò

Err_Web = "Err.Asp" '³ö´íʱתÏòµÄÒ³Ãæ

Query_Badword="'¡Îand¡Îselect¡Îupdate¡Îchr¡Îdelete¡Î%20from¡Î;¡Îinsert¡Îmid¡Îmaster.¡Îset¡Îchr(37)¡Î="

'ÔÚÕⲿ·Ý¶¨Òåget·Ç·¨²ÎÊý,ʹÓÃ"¡Î"ºÅ¼ä¸ô

Form_Badword="'¡Î%¡Î&¡Î*¡Î#¡Î(¡Î)¡Î=" 'ÔÚÕⲿ·Ý¶¨Òåpost·Ç·¨²ÎÊý,ʹÓÃ"¡Î"ºÅ¼ä¸ô

'------¶¨Ò岿·Ý β-----------------------------------------------------------------------
'
On Error Resume Next

'----- ¶Ô get query Öµ µÄ¹ýÂË.

if request.QueryString<>"" then
Chk_badword=split(Query_Badword,"¡Î")
FOR EACH Query_Name IN Request.QueryString
for i=0 to ubound(Chk_badword)
If Instr(LCase(request.QueryString(Query_Name)),Chk_badword(i))<>0 Then
Select Case Err_Message
Case "1"
Response.Write "<Script Language=JavaScript>alert('´«²Î´íÎ󣡲ÎÊý "&name&" µÄÖµÖаüº¬·Ç·¨×Ö·û´®£¡\n\nÇë²»ÒªÔÚ²ÎÊýÖгöÏÖ£ºand update delete ; insert mid master µÈ·Ç·¨×Ö·û£¡');window.close();</Script


Ïà¹ØÎÊ´ð£º

ASP FCKÔÚÏ߱༭Æ÷

ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏ߱༭Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏ߱༭Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......

ÏÖÔÚµÄasp³ÌÐòÔ±ÊDz»ÊǺܱ¯°§Ñ½

ÏÖÔÚÕâÉç»á»ù±¾Éϲ»ÐèÒªASP³ÌÐòÔ±ÁË,Ò»ÃæÊÔ,¶¼Òª.NET»òÕßPHP,JSPµÄ,°¥,,,,ASPÕâô²»ÖµÇ®Âð,ѧϰASPÊǸö´íÎóÂð
ûɶ´íÎó Ò»¾ä»°£º¼¼¶à²»Ñ¹Éí

¿¿ASP¶¼»ì²»µ½·¹³ÔÁË  ÔÎ ÔÎ

ÎÒµÄÒâ˼ÊǶàѧһÃż¼Êõûɶ´íÎó ......

aspÔõÑùʵÏÖ¸ÊÌØÍ¼µÄЧ¹û£¿ - Web ¿ª·¢ / ASP

ÓÐË­Äܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿

½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ

ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......

ASPÈçºÎ¶ÁÈ¡wordÎļþ£¬ÏÔʾÔÚÒ³ÃæÉÏ - Web ¿ª·¢ / ASP

²»ÊÇÖ±½Ó´ò¿ª£¬¶øÊǶÁÈ¡ÄÚÈÝ£¬È»ºó¿ÉÒÔ²Ù×÷µÄÊý¾Ý£¬¿ÉÒÔ´æ´¢µ½Êý¾Ý¿â»òÕßÏÔʾÔÚÒ³ÃæÉÏ¡£
wordÎļþÔÚ·þÎñÆ÷¶Ë¡£

¿ÉÒÔ¿¼ÂÇÓõÚÈý·½×é¼þ
http://officewriter.softartisans.com/officewriter-372.aspx

ÓÐÖÐÎÄ˵ ......

¾ÈÃü°¡£¡£¡£¡Ê¹ÓÃASP¿ÉÒÔÔÚQQȺÀï·¢ÏûÏ¢Âð?

¸÷λ¸ßÊÖ£¬¾ÈÃü°¡¡£
ǰ¼¸Ì쵥λÁìµ¼ÈÃÎÒ±àÁËÒ»¸öÐ¡ÍøÕ¾£¬ÓÃASP±àµÄ£¬¹¦Äܼܺòµ¥£º¾ÍÊÇÓɼ¸¸öÁìµ¼·¢Í¨Öª£¬ÆäËûÈËÖ»Äܹۿ´¡£

ÎÊÌâ³öÀ´ÁË£¬µ¥Î»ÀïÓÐЩÈËÄþ¿ÉÈ¥ÍæÓÎÏ·£¬Ò²²»¿Ï³é¿Õ¿´¿´Õâ¸öÍøÕ¾¡£

Áìµ¼Ë ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ