📄 result.asp
字号:
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<% if session("user_type")<>"T" then
response.redirect "../../../index.asp"
end if
%>
<HTML>
<head>
<title>查询结果</title>
<link rel="stylesheet" href="../../../system/all.css">
</head>
<body>
<%
dim user_id,user_type
user_id=session("user_id")
user_type=session("user_type")
dim words,fanwei,id
words=request("words") '查询单词
fanwei=request("fanwei")'查询范围
id=request("liebie") '查询类别
response.write "<h4>搜索结果</h4>"
%>
<CENTER>
<p>
<TABLE border="0" bordercolor="#8800FF" width="95%" cellspacing="2">
<tr align=center>
<td width=5%>序号</td>
<TD width=35%>名称</TD>
<TD width=30%>摘要</TD>
<TD width=10%>点击/评论</TD>
<TD width=10%>时间</TD>
<TD width=10%>操作</TD>
</tr>
<%
SQL="SELECT * FROM reference"
SQL=SQL + " WHERE lesson_id='" & session("lesson_id") & "'"
'如果选择了类别，则只在指定范围里查找
if id<>"ALL" then
sql=sql + " and subject_id=" & int(id)
end if
'如果选择了范围，则只在范围里找,如果没有则在所有的范围里找
if fanwei<>"ALL" then
sql=sql + " and " & fanwei & " like '%" & words & "%'"
else
sql=sql + " and (file_name like '%" & words & "%'"
sql=sql + " or abstract like '%" & words & "%'"
sql=sql + " or keywords like '%" & words & "%'"
sql=sql + " or author like '%" & words & "%'"
sql=sql + " or magazine like '%" & words & "%')"
end if
SQL=SQL + " order by submit_date desc,id desc"
'response.write sql
SET RS=db.EXECUTE(SQL)
i=0
DO WHILE NOT RS.EOF
i=i+1
%>
<TR bgcolor=#FFFFCC align="center">
<td align=center width=5%><%=i%>
<TD width=35%><a href="particular2.asp?thename=<%=rs("id")%>&thename2=<%=id%>&thename3=<%=subject_name%>" target="_new"><%=RS("file_name")%></a></TD>
<TD width=10%><%=left(RS("abstract"),40)%></TD>
<TD width=10%><%=RS("hits")%>/<%=RS("childs")%></TD>
<TD width=10%><%=RS("submit_date")%></TD>
<TD width=10%>
<%'if rs("writer_id")=user_id or user_id="admin" then%>
<a href="delete2.asp?thename=<%=rs("id")%>&thename2=<%=id%>&thename3=<%=subject_name%>" target="_new">删除</a>
<%'else%>
 
<%'end if%>
</TR>
<%
RS.MOVENEXT
LOOP
%>
</TABLE>
</CENTER>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -