📄 index.asp

📁 使用源码注意项： 1、Windows2000 Professional SP3、DELPHI 6.0、SQL Server2000的开发环境； 2、开发目录为：D:PieceRate
💻 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.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 "文件的大小："&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>&copy;      
        CopyRight 2006-2007, fecyc.COM, Inc. All Rights Reserved&nbsp; 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>
💿 文件大小 605 K
👤 上传用户 Even_Moon
📂 所属分类其他
🏷️ 相关标签

#2000 #Professional #PieceRate #Windows
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -