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:未作測試,若有問題自己調試一下