<%
exec="select * from message"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%do while not rs.eof%><tr>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link href="style.css" rel="stylesheet" type="text/css" />
<title>工资检索</title>
</head>
<body background="image/bg.gif">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table cellSpacing="0" cellPadding="0" width="147" align="center" border="0">
<tbody>
<tr>
<td>
<table cellSpacing="1" cellPadding="0" width="515" align="center" border="0">
<tbody>
<tr>
<td height="18" width="131"><font color="#ff0000" class=main>工资管理系统</font></td>
<td height="18" width="378"></td>
</tr>
<tr><form name="form1" method="post" action="ser.asp">
<td width="131">
<div align="left">
<font class=main>身份证号码：</font>
</div>
</td>
<td width="378">
<font size="2"><input size="25" name="ic">
</font>
</td>
<tr>
<td noWrap width="131">
<div align="left">
<font class=main>请选择月份：</font> </div>
</td>
<td noWrap width="378">
<font size="1"><select name="ym">
<option value="200701">200701</option>
<option value="200702">200702</option>
</select>
</font>
</td>
</tr>
<tr>
<td width="131">
<div align="right">
<p>
</div>
</td>
<td width="378">
<div align="right">
<p align="center"> </div>
<div align="right">
<p>
<input type="image" src="image/s.jpg" border="0" name="imageField" >
</div>
<p><%
Dim objFSO,objFile,filename
filename=Server.MapPath("data/info.asp")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(filename) Then
Set objFile = objFSO.GetFile(filename)
Response.Write "<font color=#008000 class=main>数据库最后更新日期："&objFile.DateLastModified&"<br></font>"
Else
Response.Write filename&"不存在，无法读取相关信息"
End If
Set objFile = Nothing
Set objFSO = Nothing
%>
<br><font color="#008000" class="main">
<SCRIPT language=JavaScript>
<!--
text = "<%=rs("msg")%>";
color1 = "#008000";
color2 = "white";
fontsize = "";
speed = 100;
i = 0;
if (navigator.appName == "Netscape") {
document.write("<layer id=a visibility=show></layer><br><br><br>");
}
else {
document.write("<div id=a></div>");
}
function changeCharColor() {
if (navigator.appName == "Netscape") {
document.a.document.write("<center><font face=arial ><font color=" + color1 +
">");
for (var j = 0; j < text.length; j++) {
if(j == i) {
document.a.document.write("<font face=arial color=" + color2 + ">" + Text.charAt(i) + "</font>");
}
else {
document.a.document.write(text.charAt(j));
}
}
document.a.document.write('</font></font></center>');
document.a.document.close();
}
if (navigator.appName == "Microsoft Internet Explorer") {
str = "<font face=arial><font color=" + color1 + ">";
for (var j = 0; j < text.length; j++) {
if( j == i) {
str += "<font face=arial color=" + color2 + ">" + text.charAt(i) + "</font>";
}
else {
str += text.charAt(j);
}
}
str += "</font></font>";
a.innerHTML = str;
}
(i == text.length) ? i=0 : i++;
}
setInterval("changeCharColor()", speed);
-->
</SCRIPT></font>
<%
rs.movenext
loop
%>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
<p> <a href="login.htm"><font class=main zzzpop="" sans-serif helvetica,arial, title color="#FF0000">进入管理页面</font></a>
<td width="733" height="30"> </td>
</p>
<div align="center">
<center>
<table border="0" width="883" height="30">
</table>
</center>
</div>
</body>
</html>
ASP工资管理系统的设计与实现(源代码+论文).rar
版权申诉
193 浏览量
2023-10-24
20:13:33
上传
评论
收藏 830KB RAR 举报
ASP工资管理系统的设计与实现(源代码+论文).rar （53个子文件） 
ASP工资管理系统的设计与实现(源代码+论文) ASP工资管理系统的设计与实现(源代码+论文) 
L2003215055__李静__工资管理系统的设计与实现.doc 1.01MB L2003215055__李静__工资管理系统的设计与实现 
pwdchange.asp 558B
text2.swf 2KB style.css 155B update.asp 7KB reg.asp 8KB ser2.asp 9KB del.asp 676B msg.asp 714B ccfailure.asp 538B cc.asp 5KB Connections conn.asp 240B serch.asp 643B index.htm 5KB ser.asp 7KB image style.css 2KB Thumbs.db 13KB
power.gif 386B _notes s.jpg.mno 0B bg.gif 887B bg_guide.gif 113B bg_line_top.gif 78B
s.jpg 1KB data info.mdb 1.46MB info.asp 640KB delnews.asp 278B cklogin.asp 1KB _notes .mno 226B update.asp.mno 300B conn_user.asp 148B Conn.asp 368B list.asp 5KB pwd.asp 1KB ndel.asp 776B post.asp 1KB regfailure.asp 488B updateok.asp 2KB xgg.asp 962B login_ok.asp 9KB error.asp 305B login.htm 1KB like.asp 6KB insert.asp 8KB text1.swf 2KB ccsuccess.asp 585B regsuccess.asp 487B loginout.asp 57B msgchange.asp 399B nocache.asp 131B xg.asp 9KB qx.asp 68B date user.mdb 204KB user.asp 204KB资源评论
