همه ي فرم هاي اي اس پي


	موضوعات مختلف


	کتاب های الکترونیکی

کتاب های تخصصی

کتاب های عمومی


	مقالات


	همه ي فرم هاي اي اس پي

همه ي فرم هاي اي اس پي

<% Option Explicit %>
    <% Response.Expires=0 %>
    <HTML>
    <HEAD></HEAD>
    <BODY BGColor=White Text=Black>
    <STYLE>
     .btn {Width:100%}
    </STYLE>
    <%
    Dim Page ' Local var For page #
    Dim cn ' Connection object
    Dim rs ' Recordset object
    Dim Action ' Button pressed
    Dim PageSize ' How far To page
    Dim UpdSQL, MySQL ' String To hold SQL
    Dim i ' Loop counter
    Dim item, value ' Used To retrieve changed fields
    Dim issueUpdate ' After Save button press, any changes to make?
    Action = Request.Form("NavAction")
    if Request.Form("Page") <> "" Then
     Page = Request.Form("Page")
    Else
     Page = 1
    End if
    if Request.Form("PageSize") <> "" Then
     PageSize = Request.Form("PageSize")
    Else
     PageSize = 5
    End if
     Set cn = Server.CreateObject("ADODB.Connection")
     cn.Open Application("guestDSN")

     ' Get initial recordset
     Set rs = Server.CreateObject("ADODB.Recordset")
     MySQL = "SELECT * FROM AUTHORS"
    rs.PageSize = PageSize
    rs.Open MySQL, cn, adOpenKeyset, adLockOptimistic
     Select Case Action
     Case "Begin"
     Page = 1
     Case "Back"
     if (Page > 1) Then
     Page = Page - 1
     Else
     Page = 1
     End if
     rs.AbsolutePage = Page
     Case "Forward"
     if (CInt(Page) < rs.PageCount) Then
     Page = Page + 1
     Else
     Page = rs.PageCount
     End if
     rs.AbsolutePage = Page
     Case "End"
     rs.AbsolutePage = rs.PageCount
     Case "Save"
     ' Grab the proper record, Then update
     ' This routine is hard coded For AU_ID As the key field.
     ' To alter this to work With another DB Table you will need to
     ' Use the proper primary key instead of AU_ID.
     rs.Close
     MySQL = "SELECT * FROM AUTHORS WHERE au_id = '" & Request.Form("Au_id") & "'"
     rs.MaxRecords = 1
     rs.Open MySQL, cn, adOpenStatic, adLockOptimistic
     UpdSQL = "UPDATE AUTHORS "
     issueUpdate = False
     For i = 0 To (rs.Fields.Count - 1)
     item = rs.Fields(i).Name
     value = Request.Form(item)
     ' Only update items that have changed
     if (rs(i) <> value) Then
     if issueUpdate = False Then
     UpdSQL = UpdSQL & "SET "
     Else
     UpdSQL = UpdSQL & ","
     End if
     issueUpdate = True
     Select Case VarType(rs.Fields(i))
     ' Determine datatype For proper SQL UPDATE syntax
     ' NOTE: Not all data types covered
     Case vbString, vbDate
     UpdSQL = UpdSQL & item & "='" & value & "'"
     Case vbNull
     Case vbInteger
     UpdSQL = UpdSQL & item & "=" & value
     Case vbBoolean
     if value Then
     UpdSQL = UpdSQL & item & "= 1"
     Else
     UpdSQL = UpdSQL & item & "= 0"
     End if
     End Select
     End if
     Next
     UpdSQL = UpdSQL & " WHERE au_id = '" & Request.Form("Au_id") & "'"
     if issueUpdate Then
     cn.Execute UpdSQL
     Set rs = cn.Execute(MySQL)
     End if
     Case "New"
     ' response.write "New"
     rs.AddNew
     Case "Bookmark"
     Session("myBookMark") = rs.BookMark
     Case "Goto"
     if Not IsNull(Session("myBookMark")) Then
     rs.BookMark = Session("myBookMark")
     End if
     Case Else
     rs.MoveFirst
     End Select
    %>
    <CENTER>
    
    
    <TABLE Align=Center border=1 BGColor=Navy
    BorderColorDark=Navy BorderColorLight=Aqua BorderColor=Blue>
    
    <TH Colspan=2>
    <FONT Color=White Size=+2><CENTER>Navigating Example</CENTER></FONT>
    </TH>
    
    <TR><TD>
    
    
    <FORM Action=all_form.asp Method="POST">
    <TABLE Align=Left BORDER=0 BGColor=Gray Text=White>
     <%
     For i = 0 To rs.Fields.Count - 1
     %>
     <TR><TD><B><%= rs.Fields(i).Name %></B></TD>
     <TD><INPUT Type=text Name="<%= rs.Fields(i).Name %>" Value="<%= rs(i) %>"></TD>
    </TR>
     <%
     Next
     %>
    </TABLE>
    </TD>
    <TD BGColor=Black Width=100>
     
     
     <INPUT Type="Hidden" Name="PageSize" Value="1">
     <INPUT Type="Hidden" Name="Page" Value="<%= Page %>">
     
     <INPUT TYPE="Submit" Name="NavAction" Value="Begin" Class=Btn><BR>
     <INPUT TYPE="Submit" Name="NavAction" Value="Back" Class=Btn><BR>
     <INPUT TYPE="Submit" Name="NavAction" Value="Forward" Class=Btn><BR>
     <INPUT TYPE="Submit" Name="NavAction" Value="End" Class=Btn><P>
     <INPUT TYPE="Submit" Name="NavAction" Value="Save" Class=Btn><BR>
     <INPUT TYPE="Submit" Name="NavAction" Value="New" Class=Btn><P>
     <INPUT TYPE="Submit" Name="NavAction" Value="Bookmark" Class=Btn><BR>
     <INPUT TYPE="Submit" Name="NavAction" Value="Goto" Class=Btn><P>
    </TD>
    </TR>
    </TABLE>
    </FORM>
    <P>
    
     <IFRAME width=70% height=180 src="list.asp?auid=<%= rs( </Include/code.asp?source=/ado/samples/list.asp?auid=<%= rs(>"au_id") %>" FrameBorder=1 Scrolling=No>
     <FRAME width=70% height=180 src="list.asp?auid=<%= rs( </Include/code.asp?source=/ado/samples/list.asp?auid=<%= rs(>"au_id") %>">
     </IFRAME>
    </CENTER>
    </BODY>
    </HTML>

نویسنده: کیوان شجاعی

Email:kayvan.shojaie@gmail.com


	اطلاعات کامپیوتر


	اطلاعات موبایل

معرفی انواع موبایل

نرم افزار انواع موبایل


	پروژه های برنامه نویسی


	دوربین دیجیتال

معرفی دوربین

قیمت دوربین


	مقالات مدیریتی

تمامي حقوق این سايت محفوظ است و نقل و استفاده از مطالب در سايت ها و نشريات تنها با ذکر منبع مجاز ميباشد