|
 |
| |
HtmlDecode ช่วยดู code ด้วยครับ แก้ยังไงครับ แต่ถ้าเปลี่ยน code HtmlDecode เป็น HtmlEncode เป็นการเข้ารหัส |
| |
 |
|
|
 |
 |
|
ลอง Convert เป็น String ดูก่อนน่ะครับ
Code (ASP)
<%
<%=Server.HtmlDecode(Cstr(rs.Fields("Qdetail").Value))%>
%>
|
 |
 |
 |
 |
| Date :
2009-07-08 12:19:32 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ไม่ได้ ครับ error
แต่ผม ลอง หาใน internet เจอ code นี้เข้าไม่ทราบว้าได้รึเปล่าครับ
Function HTMLDecode(sText)
Dim I
sText = Replace(sText, """, Chr(34))
sText = Replace(sText, "<" , Chr(60))
sText = Replace(sText, ">" , Chr(62))
sText = Replace(sText, "&" , Chr(38))
sText = Replace(sText, " ", Chr(32))
For I = 1 to 255
sText = Replace(sText, "&#" & I & ";", Chr(I))
Next
HTMLDecode = sText
End Function
ถ้า Function นี้ จะใช้ งานยังไงครับ
stext = Qdetail
แล้วจะนำ Qdetail แสดงผลยังไง ครับ
|
| |
|
|
| |
| Date :
2009-07-08 13:13:12 |
By :
zagi |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (ASP)
<%
Response.write HTMLDecode(Qdetail)
%>
|
| |
|
|
| |
| Date :
2009-07-08 13:28:18 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
error
|
| |
|
|
| |
| Date :
2009-07-08 13:55:08 |
By :
zagi |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลอง Response.write ค่า Qdetail ออกมาดูครับ ว่าเป็น String หรือชนิดอื่น ๆ ครับ
|
| |
|
|
| |
| Date :
2009-07-08 15:45:51 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 05
|
