<HTML> <HEAD><TITLE>验证SQL保留字</TITLE> <SCRIPT LANGUAGE=”VBScript”> <!– function keyword(str) x=”action,add,aggregate,all,alter,after,and,as,asc,avg,avg_row_length,auto_increment,between,bigint,bit,binary,blob,bool,both,by,cascade,case,char,character,change,check,checksum,column,columns,comment,constraint,create,cross,current_date,current_time,current_timestamp,data,database,databases,date,datetime,day,day_hour,day_minute,day_second,dayofmonth,dayofweek,dayofyear,dec,decimal,default,delayed,delay_key_write,delete,desc,describe,distinct,distinctrow,double,drop,end,else,escape,escaped,enclosed,enum,explain,exists,fields,file,first,float,float4,float8,flush,foreign,from,for,full,function,global,grant,grants,group,having,heap,high_priority,hour,hour_minute,hour_second,hosts,identified,ignore,in,index,infile,inner,insert,insert_id,int,integer,interval,int1,int2,int3,int4,int8,into,if,is,isam,join,key,keys,kill,last_insert_id,leading,left,length,like,lines,limit,load,local,lock,logs,long,longblob,longtext,low_priority,max,max_rows,match,mediumblob,mediumtext,mediumint,middleint,min_rows,minute,minute_second,modify,month,monthname,myisam,natural,numeric,no,not,null,on,optimize,option,optionally,or,order,outer,outfile,pack_keys,partial,password,precision,primary,procedure,process,processlist,privileges,read,real,references,reload,regexp,rename,replace,restrict,returns,revoke,rlike,row,rows,second,select,set,show,shutdown,smallint,soname,sql_big_tables,sql_big_selects,sql_low_priority_updates,sql_log_off,sql_log_update,sql_select_limit,sql_small_result,sql_big_result,sql_warnings,straight_join,starting,status,string,table,tables,temporary,terminated,text,then,time,timestamp,tinyblob,tinytext,tinyint,trailing,to,type,use,using,unique,unlock,unsigned,update,usage,values,varchar,variables,varying,varbinary,with,write,when,where,year,year_month,zerofill” y=split(x,”,”) for i=0 to ubound(y) if str=y(i) then keyword=y(i)&”属于保留字” exit for else keyword=str&”不属于保留字” end if next ERASE y msgbox(keyword) end function Sub Button1_OnClick Dim TheForm Set TheForm = Document.ValidForm If len(trim(TheForm.Text1.Value))<=0 Then MsgBox “请输入” Else keyword(TheForm.Text1.Value) End If End Sub –> </SCRIPT> </HEAD> <BODY> <H3>SQL保留字验证</H3><HR> <FORM NAME=”ValidForm”> 请输入保留字： <INPUT NAME=”Text1″ TYPE=”TEXT” size=8> <INPUT NAME=”Button1″ TYPE=”BUTTON” VALUE=”提交”> </FORM> </BODY> </HTML>
[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]
免责声明：
1、本网站所有发布的源码、软件和资料均为收集各大资源网站整理而来;仅限用于学习和研究目的,您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。
不得使用于非法商业用途，不得违反国家法律。否则后果自负！
2、本站信息来自网络，版权争议与本站无关。一切关于该资源商业行为与www.niceym.com无关。
如果您喜欢该程序，请支持正版源码、软件，购买注册，得到更好的正版服务。
如有侵犯你版权的，请邮件与我们联系处理（邮箱:skknet@qq.com），本站将立即改正。
猜你喜欢
- 验证SQL保留字 2022-05-23
- MySQL的索引详解 2022-05-22
- MySQL索引使用说明(单列索引和多列索引) 2022-05-22
- 关于Mysql隔离级别、锁与MVCC介绍 2022-05-22
- 详解mysql权限和索引 2022-05-22
- linux环境下配置mysql5.6支持IPV6连接的方法 2022-05-22
- mysql入门之1小时学会MySQL基础 2022-05-22
- mybatis+mysql 使用存储过程生成流水号的实现代码 2022-05-22
- 分析MySQL并发下的问题及解决方法 2022-05-22
- mysql5.6.8源码安装过程 2022-05-22
