 |
|
สอบถาม Function แปลงข้อมูล ที่เป็นdata Type image ในฐานข้อมูล SQL ให้เป็น hexadecimal ขอ เป็น ASP |
|
 |
|
|
 |
 |
|
งมหาในเว็ปมาเป็นเดือนรบกวนผู้รู้ด้วย ครับ
|
 |
 |
 |
 |
Date :
2010-08-05 12:28:59 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
กรุงอโยธยา สิ้นไม่สิ้นคนดี
|
 |
 |
 |
 |
Date :
2010-08-05 17:27:46 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Code (ASP)
response.Buffer = True
response.Clear
response.ContentType = "image/gif"
response.BinaryWrite BynaryFrom-DB
response.Flush
response.End
|
 |
 |
 |
 |
Date :
2010-08-05 17:43:21 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
รู้สึก จะ งง ครับ
|
 |
 |
 |
 |
Date :
2010-08-05 21:35:51 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
มัน รายงาน ว่า "ภาพไม่สามารถแสดงได้ เพราะมีข้อผิดพลาดเกิดขึ้น" คือ ผม ให้ มัน แสดง เป็น แบบ 0x09010000400000001800000000 นี้ ครับ
|
 |
 |
 |
 |
Date :
2010-08-05 21:42:31 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ความพยายามอยู่ ที่ ไหน ความพยายาม อยู่ ที่ นั้น T_T (สงสารตัวเองไม่น่าเรียนก่อสร้างเลย)
|
 |
 |
 |
 |
Date :
2010-08-06 08:29:20 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ถ้าเป็น .net ป่านนี้ได้นอนตีพุงสบายใจไปแล้ว
|
 |
 |
 |
 |
Date :
2010-08-06 08:31:35 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
<%
Function BinaryToHex(Binary)
Dim c1, Out, OneByte
For c1 = 1 To LenB(Binary)
OneByte = Hex(AscB(MidB(Binary, c1, 1)))
If Len(OneByte) = 1 Then OneByte = "0" & OneByte
Out = Out & OneByte
Next
BinaryToHex = Out
End Function
%>
Function นี้ใช้ได้ ไหม แล้ว ถ้า เรา เอามา ใช้ เราต้อง เอา มา ใช้ ยัง ไง
|
 |
 |
 |
 |
Date :
2010-08-06 08:39:04 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
เรียกก่อสร้าง มา ครับ เขียน เป็น แต่ แบบ แต่ รู้ สึก ว่า จะ ได้ แล้ว ครับ ใช้ Function ด้าน บน แสดง เป็น hexadecimal ได้ แล้ว
|
 |
 |
 |
 |
Date :
2010-08-06 08:46:36 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ผมก็เรียนไฟฟ้าคร้าาาาาาาบ
|
 |
 |
 |
 |
Date :
2010-08-06 08:50:35 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอบคุณ ครับ นั้งปั่น เว็ป ดู อีก รอบ ก่อน ความฝัน ใกล้จะเป็นจิง
ฉันจะบิน บินไป ไกล แสนไกล ไม่หวั่น...ภูเขา จะสูงหรือ ทางจะชัน....
|
 |
 |
 |
 |
Date :
2010-08-06 08:57:59 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ใกล้ความเป็นจริงแล้วครับ asp มันไม่มีอะไรซับซ้อนครับ แต่เพียงยังไม่เคยทำเลยไม่รู้
Go to : ASP Response Object
|
 |
 |
 |
 |
Date :
2010-08-06 09:00:02 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ถึงเราจะ เขียนมั่วๆๆ ก็ มั่วแบบมีหลักการ
|
 |
 |
 |
 |
Date :
2010-08-06 09:00:48 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอบคุณ ครับ 
|
 |
 |
 |
 |
Date :
2010-08-06 09:07:54 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
<%
Function HexToDecimal(Hex As String) As Double
Dim i As Integer
Dim Dec As Double
Dim Hex2Dec As Byte
Dim HexWeight As Byte
HexWeight = 0
For i = Len(Hex) To 1 Step -1
Select Case Mid$(Hex, i, 1)
Case "A"
Hex2Dec = 10
Case "B"
Hex2Dec = 11
Case "C"
Hex2Dec = 12
Case "D"
Hex2Dec = 13
Case "E"
Hex2Dec = 14
Case "F"
Hex2Dec = 15
Case Else
Hex2Dec = Mid$(Hex, i, 1)
End Select
If Hex2Dec <> 0 Then Dec = Dec + ((16 ^ HexWeight) * Hex2Dec)
HexWeight = HexWeight + 1
Next
HexToDecimal = Dec
End Function
%>
Function แปลง เลขฐาน 10 วานผู้รู้ ช่วย ดู ให้ ที่ ครับ มัน ผิดตรงไหน ERROR
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/8888888888.asp, line 51
Function HexToDecimal(Hex As String) As Double
--------------------------^
|
 |
 |
 |
 |
Date :
2010-08-06 11:21:58 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Code (ASP)
Function HexToDecimal(Hex)
End Function
|
 |
 |
 |
 |
Date :
2010-08-06 11:24:23 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอบคุณ ครับ Function ครบ หมด แล้ว เหลือ แต่ เอา มา ประกอบร่าง ขอบคุณ mr.win และ tungman ที่ ช่วย เดียว เสร็จ โปรเจก นี้ ก่อน เดียว นับนุน เสื้อ กับ CD 
|
 |
 |
 |
 |
Date :
2010-08-06 12:40:47 |
By :
peezaa |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|