 |
รบกวนใคร เป็นสองภาษา ช่วยลองแปลงโค๊ดจาก asp เป็น php ให้หน่อย ผมเป็นแต่ php พอดีรื้อระบบใหม่โค๊ดเดิมเป็น asp |
|
 |
|
|
 |
 |
|
โค๊ดนี้เอามายังไม่หมด ขอแค่แปลงจากโค๊ดด้านล่างพอเป็นตัวอย่างให้ดูหน่อยครับ 
Code (ASP)
username=Request.form("uname")
password=Request.form("passwd")
'response.Write(username&" "&password)
If Request.Form("uname") = "" Then
Conn.Close
Set Conn=Nothing
Response.Redirect "mainlogin.asp"
Else
select case request("login")
case "1"
Set Rs2 = Server.CreateObject("ADODB.RecordSet")
sSQL2 = "select * from passwd WHERE username='" & username & "' AND passwd='" & password & "'"
Rs2.Open sSQL2, Conn, 3, 3, 1
If Rs2.RecordCount <> 0 Then
select case username
case "admin"
Session("Username") = username
Session("Password") = password
Session("yy") = year(date)+543
sdate=formatdatetime(date,2)
stime=time
Set Rs =Server.CreateObject("ADODB.Recordset")
Sql="Select * from login order by id desc"
Rs.open Sql,Conn,1,3
if rs.recordcount=0 then
id_=1
else
id_=rs("id")+1
end if
Rs.Addnew
Rs("id")=id_
Rs("timein")=stime
Rs("datein")=sdate
Rs("username")=username
Rs("logstatus")="OK"
Rs("ipaddress")=request.ServerVariables("REMOTE_ADDR")
Rs.update
Rs.Close
Response.Redirect "mis/admin/subpage.asp"
Tag : PHP, Ms SQL Server 2008, VB.NET
|
|
 |
 |
 |
 |
Date :
2013-06-11 09:43:29 |
By :
compiak |
View :
748 |
Reply :
7 |
|
 |
 |
 |
 |
|
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
การแปลงสำหรับโค๊ดปกติไม่มีอะไรยากก็เขียน php ตามปกติแต่ว่าจะใช้ฐานข้อมูลเดิมหรือสร้างใหม่ ถ้าสร้างใหม่ก็ไม่น่าจะต้องแปลงอะไร
|
 |
 |
 |
 |
Date :
2013-06-11 10:24:35 |
By :
เบทเทอ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ฐานข้อมูลเดิมๆ ครับ
Code (ASP)
If Request.Form("uname") = "" Then ' บรรทัดนี้พอได้
Conn.Close ' บรรทัดนี้พอได้
Set Conn=Nothing ' บรรทัดนี้พอได้
Response.Redirect "mainlogin.asp" ' บรรทัดนี้พอได้
Else
select case request("login") 'บรรทัดนี้ไป ช่วยทำเป็น case แบบ php หน่อย อิอิ
case "1"
Set Rs2 = Server.CreateObject("ADODB.RecordSet")
sSQL2 = "select * from passwd WHERE username='" & username & "' AND passwd='" & password & "'"
Rs2.Open sSQL2, Conn, 3, 3, 1
If Rs2.RecordCount <> 0 Then
select case username
case "admin"
Session("Username") = username
Session("Password") = password
Session("yy") = year(date)+543
sdate=formatdatetime(date,2)
stime=time
Set Rs =Server.CreateObject("ADODB.Recordset")
Sql="Select * from login order by id desc"
Rs.open Sql,Conn,1,3
if rs.recordcount=0 then
id_=1
else
id_=rs("id")+1
end if
Rs.Addnew
Rs("id")=id_
Rs("timein")=stime
Rs("datein")=sdate
Rs("username")=username
Rs("logstatus")="OK"
Rs("ipaddress")=request.ServerVariables("REMOTE_ADDR")
Rs.update
Rs.Close
Response.Redirect "mis/admin/subpage.asp"
|
 |
 |
 |
 |
Date :
2013-06-11 10:50:26 |
By :
compiak |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
select case request("login") => switch($_REQUEST['login']){
|
 |
 |
 |
 |
Date :
2013-06-11 11:03:58 |
By :
{Cyberman} |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
เราไม่ต้องแปลงทุกฟังชั่นเพียงแค่หาโค้ดที่มีการทำงานในเงื่อนไขลักษณะเดียวกันมาก็ใช้ได้แล้ว ไม่ยากง่ายๆๆของค้นหา ตามนี้การลอกอินแบบนี้มีเยอะแยะ จากที่เคยแปลงมาแล้วไม่มีใครที่จะมานั่งแปลงทุกบรรทัด เพียงแค่นำมาประยุกต์มันง่ายกว่าเยอะทำงานได้เหมือนๆๆกัน
|
 |
 |
 |
 |
Date :
2013-06-11 11:04:38 |
By :
เบทเทอ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ตอนนี้ผมก็กำลังนั่งแปลง VB6 เป็น PHP เหมือนกันครับ
ระบบเดิมเป็น Windows App แต่เดี๋ยวนี้เขาเน้น Web App เลยมันส์หยดเลยครับ ^^"
|
 |
 |
 |
 |
Date :
2013-06-11 11:08:07 |
By :
{Cyberman} |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|