Printable View
سلام
من یک صفحه asp جهت ورود اطلاعات در پایگاه داده Access دارم .
این فرم ورود ، یک رکورد وارد می کند یکی نمی کند هیچ Error هم نمی دهد .
من از counter تعداد رکورد ها می فهمم که رکورد جدید وارد نشده است
خلاصه خیلی عجیب است . :shock:
فرم که درست کار می کند وگرنه نباید هیچ اطلاعاتی وارد شود .اما رکوردها چندتا در میان وارد
می شوند.
لطفا راهنمایی کنید .
سلام
اینکه می گویی خیلی عجیب است
اگر می توانی متن کد را اینجا بیاور
با سلام
من کد برنامه را با wisardهای Dreamweaver نوشته ام
البته در اتصال به پایگاه داه Sql Server چنین مشکلی ندارم .
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/entekhab7.asp" -->
<!--#include file="../ScriptLibrary/incPureUpload.asp" -->
<%if Request.Cookies ("howmany")("name")="" then
Response.Redirect "news_pass.asp"
else
p_name=Request.Cookies("howmany")("nam e")
p_pass=Request.Cookies ("howmany")("pass")
end if
i=0 %>
<%
'*** Pure ASP File Upload -----------------------------------------------------
' Copyright (c) 2001-2002 George Petrov, www.UDzone.com
' Process the upload
' Version: 2.0.9
'------------------------------------------------------------------------------
'*** File Upload to: """../asp/picnews""", Extensions: "", Form: form1, Redirect: "", "file", "", "over", "true", "", "" , "", "", "", "", "600", "", "", ""
Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction, UploadRequest
PureUploadSetup
If (CStr(Request.QueryString("GP_upload"& #41;) <> "") Then
on error resume next
Dim reqPureUploadVersion, foundPureUploadVersion
reqPureUploadVersion = 2.09
foundPureUploadVersion = getPureUploadVersion()
if err or reqPureUploadVersion > foundPureUploadVersion then
Response.Write "<b>You don't have latest version of ScriptLibrary/incPureUpload.asp uploaded on the server.</b><br>"
Response.Write "This library is required for the current page. It is fully backwards compatible so old pages will work as well.<br>"
Response.End
end if
on error goto 0
GP_redirectPage = ""
Server.ScriptTimeout = 600
RequestBin = Request.BinaryRead(Request.TotalBytes)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin, """../asp/picnews""", "file", "", "over"
If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert" 1;) <> "" or CStr(UploadFormRequest("MM_update") 1; <> "")) Then
If (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
GP_redirectPage = GP_redirectPage & "?" & UploadQueryString
End If
Response.Redirect(GP_redirectPage)
end if
else
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if
end if
' End Pure Upload
'------------------------------------------------------------------------------
%>
<%
' *** Edit Operations: (Modified for File Upload) declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME" ))
If (UploadQueryString <> "") Then
MM_editAction = MM_editAction & "?" & UploadQueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: (Modified for File Upload) set variables
If (CStr(UploadFormRequest("MM_insert" 1;) = "form1") Then
MM_editConnection = MM_entekhab7_STRING
MM_editTable = "news_tbl"
MM_editRedirectUrl = ""
MM_fieldsStr = "id|value|title|value|short_news|value|news|value| opt_id|value|opt_pwd|value|news_datey|value|news_d atem|value|news_dated|value|timeline_y|value|timel ine_m|value|timeline_d|value|time_e|value|source|v alue|img_src|value|show|value|time_flag|value|tasv ib|value|arshiv|value"
MM_columnsStr = "id|none,none,NULL|title|',none,''|short_news|',no ne,''|news|',none,''|opt_id|',none,''|opt_pwd|',no ne,''|news_datey|none,none,NULL|news_datem|none,no ne,NULL|news_dated|none,none,NULL|timeline_y|none, none,NULL|timeline_m|none,none,NULL|timeline_d|non e,none,NULL|time_e|',none,''|source|',none,''|img_ src|',none,''|show|none,1,0|time_flag|none,1,0|tas vib|none,none,Null|arshiv|none,none,Null"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i& #41;))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If
End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(UploadFormRequest("MM_insert" 1;) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_entekhab7_STRING
Recordset1.Source = "SELECT * FROM news_tbl"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
'********************::CLASS DEFINITION::*************
CLASS farsi_date_time
Private Month_Name, Spring_Fall
Private Time_Difference, Time_Client
Private Base_Year
Public dyear,dmonth,dday
Private Sub Get_Date(ByVal Days, Sal, Mah, Rooz)
Dim Years, Year_Length
Do While Days >= 0
If Kabiseh(Years) Then
Year_Length = 366
Else
Year_Length = 365
End If
If Days - Year_Length >= 0 Then
Years = Years + 1
Days = Days - Year_Length
Else
Sal = Base_Year + Years
If Days <= 185 Then
Mah = 1 + (Days \ 31)
Rooz = 1 + (Days Mod 31)
Else
Days = Days - 186
Mah = 7 + (Days \ 30)
Rooz = 1 + (Days Mod 30)
End If
Exit Sub
End If
Loop
End Sub
Private Function Kabiseh(ByVal Years)
Dim Temp
Kabiseh = False
Temp = (Base_Year + Years) - 1309
If (((Temp Mod 32) - (Temp \ 32)) Mod 4) = 0 Then Kabiseh = True
End Function
Public Property Let SFhour(x)
Spring_Fall = x
End Property
Public Property Let Time_Diff(ByVal t)
Time_Difference = t
End Property
Public Property Let state(ByVal s)
Month_Name = s
End Property
Public Function To_Hejri(ByVal what_date)
Dim Days, Day_Name, Day_Number, Temp_Days, Months
Months = Array("فروردین","اردیبهشت","خ داد","تیر","مرداد","شهریور","م ر","آبان","آذر","دی","بهمن","اسف ند")
Day_Name = Array( "یکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنج شنبه", "جمعه","شنبه")
Days = DateDiff("d", #3/21/1953#, what_date)
Day_Number = Weekday(what_date)
Dim Year_Length, Sal, Mah, Rooz, temp_date
If FormatDateTime(what_date + Time_Difference, vbShortDate) <> FormatDateTime(what_date, vbShortDate) Then
Days = Days + 1
Day_Number = (Day_Number + 1)
if Day_Number =8 then Day_Number =1
End If
Time_Client = FormatDateTime(what_date + Time_Difference, vbLongTime)
Call Get_Date(Days, Sal, Mah, Rooz)
If ((Mah >= 1 And Mah <= 6) And Not ((Mah = 1 And Rooz = 1) OR (Mah = 6 And Rooz = 31) ) ) And Spring_Fall = True Then
If FormatDateTime(what_date + Time_Difference + #1:00:00#, vbShortDate) <> FormatDateTime(what_date + Time_Difference, vbShortDate) Then
Temp_Days = Days + 1
Day_Number = (Day_Number + 1)
if Day_Number =8 then Day_Number =1
Else
Temp_Days = Days
End If
Time_Client = FormatDateTime(what_date + Time_Difference + #1:00:00#, vbLongTime)
If Temp_Days <> Days Then
Days = Temp_Days
If Rooz = 30 And Mah = 6 Then
If DateDiff("n", Time_Client, #1:00:00#) <= 60 And DateDiff("n", Time_Client, #1:00:00#) >= 0 Then
Time_Client = FormatDateTime(what_date + Time_Difference, vbLongTime)
Days = Days - 1
If Day_Number = 1 Then
Day_Number = 7
Else
Day_Number = Day_Number - 1
End If
End If
End If
Call Get_Date(Days, Sal, Mah, Rooz)
End If
End If
If Month_Name = 0 Then
If Rooz < 10 Then Rooz = "0" & Rooz
If Mah < 10 Then Mah = "0" & Mah
To_Hejri = Rooz & "/" & Mah & "/" & Sal
ElseIf Month_Name = 1 Then
To_Hejri = Rooz & " " & Months(Mah - 1) & " " & Sal
ElseIf Month_Name = 2 Then
To_Hejri = Day_Name(day_number-1) & " " & Rooz & "/" & Mah & "/" & Sal
ElseIf Month_Name = 3 Then
To_Hejri = Day_Name(day_number-1) & " " & Rooz & " " & Months(Mah - 1) & " " & Sal
End If
dyear=sal
dmonth=mah
dday=rooz
End Function
Public Function To_Time(what_date)
Call To_Hejri(what_date)
To_Time = Time_Client
End Function
Private Sub Class_Initialize()
Spring_Fall = False
Month_Name = 0
Time_Difference = #12:00:00#
Base_Year = 1332
End Sub
END CLASS
'********************::END OF CLASS DEFINITION::*************
%>
<html>
<head>
<STYLE>.posts {
FONT-SIZE: 70%; COLOR: black; LINE-HEIGHT: 170%; FONT-FAMILY: tahoma, times new roman, sans-serif
}
INPUT.clsbtn1 {
FONT-WEIGHT: bolder; FONT-SIZE: 15px; BACKGROUND: lightsteelblue; WIDTH: 90%; FONT-FAMILY: arial
}
INPUT.clsbtn2 {
FONT-WEIGHT: bolder; FONT-SIZE: 14px; BACKGROUND: lightsteelblue; WIDTH: 100%; FONT-FAMILY: arial
}
TEXTAREA.clsbtn3 {
FONT-WEIGHT: bolder; FONT-SIZE: 15px; BACKGROUND: lightsteelblue; WIDTH: 98%; FONT-FAMILY: arial; HEIGHT: 98%
}
</STYLE>
<SCRIPT src="xmail_files/f_type.js">
function checkFileUpload(form,extensions,requireUpload, sizeLimit,minWidth,minHeight,maxWidth,maxHeight,sa veWidth,saveHeight) { //v2.09
document.MM_returnValue = true;
for (var i = 0; i<form.elements.length; i++) {
field = form.elements[i];
if (field.type.toUpperCase() != 'FILE') continue;
checkOneFileUpload(field,extensions,requireUpl oad,sizeLimit,minWidth,minHeight,maxWidth,maxHeigh t,saveWidth,saveHeight);
} }
function checkOneFileUpload(field,extensions,requireUpl oad,sizeLimit,minWidth,minHeight,maxWidth,maxHeigh t,saveWidth,saveHeight) { //v2.09
document.MM_returnValue = true;
if (extensions != '') var re = new RegExp("\.(" + extensions.replace(/,/gi,"|").replace(/\s/gi,"") + ")$","i");
if (field.value == '') {
if (requireUpload) {alert('File is required!');document.MM_returnValue = false;field.focus();return;}
} else {
if(extensions != '' && !re.test(field.value)) {
alert('This file type is not allowed for uploading.\nOnly the following file extensions are allowed: ' + extensions + '.\nPlease select another file and try again.');
document.MM_returnValue = false;field.focus();return;
}
document.PU_uploadForm = field.form;
re = new RegExp(".(gif|jpg|png|bmp|jpeg)$","i"& #41;;
if(re.test(field.value) && (sizeLimit != '' || minWidth != '' || minHeight != '' || maxWidth != '' || maxHeight != '' || saveWidth != '' || saveHeight != '')) {
checkImageDimensions(field,sizeLimit,minWidth, minHeight,maxWidth,maxHeight,saveWidth,saveHeight& #41;;
} }
}
function showImageDimensions(fieldImg) { //v2.09
var isNS6 = (!document.all && document.getElementById ? true : false);
var img = (fieldImg && !isNS6 ? fieldImg : this);
if (img.width > 0 && img.height > 0) {
if ((img.minWidth != '' && img.minWidth > img.width) || (img.minHeight != '' && img.minHeight > img.height)) {
alert('Uploaded Image is too small!\nShould be at least ' + img.minWidth + ' x ' + img.minHeight); return;}
if ((img.maxWidth != '' && img.width > img.maxWidth) || (img.maxHeight != '' && img.height > img.maxHeight)) {
alert('Uploaded Image is too big!\nShould be max ' + img.maxWidth + ' x ' + img.maxHeight); return;}
if (img.sizeLimit != '' && img.fileSize > img.sizeLimit) {
alert('Uploaded Image File Size is too big!\nShould be max ' + (img.sizeLimit/1024) + ' KBytes'); return;}
if (img.saveWidth != '') document.PU_uploadForm[img.saveWidth].valu e = img.width;
if (img.saveHeight != '') document.PU_uploadForm[img.saveHeight].val ue = img.height;
document.MM_returnValue = true;
} }
function checkImageDimensions(field,sizeL,minW,minH,max W,maxH,saveW,saveH) { //v2.09
if (!document.layers) {
var isNS6 = (!document.all && document.getElementById ? true : false);
document.MM_returnValue = false; var imgURL = 'file:///' + field.value.replace(/\\/gi,'/').replace(/:/gi,'|').replace(/"/gi,'').replace(/^\//,'');
if (!field.gp_img || (field.gp_img && field.gp_img.src != imgURL) || isNS6) {field.gp_img = new Image();
with (field) {gp_img.sizeLimit = sizeL*1024; gp_img.minWidth = minW; gp_img.minHeight = minH; gp_img.maxWidth = maxW; gp_img.maxHeight = maxH;
gp_img.saveWidth = saveW; gp_img.saveHeight = saveH; gp_img.onload = showImageDimensions; gp_img.src = imgURL; }
} else showImageDimensions(field.gp_img);}
}
</SCRIPT>
<title>ورود خبر</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body dir="rtl" bgcolor="#FFFFCC">
<form action="<%=MM_editAction%>" method="POST" enctype="multipart/form-data" name="form1" class=clsbtn3 onSubmit="checkFileUpload(this,'',true,'','',' ','','','','');return document.MM_returnValue">
<table border="0" align="center" bordercolor="#3399FF" dir="rtl">
<tr valign="baseline" bgcolor="#FFFFCC">
<td colspan="7" align="right" nowrap><div align="center"><font color="#0000CC" size="5"><strong>ورود
<font color="#990000">اخبار</font></strong></font></div></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td width="99" align="right" nowrap>&nbsp;</td>
<td colspan="6"><TABLE height=10 cellSpacing=0 cellPadding=0 align=right border=1>
<TBODY>
<TR>
<TH onmousedown=mousedown_E(); id=E_butt style="CURSOR: hand"
width=20 bgColor=#A0C3DB><FONT color=white
size=2><B>E</B></FONT></TH>
<TH onmousedown=mousedown_F(); id=F_butt dir=rtl
style="CURSOR: hand" width=20 bgColor=#A0C3DB><FONT
color=white
size=2><B>&nbsp;ف</B></FONT></TH>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>شماره
خبر:</strong></font></div></td>
<td colspan="6"><%set nim=server.CreateObject ("adodb.connection")
nim.Open MM_entekhab7_STRING
sql= "select * from news_tbl ORDER BY id ASC"
set result=nim.Execute(sql)
while not result.eof
i=result("id")
result.movenext
wend
%> <input type="text" name="id" value="<%=i+1%>" size="14" readonly="yes"></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>عنوان
خبر:</strong></font></div></td>
<td colspan="6"> <input type="text" name="title" value="" size="32" onkeypress=keydown();>
</td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td height="43" align="right" valign="top"><div align="left"><font color="#000066"><strong>گزیده
خبر:</strong></font></div></td>
<td colspan="6"><textarea name="short_news" cols="40" rows="2" onkeypress=keydown();></textarea>
</td>
</tr>
<tr bgcolor="#FFFFCC">
<td align="right" valign="top" nowrap><div align="left"><font color="#000066"><strong>مشروح
خبر:</strong></font></div></td>
<td colspan="6" valign="baseline"> <textarea name="news" cols="50" rows="5" onkeypress=keydown();></textarea>
<input type="hidden" name="opt_id" value="<%=p_name%>">
</td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap>&nbsp; <% DIM OBJhejri
SET OBJhejri=NEW farsi_date_time
OBJhejri.SFhour =True
OBJhejri.Time_Diff =#0:0:0#
OBJhejri.State=0
%> <%
OBJhejri.To_Hejri(now)
year1=cint(OBJhejri.dyear)
mon1=cint(OBJhejri.dmonth)
day1=cint(OBJhejri.dday)%> </td>
<td width="63" align="right"><div align="left"><font color="#000066"><strong>سال
خبر:</strong></font></div></td>
<td width="40"> <input type="text" name="news_datey" value="<%=year1%>" size="4">
</td>
<td width="61" align="right"><div align="left"><font color="#000066"><strong>ماه
خبر:</strong></font></div></td>
<td width="108"> <div align="justify">
<select name="news_datem">
<option value="<%=mon1%>" selected><%=mon1%></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>
</div></td>
<td width="58" align="right"><div align="left"><font color="#000066"><strong>روز
خبر: </strong></font></div></td>
<td width="127"> <div align="justify">
<input type="text" name="news_dated" value="<%=day1%>" size="2">
</div></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap>
<%z=day1+1
if day1=30 then
z=1
mon1=mon1+1
end if%>
</td>
<td align="right"><div align="left"><font color="#000066"><strong>تا
سال : </strong></font></div></td>
<td> <div align="justify">
<input type="text" name="timeline_y" value="<%=year1%>" size="4">
</div></td>
<td align="right"><div align="left"><font color="#000066"><strong>تا
ماه:</strong></font></div></td>
<td> <div align="justify">
<select name="timeline_m" >
<option value="<%=mon1%>" selected><%=mon1%></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>
</div></td>
<td align="right"><div align="left"><font color="#000066"><strong>تا
روز:</strong></font></div></td>
<td> <div align="justify">
<input type="text" name="timeline_d" value="<%=z%>" size="2">
</div></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>ساعت:</strong></font></div></td>
<td colspan="6"><input type="text" name="time_e" value="<%=OBJhejri.To_Time(now() 1;%>" size="12" readonly=""></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>منبع:</strong></font></div></td>
<td colspan="6"><input type="text" name="source" onkeypress=keydown();></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>عکس
خبر:</strong></font></div></td>
<td colspan="6"> <input name="img_src" type="file" onChange="checkOneFileUpload(this,'',true,'',' ','','','','','')" value=""></td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>تایید:</strong></font></div></td>
<td colspan="6"> <input type="checkbox" name="show" value=1 checked> </td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left"><font color="#000066"><strong>ماندگار:</strong></font></div></td>
<td colspan="6"> <input type="checkbox" name="time_flag" value=0> </td>
</tr>
<tr valign="baseline" bgcolor="#FFFFCC">
<td align="right" nowrap><div align="left">
<input type="hidden" name="tasvib" value="0" >
<input type="hidden" name="arshiv" value="0" >
</div></td>
<td colspan="6"> <input type="submit" value=" ورود خبر ">
</td>
</tr>
</table>
<input type="hidden" name="opt_pwd" value="<%=p_pass%>">
<input type="hidden" name="MM_insert" value="form1">
</form>
<p align="center">&nbsp;<strong><a href="news_list.asp">بازگشت
به صفحه لیست اخبار</a></strong></p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
nim.close()
set nim=nothing
%>
کد برنامه طولانی است همراه با ارسال هر رکورد یک تصویر هم upload میشود .
در ضمن کاربر تعیین هویت هم می شود .
کل متن برنامه است . شرمنده که اینقدر طول تفسیر دارد.
با تشکر