您正在使用 IPV4 [44.200.39.110] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
综合数码金融娱乐服务报刊政府机构 推荐 排名 今日 申请 友情  
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
ASP智能搜索
内容摘要: % Function AutoKey(strKey) CONST lngSubKey=2 Dim lngLenKey, strNew1, strNew2, i, strSubKey '检测字符串的合法性,若不合法则转到出错页。出错页你可以根据需要进行设定。 if InStr(strKey,'=')0 or InStr(strKey,'`')0 or InSt......
<%

Function AutoKey(strKey)

CONST lngSubKey=2

Dim lngLenKey, strNew1, strNew2, i, strSubKey

'检测字符串的合法性,若不合法则转到出错页。出错页你可以根据需要进行设定。

if InStr(strKey,"=")<>0 or InStr(strKey,"`")<>0 or InStr(strKey,"'")<>0 or InStr(strKey," ")<>0 or InStr(strKey,"")<>0 or InStr(strKey,"'")<>0 or InStr(strKey,chr(34))<>0 or InStr(strKey,"\")<>0 or InStr(strKey,",")<>0 or InStr(strKey,"<")<>0 or InStr(strKey,">")<>0 then

Response.Redirect "error.htm"

End If

lngLenKey=Len(strKey)

Select Case lngLenKey

Case 0 '若为空串,转到出错页

Response.Redirect "error.htm"

Case 1 '若长度为1,则不设任何值

strNew1=""

strNew2=""

Case Else '若长度大于1,则从字符串首字符开始,循环取长度为2的子字符串作为查询条件

For i=1 To lngLenKey-(lngSubKey-1)

strSubKey=Mid(strKey,i,lngSubKey)

strNew1=strNew1 & " or U_Name like '%" & strSubKey & "%'"

strNew2=strNew2 & " or U_Info like '%" & strSubKey & "%'"

Next

End Select

'得到完整的SQL语句

AutoKey="Select * from T_Sample where U_Name like '%" & strKey & "%' or U_Info like '%" & strKey & "%'" & strNew1 & strNew2

End Function

%>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP中实现小偷程序的原理和简单示例

 

下一篇:随机生成文件名的函数

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:8
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....