摘要: 1 1. ASP与Access数据库连接: 2 3 <% 4 dim conn,mdbfile 5 mdbfile=server.mappath("数据库名称.mdb") 6 set conn=server.createobject("adodb.connection") 7 conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile 8 %> 9 10 11 2. ASP与SQL数据库连接: 12 13 阅读全文
posted @ 2013-05-08 00:36 梦想oO天堂 阅读(159) 评论(0) 推荐(0) 编辑
摘要: protected void Button1_Click(object sender, EventArgs e) { string FullFileName = this.flLl.PostedFile.FileName; string fileName = FullFileName.Substring(FullFileName.LastIndexOf("\\") + 1); this.txtimage.Text = "~/photo/"+ fileName; string type = fileName.Substring(fi... 阅读全文
posted @ 2012-11-24 00:11 梦想oO天堂 阅读(354) 评论(0) 推荐(0) 编辑
摘要: View Code 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls,comobj, ExtCtrls, DB, ADODB; 8 9 type 10 TForm1 = class(TForm) 11 Button1: TButton; 12 Edit1: TEdit; 13 Memo1: TMemo; 14 ... 阅读全文
posted @ 2012-08-17 01:11 梦想oO天堂 阅读(352) 评论(0) 推荐(0) 编辑
摘要: 在IDC行业中,有许多的免费空间,而真正的免费空间又能有多少?我是一个草根站长,说实话,为了寻找一个很好的免费空间,我在网上找了好多,几乎所有的免费空间都用过,但当网站运行初具规模的时候,突然一天发现,我的网站没了,所有的数据全部丢失,这让我伤心了好久。没办法,谁叫俺们没钱!现在许多网站提供免费空间,大部分都是为了推销自己的网站,当到了一定的时候,就取消,而且本来网站的数据也会清空,连通知都没有,我想现在许多的草根站长也许也经历了许多。某天在网上继续寻找免费空间的时候,发现一些提供信息的网站都在推广云空间,一时心痒,跑去看看,没想到还真是的!不过我抱着观望的态度,当时并没有留在心上,继续做着网 阅读全文
posted @ 2012-07-27 10:07 梦想oO天堂 阅读(140) 评论(0) 推荐(0) 编辑
摘要: 两个timer控件,其中timer1负责每一分钟检查一次系统时间和设定时间的差值,如果两者相差5分钟,则继续检查,直到当相差时间小于5分钟,触发timer2,timer2的定时器时间就是这个时间间隔。当timer2到时以后,就触发主程序。具体代码procedure TForm1.Button1Click(Sender: TObject);begin timer1.Interval:=60*1000; //启动监控,每1分钟检查一次设定时间和当前时间 timer1.Enabled:=true;end;procedure TForm1.Timer1Timer(Sender: TObject);va 阅读全文
posted @ 2012-05-17 13:20 梦想oO天堂 阅读(176) 评论(0) 推荐(0) 编辑
摘要: SQLConnection1.Params.clearSQLConnection1.Params.Values['ServerName'] := '192.168.0.112'; SQLConnection1.Params.Values['Database'] := 'trackData'; SQLConnection1.Params.Values['User_Name'] := 'sa'; SQLConnection1.Params.Values['Password'] := &# 阅读全文
posted @ 2012-05-11 16:11 梦想oO天堂 阅读(269) 评论(0) 推荐(0) 编辑
摘要: //AServerName, ADataName, AUser, Apass分别可以为服务器的IP地址\数据库名\用户名\密码 function getDataConnection(AServerName, ADataName, AUser, Apass:string); begin Result := 'Provider=SQLOLEDB.1;Password= ' + Apass + ';Persist Security Info=True;User ID= ' + AUser + ';Initia... 阅读全文
posted @ 2012-05-11 14:52 梦想oO天堂 阅读(244) 评论(0) 推荐(0) 编辑