 |
| |
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="874"%> อีกครั้งคับ |
| |
 |
|
|
 |
 |
|
ผมมีข้อสงสัยตรงไฟล์ save2.asp ตรงบรรทัดแรก <%@ LANGUAGE="VBSCRIPT" %>ถ้าผมเพิ่มเติม <%@ LANGUAGE="VBSCRIPT" CODEPAGE="874"%> เข้าไปจะทำให้โปรแกรม รันไม่ผ่านครับไม่ทราบว่าทำไมครับ ถ้าเอาคำว่า CODEPAGE="874" ออก โปรแกรมถึงจะรันผ่านครับ
save2.asp
<%@ LANGUAGE="VBSCRIPT" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>www.lovedogclub.net</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style type="text/css">
<!--
a:link { color: #FF0000; text-decoration: none}
a:visited { color: #005CA2; text-decoration: none}
a:active { color: #0099FF; text-decoration: none}
a:hover { color: #0099FF; text-decoration: none}
BODY {
SCROLLBAR-FACE-COLOR: #FFFFFF; SCROLLBAR-HIGHLIGHT-COLOR: #FF9933; SCROLLBAR-SHADOW-COLOR: #FF9933; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #FF9933; SCROLLBAR-TRACK-COLOR: #DEFF2C; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
'=================================================================
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
fname= UploadRequest.form("name").Value
topic= UploadRequest.Item("topic").Item("Value")
note= UploadRequest.Item("note").Item("Value")
price= UploadRequest.Item("price").Item("Value")
email= UploadRequest.Item("email").Item("Value")
tel= UploadRequest.Item("tel").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if filename="" then
ip=request.ServerVariables("REMOTE_ADDR")
sdate=DateAdd("h", 6, now())
picname="no"
' response.Write("no")
else
filename1=mid( filename,instr(filename,"."),len(filename) )
mdate=replace(date(),"/","")
mtime=replace(time(),":","")
ntime=left(mtime,5)
newname=mdate+ntime
picname=newname+filename1
value = UploadRequest.Item("blob").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("images_upload/"&newname&filename1))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile<PosBound) Then
'Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
'Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value
'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub
'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
newfilename=newname+filename1
hdate=date()
end if
'=============================================
dim bb
fname=replace(replace(fname,"<","<"),">",">")
topic=replace(replace(topic,"<","<"),">",">")
topic=replace(topic,"'","aa")
topic=replace(topic,chr(34),"bb")
note=replace(replace(note,"<","<"),">",">")
note=replace(note,chr(13),"<br>")
note=replace(note,"'","aa")
note=replace(note,chr(34),"bb")
ip=request.ServerVariables("REMOTE_ADDR")
sdate=DateAdd("h", 6, now())
'=============================================
set conn=server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("webboard2002-97.mdb")
' sql="select * from questions order by qnumber desc"
sql="select * from questions where qname= '"&fname&"' AND qnote= '"¬e&"' order by qnumber desc"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.recordcount =0 then
status=1
sql="select * from questions order by qnumber desc"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.recordcount=0 then
id=0
else
id=rs("qnumber")
end if
rs.addnew
rs("qnumber")=id+1
rs("qtopic")=topic
rs("qname")=fname
rs("qnote")=note
rs("qdate")=sdate
rs("qpicture")=picname
rs("price")=price
rs("nanswer")=0
rs("read")=0
rs("qip")=ip
'rs("tel")=tel
if trim(tel) <>"" then
rs("tel")=tel
else
rs("tel")="ไม่ระบุ"
end if
if trim(email) <>"" then
rs("email")=email
else
rs("email")="ไม่ระบุ"
end if
rs.update
'===========================
%>
<table width="790" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="../image/head.gif" width="790" height="116"></td>
</tr>
<tr>
<td width="30" bgcolor="#CCFF00"> </td>
<td width="730" height="150" valign="middle" background="../image/bg_gray.gif">
<meta http-equiv="refresh" content="5; URL=aspboard.asp">
<div align="center" class="style2">ขอบคุณมากครับ กระทู้ของท่านได้บันทึกเสร็จเรียบร้อยแล้วครับ<br><a href="ASPBOARD.asp">คลิกที่นี่ </a>หรือรออีก 5 วินาที เพี่อกลับไปหน้ากระทู้หลัก</div>
</td>
<td width="30" bgcolor="#CCFF00"> </td>
</tr>
<tr>
<td bgcolor="#CCFF00"> </td>
<td bgcolor="#CCFF00"> </td>
<td bgcolor="#CCFF00"> </td>
</tr>
</table>
<%
else
%>
<table width="768" border="0" align="center" bgcolor="#CCFF00">
<tr>
<td colspan="3"><img src="../image/head.gif" width="780" height="116"></td>
</tr>
<tr>
<td width="20"> </td>
<td width="733" height="150" align="center" background="../image/bg_gray.gif">
คุณป้อนข้อมูลซ้ำกับฐานข้อมูล<br>
<a href="javascript:history.back()">คลิกที่นี้เพื่อกลับไปป้อนข้อมูลใหม่</a></div>
</td>
<td width="20"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%
end if
%>
</body>
</html>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
24 มี.ค. 2548 21:18:19 |
By :
สนใจด้วย |
View :
4327 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ผมคยตอบให้แล้วนะครับ
|
| |
|
|
| |
| Date :
25 มี.ค. 2548 09:23:13 |
By :
@W_IN |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 00
