Forgot Password ??

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

	Registered : 109,028

HOME > ASP > ASP Forum > กระทู้ ASP ถาม-ตอบได้ในหมวดนี้เลยครับ ถามตอบกันได้ตามสบาย

กระทู้ ASP ถาม-ตอบได้ในหมวดนี้เลยครับ ถามตอบกันได้ตามสบาย

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

TC Admin

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

ถึงคนจะเขียนน้อยลงมาก แต่ก็ยังมีในอัตราที่พอ ๆ กับ ASP.NET ครับ

Tag : - - - -

Date : 2008-12-29 23:43:25

By : webmaster

View : 3583

Reply : 15

No. 1

TC Admin

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

Date : 2009-01-15 13:00:43

By : webmaster

No. 2

Guest

Upload file ไม่ขึ้นช่วยดูและแก้ไขให้หน่อยและส่งมาที่ Email [email protected] ขอบคุณครับ
file defuelt55.asp
<HTML>
<HEAD>
<TITLE><-- ลงประกาศข่าว วธท. --></TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META http-equiv="Content-Type" content="text/html; charset=windows-874">
<META http-equiv="Content-Type" content="text/html; charset=tis-620">
<META http-equiv="Content-Language" content="th">
<META http-equiv="Content-Language" content="en">
<link href="file:///F|/Web_New/default_style.css" rel="stylesheet" type="text/css" />
<style type="text/css">

</style>
</HEAD>


<%
'response.End()
session("Edit")=""
Dim strsql
strsql = "SELECT * FROM tb_User WHERE strUserID ='" & Session("UserID") & "'"
set rs = Conn.Execute (strsql)

'if rs.eof = true then
%>

<%
'end if
%>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#faf9f4" text="#000000" background="">
<center>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">
<tr>
<td> </td>
</tr>
<tr>
<td align="left" valign="top">

<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF00FF">
<tr>
<td height="411" valign="top" bgcolor="#faf9f5">
<form action="data_uploadwit.asp" enctype="multipart/form-data" method="post" name="ulFile" id="ulFile">

<table width="709" border="0" cellspacing="1" cellpadding="3" bgcolor="#FFFF99">
<tr bgcolor="#CCCCCC">
<td colspan="2" class="bold"><div align="center"><font color="#0000FF" size="3"><marquee>ยินดีต้อนรับอาจารย์ <%=rs("strName")%> เข้าสู่การประกาศข่าว</marquee></font><img src="images/Untitled-1 copy.png" width="710" height="140"></div></td>
</tr>
<tr>
<td width="67" bgcolor="#CCCCCC" class="bold">Name :</td>
<td width="627" bgcolor="#faf9f5" class="bold"><input name="strName" type="text" id="strName2" size="50" value="อาจารย์ <%=rs("strName")%>"></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="bold">Department :</td>
<td bgcolor="#faf9f5" class="bold">
<select name="strDepartment" id="select4" >
<option selected><%=rs("strDepartment")%></option></br>
<%
'do while not rsr.eof
%>
< <option value="<%'=rsr("strDepart_ID")%>"><%'=rsr("strDepart_Name")%></option> -->
<%
'rsr.movenext
'loop
%>
</select></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="bold">Date Show : </td>
<td bgcolor="#faf9f5" class="bold"><span class="style1">
<select name="SelectDateBegin" id="Select1">
<option value="<%Response.Write(Day(Date))%>"><%Response.Write(Day(Date))%></option>

</select>
<select name="SelectMonthBegin" id="Select2">
<%
thmonth=array("มกราคม","กุมภาพันธุ์","มีนาคม","เมษายน","พฤษภาคม","มิถุนายน","กรกฎาคม","สิงหาคม","กันยายน","ตุลาคม","พฤศจิกายน","ธันวาคม")
%>
<option value="<% Response.Write(thmonth(month(now())-1))%>"><% Response.Write(thmonth(month(now())-1))%></option>

</select>
</span><span class="style1">
<select name="SelectYearBegin" id="Select3">
<option value="<% Response.Write(Year(Date)+543)%>"><% Response.Write(Year(Date)+543)%></option>

</select>
</span></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="bold">Date End : </td>
<td bgcolor="#faf9f5" class="bold"><span class="style1">
<select name="SelectDateEnd" id="select">
<option value="เลือก วันที่">เลือก วันที่</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<select name="SelectMonthEnd" id="select2">
<option value="เลือก เดือน">เลือก เดือน</option>
<option value="1">มกราคม</option>
<option value="2">กุมภาพันธุ์</option>
<option value="3">มีนาคม</option>
<option value="4">เมษายน</option>
<option value="5">พฤษภาคม</option>
<option value="6">มิถุนายน</option>
<option value="7">กรกฎาคม</option>
<option value="8">สิงหาคม</option>
<option value="9">กันยายน</option>
<option value="10">ตุลาคม</option>
<option value="11">พฤศจิกายน</option>
<option value="12">ธันวาคม</option>
</select>
<select name="SelectYearEnd" id="select3">
<option value="เลือก พ.ศ.">เลือก พ.ศ.</option>
<option value="1">2552</option>
<option value="2">2553</option>
<option value="3">2554</option>
<option value="4">2555</option>
</select>
</span></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="bold">Email :</td>
<td bgcolor="#faf9f5" class="bold"><input name="strEmail" type="text" id="strEmail2" size="50" value="<%=rs("strEmail")%>" ></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="bold">Subject :</td>
<td bgcolor="#faf9f5" class="bold"><input name="strSubject" type="text" id="strSubject2" size="50">
<br>
(หัวข้อที่แสดงบน Webpage )</td>
</tr>
<tr>
<td valign="top" bgcolor="#CCCCCC" class="bold">Type News : </td>
<td bgcolor="#faf9f5" class="bold"><span class="text">
<select name="strType">
<option value="00">--- เลือกประเภทข่าวสาร ---</option>
<option value="01">ข่าวกิจกรรม</option>
<option value="02">ข่าวทั่วไป และอื่นๆ</option>
</select>
</span></td>
</tr>
<tr>
<td valign="top" bgcolor="#CCCCCC" class="bold">Note :</td>
<td bgcolor="#faf9f5" class="bold">
<textarea name="note" cols="50" rows="5" id="textarea"></textarea> </td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="bold">Accept : </td>
<td bgcolor="#faf9f5" class="bold">ต้องการเปิดเผยข้อมูลตรงหน้ามหาวิทยาลัย   
<input name="r1" type="radio" checked value="1">
เปิดเผย
  
<input name="r1" type="radio" value="0">
ไม่เปิดเผย</td>
</tr>
<tr>
<td valign="top" bgcolor="#CCCCCC" class="bold">AcceptOther: </td>
<td bgcolor="#faf9f5" class="bold"><label></label>
<table width="619" border="0" align="center">
<tr>
<td width="103"><span class="style17">
<input type="checkbox" name="checkbox1" value="c1">
<font size="1.8" class="style13">สำนักอธิการบดี</font></span></td>
<td width="185"><span class="style17">
<input type="checkbox" name="checkbox2" value="c2">
<font size="1.8" class="style13">สำนักงานทะเบียน</font></span></td>
<td width="133"><span class="style17">
<input type="checkbox" name="checkbox3" value="c3">
<font size="1.8" class="style13">สำนักกิจการนักศึกษา</font></span></td>
<td width="180"><span class="style17">
<input type="checkbox" name="checkbox5" value="c5">
<font size="1.8" class="style13">สำนักงานฝ่ายวิชาการ </font></span></td>
</tr>
<tr>
<td><span class="style17">
<input type="checkbox" name="checkbox4" value="c4">
<font size="1.8" class="style15">สำนักงานวิจัย</font></span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox6" value="c6">
<font size="1.8" class="style13">คณะวิศวกรรมศาสตร</font> </span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox13" value="c13">
<font size="1.8" class="style13">สำนักประกันคุณภาพ</font></span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox7" value="c7">
<font size="1.8" class="style13">คณะบริหารธุรกิจ </font></span></td>
</tr>
<tr>
<td><span class="style17">
<input type="checkbox" name="checkbox8" value="c8">
<font size="1.8" class="style15">คณะบัญชี </font> </span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox9" value="c9">
<span class="style13">คณะวิทยาศาสตร์และเทคโนโลยี</span></span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox10" value="c10">
<font size="1.8" class="style13">การเงิน</font></span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox11" value="c11">
<font size="1.8" class="style13">กองทุนเงินกู้ยืมเพื่อการศึกษา </font></span></td>
</tr>
<tr>
<td><span class="style17">
<input type="checkbox" name="checkbox14" value="c14">
<font size="1.8" class="style15">บัณฑิตวิทยาลัย</font></span></td>
<td><span class="style17">
<input type="checkbox" name="checkbox12" value="c12">
<font size="1.8" class="style13">ศุนย์ปฏิบัติการคอมพิวเตอร</font></span></td>
<td> </td>
<td> </td>
</tr>
</table>
<label><br>
<%
'do while not rsr.eof
%>
<option value="<%'=rsr("strDepart_ID")%>"><%'=rsr("strDepart_Name")%></option>
<%
'rsr.movenext
'loop
%>
</label></td>
</tr>
<tr>
<td colspan="2" bgcolor="#CCCCCC" class="bold">file Upload</td>
</tr>
<tr>
<td background="" bgcolor="#F2F2EA" class="text"></td>
<td bgcolor="#F2F2EA" background="" class="text"></td>
</tr>
<tr>

<td valign="top" bgcolor="#CCCCCC" class="bold"> </td>
<td bgcolor="#faf9f5" background="" class="text"> Enter Forder name: <br >
<select name="Ffolder">
<option value="Article" selected>Article</option>
<option value="Docment_OT">Docment Others</option>
<option value="Docment_AT">Docment Activity</option>
<option value="Image">Image</option>
</select>
<br>
<br>
Select the file(s) to upload: <br >
<input type="file" name="file1" size="30">
<br >
<br>
<input name="Button" type="Button" value="Upload File" onClick="Check_Data()">
<span class="Ctxt">
<input name="Button2" type="Button" onClick = "checkText()" value="Edit">
</span>
<input type="reset" name="Reset" value=" Cancle ">
<input type="Button" name="GoBack" value=" Go to Home " onClick="Goto_Onclick()"></td>
</tr>
</table>
</form>
<form name="frmNew" action="frmEdit.asp" method="Post">

</form>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<div align=center>
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<br><span class=""text"" style=""font-size:10px""><strong>หมายเหตุ</strong> File ที่จะทำการ Upload ขึ้น Web Site ควรมีขนาดไม่เกิน 200 KB</span><br>")
Response.Write("<span class=""text"" style=""font-size:10px"">Powered by <a href=""http://www.tct.ac.th"" target=""_blank"" style=""font-size:10px"">Computer Center</a></span>")
Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright ©2009 <a href=""http://www.tct.ac.th"" target=""_blank"" style=""font-size:10px"">Thonburi University</a></span>")

'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write vbCrLf & " <br /><br />"
%>
</div>
</body>
<%
'end if
%>
</html>
<script language="VBScript" type="text/VBScript">
sub Check_Data()
dim msgdata
if ulFile.strName.value = "" then
msgdata = MsgBox ("กรุณากรอกชื่อผู้ประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.SelectDateBegin.value="เลือก วันที่" then
msgdata = MsgBox ("กรุณาเลือกวันที่ ที่จะประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.SelectMonthBegin.value="เลือก เดือน" then
msgdata = MsgBox ("กรุณาเลือกเดือนที่จะประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.SelectYearBegin.value="เลือก พ.ศ." then
msgdata = MsgBox ("กรุณาเลือก พ.ศ.ที่จะประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.SelectDateEnd.value="เลือก วันที่" then
msgdata = MsgBox ("กรุณาเลือก วันที่ ที่สื้นสุดการประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.SelectMonthEnd.value="เลือก เดือน" then
msgdata = MsgBox ("กรุณาเลือก เดือน ที่สิ้นสุดการประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.SelectYearEnd.value="เลือก พ.ศ." then
msgdata = MsgBox ("กรุณาเลือก พ.ศ.ที่สิ้นสุดการประกาศข่าวสารด้วย",64,"Error Data")
elseif ulFile.strEmail.value= "" then
msgdata = MsgBox ("กรุณากรอก Email ที่ใช้ในการติดต่อกลับด้วย",64,"Error Data")
elseif ulFile.strSubject.value = "" then
msgdata = MsgBox ("กรุณากรอกหัวข้อที่จะประกาศข่าว",64,"Error Data")
elseif ulFile.strType.value = "00" then
msgdata = MsgBox ("กรุณาเลือกประเภทข่าวที่จะลงด้วย",64,"Error Data")
elseif ulFile.file1.value = "" then
msgdata = MsgBox ("กรุณาแนบ File.PDF ขนาดไม่เกิน 200 KB เพื่อใช้ในการ Link ข่าวสารด้วย หากขนาดของ File เกิน 200 KB กรุณาติดต่อผู้ดูแลระบบ 028-090-823 ต่อ 23 หรือส่ง Mail มาที่ [email protected]",64,"Error Data")
else
ulFile.submit
end if
end sub

sub Goto_Onclick()
location.href = "Login.asp"
end sub

sub CheckText()
frmnew.submit
end sub
</script>
---------------------------------
file datauploadwit.asp
----------------
<%@ LANGUAGE = "VBScript" %>
<%
%>

<%
'response.Write(conn)
''response.End()

Server.ScriptTimeout = 5400
Dim postedData, binData, counter, contentType, errorMsg
Dim boundary, formData, uploadRequest
Dim fso, browserType, startPos, endPos
Dim filePath, fileName, savePath, savefile, fileCount
Dim requestFiles(9, 1) ' Allow for ten files
Dim strFileUploadPath
Dim Num
Dim strResNewCode

Dim strCon
Dim rsCommon
Dim strSQL
dim RS

binData = Request.BinaryRead(Request.TotalBytes)
For counter = 1 To LenB(binData)
postedData = postedData & Chr(AscB(MidB(binData, counter, 1)))
Next

contentType = Request.ServerVariables("HTTP_CONTENT_TYPE")

If InStr(contentType, "multipart/form-data") > 0 Then

endPos = InStrRev(contentType, "=")
boundary = Trim(Right(contentType, Len(contentType) - endPos))

formData = Split(postedData, boundary)

Set uploadRequest = CreateObject("Scripting.Dictionary")
parseFormData
Else
errorMsg = "Incorrect encoding type"
End If

Set fso = server.createObject("Scripting.FileSystemObject")
browserType = UCase(Request.ServerVariables("HTTP_USER_AGENT"))

strFileUploadPath = uploadRequest.Item("Ffolder")

Response.Write vbCrLf & "<HTML><HEAD>"
Response.Write vbCrLf & "<TITLE>www.thonburi-u.ac.th Upload File </TITLE>"
Response.Write vbCrLf & "<meta name=""copyright"" content=""Copyright (C) 2002-2005 Supap Wanawan"" />"
Response.Write vbCrLf & ""
Response.Write vbCrLf & ""
Response.Write vbCrLf & ""
Response.Write vbCrLf & "<META http-equiv=""Content-Type"" content=""text/html; charset=windows-874"">"
Response.Write vbCrLf & "<META http-equiv=""Content-Type"" content=""text/html; charset=tis-620"">"
Response.Write vbCrLf & "<META http-equiv=""Content-Language"" content=""th"">"
Response.Write vbCrLf & "<META http-equiv=""Content-Language"" content=""en"">"
%>

<link href="default_style.css" rel="stylesheet" type="text/css" />
<title></title></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#faf9f4" text="#000000" background="">
<table width="98%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td class="heading" valign="top" align="center">
ASPThai.Net <br />Upload With Out Component & Add in Database
</td>
</tr>
</table>
</td>
</tr>
</table>
<center>
<br />
<table width="40%" border="0" cellspacing="0" cellpadding="1" bgcolor="#006699" align="center">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="1" cellpadding="3" height="14" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#CCCCCC" width="100%" class="bold">Form Upload</td>
</tr>
<tr><td bgcolor="#F2F2EA" background="" class="text"></td></tr>
<tr>
<td bgcolor="#faf9f5" background="" width="100%" height="41" class="text">

<%
Response.Write "<p>Your Folder Name: "

Response.Write strFileUploadPath & "</p>" & vbCrLf
Response.Write "<p><b>Uploading File(s)</b>: <br />" & vbCrLf

For counter = 0 To FileCount - 1

If (InStr(browserType, "WIN") > 0) Then
startPos = InStrRev(requestFiles(counter, 1), "\")
fileName = Mid(requestFiles(counter, 1), startPos + 1)
ElseIf (InStr(browserType, "MAC") > 0) Then
fileName = requestFiles(counter, 1)
Else
startPos = InStrRev(requestFiles(counter, 1), "/")
fileName = Mid(requestFiles(counter, 1), startPos + 1)
End If
Response.Write fileName & "<br />" & vbCrLf

' ทำการตรวจสอบว่ามีโฟลเดอร์ที่จะอัพโหลดหรือไม่ ถ้าไม่มีให้สร้างทันที
If fso.FolderExists(Server.MapPath(strFileUploadPath)) = False Then

fso.CreateFolder(Server.MapPath(strFileUploadPath))

End If
'สุคค่าตัวเลขเพื่อเปลี่ยนชื่อไฟล์ในกรณีที่อัพโหลดชื่อไฟล์ไปซ้ำกัน
Randomize
Num = Int(654892011602*Rnd+44923568)
strResNewCode="TCT"+CStr(Num)+"422"

filePath = strFileUploadPath &"/" & fileName
' ทำการค้นหาในโฟลเดอร์ที่จะอัพโหลดว่ามีชื่อไฟล์ที่ซ้ำกับไฟล์ที่ส่งเข้ามาใหม่หรือไม่ ถ้ามีให้เปลี่ยนชื่อไฟล์ที่ส่งมาใหม่
If fso.FileExists(Server.MapPath( filePath)) = True Then
fileName = strResNewCode & "_" & fileName
End If

filePath = strFileUploadPath &"/" & fileName

'เริ่มทำการเซฟข้อมูลด้วหลักการ อ่านข้อมูลและสร้างขึ้นใหม่
savePath = Server.MapPath(filePath)
Set saveFile = fso.CreateTextFile(savePath, True)

'.............................................................................
'เธชเนเธงเธเธเธตเนเธขเธฑเธเธกเธตเธเธฑเธเธซเธฒเธเธฑเธ Object

response.write(saveFile)
response.write(savePath)
' response.end
'.............................................................................

saveFile.Write(requestFiles(counter, 0))
saveFile.Close

'----เน?เธฃเธดเนเธกเธ?เนเธ upload เนเธเน?เธเนเธเธ?เธตเนเธเธฒเธเธเนเธญเธกเธนเธฅ เธเนเธญเธกเธนเธฅเธ?เธตเนเนเธกเนเนเธเน file
thmonth=array("มกราคม","กุมภาพันธ์","มีนาคม","เมษายน","พฤษภาคม","มิถุนายน","กรกฎาคม","สิงหาคม","กันยายน","ตุลาคม","พฤษจิกายน","ธันวาคม")
Topic = uploadRequest.Item("strSubject")',"<","<",">",">"
Open1=uploadRequest.Item("r1")
strType = uploadRequest.Item("strType")',"<","<",">",">"
Name= uploadRequest.Item("strName")',"<","<"),">",">")
Note= uploadRequest.Item("note")',"<","<"),">",">"),chr(13),"<br>")
strDepart = uploadRequest.Item("strDepartment")
Date_=day(now())&" "&thmonth(month(now())-1)&" "&right(year(now())+543,2)&" , "&timevalue(now())
Email=uploadRequest.Item("strEmail")',"<","<"),">",">")
IP = Request.ServerVariables("REMOTE_ADDR")
Picture = uploadRequest.Item("file1")

SNVIEW = 0
SNANSWER = 0
Session("strDepart") = uploadRequest.Item("strDepartment")
Session("strFilePath") = strFileUploadPath

dim DateEnd,MonthEnd,YearEnd,TotalDate
DateEnd=request.Form("DateEnd")
MonthEnd=request.Form("SelectMonthEnd")
YearEnd=request.Form("SelectYearEnd")
TotalDate=DateEnd & "/" & MonthEnd & "/" & YearEnd

response.write(Email)
response.End()
'AutoRunning id เนเธ Database
'dim strSQL
dim strSelect
strSelect ="select id from tb_NewActivity order by id Desc " ' เธ?เธณเธเธฒเธฃ select Id
set RS=Conn.execute(strSelect)
if not RS.Eof =true then
id=RS("ID")
else
id=0
end if
dim c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13,c14
c1=request.Form("checkbox1")
if c1="" then 'สำนักอธิการบดี
c1=0
else
c1=1
end if
c2=request.Form("checkbox2")
if c2="" then 'สำนักงานทะเบียน
c2=0
else
c2=1
end if
c3=request.Form("checkbox3")
if c3="" then 'สำนักกิจการนักศึกษา
c3=0
else
c3=1
end if
c4=request.Form("checkbox4")
if c4="" then 'สำนักงานวิจัย
c4=0
else
c4=1
end if
c5=request.Form("checkbox5")
if c5="" then 'สำนักงานฝ่ายวิชาการ
c5=0
else
c5=1
end if
c6=request.Form("checkbox6")
if c6="" then 'คณะวิศวกรรมศาสตร์
c6=0
else
c6=1
end if
c7=request.Form("checkbox7")
if c7="" then 'คณะบริหารธุรกิจ
c7=0
else
c7=1
end if
c8=request.Form("checkbox8")
if c8="" then 'คณะบัญชี
c8=0
else
c8=1
end if
c9=request.Form("checkbox9")
if c9="" then 'คณะวิทยาศาสตร์และเทคโนโลยี
c9=0
else
c9=1
end if
c10=request.Form("checkbox10")
if c10="" then 'การเงิน
c10=0
else
c10=1
end if
c11=request.Form("checkbox11")
if c11="" then 'กองทุนเงินกู้ยืมเพื่อการศึกษา
c11=0
else
c11=1
end if
c12=request.Form("checkbox12")
if c12="" then 'ศูนย์ปฏิบัติการคอมพิวเตอร์
c12=0
else
c12=1
end if
c13=request.Form("checkbox13")
if c13="" then 'สำนักประกันคุณภาพ
c13=0
else
c13=1
end if
c14=request.Form("checkbox14")
if c14="" then 'บํณฑิตวิทยาลัย
c14=0
else
c14=1
end if
strCh_depart = "INSERT INTO tb_CheckNews (C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,NewsID) VALUES ('" & c1 & "', '" & c2 & "', '" & c3 & "', '" & c4 & "', '" & c5 & "', '" & c6 & "', '" & c7 &"', '" & c8 & "', '" & c9 & "', '" & c10 & "', '" & c11 & "', '" & c12 & "', '" & c13 & "', '" & c14 & "', & id+1 & "')"
set RS = Conn.Execute (strCh_depart)
Rs.Close
'----เน?เธฃเธดเนเธกเธ?เนเธ upload เนเธเน?เธเนเธเธ?เธตเนเธเธฒเธเธเนเธญเธกเธนเธฅ

strSQL = "insert into tb_NewActivity (ID,strUserID, TOPIC, strType, DATE, NOTE,DateEnd,EMAIL, NVIEW, IP, NANSWER, strDepart_ID, FName, FPath, Open1) values( "
strSQL = strSQL &(id+1)&",'"&strUserID&"', '"&Topic&"','"&strType&"', '"&Date_&"','" & DateEnd & "','"&strDepart&"','"&Note&"', '"&Email&"',"
strSQL = strSQL &SNVIEW&", '"&IP&"',"&SNANSWER&",'"&fileName&"','"&strFileUploadPath&"','"&open1&"')"
Response.Write(strSQL&"<br>")
response.Write("AAAAAAAAAAAAAAAAAAAAAA")
Response.End
set RS = Conn.Execute (strSQL)
session("strDepart") = strDepart
'--------------เน?เธเนเธเธเธทเนเธญเธเธญเธเธ เธฒเธ
'-------------เน?เธเนเธเธเธทเนเธญเนเธเธฅเน?เธ?เธญเธฃเน
'----- เธเธเธเธฒเธฃ upload เนเธเน?เธเนเธเธ?เธตเนเธเธฒเธเธเนเธญเธกเธนเธฅ

Next
RS.Close
Set saveFile = Nothing
Set fso = Nothing
Set uploadRequest = Nothing

If errorMsg = "" Then
Response.Write "<br />File Upload completed successfully.</p>"
Response.Write "<br /><a href=""view_data_upload.asp"">View Database List</a></p>"
Else
Response.Write "<br />An error occured - " & errorMsg & "</p>"
End If
%>

</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>

<div align=center>
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

Response.Write("<span class=""text"" style=""font-size:10px"">Powered by <a href=""http://www.aspthai.net/"" target=""_blank"" style=""font-size:10px"">ASPThai.Net Example Database ASP Upload With Out Component</a></span>")
Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright ©2002-2005 <a href=""http://www.aspthai.net/"" target=""_blank"" style=""font-size:10px"">ASPThai.Net</a></span>")

'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write vbCrLf & " <br /><br />"
%>
</div>
</body>
</html>
<%

Private Sub parseFormData()
Dim counter, endMarker, fieldInfo, fieldValue
For counter = 0 To UBound(formData)
endMarker = InStr(formData(counter), vbCrLf & vbCrLf)
If endMarker > 0 Then

fieldInfo = Mid(formData(counter), 3, endMarker - 3)

fieldValue = Mid(formData(counter), endMarker + 4, _
Len(formData(counter)) - endMarker - 7)

If (InStr(fieldInfo, "filename=") > 0) Then

requestFiles(fileCount, 0) = fieldValue
requestFiles(fileCount, 1) = getFileName(fieldInfo)

If requestFiles(fileCount, 1) <> "" Then
fileCount = fileCount + 1
End If
Else

uploadRequest.add getFieldName(fieldInfo), fieldValue
End If
End If
Next
End Sub

Private Function getFieldName(ByVal strFileName)
Dim startPos, endPos, strQuote
strQuote = Chr(34)
startPos = InStr(strFileName, "name=")
endPos = InStr(startPos + 6, strFileName, strQuote & ";")
If endPos = 0 Then
endPos = inStr(startPos + 6, strFileName, strQuote)
End If
getFieldName = Mid(strFileName, startPos + 6, endPos - (startPos + 6))
End Function
Private Function getFileName(ByVal strFileName)
Dim startPos, endPos, strQuote
strQuote = Chr(34)
startPos = InStr(strFileName, "filename=")
EndPos = InStr(strFileName, strQuote & vbCrLf)
getFileName = Mid(strFileName, startPos + 10, endPos - (startPos + 10))
End Function
response.Write("ViewAll_Activity.asp")
%>
--------------------------------
ชื่อฐานข้อมูล DB_UMNS
ชื่อ Table tb_NewActivity

Date : 2009-05-08 16:07:25

By : wit

No. 3

tum

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

ปรึ๋ย ตาลาย ยาวจัง

Date : 2009-05-11 16:10:11

By : tumkung007

No. 4

DevilZ

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

อยากทำระบบ ล็อคอินใน ASP & MS Access นะครับ ผู้รู้ ช่วยแนะนำด้วยครับ

Date : 2009-06-03 19:32:32

By : piyawattop

No. 5

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

อยากทราบว่า ตรงนี้ผมจะทำการ บันทึกลง database ยังไงครับ เมื่อเราคลิกที่มัน
คือผมจะทำการเก็บว่ามีคนคลิกไปกี่ครั้งนะครับ

QryAuth_report.filter = "type_description = '" & QryType("type_description") & "' "
for i = 1 To QryAuth_report.RecordCount %>
<tr>
<td width="45%">
<font name="Tahoma" size="2px">
<a href="/WISNET<%=QryAuth_report("report_path")%>" target="_blank"><%=QryAuth_report("report_name")%></a>
<%if QryAuth_report("report_updatedate") <> "" Then
if QryAuth_report("news") = 1 Then%>
<img src="images/update.gif">
<%End if
End if%>
</font></td>
<td width="35%"><font name="Tahoma" size="1px"><%=QryAuth_report("Department_Name_auth")%></font></td>
<td>
<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%=QryAuth_report("new_report_asof_date")%>
</font>
</div>
</td>
<td width="5%"><font name="Tahoma" size="1px"><%=QryAuth_report("Report_Counter")%></font></td>
</tr>

<%
QryAuth_report.MoveNext

Next
QryType.MoveNext
Loop%>

Date : 2009-06-09 15:07:12

By : juka

No. 6

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

ลืมบอกครับ ผมใช้ .net 2003 ครับ

Date : 2009-06-09 15:13:20

By : juka

No. 7

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

โอ๊ะขอโทษครับ ลืมๆจริง มันปวดหัวมึนๆครับ ผมใช้ ASP 1.0 ครับ
ขอบคุณครับ

Date : 2009-06-09 15:15:45

By : juka

No. 8

mr.v

โพสกระทู้ ( 4,720 )
บทความ ( 8 )

asp1.0 หรือ 3.0?
คุณก็ทำ query ต่อออกไปสิครับ &view=1 ต่อท้าย <a href>

แล้วในอีกหน้าคุณก็ทำการบันทึกว่า view = 1 เป็นจริง และ ip นี้ได้ถูกบันทึกไม่เกิน 1 วัน ให้นับเพิ่มอีก 1

Date : 2009-06-09 15:54:39

By : mr.v

No. 9

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

ผมใช้ asp 1.0 ครับ ขอบคุณครับ คือผมอยากรบกวนคุณ vee อีกหน่อยอ่ะครับ คือผมอยากได้ ตัวอย่างหน่อยอ่ะครับ
ผมไม่ค่อยเก่ง แต่โปรเจคนี่ คือผมได้รับมาอีกทีเลยไม่ค่อยจะรู้เรื่องอ่พครับ

Date : 2009-06-09 16:07:08

By : juka

No. 10

mr.v

โพสกระทู้ ( 4,720 )
บทความ ( 8 )

<a href="/WISNET<%=QryAuth_report("report_path")%>" target="_blank"><%=QryAuth_report("report_name")%></a>

จากบรรทัดบน ไม่ทราบว่าค่าของ <%=QryAuth_report("report_path")%> คืออะไร ถ้ามันเป็นหน้าอย่างเช่น page.asp ก็ต่อด้วย ? ได้เลย ถ้าค่ามันเป็น ? อยู่แล้วให้ต่อด้วย &

ตย1.
<a href="/WISNET<%=QryAuth_report("report_path")%>?view=1" target="_blank"><%=QryAuth_report("report_name")%></a>

ตย.2
<a href="/WISNET<%=QryAuth_report("report_path")%>&view=2" target="_blank"><%=QryAuth_report("report_name")%></a>

สร้างตารางบันทึก track_page
มี track_id | track_page | view_count

สร้างตาราง track_page_ip
มี page_ip_id | track_id | track_ip | track_time

ผมจำไม่ได้แล้วว่า asp 1 เขียนยังไง ไม่เคยเรียน มาถึงก็ใช้ 3.0 เลย แต่เอาหลักการละกัน
รับค่า view มาก่อนว่า request.querystring("view") = 1 จริงถึงงจะไปต่อ
แล้วก็รับค่า ip มาเช็คใน db ว่า ip นี้ page นี้ มีคนดูแล้วรึยัง
ถ้ายังไม่มีใครเปิดเลย ก็ addnew แล้ว view_count ก็นับ 1
ถ้ามีคนดูแล้ว ก็ไปเช็คใน track_page_ip ว่า ip นี้ดูไปนานถึงวันรึยังโดยนับจาก track_time
ก็ประมาณนี้ ผมว่าไม่ยากนะครับง่ายนิดเดียว

ให้ง่ายกว่านี้ไปเอาพวกฟรีสคริปต์มาใช้ก็ได้ครับ ได้รายละเอียดเยอะดีด้วย อย่างขนาดจอ บราวเซอร์ ฯลฯ

Date : 2009-06-09 17:55:42

By : mr.v

No. 11

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

ขอบคุณมากครับ

Date : 2009-06-10 08:02:08

By : juka

No. 12

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

<%=QryAuth_report("report_path")%>
คือตรงนี้มันไปเรียก path ในเครื่องอ่ะครับ
และมันจะรันขึ้นมา ให้ดาวน์โหลด ส่วนใหญ่จะเป็น ไฟล์ Excel, Arcobat,ฯลฯ อ่ะครับ
ไม่ใช่หน้าเพจ

Date : 2009-06-10 13:09:29

By : juka

No. 13

Guest

พอดีทำเว็บเกี่ยวกับข้อมูลทางสารเคมี ด้านวิทยาศาสตร์นะคะ

ใช้ฐานข้อมูล access กับDreamweaver พวกข้อมูลมีสัญลักษณ์ทางวิทยาศาสตร์น่ะคะ

พวก ? ? (แอลฟ่าเบต้าอะไรพวกนั้นงะคะ)ในฐานก็แสดงข้อมูลถูกต้องตามสัญลักษณ์

แต่เวลาแสดงผลบนเว็บ ข้อมูลดังกล่าว กลายเป็นเครื่องหมาย? ซะงั้นน่ะคะ

จะแก้ไขอย่างไรดีคะ ทดลองเปลี่ยนfont หลายรูปแบบแล้วแต่ไม่สำเร็จ

ขอคำแนะนำด้วยค่ะ ขอบคุณ

[email protected]

Date : 2009-07-03 09:52:54

By : minnie

No. 14

mr.v

โพสกระทู้ ( 4,720 )
บทความ ( 8 )

อักขระพิเศษกับ access ไม่น่ามีปัญหานะ ต้องดูว่าตอนเก็บข้อมูลในหน้านั้นใช้ encoding อะไรน่ะครับ อย่างเช่นใช้ windows-874 ก็ใช้แบบนี้ทั้งหมด ทั้งตอนที่ดึงออกมาด้วย

แต่ผมลองเล่น php+mysql แล้วชอบมากเลย อักขระแปลกๆหรือทุกภาษาทั่วโลกยัดเข้าไปได้หมดเลย ส่งออก แสดงผลก็ถูกต้องหมดเลย ดีจริงๆ

Date : 2009-07-05 00:30:44

By : mr.v

No. 15

Guest

ขอบคุณมากเลยนะคะคุณ vee แก้ไขได้แล้วคะ แก้ไข encoding จาก Thai-windows เป็น Unicode(utf-8)

minnie

Date : 2009-07-27 11:20:40

By : minnie

ค้นหาข้อมูล

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

Re : กระทู้ ASP ถาม-ตอบได้ในหมวดนี้เลยครับ ถามตอบกันได้ตามสบาย

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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