欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

求 修改代码,该如何解决

更新时间: 2014-01-05 00:56:19 责任编辑: Author_N1

 

求 修改代码
                <%
yzzh=session("sjcky_adminname")  
set rslx_admin=server.createobject("adodb.recordset")
sqllx_admin = "select lx_power from lx_admin where lx_username ='"&yzzh&"' " 
rslx_admin.open sqllx_admin,conn,1,1
dengji = rslx_admin("lx_power")

set rsstudent=server.createobject("adodb.recordset") 
sqlstudent = "select * from student where class like '%东关%'  order by adid desc"  
                                        
rsstudent.open sqlstudent,conn,1,1
if rsstudent.eof and rsstudent.bof then
  response.write "<SCRIPT LANGUAGE=JavaScript>alert (' 抱歉暂时没有数据!');window.location.href='admin_head_sjcky.asp';</script>"
else
if dengji = 2 then
%>


    怎么修改 为    管理员为   东关街         包含 东关 的 查询出来  帮帮忙
 like '%东关%'   这个值 为 自动截取 yzzh=session("sjcky_adminname")   的前2为值  并查询
--参考方法--

Dim UserName,aSQLstring,sSQLstring
UserName=Session("sjcky_adminname")
Set aRs=Server.CreateObject("ADODB.RecordSet")
aSQLstring = "select lx_power from lx_admin where lx_username ='"&yzzh&"'" 
aRs.Open SQLstring,Conn,1,1
IF Not aRs.EOF Then
DengJi=aRs(0)

Set sRs=Server.CreateObject("ADODB.RecordSet")
sSQLstring="select * from student where class like '%"& Left(UserName,2)&"%' order by adid desc"
sRs.Open sSQLstring,Conn,1,1
IF Not sRs.EoF Then
Do While Not sRs.EoF
Response.Write(Rs(0) & "<br>")
Rs.MoveNext:Loop
Else
Response.Write "<SCRIPT LANGUAGE=JavaScript>alert('抱歉暂时没有数据!');window.location.href='admin_head_sjcky.asp';</script>"
Response.End()
End IF
End IF
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:19
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1596/
本文WWW.DOC100.NET DOC100.NET版权所有。