📄 index.asp
字号:
<!--#include file="conn.asp"-->
<%
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>
<script language=JavaScript>
var MESSAGE=" 一公司工资查询系统欢迎您的使用！！！ "
var POSITION=100
var DELAY=5
var scroll=new statusMessageObject()
function statusMessageObject(p,d){
this.msg =MESSAGE
this.out =" "
this.pos =POSITION
this.delay=DELAY
this.i=0
this.reset=clearMessage}
function clearMessage(){
this.pos=POSITION}
function scroller(){
for (scroll.i=0;scroll.i<scroll.pos;scroll.i++){
scroll.out += " "}
if (scroll.pos >= 0)
scroll.out += scroll.msg
else scroll.out=scroll.msg.substring(-scroll.pos,scroll.msg.length)
window.status=scroll.out
scroll.out=" "
scroll.pos--
if (scroll.pos < -(scroll.msg.length)) {
scroll.reset()}
setTimeout("scroller()",scroll.delay)}
function snapIn(jumpSpaces,position){
var msg = scroll.msg
var out = ""
for(var i=0; i<position; i++)
{out+= msg.charAt(i)}
for(i=1;i<jumpSpaces;i++)
{out += " "}
out+=msg.charAt(position)
window.status = out
if(jumpSpaces <= 1) {
position++
if(msg.charAt(position) == " ")
{position++ }
jumpSpaces = 100-position
}else if (jumpSpaces > 3)
{jumpSpaces *= .75}
else
{jumpSpaces--}
if(position != msg.length) {
var cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
}else{window.status=""
jumpSpaces=0
position=0
cmd = "snapIn(" + jumpSpaces + "," + position + ")";
scrollID = window.setTimeout(cmd,scroll.delay);
return false }
return true}
snapIn(500,0);
</script>
<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 height="23"><font color="#ff0000" class=main>有限公司一公司工资查询系统
V1.1</font></td>
</tr>
<tr>
<td>
<table cellSpacing="1" cellPadding="0" width="515" align="center" border="0">
<tbody>
<tr>
<td height="18" width="131"></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>
<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="200606">200606</option>
<option value="200607">200607</option>
<option value="200608">200608</option>
<option value="200609">200609</option>
<option value="200610">200610</option>
<option value="200611">200611</option>
<option value="200612">200612</option>
<option value="200701">200701</option>
</select>
</font>
</td>
</tr>
<tr>
<td width="131">
<div align="right">
<p>
</div>
</td>
<td width="378">
<div align="right">
<p align="center">
<input type="image" src="image/s.jpg" border="0" name="imageField" >
</div>
<div align="right">
<p>
</div>
<p><%
Dim objFSO,objFile,filename '声明一个名称为 objFSO 的变量以存放对象实例
filename=Server.MapPath("fecyc_data/info.asp")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(filename) Then
Set objFile = objFSO.GetFile(filename)
'Response.Write "文件的名称："&objFile.Name&"<br>"
'Response.Write "文件的路径："&objFile.Path&"<br>"
' Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
'Response.Write "文件的最后浏览日期："&objFile.DateLastAccessed&"<br>"
Response.Write "<font color=#008000 class=main>数据库最后更新日期："&objFile.DateLastModified&"<br></font>"
'Response.Write "文件的大小："&objFile.Size&"<br>"
' Response.Write "文件的类型："&objFile.Type&"<br>"
'Response.Write "文件的属性："&objFile.Attributes&"<br>"
' Response.Write "文件的所在的驱动器："&objFile.Drive&"<br>"
' Response.Write "文件的所在的文件夹："&objFile.ParentFolder&"<br>"
Else
Response.Write filename&"不存在，无法读取相关信息"
End If
Set objFile = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
<br><font color="#008000" class="main"><%=rs("msg")%></font>
<%
rs.movenext
loop
%>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<p> </p>
<div align="center">
<center>
<table border="0" width="883" height="30">
<tr>
<td width="140" height="30"><font class=main>查询总次数 </font><font color=#008000 face="Bookman Old Style"><script language="javascript" src="counter.asp"></script></font></td>
<td width="733" height="30"><font style="color: #333333" class=main zzzpop="" sans-serif helvetica,arial, title>©
CopyRight 2006-2007, fecyc.COM, Inc. All Rights Reserved Program
by</font><font class=main zzzpop="" sans-serif helvetica,arial, title color="#00FF00">
</font><a href="login.htm"><font class=main zzzpop="" sans-serif helvetica,arial, title color="#FF0000">he@fecyc</font></a></td>
</tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -