日志终于好了,打算开始升级blog
[
2007/08/29 09:18 | by Else ]
2007/08/29 09:18 | by Else ]
日志终于好了,打算开始升级blog
不过友情链接之类的模块不能改,空间好像还有问题!
还行洗了一部分的友情链接!
不过友情链接之类的模块不能改,空间好像还有问题!
还行洗了一部分的友情链接!
IIS6 AND PHP5 on w2k3
[ 2007/08/25 15:02 | by Else ]
2007/08/25 15:02 | by Else ]
1.download php and unzip to c:\php
- also create c:\php\sessions
2.add c:\php to you path
-right click mycomputer,properties,advance,env variables
2.On IIS Manager add web service extension
- also create c:\php\sessions
2.add c:\php to you path
-right click mycomputer,properties,advance,env variables
2.On IIS Manager add web service extension
ajax只是提交数据库没有返回值
[ 2007/08/25 12:41 | by Else ]
2007/08/25 12:41 | by Else ]
function f(){
var X=new ActiveXObject("Msxml2.XMLHTTP"); //建立对象
X.open('POST','uporder.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'pay='+GE('Moneybookers').value+'&orderid='+GE('orderid').value
X.send(SendData)
}
var X=new ActiveXObject("Msxml2.XMLHTTP"); //建立对象
X.open('POST','uporder.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'pay='+GE('Moneybookers').value+'&orderid='+GE('orderid').value
X.send(SendData)
}
这个是最后点付款的时候的一个动作吧,只要把数据库提交就行了!
php链access的ado的代码!
[ 2007/08/23 17:02 | by Else ]
2007/08/23 17:02 | by Else ]
<?PHP
include('inc/adodb.inc.php');
//创建ADO连接
$conn = @new COM("ADODB.Connection") or die ("ADO连接失败!");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("../db/data.mdb");
$conn->Open($connstr);
?>
include('inc/adodb.inc.php');
//创建ADO连接
$conn = @new COM("ADODB.Connection") or die ("ADO连接失败!");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("../db/data.mdb");
$conn->Open($connstr);
?>
我要开始删除文件了，所以先放在这个blog中，今天删除了好多文件，到时候看一看做出的效果!
这里都没有写我的关于我自己的东西了吧～
[ 2007/08/20 22:50 | by Else ]
2007/08/20 22:50 | by Else ]
其实我申请了一个其它的空间，关于自己的东西就没有写多少!
www.suibe.com
也不知道这个域名
www.suibe.com
也不知道这个域名
asp regexp的方法测email
[ 2007/08/20 17:32 | by Else ]
2007/08/20 17:32 | by Else ]
Function CheckEmail(semail)
Set objRegExp = New RegExp
searchStr = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
objRegExp.Pattern = searchStr
objRegExp.IgnoreCase = true
CheckEmail = objRegExp.Test(sEmail)
End Function
Set objRegExp = New RegExp
searchStr = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
objRegExp.Pattern = searchStr
objRegExp.IgnoreCase = true
CheckEmail = objRegExp.Test(sEmail)
End Function
返回值:false/true
多个链接数据库文件的换成一个链接文件
[ 2007/08/18 17:23 | by Else ]
2007/08/18 17:23 | by Else ]
<!--#include virtual="/inc/conn.asp" -->
上面这个是数据库的掉用的方法
connstr ="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("/data/db.mdb")
这里是用到server.mappath的一个功能"/"站点下
这个就是不用file的好处,
不管哪个目录下,用
<!--#include virtual="/inc/conn.asp" -->
就行了所以很多个的时候也可以改过来!
淞沪会战70周年：一寸山河一寸血
[ 2007/08/15 00:23 | by Else ]
2007/08/15 00:23 | by Else ]
http://history.163.com/07/0813/09/3LP2J8PV00011247.html
今天是淞沪会战70周年纪念日，70年前的今天，国军与日本侵略者展开了一场血战。在惨烈战役中，我方共损失85个师，伤亡超过33万人。在此谨向当年的勇士表达崇高敬意，你们是当之无愧的民族英雄。
1937年8月13日，中日淞沪会战开始。日本侵略军先后调集28万人，动用军舰30余艘，飞机500余架，坦克300余辆，大举进犯上海。中国军队先后调集70余个师，舰艇约40艘，飞机250架，投入战斗。经过浴血奋战，中国军队毙伤日军4万多人，坚守上海达3个月之久，粉碎了日本军国主义者速战速决的美梦。 这是上海守军在闸北堡垒内同日军巷战。 新华社发
今天是淞沪会战70周年纪念日，70年前的今天，国军与日本侵略者展开了一场血战。在惨烈战役中，我方共损失85个师，伤亡超过33万人。在此谨向当年的勇士表达崇高敬意，你们是当之无愧的民族英雄。
1937年8月13日，中日淞沪会战开始。日本侵略军先后调集28万人，动用军舰30余艘，飞机500余架，坦克300余辆，大举进犯上海。中国军队先后调集70余个师，舰艇约40艘，飞机250架，投入战斗。经过浴血奋战，中国军队毙伤日军4万多人，坚守上海达3个月之久，粉碎了日本军国主义者速战速决的美梦。 这是上海守军在闸北堡垒内同日军巷战。 新华社发
统计字符串中出现的次数
[ 2007/08/14 17:30 | by Else ]
2007/08/14 17:30 | by Else ]
Function StrNumber(StrInfo,StrTemp)
'StrInfo 总字符
'StrTemp字符串
If StrInfo <>"" And StrTemp<>"" And len(StrInfo)>len(StrTemp) Then
StrNumber=(len(StrInfo)-len(replace(StrInfo,StrTemp ,"")))/Len(StrTemp)
End If
End Function
'StrInfo 总字符
'StrTemp字符串
If StrInfo <>"" And StrTemp<>"" And len(StrInfo)>len(StrTemp) Then
StrNumber=(len(StrInfo)-len(replace(StrInfo,StrTemp ,"")))/Len(StrTemp)
End If
End Function
UNION 运算示例
[ 2007/08/14 15:02 | by Else ]
2007/08/14 15:02 | by Else ]
UNION 运算示例
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单，
' 捕获在巴西的所有供给商和客户的名字及城市。
'
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单，
' 捕获在巴西的所有供给商和客户的名字及城市。
'
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
