stumenu.asp

利用VB设计制作的一个小规模的教师工资管理系统

<style type="text/css">
<!--
body {
	background-color: #666699;
}
-->
</style><table width="768" height="25" border="0" align="center" cellpadding="0" cellspacing="1" class="unnamed_rld2">
  <tr bgcolor="#666699">
    <td width="100" height="25" align="center"><%
if right(request.ServerVariables("SCRIPT_NAME"),14)<>"checklogin.asp" and right(request.ServerVariables("SCRIPT_NAME"),12)<>"register.asp" then
response.write("<a id=history.back href='checklogin.asp'>工分查询首页</a>")
else
response.write("")
end if
%>
</td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"><a href="liuyan.asp?xh=<%= session("user") %>">申请积分</a></td>
    <td width="100" align="center"><a href="ch1.asp">查询积分</a></td>
    <td width="100" align="center"><a href="logout.asp">退出</a></td>
  </tr>
</table>

<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#666699">
    <td height="25">当前工号：[<font color=red><%= session("user") %></font>]&nbsp;&nbsp;用户密码： 
      <%
for i=1 to len(session("pwd"))
response.write("*")
next
%>
      <%if define="1" then%>
      <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("#25175class_cj.asp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3
%>
    </td>
<td align="right">
<%
response.write "<a href='stupuser.asp?id="&rs("id")&"'><font color=red>[</font>&nbsp;修改资料&nbsp;<font color=red>]</font></a>"
%></td><td width="25">&nbsp;</td>
</tr>
<tr><td colspan="3">
<table width= 100% border=1 align=left cellpadding="0" cellspacing="0" class="unnamed_rld2" bordercolor="#eeeeee">
<tr>
          <td width=15% height="25">&nbsp;员工相关信息：</td>
          <td width=>&nbsp;工号：<%=rs("bj")%>&nbsp;&nbsp;</td>
<td width=>&nbsp;&nbsp;姓名：<%=rs("xm")%>&nbsp;&nbsp;</td>
<td width=>&nbsp;&nbsp;性别：<%=rs("sex")%>&nbsp;&nbsp;</td>
<td width=>&nbsp;&nbsp;邮编：<%=rs("yb")%>&nbsp;&nbsp;</td></tr>
<tr><td height="25"></td>
<td colspan="4">&nbsp;家庭地址：<%=rs("addr")%>&nbsp;</td></tr></table>
<%
set conn=nothing
set rs=nothing
end if
%>
</td>
</tr>
</table>