|
|
|
|
 |
|
김광수 / 2001-03-09 / 오후 11:36:42 / 168.115.32.56
조회수 : 139
|
| [질문] 채널님아!! 다시 한번 알려주세요..6 |
<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer=True
Server.ScriptTimeout=1200
Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form")
P_ID=UploadForm("P_ID")
P_Name=Trim(UploadForm("F_Name"))
P_Email=Trim(UploadForm("F_Email"))
P_Url=Trim(UploadForm("F_Url"))
P_Subject=Replace(Trim(UploadForm("F_Subject")), "'", "''")
P_Contents=Replace(UploadForm("F_Contents"), "'", "''")
P_Password=Trim(UploadForm("F_Password"))
P_FileName=UploadForm("F_FileName")
P_FileName=Trim(P_FileName)
V_Year=Year(date)
V_Month=Month(date)
if V_Month<10 then
V_Month=0&V_Month
end if
V_Day=Day(date)
if V_Day<10 then
V_Day=0&V_Day
end if
V_Date=V_Year&"-"&V_Month&"-"&V_Day
V_Time=Time()
V_Reference=0
V_Error=1
V_ErrorString=""
if P_Name="" then
V_Error=0
V_ErrorString="이름을 입력하세요.<br>"
end if
if P_Subject="" then
V_Error=0
V_ErrorString=V_ErrorString+"제목을 입력하세요.<br>"
end if
if P_Contents="" then
V_Error=0
V_ErrorString=V_ErrorString+"내용을 입력하세요.<br>"
end if
if P_FileName="" then
' V_Error=0
' V_ErrorString=V_ErrorString+"첨부파일을 입력하세요.<br>"
else
P_FileSize=UploadForm("F_FileName").Size
end if
이쪽부분 어디서 고쳐야할지 모르겠어요..
그리고 DB에 관한 말씀도 좀 해주세요..
|
|
|
|