雪地裸体360度跪求高手帮忙~~~~~~~~~100分大出血~~~~~
这是我写的一个学生信息查询网站,(其实是改的)大概是这个样子的,我先login.asp然后chklogin.asp里面设置response.redirect连接三个查询页面,老师的为teacher.asp,管理员的为manager.asp学生的为student.asp.全为查询页面,每个页面通过查询的条件传到list.asp中显示出查询的结果,整个查询用的表为learning.我刚学的asp还不太熟练,通过manager.asp传查询的条件到list.asp中不是太会写.也就是manager.asp和list.asp不会写,希望哪位大侠帮个忙帮我改一下我写的东西现在下面
manager.asp:
<!--#include file="articleconn.asp"-->( 这个是连数据库的文件)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息查询系统</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" href="./css/style.css">
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<table width="609" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<div align="center"><img src="images/TITLE.jpg" width="587" height="174"></div>
</td>
</tr>
</table>
<table width="607" cellpadding="0" cellspacing="0" align="center">
<tr>
<td colspan="3" height="117">
<table border="1" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" align="center">
<tr>
<td height="16" bgcolor="#B5D85E" width="81%">
<div align="center">
<p><font color="#000000"><strong> 请 选 择 查 询 信 息 </strong></font>
</p>
</div>
</td>
</tr>
<form action="list.asp" method="post">
<table width=0% border=0 align="center">
<tr>
<td height="28" colspan=2 align="center" class="header">管理资料综合搜索</td>
</tr>
<tr>
<td width="105" height="31" align="right">班级号</td>
<td width="246"><input type=text name="clsId" size=15></td>
</tr>
<tr>
<td align="right">科目</td>
<td><input type=text name="subject" size=15></td>
</tr>
<tr>
<td height="32" align="right">授课教师</td>
<td><input type=text name="teacher" size=15></td>
</tr>
<tr>
<td height="29" align="right">科目时间</td>
<td><input type=text name="sjtTime" size=15></td>
</tr>
<tr>
<td height="35" align="right">学号</td>
<td><input type=text name="stuId" size=15></td>
</tr>
<tr>
<td height="64" colspan=2 align="center">注：只填写您要搜索的部分即可，不必全部填写，支持模糊搜索</td>
</tr>
</table>
<center><br>
<input type="submit" value="确定" name="cmdOk" class="buttonface">
<input
type="reset" value="重填" name="cmdReset" class="buttonface">
</center>
</form>
</body>
</html>
list.asp我不会写那为帅哥帮我写下啊~~~~~~~~~~~`脚本是vb的 这是查询的learning表的数据vb表示
clsId = trim(request("clsId"))
subject = trim(request("subject"))
teacher = trim(request("teacher"))
sjtTime = trim(request("sjtTime"))
stuId = trim(request("stuId"))
grade = trim(request("grade"))
sjtCredit = trim(request("sjtCredit"))
然后直接可以执行单个也可以是and的查询方式
那位大侠行行好 帮帮我啊 老板欺压的紧啊 留个油箱给我 我把我写的东西发过去给您调下
调好大出血送分~~~~~~~~~~~~~~~~
问题点数：0、回复次数：21Top
1 楼Squalll009（）回复于 2005-06-03 16:59:13 得分 0
我是直接用sql在list中写的sql脚本~~~~~~~Top
2 楼lougoo（张小鱼）回复于 2005-06-03 16:59:34 得分 0
用户数据表中设定级别，登陆进SESSION一下
然后调 出Top
3 楼Squalll009（）回复于 2005-06-03 17:02:03 得分 0
本人在线等 等等 不吃饭等~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Top
4 楼Squalll009（）回复于 2005-06-03 17:02:57 得分 0
麻烦根据我写的manager.asp帮写个list.ap谢谢谢谢谢谢Top
5 楼Squalll009（）回复于 2005-06-03 17:07:42 得分 0
这是我写的list.asp等于是直接把数据库中的捞出来显示了 没执行查询 缺了 查询的sql
谁帮我改下啊
<!--#include file="articleconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理文件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" href="css/article.css">
</head>
<%
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<body bgcolor="#FFFFFF">
<p> </p>
<table width="700" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#99CCFF">
<td height="10" bgcolor="#B5D85E">
<div align="center"><b>管 理 界 面</b></div>
</td>
</tr>
<tr>
<td height="49"><%
dim sql
dim rs
sql="select * from learning order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 信 息</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpages
showContent
showpages
else
currentPage=1
showpages
showContent
showpages
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#000000"
bordercolordark="#FFFFFF" align="center">
<tr>
<td width="15%" align="center" height="20" bgcolor="#B5D85E"><font color="#000000">学 号</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">班 级 号</font></td>
<td width="15%" align="center" bgcolor="#B5D85E"><font color="#000000">科 目</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">教 师</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">科目时间</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">成 绩</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">科目学分</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"></td>
<td width="14%" align="center" bgcolor="#B5D85E"></td>
<td width="14%" align="center" bgcolor="#B5D85E"></td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("stuId")%>
</td>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("clsId")%>
</td>
<td width="14%" bgcolor="#FFFFFF">
<div align="center"><%=rs("subject")%></div>
</td>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("teacher")%>
</td>
<td width="15%" bgcolor="#FFFFFF">
<p align="center"><%=rs("sjtTime")%>
</td>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("grade")%>
</td>
<td width="15%" bgcolor="#FFFFFF">
<p align="center"><%=rs("sjtCredit")%>
</td>
<td width="14%" align="center" height="7"><a
href="add.asp">添 加</a></td>
<td width="14%" align="center" height="7"><a
href="edit.asp?id=<%=rs("stuId")%>">修 改</a></td>
<td width="14%" align="center" height="7"><a
href="delete.asp?id=<%=rs("stuId")%>">删 除</a></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<p><%
end sub
sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then
response.write "<p align='left'><a href=add.asp>添加信息</a>"
response.write "</p>"
exit sub
end if
dim k
response.write "<p align='left'>>> 信息分页 "
for k=1 to n
if k=currentPage then
response.write "[<b>"+Cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href='manager.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] "
end if
next
response.write " <a href=add.asp>创建信息</a>"
response.write "</p>"
end sub
%></p>
</td>
</tr>
</table>
<div align="center">
<center>
</center>
</div>
</body>
</html>
Top
6 楼abc666（狂奔）回复于 2005-06-03 17:23:49 得分 0
too easyTop
7 楼abc666（狂奔）回复于 2005-06-03 17:32:27 得分 0
3种查询查出来的东西应该是不一样的吧Top
8 楼zhangfeng1133（）回复于 2005-06-03 17:45:15 得分 0
bang ni ding a ,
代码教我们写啊,晕哦Top
9 楼Squalll009（）回复于 2005-06-03 17:47:52 得分 0
我先在只是manager.asp----list.asp这条线
时间紧张啊 是中国人的帮帮忙啊~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Top
10 楼Squalll009（）回复于 2005-06-03 17:50:25 得分 0
表说easy学习有先后 知识有高低 但今天并不代表明天 升出你的手 拉兄弟一把吧Top
11 楼lovebeyondforever（我不信）回复于 2005-06-03 17:51:17 得分 0
冲你的标题特来看看!Top
12 楼jdrg535（废柴）回复于 2005-06-03 17:55:03 得分 0
快下班了,垃圾一堆,给你,
<!--#include file="articleconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理文件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" href="css/article.css">
</head>
<%
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<body bgcolor="#FFFFFF">
<p> </p>
<table width="700" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#99CCFF">
<td height="10" bgcolor="#B5D85E">
<div align="center"><b>管 理 界 面</b></div>
</td>
</tr>
<tr>
<td height="49"><%
clsId = trim(request("clsId"))
subject = trim(request("subject"))
teacher = trim(request("teacher"))
sjtTime = trim(request("sjtTime"))
stuId = trim(request("stuId"))
dim cx_sql
function pd()
pd=""
if cx_sql<>"where " then pd=" and "
end function
cx_sql="where "
if clsId<>"" then cx_sql=cx_sql & pd() &"clsId=" & clsId
if subject<>"" then cx_sql=cx_sql & pd() &"subject='" & subject &"' "
if teacher<>"" then cx_sql=cx_sql & pd() &"teacher='%" & teacher &"%' "
if sjtTime<>"" then cx_sql=cx_sql & pd() &"sjtTime=#" & sjtTime &"# "
if stuId<>"" then cx_sql=cx_sql & pd() &"stuId=" & stuId &" "
dim sql
dim rs
sql="select * from learning" & cx_sql &" order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 信 息</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpages
showContent
showpages
else
currentPage=1
showpages
showContent
showpages
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#000000"
bordercolordark="#FFFFFF" align="center">
<tr>
<td width="15%" align="center" height="20" bgcolor="#B5D85E"><font color="#000000">学 号</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">班 级 号</font></td>
<td width="15%" align="center" bgcolor="#B5D85E"><font color="#000000">科 目</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">教 师</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">科目时间</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">成 绩</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">科目学分</font></td>
<td width="14%" align="center" bgcolor="#B5D85E"></td>
<td width="14%" align="center" bgcolor="#B5D85E"></td>
<td width="14%" align="center" bgcolor="#B5D85E"></td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("stuId")%>
</td>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("clsId")%>
</td>
<td width="14%" bgcolor="#FFFFFF">
<div align="center"><%=rs("subject")%></div>
</td>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("teacher")%>
</td>
<td width="15%" bgcolor="#FFFFFF">
<p align="center"><%=rs("sjtTime")%>
</td>
<td width="14%" bgcolor="#FFFFFF">
<p align="center"><%=rs("grade")%>
</td>
<td width="15%" bgcolor="#FFFFFF">
<p align="center"><%=rs("sjtCredit")%>
</td>
<td width="14%" align="center" height="7"><a
href="add.asp">添 加</a></td>
<td width="14%" align="center" height="7"><a
href="edit.asp?id=<%=rs("stuId")%>">修 改</a></td>
<td width="14%" align="center" height="7"><a
href="delete.asp?id=<%=rs("stuId")%>">删 除</a></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<p><%
end sub
sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then
response.write "<p align='left'><a href=add.asp>添加信息</a>"
response.write "</p>"
exit sub
end if
dim k
response.write "<p align='left'>>> 信息分页 "
for k=1 to n
if k=currentPage then
response.write "[<b>"+Cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href='manager.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] "
end if
next
response.write " <a href=add.asp>创建信息</a>"
response.write "</p>"
end sub
%></p>
</td>
</tr>
</table>
<div align="center">
<center>
</center>
</div>
</body>
</html>Top
13 楼Squalll009（）回复于 2005-06-03 18:07:10 得分 0
我跑跑看 其实刚才自己也写了点sql但......水平年龄有限 ....Top
14 楼Squalll009（）回复于 2005-06-03 18:13:21 得分 0
跑不起来啊 ,,,,,,,,,,,,,,Top
15 楼xutao888（小丸子）回复于 2005-06-03 18:41:40 得分 0
我日~~~~~~~看的头都大了~~~~~~~~
帮你顶一个Top
16 楼wgf001（我心永恒）回复于 2005-06-03 21:36:24 得分 0
看你可怜
帮你UPTop
17 楼lovebanyi（风云）回复于 2005-06-03 21:49:41 得分 0
太长了。。帮你UP不想看Top
18 楼jdrg535（废柴）回复于 2005-06-04 08:53:20 得分 0
怎么跑不起来了，是哪里跑不起来了~~~Top
19 楼gzapu（li）回复于 2005-06-10 09:43:37 得分 0
太长了。。Top
20 楼xxrl（孔曰成仁,孟曰取媳妇-->她太有才了）回复于 2005-06-10 09:53:49 得分 0
雪地裸体360度跪求 -->不好
先mark一下Top
21 楼zhanghongwen（流氓蚊子）回复于 2005-06-10 13:32:05 得分 0
太长了。。帮你UP不想看
Top
