dena
یک شنبه 21 دی 1382, 23:14 عصر
با سلام
من کد برنامه را با 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")("name")
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")) <> "") 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")) <> "" or CStr(UploadFormRequest("MM_update")) <> "")) 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")) = "form1") Then
MM_editConnection = MM_entekhab7_STRING
MM_editTable = "news_tbl"
MM_editRedirectUrl = ""
MM_fieldsStr = "id|value|title|value|short_news|value|news|value|o pt_id|value|opt_pwd|value|news_datey|value|news_da tem|value|news_dated|value|timeline_y|value|timeli ne_m|value|timeline_d|value|time_e|value|source|va lue|img_src|value|show|value|time_flag|value|tasvi b|value|arshiv|value"
MM_columnsStr = "id|none,none,NULL|title|',none,''|short_news|',non e,''|news|',none,''|opt_id|',none,''|opt_pwd|',non e,''|news_datey|none,none,NULL|news_datem|none,non e,NULL|news_dated|none,none,NULL|timeline_y|none,n one,NULL|timeline_m|none,none,NULL|timeline_d|none ,none,NULL|time_e|',none,''|source|',none,''|img_s rc|',none,''|show|none,1,0|time_flag|none,1,0|tasv ib|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)))
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")) <> "") 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,size Limit,minWidth,minHeight,maxWidth,maxHeight,saveWi dth,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,requireUpload, sizeLimit,minWidth,minHeight,maxWidth,maxHeight,sa veWidth,saveHeight);
} }
function checkOneFileUpload(field,extensions,requireUpload, sizeLimit,minWidth,minHeight,maxWidth,maxHeight,sa veWidth,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");
if(re.test(field.value) && (sizeLimit != '' || minWidth != '' || minHeight != '' || maxWidth != '' || maxHeight != '' || saveWidth != '' || saveHeight != '')) {
checkImageDimensions(field,sizeLimit,minWidth,minH eight,maxWidth,maxHeight,saveWidth,saveHeight);
} }
}
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].value = img.width;
if (img.saveHeight != '') document.PU_uploadForm[img.saveHeight].value = img.height;
document.MM_returnValue = true;
} }
function checkImageDimensions(field,sizeL,minW,minH,maxW,ma xH,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())%>" 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 میشود .
در ضمن کاربر تعیین هویت هم می شود .
کل متن برنامه است . شرمنده که اینقدر طول تفسیر دارد.
با تشکر
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.