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
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
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中，今天删除了好多文件，到时候看一看做出的效果!
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
<!--#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" -->
就行了所以很多个的时候也可以改过来!
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个月之久，粉碎了日本军国主义者速战速决的美梦。 这是上海守军在闸北堡垒内同日军巷战。 新华社发
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 运算示例
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 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
