📄 left.asp
字号:
<!--#include file="conn.asp"--><!--#include file="include/const.asp"-->
<%
dim rs,sql, rs1
dim classid
dim classname
if request.querystring("classid")<>"" then
classid=int(request.querystring("classid"))
else
classid=0
end if
set rs = server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from Aclass where classID="&cstr(classid)
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
<HTML>
<HEAD>
<TITLE>left</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="left.files/pub.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<style type="text/css">
<!--
.14 {
font-family: "宋体";
font-size: 14px;
line-height: 25px;
}
-->
</style>
<base target="main">
<style type="text/css">
<!--
.13 {
font-family: "宋体";
font-size: 13px;
line-height: 30px;
}
-->
</style>
</HEAD>
<BODY bgColor=#d9d9ff text=#000000 topmargin="0">
<TABLE width=157 border=1 align=center cellPadding=0 cellSpacing=0 bordercolor="#FFFFFF">
<TBODY>
<TR>
<TD width="153" align="center" bordercolor="#000000"><H4 align=center class="14" color="#3399FF"><FONT color=#669933>实验室设备管理系统</FONT></H4>
<% if session("name")="" then%>
<form action="userchek.asp" method="post" name="user">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">用户：
<input name="username" type="text" id="username" size="10"></td>
</tr>
<tr>
<td height="30">密码：
<input name="password" type="password" id="password" size="10"></td>
</tr>
<tr>
<td height="30"><div align="center">
<input type="submit" name="name" value="提交">
<a href="reg.htm">注册</a></div></td>
</tr>
</table>
</form>
<%else%>
<table width="90%" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">登陆成功<br>
<br>
<a href="logout.asp">退出登陆</a>
</div>
<div align="center"></div></td>
</tr>
</table>
<%end if%> <DIV align=center>
<TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
<TR>
<TD height="32"><div align="center" class="14"><B><FONT color=#669933>
<span class="13">
<%
sql="select class,classid from Aclass"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有任何分类"
else
do while not rs.eof
%>
<strong>[<%=rs("class")%>一览]</strong></span></FONT></B></div></TD>
</TR>
<TR>
<TD class="13">
<%
sql="select Nclass,Nclassid,classid from ANclass where classid="&rs("classid")
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<a href="productclass.asp?classid=<%=rs1("classid")%>&Nclassid=<%=rs1("Nclassid")%>" target="main" class="13">-<%=rs1("Nclass")%></a><br>
<%
rs1.movenext
loop
rs1.close
%>
<div align="center"><a href="zhichu.asp">项目经费支出</a><br>
<a href="shouru.asp">项目经费收入</a></div></TD>
</TR>
</table>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%"
align=center bgColor=#d9d9ff borderColorLight=#008000 border=0>
<CAPTION class=font3>
<B><FONT color=#669933>
<%
rs.movenext
loop
end if
%>
<%
<!--#include file=query.asp-->%>
设备查询:</FONT></B>
</CAPTION>
<TBODY>
<TR>
<TD vAlign=center align=middle>
<FORM name=form1 action=ru_query.asp method=post
target=main>
<INPUT name=keyword class=input id="keyword" size=10 maxLength=10 >
<INPUT class=input type=submit value=查询 name=Submit>
<BR>
<BR>
查询方式：<BR>
<INPUT type=radio CHECKED value=sbbh name=action>
设备号
<input type=radio value=flbh name=action>
分类号<BR>
<INPUT type=radio
value=bgy name=action>
保管员
<INPUT type=radio value=sbmc
name=action>
设备名<BR>
</FORM></TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD></TR>
</TBODY></TABLE>
</BODY></HTML>
<%
'rs.close
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -