大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
PHP一般用的是MYSQL数据库,ASP用的大多是ACCESS或者MSSQL,你可以使用PHP链接上2种数据库进行数据的对导,或则你也可以用PHP输出成XML格式用ASP去取数据,再或者找个数据导入软件直接导入
作为一家“创意+整合+营销”的成都网站建设机构,我们在业内良好的客户口碑。成都创新互联公司提供从前期的网站品牌分析策划、网站设计、成都做网站、网站建设、外贸营销网站建设、创意表现、网页制作、系统开发以及后续网站营销运营等一系列服务,帮助企业打造创新的互联网品牌经营模式与有效的网络营销方法,创造更大的价值。
如果你的空间只支持PHP的话,你吧ASP代码传上去是不能正常运行的。
对于数据库来说,ASP和PHP都只是使用数据库,他们本身并不是数据库。在网上看到PHP一样可以连ACCESS数据库,而ASP也一样可以使用MYSQL数据库。
不过我按照那些方法实验一直没有成功过,不知道是何原因。
这个问题还真不知道。不过为了帮助你,在网上找了一个参考资料希望适合你: 用Microsoft.XMLHTTP调用本地PHP文件runphp.php,并向runphp.php提交要执行的php代码
当然,在runphp.php 中要用到eval()来执行提交的代码;相当简单吧
具体细节实现:
1.用Microsoft.XMLHTTP调用本地PHP
程序代码 function runphp(command)
on error resume next
dim Http
dim serPhp
serPhp="http://" Request.ServerVariables("SERVER_NAME") mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"),"/")) "runphp.php"
command=URLEncoding("phpcommand=" command)
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "POST",serPhp,false
Http.setrequestheader "content-length",len(command)
Http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Http.send command
if Http.readystate4 then
exit function
end if
runphp=BytesToBstr(Http.responseBody,"gb2312") '注意WAP网页用utf-8,WEB用gb2312
set http=nothing
if err.number0 then err.Clear
end function
'2、转换乱玛,直接用xmlhttp调用有中文字符的网页得到的将是乱玛,可以通过adodb.stream组件进行转换
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
在提交的命令中,我们用的是post方法,会被urlencoded,那些",',\,还有中文.会在eval中执行错误,所以还需要进行处理,下面是编码处理函数:
程序代码 Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) HFF Then
strReturn = strReturn ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode 0 Then
innerCode = innerCode + H10000
End If
Hight8 = (innerCode And HFF00)\ HFF
Low8 = innerCode And HFF
strReturn = strReturn "%" Hex(Hight8) "%" Hex(Low8)
End If
Next
strReturn=replace(strReturn,chr(34),"%22")
strReturn=replace(strReturn,chr(39),"%27")
URLEncoding = strReturn
End Function
下面是runphp.php文件内容:比较简单
程序代码 ?
if($_SERVER["HTTP_HOST"]==$_SERVER["SERVER_NAME"]){
$phpCommand=StripSlashes($_POST["phpcommand"]);
if(trim($phpCommand)!="")eval($phpCommand);
}
?
第一句 if($_SERVER["HTTP_HOST"]==$_SERVER["SERVER_NAME"])是为了限至命令只能从本地服务器提交,有一定的安全措施