易语言数据库搜索，请大家帮我看看我的这段代码有什么问题！ 帮偶看看搜索数据代码
\u6613\u8bed\u8a00\u95ee\u9898\uff1a\u4e0d\u7528\u6570\u636e\u5e93\uff0c\u5982\u4f55\u7b80\u5316\u8fd9\u6bb5\u4ee3\u7801\uff1f.\u7248\u672c 2
.\u5b50\u7a0b\u5e8f _\u6309\u94ae1_\u88ab\u5355\u51fb
.\u5982\u679c\u771f (\u7f16\u8f91\u68461.\u5185\u5bb9 \uff1d \u201c1\u201d \u6216 \u7f16\u8f91\u68461.\u5185\u5bb9 \uff1d \u201c2\u201d \u6216 \u7f16\u8f91\u68461.\u5185\u5bb9 \uff1d \u201c3\u201d)
\u7f16\u8f91\u68462.\u5185\u5bb9 \uff1d \u201c\u6211\u53eb\u5c0f\u660e\u201d
.\u5982\u679c\u771f\u7ed3\u675f
<%
word=request("word")
columns=request("columns")
if word="" then
response.write "alert('\u67e5\u627e\u5b57\u7b26\u4e32\u4e0d\u80fd\u4e3a\u7a7a\uff01');history.back();"
response.end
end if
%>
<%
function chkhtm(stra)
stra=replace(stra,"<","<")
stra=replace(stra,">",">")
stra=replace(stra,"'","")
stra=replace(stra,"(","\uff08")
stra=replace(stra,")","\uff09")
stra=replace(stra,";","\uff1b")
stra=replace(stra,",","\uff0c")
stra=replace(stra,"%","\uff05")
stra=replace(stra,"+","\uff0b")
chkhtm=stra
end function
function titleb(str,strlen)
dim l,t,c, i
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
titleb=left(str,i)&"\u2026"
exit for
else
titleb=str&""
end if
next
end function
columns=request("columns")
if columns="\u6309\u5185\u5bb9" then
columns="content"
elseif columns="\u6309\u6807\u9898" then
columns="title"
else
columns="addtime"
end if
on error resume next
word=chkhtm(trim(Request("word")))
nnn=""&word&""
set rs1=server.CreateObject ("adodb.recordset")
rs1.Open "select distinct(type1) from news where type1='"&rs("type1")&"'",conn,0,1
if word="" then
sql = "select * from news where 1=2 order by id desc"
elseif columns="title" or columns="content" then
sql = "select * from news where title like '%"&word&"%' order by id desc"
elseif len(word)=4 then
sql= "select * from news where addtime >#" & word & "-1-1# and addtime<#" & word+1 & "-1-1#" & " order by id desc"
else
sql= "select * from news where addtime >#" & word & "-1# and addtime<(#" & word & "-1#+30)" & " order by id desc"
end if
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "\u8bf7\u8f93\u5165\u6b63\u786e\u7684\u8868\u8fbe\u5f0f \u5e74-\u6708"
i=0
do while not rs1.eof
end if
rs1.close
set rs1=nothing
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select distinct(type) from [config]",conn,0,1
if rs.recordcount0 then
sotop=rs("sotop")
sobottom=rs("sobottom")
end if
rs.close
set rs=nothing
Response.Write sotop
%>
<%
function chkhtm(stra)
stra=replace(stra,"<","<")
stra=replace(stra,">",">")
stra=replace(stra,"'","")
stra=replace(stra,"(","\uff08")
stra=replace(stra,")","\uff09")
stra=replace(stra,";","\uff1b")
stra=replace(stra,",","\uff0c")
stra=replace(stra,"%","\uff05")
stra=replace(stra,"+","\uff0b")
chkhtm=stra
end function
function titleb(str,strlen)
dim l,t,c, i
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
titleb=left(str,i)&"\u2026"
exit for
else
titleb=str&""
end if
next
end function
columns=request("columns")
if columns="\u6309\u5185\u5bb9" then
columns="content"
elseif columns="\u6309\u6807\u9898" then
columns="title"
else
columns="addtime"
end if
on error resume next
word=chkhtm(trim(Request("word")))
nnn=""&word&""
if word="" then
sql = "select * from news where 1=2 order by id desc"
elseif columns="title" or columns="content" then
sql = "select * from news where title like '%"&word&"%' order by id desc"
elseif len(word)=4 then
sql= "select * from news where addtime >#" & word & "-1-1# and addtime<#" & word+1 & "-1-1#" & " order by id desc"
else
sql= "select * from news where addtime >#" & word & "-1# and addtime<(#" & word & "-1#+30)" & " order by id desc"
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if err.number0 then
response.Write "alert('\u8bf7\u8f93\u5165\u6b63\u786e\u7684\u8868\u8fbe\u5f0f \u5e74-\u6708');history.go(-1);"
end if
if rs.recordcount0 then
page=int(request.QueryString ("page"))
rs.PageSize=10
pagecount=rs.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
<%
for i=0 to pagecount
sql2 = "select * from lm where id="&rs("lm")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
lm=rs2("lm")
title=replace(rs("title"),word,nnn)
nr=replace(nr,"<","\uff1c")
nr=replace(nr,">","\uff1e")
content=nr
%>
<%
if len(content)<400 then
Response.Write content
Else
Response.Write titleb(content,190)
end if
%>
<%
rs.movenext
if rs.eof then exit for
next
else
response.write "\u65e0\u8bb0\u5f55"
end if
%>
<%
Response.Write sobottom
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
\u56e0\u4e3a\u5b57\u6570\u592a\u591a,\u6240\u6709\u4e0d\u8ba9\u53d1,\u8fd9\u4e2a\u662f\u5b8c\u6574\u7684\u4ee3\u7801!\u9ebb\u70e6\u5927\u5bb6\u5e2e\u5fd9\u770b\u770b\u54e6
,\u770b\u770b\u8fd9\u4e2a\u4ee3\u7801\u90a3\u4e0d\u5bf9?\u5076\u5199\u7684\u8fd9\u4e2a\u9875\u662f\u641c\u7d22\u4e24\u4e2a\u6570\u636e\u5e93,addtime\u4e3a\u65f6\u95f4,content\u4e3a\u5185\u5bb9,title\u4e3a\u6807\u9898.\u770b\u770b\u8fd9\u4e2a\u4ee3\u7801\u90a3\u4e0d\u5bf9?\u4e24\u4e2a\u6570\u636e\u5e93\u91cc\u90fd\u6709\u8868news\u5e76\u4e14\u90fd\u6709addtime,content,tietle\u8fd9\u4e09\u4e2a\u5b57\u6bb5.\u4f46\u73b0\u5728\u6d4b\u8bd5\u5c31\u662f\u4e0d\u80fd\u901a\u8fc7.\u5e2e\u5076\u6539\u4e0b\u54e6.
.支持库 iext
超级列表框1.全部删除 ()
.判断循环首 (尾记录后 () ≠ 真)
' 记录数 ＝ 记录数 ＋ 1
用户 ＝ 读 (#姓名)
性别 ＝ 读 (#性别)
家庭住址 ＝ 读 (#家庭住址)
身份证 ＝ 读 (#身份证)
个人简介 ＝ 读 (#个人简介)
.判断开始 (用户 ＝ 编辑框1.内容 或 性别 ＝ 编辑框1.内容 或 家庭住址 ＝ 编辑框1.内容 或 到文本 (身份证) ＝ 编辑框1.内容 或 个人简介 ＝ 编辑框1.内容)
超级列表框1.插入表项 (0, 用户, , , , )
超级列表框1.置标题 (0, 1, 性别)
超级列表框1.置标题 (0, 2, 家庭住址)
超级列表框1.置标题 (0, 3, 到文本 (身份证))
超级列表框1.置标题 (0, 4, 个人简介)
.默认
.判断结束
跳过 (1)
' 信息框 (用户 ＋ 性别 ＋ 家庭住址 ＋ 到文本 (身份证) ＋ 个人简介, 0, )
.判断循环尾 ()
到首记录 ()
这是个简单的数据库信息查找代码片段,完整的代码请下载 有你要的功能
http://mail.qq.com/cgi-bin/ftnExs_download?k=0b383437be85cec893dbd52744320318515b555501030555185b070f011f0556030c190f5553501a055a57535101020f5401000e623831fdc886e988801c43564738&t=exs_ftn_download&code=5847b217
绛旓細鍒伴璁板綍 ()杩欐槸涓畝鍗曠殑鏁版嵁搴淇℃伅鏌ユ壘浠ｇ爜鐗囨,瀹屾暣鐨勪唬鐮佽涓嬭浇 鏈変綘瑕佺殑鍔熻兘 http://mail.qq.com/cgi-bin/ftnExs_download?k=0b383437be85cec893dbd52744320318515b555501030555185b070f011f0556030c190f5553501a055a57535101020f5401000e623831fdc886e988801c43564738&t=exs_ftn_download&code=584...
绛旓細娌℃湁闂鐨勶紝E璇█闈欐佺紪璇戜箣鍚庢弿杩颁細鑷姩鍐欎负鏄撹瑷鏂囦欢锛屽鏋滆繕鏄笉鎳傜殑璇濓紝浣犲彲浠ヤ笅杞戒竴涓狤璇█锛岀劧鍚庤嚜宸辩紪璇戜竴涓┖绋嬪簭锛岄兘浼氭槸鏄撹瑷鏂囦欢鐨
绛旓細鐢ㄥ鎵炬枃浠讹紙锛夌涓娆¤緭鍏鏌ユ壘淇℃伅璋冪敤瀵绘壘鏂囦欢锛岃繑鍥炵殑鏄鍚堢洰鏍囩殑鏂囦欢鍚 瀵绘壘鏂囦欢锛堛鏁版嵁銆戯紝銆愭暟鎹戯級绗簩娆＄洿鎺ユ墦绌烘暟鎹 瀵绘壘鏂囦欢锛堬紝锛 杩斿洖绗簩涓鍚堟潯浠剁殑 鏈鍚庢病鏈変簡灏辫繑鍥炲埆鐨锛岀湅璇存槑 瀛椾笉澶 鍙傝冭祫鏂欙細鍒氬ソ100瀛
绛旓細濡傚浘鎵绀猴紝鑻ュ凡缁忔垚鍔熻繛鎺ュ垯鍒╃敤璁板綍闆嗘帶浠跺鏁版嵁搴杩涜鎿嶄綔锛 .濡傛灉 (鏁版嵁搴撹繛鎺1.鏄惁宸茶繛鎺 锛 鐪) 璁板綍闆1.缃繛鎺 (鏁版嵁搴撹繛鎺1) 璁板綍闆1.鎵撳紑 (鈥滄垚缁╄〃鈥, #鏁版嵁琛ㄥ悕, ) 璁板綍闆1.鍒伴璁板綍 () 璇诲嚭鏁版嵁 () .鍚﹀垯 淇℃伅妗 (鈥滄暟鎹簱鏈繛鎺モ, 0, 鈥滃け璐モ, )涓婇潰鐨勨滆鍑烘暟鎹紙...
绛旓細杩欓噷锛屾暀澶у濡備綍瀹炵幇鏁版嵁搴鏁版嵁褰曞叆鍜孲QL璇彞(insert into values)鐨勪娇鐢 鐣岄潰鐨勬惌寤轰箣鍓嶄粙缁嶈繃濡備綍瀹炵幇鏁版嵁搴撶殑杩炴帴鍜岃秴绾у垪琛ㄦ鐨勪娇鐢紝鎺ョ潃涓婁竴娆＄殑鎴愬搧銆 棣栧厛涓哄惎鍔ㄧ獥鍙ｆ坊鍔犫滄彃鍏ユ柊鏁版嵁鈥濇寜閽紝鐢ㄦ潵鍚姩鏂扮獥鍙ｃ傚鍥撅紝鎻掑叆-绐楀彛锛屾坊鍔犱竴涓柊鐨勭獥鍙ｃ備负鏂扮獥鍙ｆ坊鍔犳柊鐨勬爣棰橈紝鎸夐挳銆佹爣绛惧拰缂栬緫妗嗭紝鍏...
绛旓細璇诲叆鏂囦欢锛堝彇鐗瑰畾鐩綍锛11锛+鈥/huiyi.txt鈥濓級鎶/huiyi.txt 鐨/鍒犱簡鑰屼笖鍒ゆ柇鏂囦欢鏄惁瀛樺湪鏄敤璺緞涓嶆槸璧勬簮 鍒ゆ柇锛堟枃浠舵槸鍚﹀瓨鍦紙鍙栫壒瀹氱洰褰曪紙11锛+鈥渉uiyi.txt鈥濓級锛//杩欓噷鏄矾寰勪笉鏄祫婧
绛旓細鏄撹瑷鑳界敓鎴愯〃鏍鏁版嵁搴,鏁版嵁搴鐨勭被鍨嬫湁,鏄撹瑷鑷甫EDB鏁版嵁搴,ACCESS鐨凪DB鏁版嵁搴,MYSQL鏁版嵁搴,鏁版嵁婧,绛夌瓑 琛ㄦ牸绫绘湁,琛ㄦ牸,楂樼骇琛ㄦ牸,瓒呯骇鍒楄〃妗,EXCEL宸ヤ綔绨
绛旓細鏄埆浜虹數鑴戜笂娌℃湁鏄撹瑷锛閭ｄ釜淇℃伅妗嗙殑鎰忔濇槸鈥滅己灏戜竴涓狵鈥︾殑鏀寔搴撯濊繖涓槸鏄撹瑷鐨勬牳蹇冩敮鎸搴擄紝绋嬪簭杩愯鎵蹇呴渶鐨勩備綘鍘讳笅杞戒釜5.11姝ｅ紡鐗堢殑锛岀劧鍚庢悳涓搴旂殑鐮磋В琛ヤ竵銆傚啀鍒板畼鏂硅鍧涚殑缃《璐存壘涓猇C6.0閾炬帴鍣紙閲岄潰鏈夋搷浣滄柟娉曪級锛岀敤闈欐佺紪璇戝彲瑙ｅ喅浣犵殑闂銆
绛旓細1銆佸叏涓枃鏀寔锛屽叏閮ㄨ嚜涓荤煡璇嗕骇鏉 2銆佹嫢鏈夎嚜宸辩殑缂栬瘧鍣 3銆佽法骞冲彴缂栫▼ 4銆佹嫢鏈夎嚜宸辩殑鏁版嵁搴绯荤粺锛屼笖鏀寔璁块棶鐜版湁鎵鏈夋暟鎹簱銆5銆佸唴缃笓鐢ㄨ緭鍏ユ硶锛屾敮鎸佷腑鏂囪鍙ュ揩閫熷綍鍏 6銆佸叏鍙鍖栫紪绋 7銆佷腑鏂囨湰鍦熷寲鐗硅壊鐨勬敮鎸 8銆佸绉璇█鏀寔 9銆佸彲浠ヤ笌鍏跺畠缂栫▼璇█鍗忎綔寮鍙 10銆佹敮鎸佷笘鐣屽厛杩涚紪绋嬫妧鏈 11銆佷汉鏈虹晫闈...
绛旓細2銆佷綘纭鏄"1.text"鑰屼笉鏄"1.txt"锛佽繖涓綘鑷繁鎼炲ソ灏辫锛屾垜鐩祴涓嶅埌锛.鐗堟湰 2 .瀛愮▼搴 _鎸夐挳6_琚崟鍑 .濡傛灉 (鏂囦欢鏄惁瀛樺湪 (鈥淔:\1.text鈥))' 淇℃伅妗 (鈥滄枃浠跺瓨鍦紒鈥, 0, ).鍚﹀垯 淇℃伅妗 (鈥滆繕鏈櫥褰曪紝璇风櫥褰曞悗鍙繘鍏モ, 0, )杩斿洖 ().濡傛灉缁撴潫 .濡傛灉 (鏂囦欢鏄惁瀛樺湪 (鍙栬繍琛...
