php转asp
‘壹’ 把此php代码转换成asp
这边有个代码可以获取远程网页源码并同步输出
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Charset="utf-8"%>
<%
function getHTTPPage(url)
Set xh = CreateObject("Microsoft.XMLHTTP")
xh.Open "GET",url,0
xh.Send()
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 2
MyStream.Open
MyStream.WriteText xh.responseText
MyStream.Position = 0
getHTTPPage=MyStream.ReadText
MyStream.Close
end function
response.write(getHTTPPage("http://tusea.com"))
%>
‘贰’ PHP转ASP 高手帮帮忙 就一句 <echo(rand());>
<%=rand()%>
‘叁’ php代码程序转asp代码
<%
Function RegTest(s,p)
Dim r
Set r =createobject("vbscript.regexp")
r.Pattern = p
r.IgnoreCase = True
r.Global = True
RegTest=r.test(s)
End Function
function decode(url,sertim)
dim decurl
dim length
dim keys
dim asc_arr1(123)
dim asc_arr2(123)
length=len(url)
keys=sertim mod 26
if keys<=0 then keys=1
for i=0 to 9
asc_arr1(i) = i + 48
asc_arr2(i + 48) = i
next
for i=10 to 35
asc_arr1(i) = i + 55
asc_arr2(i + 55) = i
next
for i=36 to 61
asc_arr1(i) = i + 61
asc_arr2(i + 61) = i
next
regstr="[A-Za-z0-9]"
for i=0 to length
word=replace((left(url,i+1)),(left(url,i)),"")
if (RegTest(word,regstr)) then
pos = asc_arr2(asc(replace((left(url,i+1)),(left(url,i)),""))) - keys
if pos < 0 then pos = pos + 62
word = chr(asc_arr1(pos))
end if
decurl = decurl&word
next
decode=decurl
end function
str = "o00w://333.osq.z0h0z.nv2.ju/q5/4p14phuzopN1hun/44zn977D7A9F8G-7A.twA"
sertim = 1289225685
response.Write("<br>"&decode(str,sertim))
%>
先拿去用吧，测试过的了。注释的话就先不写了，有不懂的地方，再联系我吧，扣350-250-4-1-4。
‘肆’ PHP转ASP 文件 <php switch ($_GET["id"]) { default: echo"123202"; } >
只有一个选项，用什么swith结构啊。
‘伍’ 请帮忙写一个代码，PHP跳转到ASP带参数的页面
方法一：使用PHP自带函数
Header("Location: 网址");
说明：必须在网页没有任何输出的时候执行，要特别要注意空格。去空格的方法参照如下第4问
即，这句话要放在网页开始的时候，放在body里或后面都会出错，
方法二：利用meta
echo "<meta http-equiv=refresh content='0; url=网址'>";
说明：没有方法一的限制，但是如果前面有输出，则输出的内容会闪烁一下然后进入跳转到的页面。
如：
$post="guoqing.php?id=".urlencode("$id") ."&name=".urlencode($name);
//加urlencode()函数在 地址栏则不显示$a变量的中文真实内容，用％……％……来表示。
echo "<meta http-equiv=refresh content='0; url=$post'>"; //页面跳转语句这样可实现页面传值
方法三：利用javascript语言
echo "<script language='javascript'>";
echo " location='网址';";
echo "</script>";
‘陆’ 一段简单的PHP代码，高分求转为ASP或加注释！
这段php不能和asp转换
给你个上传的asp代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Buffer=True
Server.ScriptTimeOut=9999999 ’一千万
On Error Resume Next
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
</head>
<body>
<%
Class HZTUpload
Public filesize,filetype,filepath,reservefilename,formid,txtid
Private formsize,formdata,bincrlf,oencrlfplace,twocrlfplace,ext,p,l,filename,savefilepath,rndfilename
Private usingstream,stream,fso
Private Sub Class_Initialize
filesize=1024 ’文件大小,k
filetype="gif,png,jpg,jpeg" ’文件类型
filepath="Upload" ’保存目录
reservefilename=0 ’0:不保留原文件名,1:保留原文件名
formid="myform"
txtid="txt"
Randomize()
’系统生成文件名
rndfilename=Year(Now())&Month(Now())&Day(Now())&Hour(Now())&Minute(Now())&Second(Now())&Int((999999-100000+1)*Rnd()+100000)
Set usingstream=Server.CreateObject("ADODB.Stream")
Set stream=Server.Createobject("ADODB.Stream")
Set fso=Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Class_Terminate
usingstream.Close():Set usingstream=Nothing
stream.Close():Set stream=Nothing
Set fso=Nothing
End Sub
Sub Upload() ’要返回的form和text的id
If Right(filepath,1)<>"/" Then filepath=filepath&"/"
formsize=Request.TotalBytes
formdata=Request.BinaryRead(formsize)
usingstream.Type=1
usingstream.Open()
usingstream.Write(formdata)
bincrlf=ChrB(13)&ChrB(10) ’二进制回车换行
oencrlfplace=InStrB(formdata,bincrlf) ’44,第一次回车换行位置
twocrlfplace=InStrB(oencrlfplace+1,formdata,bincrlf) ’第二次回车换行位置
stream.Type=1
stream.Open()
usingstream.Position=oencrlfplace+1
usingstream.CopyTo stream,twocrlfplace-oencrlfplace-3 ’得到第二行数据,twocrlfplace-onecrlfplace-("长度)
stream.Position=0
stream.Type=2 ’字符串
stream.CharSet="GB2312"
streamtext=stream.Readtext() ’读取第二行数据
stream.Close()
filename=Mid(streamtext,InstrRev(streamtext,"")+1) ’得到文件名
p=InStrB(formdata,bincrlf&bincrlf)+4 ’4为两次回车换行长度
l=InStrB(p+1,formdata,LeftB(formdata,oencrlfplace-1))-p-2 ’文件内容部分长度,onecrlfplace-1为第一行数据(也是分隔符),2为回车换行长度
stream.Type=1
stream.Open()
usingstream.Position=p-1
usingstream.CopyTo stream,l ’文件内容数据
’---------------------------------------------------------------------------------------------------
Call CheckFolder(filepath) ’检测文件夹是否存在,如果不存在则创建
ext=Right(filename,1+Len(filename)-InStrRev(filename,".")) ’文件扩展名:.gif
If reservefilename=0 Then ’自动命名
savefilepath=Server.MapPath(filepath&rndfilename&ext)
filename=rndfilename&ext
Else ’保留原文件名
filename=CheckFile(Left(filename,InStrRev(filename,".")-1),ext)
savefilepath=Server.MapPath(filepath&filename)
End If
If CheckExt(Mid(ext,2))=False Then Call Message(1) ’检测文件类型
If ceil(stream.Size/1024)>filesize Then Call Message(2)’检测文件大小
’---------------------------------------------------------------------------------------------------
stream.SaveToFile savefilepath,2 ’保存文件
If Err.Number=0 Then
Call Message(0)
Else
Call Message(404)
End If
End Sub
Function ceil(v) ’实现JS中Math.ceil()
If v>0 Then
v=Fix(v)+Sgn(v-Fix(v))
Else
v=Fix(v)
End If
ceil=v
End Function
Function CheckFolder(foldername) ’检测文件夹是否存在,如果不存在则创建
If fso.FolderExists(Server.MapPath(foldername)) Then
Exit Function
Else
fso.CreateFolder(Server.MapPath(foldername))
End If
End Function
Function CheckFile(fname,ext) ’检测文件是否存在,如果存在则重命名,如:重名文件(1).txt
If fso.FileExists(Server.MapPath(filepath&fname&ext)) Then
Dim i
i=1
Do While (fso.FileExists(Server.MapPath(filepath&fname&"("&i&")"&ext)))
i=i+1
Loop
CheckFile=fname&"("&i&")"&ext
Else
CheckFile=fname&ext
End If
End Function
Function CheckExt(ext) ’检测文件类型合法性
Dim i,istrue,exts
exts=Split(filetype,",")
For i=0 To UBound(exts)
If LCase(ext)=exts(i) Then
istrue=True
Exit For
Else
istrue=False
End If
Next
CheckExt=istrue
End Function
Sub Message(mi)
Select Case mi
Case 1:
Response.Write("<script>")
Response.Write("window.alert(’文件类型非法!’);history.back();")
Response.Write("</script>")
Response.End()
Case 2:
Response.Write("<script>")
Response.Write("window.alert(’文件大小超过限制!’);history.back();")
Response.Write("</script>")
Response.End()
Case 0:
Response.Write("<font color=’0000FF’>文件上传成功!</font>")
Response.Write("<a href=’"&Request.ServerVariables("URL")&"’>重新上传</a>")
Response.Write("<script>")
Response.Write("window.top.document."&formid&"."&txtid&".value=’"&filename&"’;")
Response.Write("</script>")
Response.End()
Case 404:
Response.Write("<font color=’FF0000’>文件上传失败!</font>")
Response.Write("<a href=’"&Request.ServerVariables("URL")&"’>重新上传</a>")
Response.End()
End Select
End Sub
End Class
If Request.TotalBytes>0 Then
Set hg=New HZTUpload
’hg.filepath="Pic/" ’文件保存路径,默认：Upload
’hg.filetype="gif,png,jpg,jpeg,rar" ’文件类型,默认:gif,png,jpg,jpeg
’hg.filesize=1024 ’文件大小,单位k,默认:1024
’hg.reservefilename=0 ’是否保留原文件名,0:否,1:是,默认:0
hg.formid="mf" ’接收文件名的form的id,默认：myform
hg.txtid="txt" ’接收文件名的text的id,默认:txt
hg.Upload() ’保存文件,form名称,text名称
Else
%>
<form id="mf" name="mf" method="post" action="<%=Request.ServerVariables("URL")%>" enctype="multipart/form-data">
<input type="file" id="f" name="f" />
<br />
<input type="submit" value="提交" />
<input type="reset" value="重置" />
</form>
<%End If%>
</body>
</html>
‘柒’ 把下面的php代码转换为asp.net代码
array_push($_FILES["picture"]["name"],""); 为什么加入空元素？
这个是必须的，因为是多文件上传，单文件的时候$_FILES["picture"]["name"]返回的是数值而不是数组，用array_push给它添加一个空值让它变成数组然后才能使用array_unique去除重复文件，然后array_pop再删除那个空值。
这是我的理解，仅供参考。
‘捌’ asp网站怎么转为php
楼主这个问题，感觉还是能解决的办法，可以用ODBC让PHP连接ACCESS数据库或ASP连接MYSQL，当然，连得上的话就可以操作数据库，例如，读写，这样的话就能实现在ASP的网站数据ACCESS中插入数据，可以采用注册的时候同时插入PHP的注册数据表和ASP的注册数据表，达到两个表的用户统一，这样的话就能实现在两个网站注册后都能登录，旧有的数据就只有通过导入数据互导的方式去实现统一了。上面只是说一下个人的想法，楼主可以去找相关ODBC连接不同数据库的操作，具体的操作我也没有做过，比较少弄不同数据库的。
asp程序和php程序转换要注意的问题
前一段时间帮一个朋友把他的asp程序全部转为php程序，虽然听说网上有这样的工具，但是朋友的程序有关电子商务的东西，还是自己动手比较保险。一做下来发现很多地方要注意。
1。语法
如果你对两种都很熟，就比较容易了，但是写着写着昏了头的事情经常发生，。大家知道现在web服务器的错误提示都糊里糊涂的。
php每句话最好加上分号，即使有的地方可以不加。注意各个段落加上注释，不同的循环（特别是嵌套）之类的之一层次。
2。变量
由于原来的程序不是我写的，所以对页面表单、session之类的东西特别注意了一下。如果前一个程序写的不太清楚，麻烦大一些。
php里面对变量大小写敏感，asp不敏感，所以最好先养成好的习惯，给变量取名字的时候尽量规范一些（自己的规范：－），asp中最好使用option explicit。
3。页面
将可能在不同页面出现的相同内容全部作成单独的页面，然后在需要的时候包含进去，修改起来方便。大家都知道客户的要求可能一天一个样。
4。最重要的就是function
‘玖’ 把一段php语言转换成asp
那就用这个PHP算了 配置个PHP的运行环境即可
‘拾’ php代码转换成asp怎么处理
<%
Dimurl,user_cookie,user_agent,language,connection,encoding,data
url=trim(Request.QueryString("url"))
user_cookie=Request.QueryString("cookie")
user_agent=Request.QueryString("useragent")
language=Request.QueryString("language")
connection=Request.QueryString("connection")
encoding=Request.QueryString("encoding")
DimoXmlHttp:SetoXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
WithoXmlHttp
.Open"GET",url,False
.SetRequestHeader"Referer",url '设定页面来源
.SetRequestHeader"Cookie",user_cookie '设定Cookie
.SetRequestHeader"Accept-Language",language '设定语言
.SetRequestHeader"User-Agent",user_agent '设定代理（浏览器，身份）
.SetRequestHeader"connection",connection '
.SetRequestHeader"Accept-Encoding",encoding '设定gzip压缩
.SetRequestHeader"Accept",Accept '文档类型
OnErrorResumeNext
.Send
IfErrThen
Err.Clear
Response.Write"无法从["&url&"]取得数据!"
EndIf
If.ReadyState<>4Or.Status<>200Then
Response.Write"无法从["&url&"]取得数据!"
EndIf
data=BytesToBstr(.ResponseBody,Base)
EndWith
SetoXmlHttp=Nothing
Response.Writedata
%>
PS:未作测试,若有问题自己调试一下