Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > ASP > ASP Forum > สอบถาม url-rewrite ของ asp ค่ะ ถ้าเราจะ rewrite ให้เป็นภาษาไทยได้มั๊ยค่ะ



 

สอบถาม url-rewrite ของ asp ค่ะ ถ้าเราจะ rewrite ให้เป็นภาษาไทยได้มั๊ยค่ะ

 



Topic : 091833

Guest




ตาม code นี้ค่ะเอาไปทดสอบทำดู

Code (ASP)
<%
	Response.AddHeader "HTTP", "HTTP/1.1 200 OK"

	Response.write "Now URL = " & Request.ServerVariables("HTTP_URL")

	'** Link Page ***'
	Response.write "<hr>"
	Response.write "<a href=/hello.html>Hello ASP</a> , <a href=/config.html>Config ASP</a> , <a href=/install.html>Install ASP</a>"
	Response.write "<hr>"


	'*** Include Content ***'

	If Request.ServerVariables("HTTP_URL") = "/hello.html" Then
		Server.Transfer("hello.asp")
	ElseIf Request.ServerVariables("HTTP_URL") = "/config.html" Then
		Server.Transfer("config.asp")
	ElseIf Request.ServerVariables("HTTP_URL") = "/install.html" Then
		Server.Transfer("install.asp")
	Else
		' Default include
	End IF
%>


ตรง hello.html ทดสอบรันดูได้ค่ะ แต่ลองเปลี่ยนเป็น ทดสอบ.html ไม่ได้ค่ะ ขึ้นเออเร่อเหมือนด้านล่างค่ะ รึว่าทำเป็น url ภาษาไทยไม่ได้ค่ะ

Now URL = /%E0%B8%97%E0%B8%94%E0%B8%AA%E0%B8%AD%E0%B8%9A.html



Tag : ASP







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-03-05 11:44:24 By : มือใหม่ View : 3354 Reply : 10
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

มันอ่านได้ค่าอะไรครับ ลองดูพวก Server.URLEncode

ASP Server.URLEncode() - Server Object







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-05 11:47:12 By : mr.win
 


 

No. 2

Guest


สงสัยจะไม่ได้ ขึ้นเออเร่อตามรูปค่ะ

error

เขียนโค๊ตแบบนี้ค่ะ จุดประสงค์คืออยากได้ url ภาษาไทย แต่เป็นภาษา asp classic

Code (ASP)
<%
	Response.AddHeader "HTTP", "HTTP/1.1 200 OK"

	Response.write "Now URL = " & Request.ServerVariables("HTTP_URL")

	'** Link Page ***'
	Response.write "<hr>"
	Response.write "<a href=/hello.html>Hello ASP</a> , <a href=/config.html>Config ASP</a> , <a href=/install.html>Install ASP</a>"
	Response.write "<hr>"


	'*** Include Content ***'

If Request.ServerVariables("HTTP_URL") = Server.URLEncode("/ทดสอบ.html") Then
		Server.Transfer("hello.asp")

	Else
		' Default include
	End IF
%>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-05 13:48:18 By : มือใหม่
 

 

No. 3



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (ASP)
Server.URLDecode("URL")


ลองใช้ตัวนี้ดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-05 13:52:41 By : mr.win
 


 

No. 4

Guest


กลายเป็นได้เออเร่อแบบนี้ค่ะ
Code
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'urldecode'


เขียนโค๊ตตามข้างล่างค่ะ เฮ้อ

Code (ASP)
<%
	Response.AddHeader "HTTP", "HTTP/1.1 200 OK"

	Response.write "Now URL = " & Request.ServerVariables("HTTP_URL")

	'** Link Page ***'
	Response.write "<hr>"
	Response.write "<a href=/hello.html>Hello ASP</a> , <a href=/config.html>Config ASP</a> , <a href=/install.html>Install ASP</a>"
	Response.write "<hr>"


	'*** Include Content ***'

If Request.ServerVariables("HTTP_URL") = Server.URLDecode("/ทดสอบ.html") Then
		Server.Transfer("hello.asp")

	Else
		' Default include
	End IF
%>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-05 14:14:29 By : มือใหม่
 


 

No. 5



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ใน ASP Classic ไม่มี UrlDecode ให้ใช้ซะงั้น ลองดูตัวนี้ครับ ใช้การสร้าง Function ขึ้นมาก่อนครับ

Code (ASP)
Function URLDecode(sConvert)
    Dim aSplit
    Dim sOutput
    Dim I
    If IsNull(sConvert) Then
       URLDecode = ""
       Exit Function
    End If

    ' convert all pluses to spaces
    sOutput = REPLACE(sConvert, "+", " ")

    ' next convert %hexdigits to the character
    aSplit = Split(sOutput, "%")

    If IsArray(aSplit) Then
      sOutput = aSplit(0)
      For I = 0 to UBound(aSplit) - 1
        sOutput = sOutput & _
          Chr("&H" & Left(aSplit(i + 1), 2)) &_
          Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
      Next
    End If

    URLDecode = sOutput
End Function

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-05 14:33:20 By : mr.win
 


 

No. 6

Guest


ขอบคุณค่ะ ยังไม่รู้ว่าใช้ยังงัยแต่จะลองทำดูค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-06 08:20:32 By : มือใหม่
 


 

No. 7

Guest


ดก


สอบถามหน่อยนะคะ เพิ่งหัดเขียนไม่ทราบว่าผิดตรงไหน รบกวนช่วยแนะนำด้วยนะคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-06 08:32:57 By : งานร้อน
 


 

No. 8



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ติดปัญหาตรงไหนครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-06 08:52:38 By : mr.win
 


 

No. 9

Guest


ติดตรงที่หนูไม่เข้าใจขั้นตอนการเขียน Code ค่ะ คือตอนนี้หน้า default หนูสร้าง Code ไว้อย่างนี้ค่ะ

<Code (ASP)
%
	Response.AddHeader "HTTP", "HTTP/1.1 200 OK"
	Response.write "Now URL = " & Request.ServerVariables("HTTP_URL")
	'** Link Page ***'
	Response.write "<hr>"
	Response.write "<a href=/hello.html>Hello ASP</a> , <a href=/config.html>Config ASP</a> , <a href=/install.html>Install ASP</a>"
	Response.write "<hr>"
	'*** Include Content ***'
If Request.ServerVariables("HTTP_URL") = Server.URLEncode("/ทดสอบ.html") Then
		Server.Transfer("hello.asp")
	Else
		' Default include
	End IF
%>


และอีกหน้าหนึ่งที่ link มาต้องสร้างยังงัยค่ะเพื่อให้ได้เป็น url localhost/test/ทดสอบ.html ใช่เอาโค๊ตที่คุณ win ให้มาทำแบบนี้รึเปล่าค่ะ

Code (ASP)
<%

Function URLDecode(sConvert)
    Dim aSplit
    Dim sOutput
    Dim I
    If IsNull(sConvert) Then
       URLDecode = "test/ทดสอบ.html" 'ใช่เอา url ที่เราต้องการ Decode มาใ่ส่ตรงนี้ รึเปล่าค่ะ
       Exit Function
    End If

    ' convert all pluses to spaces
    sOutput = REPLACE(sConvert, "+", "ทดสอบ ") 'แล้วช่องนี้ใช่เติมแบบนี้รึเปล่าค่ะ
    ' next convert %hexdigits to the character
    aSplit = Split(sOutput, "%")

    If IsArray(aSplit) Then
      sOutput = aSplit(0)
      For I = 0 to UBound(aSplit) - 1
        sOutput = sOutput & _
          Chr("&H" & Left(aSplit(i + 1), 2)) &_
          Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
      Next
    End If

    URLDecode = sOutput
End Function

%>



แล้วเวลา สร้าง link ต้อง ทำแบบนี้ใช่มั๊ยค่ะ ลองทำแบบนี้แล้วมันไม่ได้ค่ะไม่เกิดอะไรขึ้นและ link ไม่ไปค่ะ

<a href="<%=sOutput%>" class="footer">ทดสอบ</a>
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-06 09:34:05 By : มือใหม่
 


 

No. 10

Guest


หน้าที่ link ไปทำ decode ได้แล้วค่ะ ตาม Code ด้านล่างค่ะ

Code (ASP)
<% 
    Function URLDecode(str) 
        str = Replace(str, "+", " ") 
        For i = 1 To Len(str) 
            sT = Mid(str, i, 1) 
            If sT = "%" Then 
                If i+2 < Len(str) Then 
                    sR = sR & _ 
                        Chr(CLng("&H" & Mid(str, i+1, 2))) 
                    i = i+2 
                End If 
            Else 
                sR = sR & sT 
            End If 
        Next 
        URLDecode = sR 
    End Function 
 
    Function URLEncode(str) 
        URLEncode = Server.URLEncode(str) 
    End Function 
     str1 = "ทดสอบ.html" 
    str2 = URLEncode(str1) 
    str3 = URLDecode(str2) 
    Response.Write( "<br>" & str3) 
%>
	
	<a href="<%=str3%>">ทดสอบ</a>


แต่ก็ไปเออเร่อหน้า default ตามรูปที่แนบมาค่ะ

error
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-03-06 10:19:40 By : มือใหม่
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถาม url-rewrite ของ asp ค่ะ ถ้าเราจะ rewrite ให้เป็นภาษาไทยได้มั๊ยค่ะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่