∫贗NTERNET上制作数据库动态查询,关键的问题是在INTERNET上建立与数据库的连接,在INTERNET上与数据库建立连接有很多方法,如CGI、ASP、JSP等,在这里介绍一种利用VFP6.0简单编程语句及HTML的标准格式相结合建立FOXPRO数据库连接的方法,这一方法对于我国早期大量DBASE数据库开发人员引入INTERNET编程具有莫大的帮助。它的最基本思想是利用FOXPRO的过程返回一个文件(并非一般的过程或函数返回的是狭义值)HTML文件。这样客户端浏览器提供参数在服务器请求获取数据时,服务器端根据客户端提供参数在服务器端运行FOXPRO的过程返回给客户端一个HTML格式文档,这样客户端浏览器把HTML格式文档翻译成我们所见到到数据网页。
环境:WIN98操作系统、WEB个人服务器系统、ASP服务器系统、VFP6.0。(这些软件的安装方法比较简单、依软件的安装程序提示做即可)。
如下详述一例说明其制作过程:
首先在c盘建一目录gd,并创建一数据表tt.dbf(以前称数据库)字段为code及item,并输入数据。
一、VFP6.0中制作DLL
在VFP6.0中的项目管理器中新建一个项目文件GD.PJX,然后在项目管理器中的类标签中新建一个类gd.vcx,其派生于custom类,然后在主菜单类选项中进入类信息对话框,选上类为OLE公共,按确定按钮退出,然后在主菜单类选项中进入新建方法程序中添加一个名为li可视性为公共的方法程序,按关闭退出,然后按鼠标右键,进入gd.vcx(gd)属性对话框,在方法程序中找到li并双击鼠标进入其程序编辑窗口,并输入如下内容:
lparameters ivar,inifile,iniflag
set default to c:/gd
use tt
set textmerge on
set textmerge to li_hua_01.htm
$#@60;table$#@62;
scan
$#@60;tr$#@62;$#@60;td$#@62;$#@60;$#@60;alltrim(code)$#@62;$#@62;$#@60;/td$#@60;/td$#@62;$#@60;$#@60;alltrim(item)$#@62;$#@62;$#@60;/td$#@62;$#@60;/tr$#@62;
endscan
$#@60;table$#@62;
set textmerge off
set textmerge to
create cursor temp (mm m)
append blank
append memo mm from li_hua_01.htm
vr=temp.mm
use in temp
close database all
erase li_hua_01.htm
return vr
然后关闭保存这一方法程序及关闭保存gd.vcx(gd)类设计器,在gd的项目管理器中单击连编,选上连编com dl 慈范ǎ庋屯瓿闪薵d.dll的制作,并在机中注册了这一类库。
二、制作ASP文档
在WEB个人服务器系统设置C:/gd这一目录为可运行。并在此目录创建一ASP文档(gd.asp),内容为:
<HTML><HEAD>
数据库查询网页
</HEAD>
<BODY>
<%SET gd=server.createobject("gd.gd")%>
<%=gd.li%>
</BODY>
</HTML>
这样你在浏览器键入hyperlink http://你的计算机名/gd http://你的计算机名/gd的虚拟目录/gd.asp即可看到数据库的数据,上面的例只是介绍其制作的基本思想和方法,只要了解其基本思想和方法并用你们的丰富的vfp编程技术,你们可制作出丰富多彩的动态的数据库网页。
相关推荐
VFP调用网页
VFP读取新浪网页,猜大小.猜中率经常在50%以上,希望有统计学方面专长的人一起研究
VFP数据库-查询
VFP数据库-查询
解决相同型号USB设备在Windows系统中重复枚举问题
本文详细解析了Windows系统中相同型号USB设备重复枚举问题的成因及解决方案。通过修改注册表、使用PsTools工具清除设备记录以及编程实现自动化处理等方法,有效解决设备识别混乱问题,特别适用于自动化测试和工业设备管理场景。
pc版的webview, vfp 使用WebBrowser与网页交互
使用WebBrowser网上的例子不多,而且网页的点击动作,怎样在vfp中响应,这个网上大多数的例子都是很多年前的,以前是ie6,在ie10或以上版本根本不行,于是自己摸索一返,并一一解决。 示例实现 1. 在vfp中执行js函数 2. 在vfp中查找网页相关的相素,并赋值或读取相关属性值 3. 在网页中加载单击事件委托,凡是元素具有id属性的点击事件,将会把当前元素的【#+id】对document.title进行赋值 从而触发vfp的中TitleChange事件,达到目的 4.发现在win1..
【AI概念】迁移学习 vs. 域自适应 vs. 域泛化|定义、核心原理、数学表达、易混淆点与工程选择建议|实际案例、工程实现细节、未来研究趋势、实际应用场景
大家好,我是爱酱。本篇将会详细梳理迁移学习(Transfer Learning)、域自适应(Domain Adaptation)、域泛化(Domain Generalization)三大常被混淆的核心概念,结合数学公式、典型算法与实际应用场景,帮助你厘清它们的本质区别、联系与工程意义。 注:本文章含大量数学算式、详细例子说明及大量代码演示,大量干货,建议先收藏再慢慢观看理解。新频道发展不易,你们的每个赞、收藏跟转发都是我继续分享的动力!
思科9117AP从零配置EWC模式实战:Wi-Fi6网络搭建避坑指南
本文详细介绍了思科9117AP在Wi-Fi6网络环境下配置EWC模式的实战指南,涵盖镜像准备、网络环境配置、模式转换步骤及高级运维技巧。通过EWC模式,企业可实现控制器与AP的一体化部署,显著降低成本和简化运维,特别适合中小企业Wi-Fi6网络搭建。
VFP调用Selenium入门篇(一)
我们可以认为“Selenium”它最大的贡献就是在于把原来java、c#、python才能玩的东西,VFP同样能搞,因为它支持的浏览器非常多:Chrome、Firefox、Microsoft Edge、Internet Explorer、Opera、Safari、QQ和360等浏览。• RegAsm.bat:用于注册dll,因为释放到你电脑以后,只是把文件放到磁盘上了,要让dll和tlb发挥作用,还需要向注册表中写入内容。当你不再需要V3时,用管理员权限运行这个bat,可以从注册表中移除写入的内容。
hcaptcha-challenger:基于本地AI模型自动破解验证码的工程实践
验证码作为区分人类与机器的经典安全机制,其核心原理是通过图像识别、行为分析等交互式挑战来阻挡自动化程序。传统绕过方法依赖第三方打码平台或脚本,存在成本高、稳定性差的问题。随着多模态大语言模型和计算机视觉技术的发展,本地化AI求解成为新的技术方向,它通过集成YOLO、ResNet等模型,在本地完成图像语义理解,实现了高隐私、低成本、可进化的验证码自动化解决方案。这种范式尤其适用于需要大规模稳定处理网页交互的场景,如电商数据采集和社交媒体管理。hcaptcha-challenger项目正是这一理念的工程实践,它
vfp 自动填写网页
http://topic.youkuaiyun.com/u/20100818/10/02013645-7e0a-426c-a5b3-0b298a8a9a47.html<br /><br />回4楼:<br /><br />运行结果,提示出错,出错内容为: <br /><br />"document不是一个对象" 对我有用[0] 丢个板砖[0] 引用举报管理TOP 回复次数:19<br /> xilaianzxsc(xilaianzxsc) 等 级:#1楼 得分:0回复于:2010-08-20 15:50:55我的
手把手带你搞懂电压跌落测试DIP
砖一用4分钟时间手把手带你搞懂电压跌落测试DIP,希望对你有用~
电源完整性之Cadence Sigrity Power DC_IR_Drop仿真
之前和大家分享过电源完整性之仿真设计原理链接: link.今天接着上一篇文章总结一下电源直流压降的的仿真操作流程及一些simulation中的设置参数,用到的时候Cadence Sigrity 中的Power DC组件,下面开始享受仿真的快乐吧: 1.仿真模式选择与文件导入 选择Cadence Sigrity下的Power DC组件,然后先择licence,最后就可以打开我们之前转化好的.SPD文件。操作如下图: 2.设置层叠信息和过孔焊盘参数 层叠信息:每层的介质厚度、材料、介电常数、介质损耗角等,如
ASP技术访问WEB数据库
ASP技术访问WEB数据库 一. 访问WEB数据库的多种方案 目前在WINDOWS环境下有多种访问WEB数据库的技术,主要有: 1.公共网关接口CGI(Common Gateway Interface) CGI是较早实现的技术。适用于多种服务器平台,如UNIX、WINDOWS等,但CGI的开发成本高、维护困难、功能有限、不具备事务处理功能、占用服务器资源较多。 2. IN...
C#实战:如何用winmm.dll打造毫秒级高精度定时器(附完整代码)
本文详细介绍了在C#中利用winmm.dll实现毫秒级高精度定时器的完整方案。针对.NET内置定时器精度不足的问题,通过调用timeSetEvent等原生API,提供了超越系统时钟中断周期的精准定时能力。文章包含核心原理剖析、完整的封装类代码以及音视频处理、游戏开发等场景下的实战应用与性能调优指南。
计算机类对口高职考试内容,对口高职计算机专业考试试题.doc
PAGE 1信息类专业综合练习题(满分300分,150分钟完卷)题 号一二三四五六总分总分分 数得 分评卷人一、填空题(每空2分,共44分)1.在微型计算机中, 的主要功能是进行算术逻辑运算及全机的控制。2.硬盘连同驱动器是一种 。3.在内存中,每个基本单位都被赋予一个惟一的序号,这个序号称为 。4.拥有计算机并以拨号方式接入网络的用户需要使用 ...
【Frida Android】实战篇8:客户端证书认证绕过 Hook 教程
通过重写类的方法,自定义证书校验逻辑;利用配置文件,从系统层面管理证书信任策略;以及通过 OkHttp 框架提供的方法,实现证书的强绑定校验。这些内容主要围绕客户端如何验证服务端证书的合法性展开。客户端证书认证。当 APK 预置了客户端证书,并且服务端会对客户端证书进行校验时,传统的中间人攻击方式将面临新的挑战。我们将深入分析这种场景的工作原理,并详细介绍如何通过技术手段获取客户端证书、配置中间人工具,最终成功实现抓包分析。
迈瑞BS系列全自动生化分析仪LIS协议接口手册(内含HL7和ASTM)
迈瑞BS系列全自动生化分析仪LIS协议接口手册,内含HL7和ASTM)
IT文档 16
统计VB程序的运行时间编写个人Internet上网计费软件编写后台监控软件的技巧编写安全的SQL Server扩展存储过程编写支持多国语言的程序编写跨平台Java程序注意事项编写通用的ASP防SQL注入攻击程序编写通用的程序更新模块编写驱动拦截NT的API实现隐藏文件目录编程实现墙纸平铺/居中或拉伸编程实现拨号网络连接及FTP应用网络扫描器的设计与实现网络游戏外挂编写初级教程自制THyperLin
jdk-8u144-linux-x64.tar.gz.
该资源为搭建Linux系统Java环境用,资源的后缀为tar.gz格式的压缩包
html网页中获取vf数据到mysql_vfp教程之用FoxWeb在网上快速发布你的FOXPRO数据库
作者:骆文先FoxWeb是微软专门为发布FOXPRO系列数据库而开发的一个CGI接口,如果你熟悉Foxpro编程,你只要了解一下如何使用FoxWeb就可以快速开发出令人满意的网站了(也许你只要看完本文就知道如何做了)!当然,你必须要有一定的HTML基础!下面介绍如何使用FoxWeb来开发WEB程序!1、系统的安装配置首先,你可以从www.FoxWeb.com下载安装文件,试用版可以免费使用30天。...
蓝牙模块HM-10手册
蓝牙模块HM-10手册,该手册对蓝牙模块HM-10进行了详细的介绍和使用方法以及一些AT指令。
深度学习工具包 DeepLearningToolbox
深度学习工具包Deprecation notice.-----This toolbox is outdated and no longer maintained.There are much better tools available for deep learning than this toolbox, e.g. [Theano](http://deeplearning.net/software/theano/), [torch](http://torch.ch/) or [tensorflow](http://www.tensorflow.org/)I would suggest you use one of the tools mentioned above rather than use this toolbox.Best, Rasmus.DeepLearnToolbox================A Matlab toolbox for Deep Learning.Deep Learning is a new subfield of machine learning that focuses on learning deep hierarchical models of data.It is inspired by the human brain's apparent deep (layered, hierarchical) architecture.A good overview of the theory of Deep Learning theory is[Learning Deep Architectures for AI](http://www.iro.umontreal.ca/~bengioy/papers/ftml_book.pdf)For a more informal introduction, see the following videos by Geoffrey Hinton and Andrew Ng.* [The Next Generation of Neural Networks](http://www.youtube.com/watch?v=AyzOUbkUf3M) (Hinton, 2007)* [Recent Developments in Deep Learning](http://www.youtube.com/watch?v=VdIURAu1-aU) (Hinton, 2010)* [Unsupervised Feature Learning and Deep Learning](http://www.youtube.com/watch?v=ZmNOAtZIgIk) (Ng, 2011)If you use this toolbox in your research please cite [Prediction as a candidate for learning deep hierarchical models of data](http://www2.imm.dtu.dk/pubdb/views/publication_details.php?id=6284)```@MASTERSTHESIS\{IMM2012-06284, author = "R. B. Palm", title = "Prediction as a candidate for learning deep hierarchical models of data", year = "2012",}```Contact: rasmusbergpalm at gmail dot comDirectories included in the toolbox-----------------------------------`NN/` - A library for Feedforward Backpropagation Neural Networks`CNN/` - A library for Convolutional Neural Networks`DBN/` - A library for Deep Belief Networks`SAE/` - A library for Stacked Auto-Encoders`CAE/` - A library for Convolutional Auto-Encoders`util/` - Utility functions used by the libraries`data/` - Data used by the examples`tests/` - unit tests to verify toolbox is workingFor references on each library check REFS.mdSetup-----1. Download.2. addpath(genpath('DeepLearnToolbox'));Example: Deep Belief Network---------------------```matlabfunction test_example_DBNload mnist_uint8;train_x = double(train_x) / 255;test_x = double(test_x) / 255;train_y = double(train_y);test_y = double(test_y);%% ex1 train a 100 hidden unit RBM and visualize its weightsrand('state',0)dbn.sizes = [100];opts.numepochs = 1;opts.batchsize = 100;opts.momentum = 0;opts.alpha = 1;dbn = dbnsetup(dbn, train_x, opts);dbn = dbntrain(dbn, train_x, opts);figure; visualize(dbn.rbm{1}.W'); % Visualize the RBM weights%% ex2 train a 100-100 hidden unit DBN and use its weights to initialize a NNrand('state',0)%train dbndbn.sizes = [100 100];opts.numepochs = 1;opts.batchsize = 100;opts.momentum = 0;opts.alpha = 1;dbn = dbnsetup(dbn, train_x, opts);dbn = dbntrain(dbn, train_x, opts);%unfold dbn to nnnn = dbnunfoldtonn(dbn, 10);nn.activation_function = 'sigm';%train nnopts.numepochs = 1;opts.batchsize = 100;nn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.10, 'Too big error');```Example: Stacked Auto-Encoders---------------------```matlabfunction test_example_SAEload mnist_uint8;train_x = double(train_x)/255;test_x = double(test_x)/255;train_y = double(train_y);test_y = double(test_y);%% ex1 train a 100 hidden unit SDAE and use it to initialize a FFNN% Setup and train a stacked denoising autoencoder (SDAE)rand('state',0)sae = saesetup([784 100]);sae.ae{1}.activation_function = 'sigm';sae.ae{1}.learningRate = 1;sae.ae{1}.inputZeroMaskedFraction = 0.5;opts.numepochs = 1;opts.batchsize = 100;sae = saetrain(sae, train_x, opts);visualize(sae.ae{1}.W{1}(:,2:end)')% Use the SDAE to initialize a FFNNnn = nnsetup([784 100 10]);nn.activation_function = 'sigm';nn.learningRate = 1;nn.W{1} = sae.ae{1}.W{1};% Train the FFNNopts.numepochs = 1;opts.batchsize = 100;nn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.16, 'Too big error');```Example: Convolutional Neural Nets---------------------```matlabfunction test_example_CNNload mnist_uint8;train_x = double(reshape(train_x',28,28,60000))/255;test_x = double(reshape(test_x',28,28,10000))/255;train_y = double(train_y');test_y = double(test_y');%% ex1 Train a 6c-2s-12c-2s Convolutional neural network %will run 1 epoch in about 200 second and get around 11% error. %With 100 epochs you'll get around 1.2% errorrand('state',0)cnn.layers = { struct('type', 'i') %input layer struct('type', 'c', 'outputmaps', 6, 'kernelsize', 5) %convolution layer struct('type', 's', 'scale', 2) %sub sampling layer struct('type', 'c', 'outputmaps', 12, 'kernelsize', 5) %convolution layer struct('type', 's', 'scale', 2) %subsampling layer};cnn = cnnsetup(cnn, train_x, train_y);opts.alpha = 1;opts.batchsize = 50;opts.numepochs = 1;cnn = cnntrain(cnn, train_x, train_y, opts);[er, bad] = cnntest(cnn, test_x, test_y);%plot mean squared errorfigure; plot(cnn.rL);assert(er<0.12, 'Too big error');```Example: Neural Networks---------------------```matlabfunction test_example_NNload mnist_uint8;train_x = double(train_x) / 255;test_x = double(test_x) / 255;train_y = double(train_y);test_y = double(test_y);% normalize[train_x, mu, sigma] = zscore(train_x);test_x = normalize(test_x, mu, sigma);%% ex1 vanilla neural netrand('state',0)nn = nnsetup([784 100 10]);opts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samples[nn, L] = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.08, 'Too big error');%% ex2 neural net with L2 weight decayrand('state',0)nn = nnsetup([784 100 10]);nn.weightPenaltyL2 = 1e-4; % L2 weight decayopts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex3 neural net with dropoutrand('state',0)nn = nnsetup([784 100 10]);nn.dropoutFraction = 0.5; % Dropout fraction opts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex4 neural net with sigmoid activation functionrand('state',0)nn = nnsetup([784 100 10]);nn.activation_function = 'sigm'; % Sigmoid activation functionnn.learningRate = 1; % Sigm require a lower learning rateopts.numepochs = 1; % Number of full sweeps through dataopts.batchsize = 100; % Take a mean gradient step over this many samplesnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex5 plotting functionalityrand('state',0)nn = nnsetup([784 20 10]);opts.numepochs = 5; % Number of full sweeps through datann.output = 'softmax'; % use softmax outputopts.batchsize = 1000; % Take a mean gradient step over this many samplesopts.plot = 1; % enable plottingnn = nntrain(nn, train_x, train_y, opts);[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');%% ex6 neural net with sigmoid activation and plotting of validation and training error% split training data into training and validation datavx = train_x(1:10000,:);tx = train_x(10001:end,:);vy = train_y(1:10000,:);ty = train_y(10001:end,:);rand('state',0)nn = nnsetup([784 20 10]); nn.output = 'softmax'; % use softmax outputopts.numepochs = 5; % Number of full sweeps through dataopts.batchsize = 1000; % Take a mean gradient step over this many samplesopts.plot = 1; % enable plottingnn = nntrain(nn, tx, ty, opts, vx, vy); % nntrain takes validation set as last two arguments (optionally)[er, bad] = nntest(nn, test_x, test_y);assert(er < 0.1, 'Too big error');```[](https://bitdeli.com/free "Bitdeli Badge")
【亲测免费】 VFP WebBrowser 资源文件:在VFP中轻松实现网页交互
VFP WebBrowser 资源文件:在VFP中轻松实现网页交互 去发现同类优质开源项目:https://gitcode.com/ 项目介绍 VFP WebBrowser 资源文件是一个专为Visual FoxPro(VFP)开发者设计的工具,旨在帮助他们在VFP环境中轻松实现网页的加载与交互。通过该资源文件,开发者可以在VFP中集成WebBrowser控件,从而加载网页、响应网页事件以及执行J...
VFP中使用浏览器控件制软件界面
不知你在使用VFP中是否 有以下困惑:1.如何使自己VFP软件的界面更漂亮些?2.如何使用嵌入浏览器控件?3.如何屏蔽嵌入页面的右键菜单?4.如何截获超链接的点击事件?5.使用浏览器控件后,如何同时使用模式表单和非模式表单6.如何阻止浏览器控件弹出新窗口?下面,是我在编程时对浏览器控件的经验:1.如何使自己VFP软件的界面更漂亮些?这个问题可大可小,与个人
vfp 生成html,[转载]vfp 做 b/s 的方法
VFP 做B/S的新方法(二)前言:以前,我也和其他VFP爱好者一样,认为VFP的最大不足是不能做B/S应用开发,现在我已改变了看法,VFP完全可以胜任B/S应用开发,而且性能非常好,也很容易使用,问题的关键是你是否掌握好的开发方法。自从掌握ASP + COM编程方法后,我一直在探索VFP做B/S应用更好的开发方法,特别是寻找一种方法解决COM对象在Application级启动无法使用ASP内置对...
用VFP开发BS模式验证码的两个模式,让你网站更安全
网站上的验证码一般放在登录或注册页面。它的作用是保护网站安全,一般网站都要通过验证码来防止机器大规模注册,机器暴力破解数据密码等危害。 虽然有了验证码的存在,登录变得麻烦一点,但是对于网站安全来说,这个功能还是很有必要的。 我们利用VFP祺佑框架开发BS网站,也会遇上这样的问题,所以为了网站安全,也需要为我们开发的网页上加上验证码。 库和工具说明: 前端:vue+axios 后端:VFP祺佑三层开发框架 在网站上增加验证码,有两种方式:前端生成前端判断;后端生成后端判断。接下来我们详细阐述一下。 第一
VFB组件:WinInet控件(网络)
这是功能控件,用于简化读取网络,基于WinInet的互联网访问。 事件: 代码:常用于读取某网页代码 让你无需了解网络底层,只是简单的读个网页代码而已。
html网页中获取vf数据到mysql_Java 实现对VF数据库的访问
这段时间一直忙项目,优快云荒废有段时间了,现在项目即将验收,花点时间整理一下项目中用到的几个知识点,供以后学习和参考。由于实际的项目中要需要获取另外一个系统的数据,这里你可能已经想到到 被访问的系统数据就是下面我要说的VF数据库。VF编程语言这在以前也只是听说过,确从来都没有接触。开发工具大部分用的都是Visual Foxpro 7.0 ,这里版本可能不是最新的。配置开发环境,熟悉语法,编写de...
如何用VFP编写Web Service
如何用VFP编写Web Service作者:BOE文章来源:www.boeworks.net 写在前面半年来,一直想写一篇关于用 Visual FoxPro 7 编写 Web Service 的文章,但总不成愿。这回不是我偷懒,为了了解这种新技术我和我的朋友们经历了种种“磨难”。这里略作回忆,也算是新春来临之际对“往年”的回眸——算是没有浪费太多的生命。磨难一:发布向导不能正确发布Web Serv
1317



被折叠的 条评论
为什么被折叠?



