vfp自由表与ASP — 编程爱好者社区

主题：vfp自由表与ASP

zycscfjh [专家分：0] 发布于 2009-02-09 14:55:00

我有个自由表,每个月都要更新信息,不知道有没有高手能帮我从网上做个简单的查询.

要求:1\输入姓名可以显示人员基本信息;
     2\每个月的自由表我都放在固定的文件夹下,G:\LX\ZGXX.DBF
     字段名有:姓名劳动合同号  出生时间  联系电话


怎么做成个网页查询!我就是连接不上.

请高手指教!

本帖地址： http://bbs.pfan.cn/post/293609.html

回复列表（共6个回复）

沙发

alpen [专家分：1140] 发布于 2009-02-13 15:34:00

很厉害,有个自由表,从网上做个简单的查询?要做成个网页查询!把姓名劳动合同号出生时间联系电话在网页上公开,大家看?做好好说一下,我就是想要看看学习学习啦!!!

板凳

foxdb [专家分：1830] 发布于 2009-02-20 01:32:00

我根据楼主的要求,编了个“ASP示范程序”给你参考！已经上服务器调试通过！希望对你有启发！

[img]http://www.enhor.com/temp/dbf_asp1.jpg[/img]

[img]http://www.enhor.com/temp/dbf_asp2.jpg[/img]

3 楼

foxdb [专家分：1830] 发布于 2009-02-20 01:36:00

TEST.ASP 内容如下：

<%@ Language=VBScript %>
<HTML>
<HEAD>
<base target="footnotes">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</HEAD>
<BODY bgColor=#CCFFFF >
<div align="center">
   <p align="left"><span class="style5"> DBF自由表asp程序示范运行结果</span>       <style>
tr{
bgcolor:expression(this.bgColor=((this.rowIndex)%2==0 )? "#99DDFF" : "#99CCFF");
}
     </style>
   </p>
</div>
<div align="center">
<table width="484" border="0" align="left" cellspacing="1">

      <tr bgcolor=<%= M_color %> class="tr3">
      <td width="85" height="15" align=center><div align="center" class="style4">姓  名</div></td>
      <td width="130" align=center><div align="center" class="style4">劳动合同号</div></td>
      <td width="111" align="center"><span class="style4">出生时间</span></td>
      <td width="145" align="center"><span class="style4">联系电话</span></td>
     </tr>

4 楼

foxdb [专家分：1830] 发布于 2009-02-20 01:36:00

<%
dim rs2
dim conn2
set conn2=server.createobject("ADODB.Connection")
conn2.open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=g:\lx\;Exclusive=No"
set rs2=server.CreateObject("ADODB.RecordSet")'建立数据库连接
rs2.open "select * from zgxx ",conn2,1
rs2.movefirst
while (not rs2.eof or rs2.bof)
%>
      <tr bgcolor=<%= M_color %> class="tr3">
      <td width="85" height="15" align=center><div align="center" class="style4"><%= rs2("姓名") %></div></td>
      <td width="130" align=center><div align="center" class="style4"><%= rs2("劳动合同号") %></div></td>
      <td width="111" align="center"><span class="style4"><%= rs2("出生时间") %></span></td>
      <td width="145" align="center"><span class="style4"><%= rs2("联系电话") %></span></td>
     </tr>
<%
rs2.movenext
wend
%>
  </table>
<%
  rs2.close
  set rs2=nothing
  conn2.close
  set conn2=nothing
%>

    <font size="+2"><br>
  </font>
    </center>
</div>
</div>
</BODY>

</HTML>

5 楼

foxdb [专家分：1830] 发布于 2009-02-20 01:58:00

上面的ASP测试说明：

１、建好ZGXX.DBF　放在　G:\LX\下　即　G:\LX\ZGXX.DBF

２、可在写字板将上面的两段ASP程序考贝粘贴成一个文件后，改名成　test.asp

３、将test.asp 考入　IIS 相应的目录即可访问！

6 楼

BlueSmart [专家分：2340] 发布于 2009-02-20 11:49:00

很恭敬地向foxdb老师学习.
我的运行结果这样,不知那里错了?
DBF自由表asp程序示范运行结果

姓名劳动合同号出生时间联系电话
Microsoft VBScript 编译器错误错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/mynetpage/test.asp，行41

=========
我把bgcolor=<%= M_color %> 改成bgcolor=#0099FF 成功了!
谢谢!

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：vfp自由表与ASP

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：vfp自由表与ASP

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）