Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > บันทึกไฟล์ .pdf ลงฐานข้อมูล access ไม่ได้ช่วยดูให้ทีครับ

บันทึกไฟล์ .pdf ลงฐานข้อมูล access ไม่ได้ช่วยดูให้ทีครับ

เริ่มหัวข้อใหม่

comsc006

โพสกระทู้ ( 48 )
บทความ ( 0 )

form_cat_articles.asp
<%@LANGUAGE="VBSCRIPT" %>

<%'on error resume next
response.Write("sesssion_id ="&session.SessionID)

keyjid=request.QueryString("jid")
if keyjid="" then
keyjid=session("jid")
else
session("jid")=keyjid
end if

response.Write("session_jid = "&session("jid"))
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from journal where journal_id ="&keyjid &""
Rs.Open Sql,Conn,1,3

Set Rs1=Server.CreateObject("ADODB.Recordset")
Sql1="Select * from tempartalter where temp_sessionid="& session.SessionID &""
Rs1.Open Sql1,Conn,1,3

Set Rs2=Server.CreateObject("ADODB.Recordset")
Sql2="Select * from temparticle where temp_sessionid="& session.SessionID &""
Rs2.Open Sql2,Conn,1,3

if rs2.recordcount <> 0 then

session("authorname")=rs2("temp_authorname")
session("title")=rs2("temp_title")
session("accdate")=rs2("temp_date")
session("pno")=rs2("temp_pageno")
session("summarys")=rs2("temp_summary")
session("eaccess")=rs2("temp_eaccess")
session("notes")=rs2("temp_note")
end if

Set Rs3=Server.CreateObject("ADODB.Recordset")
Sql3="Select * from tempsubject where temp_sjsessionid="& session.SessionID &""
Rs3.Open Sql3,Conn,1,3

%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<script language="JavaScript" type="text/JavaScript">

</script>
<style type="text/css">

</style>
</head>

<body>
<form action="check_events.asp" method="post" name="form1">
<div align="center"><strong><font size="5" face="tahoma">CRU LIB<br>
ARTICLES CATALOGUE</font></strong> <br>
<br>
<a href="clear_sessions.asp">New Journal Click here</a><br>
<br>
<table width="80%" border="2" align="center" cellpadding="0" cellspacing="2">
<tr valign="top">
<td width="28%" bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma">Journal
ID - Name</font></strong></div></td>
<td width="72%" bgcolor="#E6E6E6"><font size="3" face="tahoma">  <font color="#CC0000" size="2"><strong>
<%=rs("journal_id")%>
<% session("Jidd")=rs("journal_id")%>
<% session("JName")=rs("journal_name")%>
<% session("Jvol")=rs("journal_volume")%>
-<%=rs("journal_Name")%>   Volume <%=rs("journal_volume")%>
</strong><font face="tahoma"><strong>No. </strong></font><font size="3" face="tahoma"><font color="#CC0000" size="2"><strong><%=rs("journal_edition")%></strong></font></font></font></font></td>
</tr>
<tr valign="top">
<td bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma"><br>
Author</font></strong></div></td>
<td><font size="3" face="tahoma"> <br>
<input name="Authors" type="text" id="Authors" size="50" value="<%=session("authorname")%>">
<font color="#CC0000" size="2"><strong>
<input name="Jid" type="hidden" id="Jid" value="<%=rs("journal_id")%>">
<%
jids=rs("journal_id")
session("jids")=jids%>
<br>
<br>
</strong></font> </font></td>
</tr>
<tr valign="top">
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="86%"><strong><font color="#000000" size="3" face="tahoma">Alternate
Author</font></strong></td>
<td width="14%"><div align="center"><strong><font color="#990000">
<input name="Alter" type="submit" id="Alter" onClick="MM_openBrWindow('sub_alterath_form.asp','altf','width=800,height=600')" value="Add">
</font></strong></div></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td colspan="2"><table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFCC">
<td width="8%"> <div align="center"><font color="#0000FF" size="2" face="tahoma">No</font></div></td>
<td width="78%"> <div align="center"><font color="#0000FF" size="2" face="tahoma">Alternate
Author</font></div></td>
</tr>
<% nom=0%>
<% Do While Not rs1.EOF %>
<% nom=nom+1 %>
<tr>
<td height="22"><div align="center"><font color="#990000"><strong><font size="2" face="tahoma"><%=nom%></font></strong></font></div></td>
<td><strong><font color="#990000" size="2" face="tahoma"> <%=rs1("temp_altname")%></font></strong></td>
</tr>
<%
rs1.movenext
loop
rs1.close
%>
</table>
<br> </td>
</tr>
<tr valign="top">
<td bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma">Article</font></strong></div></td>
<td><font size="3" face="tahoma"> 
<input name="Titles" type="text" id="Titles" value='<%=session("title")%>' size="50">
</font></td>
</tr>
<tr valign="top">
<td bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma">Page
No.</font></strong></div></td>
<td><font size="3" face="tahoma"> 
<input name="Pages" type="text" id="Pages" value="<%=session("pno")%>" size="50">
<br>
<br>
</font></td>
</tr>
<tr valign="top">
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="86%"><strong><font color="#000000" size="3" face="tahoma">Subject
Heading</font></strong><font size="3" face="tahoma">  </font></td>
<td width="14%"><div align="center"><font size="3" face="tahoma">
<input name="subhb" type="submit" id="subhb2" onClick="MM_openBrWindow('sub_sjhead_form.asp','sjf','width=800,height=600')" value="Add">
</font></div></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td colspan="2"><table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFCC">
<td width="8%"> <div align="center"><font color="#0000FF" size="2" face="tahoma">No</font></div></td>
<td width="78%"> <div align="center"><font color="#0000FF" size="2" face="tahoma">Subject
Heading </font></div></td>
</tr>
<% nom1=0 %>
<% Do While Not Rs3.eof %>
<% nom1=nom1+1 %>
<tr>
<td height="22"> <div align="center"><font color="#990000"><strong><font size="2" face="tahoma"><%=nom1%></font></strong></font></div></td>
<td><strong><font color="#990000" size="2" face="tahoma"> 
<%=rs3("temp_sjname")%></font></strong></td>
</tr>
<%
rs3.movenext
loop
rs3.close
%>
</table>
<br> </td>
</tr>
<tr valign="top">
<td bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma"><br>
<br>
Summary</font></strong></div></td>
<td><font size="3" face="tahoma"> 
<textarea name="Summarys" cols="50" rows="5" id="Summarys"><%=session("summarys")%></textarea>
</font></td>
</tr>
<tr valign="top">
<td bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma">E-Access</font></strong></div></td>
<td><font size="3" face="tahoma"> 
<input name="Eaccess" type="text" id="Eaccess" value="<%=session("eaccess")%>" size="50">
</font></td>
</tr>
<tr valign="top">
<td bgcolor="#CCCCFF"><div align="center"><strong><font color="#000000" size="3" face="tahoma"><br>
<br>
Note</font></strong></div></td>
<td><font size="3" face="tahoma"> 
<textarea name="notes" cols="50" rows="5" id="notes"><%=session("notes")%></textarea>
</font></td>
</tr>
</table>
<br>
<input name="Prev" type="submit" id="Prev" onClick="MM_openBrWindow('showbfsave_cat_articles.asp','showa','width=800,height=600')" value="Preview">
</div>
</form>
<form action="save_cat_articles.asp" method="post" enctype="multipart/form-data" name="form2">
<%
session("jids")
session("authorname")
session("title")
session("accdate")
session("pno")
session("summarys")
session("eaccess")
session("notes")
session("pic")
%>
<table width="80%" border="2" align="center" cellpadding="0" cellspacing="2" dwcopytype="CopyTableRow">
<tr valign="top">
<td width="28%" bgcolor="#CCCCFF"><div align="center"><strong>Article_File</strong></div></td>
<td width="72%"><font size="3" face="tahoma"> 
<input name="file" type="file" size="50" >
ควรเป็นไฟล์ประเภท (.PDF)</font></td>
</tr>
</table>
<div align="center">
<input type="submit" name="Submit" value="Save">
</div>
</form>
<br>
<script>
function check_form2(){
var obj = document.form2; //order ชื่อฟอร์ม
var m = obj.form2_file.value.split('.');
m1 = m[1];
if(m1 != '' && m1 != "pdf" ){
alert("กรุณาเลือกไฟล์ประเภท PDF ครับ");
</script>
<br>
<%
conn.close
set rs=nothing
set rs1=nothing
set rs2=nothing
set rs3=nothing
set conn=nothing
%>
</body>
</html>

save_cat_articles.asp
<%@LANGUAGE="VBSCRIPT" %>


<%
jids = request("Jid")
%>

<%
Response.Buffer = True

' load object
Dim load
Set load = new Loader

' calling initialize method
load.initialize

' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
' File path
Dim filePath
filePath = load.getFilePath("file")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' File size
Dim fileSize
fileSize = load.getFileSize("file")

' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Content Type
Dim contentType
contentType = load.getContentType("file")
' No. of Form elements
Dim countElements
countElements = load.Count
' Value of text input field "fname"
Dim fnameInput
fnameInput = load.getValue("fname")
' Value of text input field "lname"
Dim lnameInput
lnameInput = load.getValue("lname")
' Value of text input field "profession"
Dim profession
profession = load.getValue("profession")

' destroying load object
Set load = Nothing

%>

<% If Instr(fileSize,".PDF") <> 0 Then %> <% 'Instr(filesize,".pdf")เพิ่ม ประเภทของไฟล์ที่จะอัพโหลดเป็น .pdf %>
<%
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from ArticleJournal"
Rs.Open Sql,Conn,1,3

rs.addnew

rs("journal_id")= session("jids")
rs("article_author")=session("authorname")
'rs("article_title")="'" & replace(session("title"),"''","''") & "'"
rs("article_title")=session("title")
rs("article_page")=session("pno")
rs("article_summary")=session("summarys")
rs("article_eaccess")=session("eaccess")
rs("article_note")=session("notes")
rs("article_pic").AppendChunk fileData

rs.update
rs.close
%>
<% Else %>
<%
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from ArticleJournal"
Rs.Open Sql,Conn,1,3
rs.addnew

rs("journal_id")= session("jids")
rs("article_author")=session("authorname")
'rs("article_title")="" & replace(session("title"),"''","''") & ""
rs("article_title")=session("title")
rs("article_page")=session("pno")
rs("article_summary")=session("summarys")
rs("article_eaccess")=session("eaccess")
rs("article_note")=session("notes")

rs.update
rs.close

%>
<% end if %>

<%
Set RsLast=Server.CreateObject("ADODB.Recordset")
SqlLast="Select * from ArticleJournal"
RsLast.Open SqlLast,Conn,1,3

RsLast.Movelast

response.Write(RsLast("article_id"))

%>

<%

Set RsChk=Server.CreateObject("ADODB.Recordset")
SqlChk="Select * from tempartalter where temp_sessionid="& session.SessionID &""
RsChk.Open SqlChk,Conn,1,3

Do While Not RsChk.EOF

altername=RsChk("temp_altname")
articleid=RsLast("article_id")

RsChk("temp_ajid")=articleid

Set Rs1=Server.CreateObject("ADODB.Recordset")
Sql1="Select * from alter_article"
Rs1.Open Sql1,Conn,1,3

rs1.addnew

rs1("article_id")=articleid
rs1("author_name")=altername

rs1.update
rs1.close

RsChk.movenext
loop
RsChk.Close

%>
<%

Set RsChkSj=Server.CreateObject("ADODB.Recordset")
SqlChkSj="Select * from tempsubject where temp_sjsessionid="& session.SessionID &""
RsChkSj.Open SqlChkSj,Conn,1,3

Do While Not RsChkSj.EOF

subhname=RsChkSj("temp_sjname")
articleid=RsLast("article_id")

RsChkSj("temp_ajid")=articleid

Set Rs2=Server.CreateObject("ADODB.Recordset")
Sql2="Select * from subhead_article"
Rs2.Open Sql2,Conn,1,3

rs2.addnew

rs2("article_id")=articleid
rs2("subhead_name")=subhname

rs2.update
rs2.close

RsChkSj.movenext
loop
RsChkSj.Close

Set RsTemp=Server.CreateObject("ADODB.Recordset")
SqlTemp="Select * from temparticle where temp_sessionid="& session.SessionID &""
RsTemp.Open SqlTemp,Conn,1,3

articleid=RsLast("article_id")

RsTemp("temp_ajid")=articleid

RsTemp.Update
RsTemp.Close

%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style type="text/css">

</style>
</head>

<body>
<div align="center">
<p><strong><font size="5" face="tahoma">CRU LIB<br>
SAVE ARTICLES CATALOGUE</font></strong> </p>
<p><br>
<br>
<font color="#FF0000" size="3" face="tahoma"><strong><font size="4">SAVE ARTICLE
TO ARTICLE DATABASE COMPLETE</font><br>
<br>
</strong></font></p>
<form name="form1" method="post" action="clear_sessionsadd.asp">

<input type="hidden" name="jid" value=<%=RsLast("journal_id")%>>

<input name="Asave" type="submit" id="Asave" value="Next Article Catalogue Click Here">
</form>
<p><font color="#FF0000" size="3" face="tahoma"><strong> </strong></font></p>
<hr align="center" width="80%" noshade>
<p><font color="#FF0000" size="3" face="tahoma"><strong> </strong></font></p>
</div>
<br>

<%
conn.close
set rs=nothing
set rs1=nothing
set rs2=nothing
set RsChk=nothing
set RsChkSj=nothing
set RsLast=nothing
%>
</body>
</html>

Tag : - - - -

Date : 2009-11-19 11:33:40

By : comsc006

View : 1904

Reply : 2

No. 1

TC Admin

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

ไม่มี Error บอกเลยเหรอครับ หรือไม่ลองใช้การ Insert แบบ SQL Statement แทนกว่า Insert ผ่าน Command ครับ

Code (AspAccessAddForm.asp)

<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<form action="AspAccessAddSave.asp" name="frmAdd" method="post">
<table width="600" border="1">
  <tr>
    <th width="91"> <div align="center">CustomerID </div></th>
    <th width="160"> <div align="center">Name </div></th>
    <th width="198"> <div align="center">Email </div></th>
    <th width="97"> <div align="center">CountryCode </div></th>
    <th width="70"> <div align="center">Budget </div></th>
    <th width="70"> <div align="center">Used </div></th>
  </tr>
  <tr>
    <td><div align="center"><input type="text" name="txtCustomerID" size="5"></div></td>
    <td><input type="text" name="txtName" size="20"></td>
    <td><input type="text" name="txtEmail" size="20"></td>
    <td><div align="center"><input type="text" name="txtCountryCode" size="2"></div></td>
    <td align="right"><input type="text" name="txtBudget" size="5"></td>
    <td align="right"><input type="text" name="txtUsed" size="5"></td>
  </tr>
  </table>
  <input type="submit" name="submit" value="submit">
  </form>
</body>
</html>

Code (AspAccessAddSave.asp)

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = ""
strSQL = strSQL &"INSERT INTO customer "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtCustomerID")&"','"&Request.Form("txtName")&"', '"&Request.Form("txtEmail")&"' "
strSQL = strSQL &",'"&Request.Form("txtCountryCode")&"','"&Request.Form("txtBudget")&"', '"&Request.Form("txtUsed")&"') "
Set objExec = Conn.Execute(strSQL)
If Err.Number = 0 Then
	Response.write("Save Done.")
Else
	Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>

Date : 2009-11-19 12:35:11

By : webmaster

No. 2

comsc006

โพสกระทู้ ( 48 )
บทความ ( 0 )

ผมแก้ใหม่แบบนี้คับ แต่มี Error อีก
<%@LANGUAGE="VBSCRIPT" %>


<%
jids = request("Jid") '//............<<<<<<<<<Error ตรงนี้คับ
%>
<%
'server.scripttimeout = 1000
%>
<%
'bytecount=Request.TotalBytes
'If bytecount<800000 Then ' กำหนดขนาดไฟล์ไม่เกิน 8 MB
%>

<%
filename=uploaddata.Item("file").Item("filename")
pos_filebegin=InStrRev(filename,"\")
pos_fileend=Len(filename)
filename_new=Mid(filename,pos_filebegin+1,pos_fileend-pos_filebegin)

%>
' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้

<% If Instr(filename_new,".pdf") >0 Then %>

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set uploadfile=fs.CreateTextFile(Server.Mappath("art_file"&"/"&filename_new))
uploadfile.Write uploaddata.Item("file").Item("value")

Response.write(" Uploads ไฟล์สำเร็จ ")
Response.write("<br> ไฟล์ชื่อ " &filename_new)

' หากต้องการ นำชื่อไฟล์ไปเก็บใว้ในฐานข้อมูล ให้ทำการ Add ชื่อไฟล์ filename_new ลงในฐานข้อมูล จากนั้นเมื่อต้องการนำรูปภาพมาแสดง
' ให้อ้างอิง Path Picture/filename_new
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from ArticleJournal"
Rs.Open Sql,Conn,1,3

rs.addnew

rs("journal_id")= session("jids")
rs("article_author")=session("authorname")
'rs("article_title")="'" & replace(session("title"),"''","''") & "'"
rs("article_title")=session("title")
rs("article_page")=session("pno")
rs("article_summary")=session("summarys")
rs("article_eaccess")=session("eaccess")
rs("article_note")=session("notes")
rs("article_file").AppendChunk filename_new

rs.update
rs.close
uploadfile.Close
%>

ปล.ตรงที่ error
Cannot use the generic Request collection after calling BinaryRead.
/article/save_cat_articles.asp, line 5

ช่วยหน่อยครับ

Date : 2009-11-24 12:03:34

By : comsc006

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : บันทึกไฟล์ .pdf ลงฐานข้อมูล access ไม่ได้ช่วยดูให้ทีครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)