?? 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=" 中國水電基礎局有限公司一公司工資查詢系統(tǒng)歡迎您的使用?。?！ "
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>中國水電基礎局有限公司一公司工資查詢系統(tǒng)
V1.5</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>
<option value="200701">200702</option>
<option value="200701">200703</option>
<option value="200701">200704</option>
<option value="200701">200705</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("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 "文件的大?。?quot;&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">
<SCRIPT language=JavaScript>
<!--
text = "<%=rs("msg")%>"; //顯示的文字
color1 = "#008000"; //文字的顏色
color2 = "white"; //轉換的顏色
fontsize = ""; //字體大小
speed = 100; //轉換速度 (1000 = 1 秒)
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>
</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 + -