آبجی
21st April 2010, 02:18 AM
همه ي فرم هاي اي اس پي <% 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>
<!-- 2 Column Table -->
<!-- 1 Column For Data, 1 for Controls -->
<TABLE Align=Center border=1 BGColor=Navy
BorderColorDark=Navy BorderColorLight=Aqua BorderColor=Blue>
<!-- Table Header -->
<TH Colspan=2>
<FONT Color=White Size=+2><CENTER>Navigating Example</CENTER></FONT>
</TH>
<!-- Main Table Content -->
<TR><TD>
<!-- Nested Table 1 -->
<!-- Author Detail -->
<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>
<!-- Nested Form 2 -->
<!-- Persisted Values -->
<INPUT Type="Hidden" Name="PageSize" Value="1">
<INPUT Type="Hidden" Name="Page" Value="<%= Page %>">
<!-- Navigation Buttons -->
<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>
<!-- Floating Frame -->
<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>
<% 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>
<!-- 2 Column Table -->
<!-- 1 Column For Data, 1 for Controls -->
<TABLE Align=Center border=1 BGColor=Navy
BorderColorDark=Navy BorderColorLight=Aqua BorderColor=Blue>
<!-- Table Header -->
<TH Colspan=2>
<FONT Color=White Size=+2><CENTER>Navigating Example</CENTER></FONT>
</TH>
<!-- Main Table Content -->
<TR><TD>
<!-- Nested Table 1 -->
<!-- Author Detail -->
<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>
<!-- Nested Form 2 -->
<!-- Persisted Values -->
<INPUT Type="Hidden" Name="PageSize" Value="1">
<INPUT Type="Hidden" Name="Page" Value="<%= Page %>">
<!-- Navigation Buttons -->
<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>
<!-- Floating Frame -->
<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>