rsclose
set rs=nothing
Session("Password")=rs("password") 'rs在上面已经close了,这里的rs("password")还有值吗????
改成:
Session("Password")=rs("password")
rsclose
set rs=nothing
ResponseRedirect "mainasp"
ResponseEnd
----------------------------------------------------------------------------------------------------
mainasp
<%
If Not RequestCookies("Password")="Password" Then
ResponseRedirect "Indexasp"
ResponseEnd
End If
%>
改为:
<%
if Session("Password")="" Then
ResponseRedirect "Indexasp"
ResponseEnd
End If
%>
把你选中学号的条件加上去。做个假设
显示全部用户信息
select from student
显示选中用户的数据
select from student where stuno='007'
这个代码是没有账号密码的,你需要找到数据库(一般会修改为asp的文件)然后把后缀该成MDB格式就就可以用excel打开,里面有个选项为admin的的16或32位进制密码就行了
下面是asp中的代码
Set rs2=ServerCreateObject(ADODBrecordset)
sql=select from eq where eqbumen='&dep;&' order by eqbumen desc
rs2open sql,conn,1,1
set objExcel=CreateObject(ExcelApplication)
objExcelWorkbooksOpen(servermappath(\test)&\book1xlt) '打开Excel模板
objExcelSheets(1)select '选中工作页
set sheetActive=objExcelActiveWorkbookActiveSheet
num=2 '从Excel的第2行开始
Do while not rs2eof '循环直至数据集中的数据写完
strRange=b#&:k# '设定要填写内容的单元区域
sheetActiverange(strRange)fontsize=10 '设定字体大小
sheetActiverange(strRange)WrapText=false '设定文字回卷
sheetActiverange(strRange)ShrinkToFit=true '设定是否自动适应表格单元大小
sheetActiverange(strRange)value=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把数据集中的数据填写到相应的单元中
num=num+1
rs2MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystemgetTempName
dotPos=instr(1,tempFile,)
getTemporaryFile=mid(tempFile,1,dotPos)&xls; end function
set myFs=createObject(scriptingFileSystemObject)
filePos=servermappath(\test)&\temp '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
'myFsDeleteFile filePos&xls '删除该目录下所有原先产生的临时打印文件
set myFs=nothing
objExcelActiveWorkbooksaveas filePos&filename;
objExcelquit
set objExcel=Nothing。
以上就是关于ASP页面登陆访问数据库查询用户名和密码!全部的内容,包括:ASP页面登陆访问数据库查询用户名和密码!、急!!!ASP网页如何输出链接指定的数据库行、如何在asp查看数据库用户名密码等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)