آقا کاری نداره
اینم کدش :
فایل html
<%@ Page Language="VB" MasterPageFile="~/MstrPg.master" AutoEventWireup="false" CodeFile="PgSaptenam0.aspx.vb" Inherits="PgSaptenam0" title="مهد گلستانه" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table border="0" cellpadding="0" cellspacing="0" style="height: 100%" width="100%">
<tbody>
<tr>
<td style="width: 175px; height: 175px">
</td>
<td style="border-top-width: thin; border-left-width: thin; border-bottom-width: thin;
width: 646px; height: 175px; border-right-width: thin">
<div style="z-index: 102; left: 784px; width: 180px; position: absolute; top: 622px;
height: 100px">
<table border="0" cellpadding="0" cellspacing="0" style="width: 176px">
<tr>
<td align="center" style="font-weight: bold; font-size: 9pt; background-image: url(images/Reg013.jpg);
width: 878px; color: #ff6666; font-family: Tahoma; height: 38px">
سایتهای مرتبط</td>
</tr>
<tr>
<td align="center" style="font-weight: bold; font-size: 9pt; background-image: url(images/Reg014.jpg);
width: 894px; color: #ff6666; font-family: Tahoma; height: 158px">
<marquee direction="up" onmouseout="this.start()" onmouseover="this.stop()" scrollamount="1"
scrolldelay="1" style="width: 90px; height: 147px"><A href="[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"><IMG ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"><IMG) style="HEIGHT: 85px" src="Images/kabootar.gif" /></A> <BR /><FONT style="FONT-SIZE: 9pt" face="Tahoma"><A href="[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"><IMG ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"><IMG) style="WIDTH: 75px; HEIGHT: 85px" src="Images/kardasti.jpg" /></A> <BR /></FONT></marquee>
</td>
</tr>
<tr>
<td align="center" style="font-weight: bold; font-size: 9pt; background-image: url(images/Reg015.jpg);
width: 878px; color: #ff6666; font-family: Tahoma; height: 23px">
</td>
</tr>
</table>
</div>
<div style="z-index: 103; left: 91px; width: 521px; position: absolute; top: 441px;
height: 322px">
<table border="0" cellpadding="0" cellspacing="0" style="width: 528px; height: 472px;
background-color: #ffeaff">
<tr>
<td align="center" colspan="6" style="font-weight: bold; font-family: Tahoma; height: 67px">
<asp:ValidationSummary ID="ValidationSummary" runat="server" />
</td>
</tr>
<tr>
<td align="center" colspan="1" style="font-weight: bold; width: 30px; font-family: Tahoma;
height: 21px">
</td>
<td align="center" colspan="4" style="font-weight: bold; font-family: Tahoma; height: 21px;
background-color: #ff66ff">
<li dir="rtl">فرم اطلاعات کودک</li></td>
<td align="center" colspan="1" rowspan="15" style="font-weight: bold; width: 29px;
font-family: Tahoma">
</td>
</tr>
<tr>
<td style="width: 30px; height: 7px">
</td>
<td style="width: 188px; height: 7px">
</td>
<td style="width: 202px; height: 7px">
</td>
<td style="width: 21px; height: 7px">
</td>
<td align="center" style="font-weight: bold; font-size: xx-small; width: 57px; color: green;
font-family: Tahoma; height: 7px">
</td>
</tr>
<tr>
<td style="width: 30px; height: 7px">
</td>
<td style="width: 188px; height: 7px">
</td>
<td style="width: 202px; height: 7px">
<span onkeypress="FKeyPress('')" onkeydown ="FKeyDown('')">
<input id="Txt_Fname" runat="server" style="width: 209px; direction: rtl; background-color: #ffff66"
type="text" enableviewstate="true" /></span></td>
<td style="width: 21px; height: 7px">
<asp:RequiredFieldValidator ID="RequiredFieldFname" runat="server" ControlToValidate="Txt_Fname"
ErrorMessage="نام کودک راوارد کنید">*</asp:RequiredFieldValidator></td>
<td align="center" style="font-weight: bold; font-size: xx-small; width: 57px; color: green;
font-family: Tahoma; height: 7px">
نام کودک</td>
</tr>
<tr>
<td style="width: 30px; height: 11px">
</td>
<td style="width: 188px; height: 11px">
</td>
<td style="width: 202px; height: 11px">
<span onkeypress="FKeyPress('')" onkeydown ="FKeyDown('')">
<input id="Txt_Lname" runat="server" style="width: 209px; direction: rtl; background-color: #ffff66"
type="text" /></span> </td>
<td style="width: 21px; height: 11px">
<asp:RequiredFieldValidator ID="RequiredFieldLname" runat="server" ControlToValidate="Txt_Lname"
ErrorMessage="نام خانوادگی کودک را وارد کنید">*</asp:RequiredFieldValidator></td>
<td align="center" style="font-weight: bold; font-size: xx-small; width: 57px; color: #454545;
font-family: Tahoma; height: 11px">
نام خانوادگی
</td>
</tr>
<tr>
<td align="right" style="width: 30px; height: 3px">
</td>
<td align="right" style="width: 188px; height: 3px">
نمونه:12فروردین1378
</td>
<td style="width: 202px; height: 3px">
<table border="0" cellpadding="0" cellspacing="0" style="height: 19px">
<tr>
<td style="width: 272382px; height: 17px">
<asp:DropDownList ID="Drp_Year" runat="server" Width="59px" DataSourceID="AccessDataSource1" DataTextField="Year_Baby" DataValueField="Year_Baby">
</asp:DropDownList><asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/db.mdb"
SelectCommand="SELECT [ID_Year], [Year_Baby] FROM [Tbl_Year]"></asp:AccessDataSource>
</td>
<td style="font-size: x-small; width: 31885px; color: green; font-family: Tahoma;
height: 17px; font-weight: bold">
سال</td>
<td style="width: 3136px; height: 17px">
<asp:DropDownList ID="Drp_Month" runat="server" Width="63px" DataSourceID="AccessDataSource2" DataTextField="Month_Baby" DataValueField="Month_Baby">
</asp:DropDownList><asp:AccessDataSource ID="AccessDataSource2" runat="server" DataFile="~/db.mdb"
SelectCommand="SELECT [ID_Month], [Month_Baby] FROM [Tbl_Month]"></asp:AccessDataSource>
</td>
<td style="font-size: x-small; width: 12px; color: green; font-family: Tahoma; height: 17px;
font-weight: bold">
ماه</td>
<td style="width: 10px; height: 17px">
<span onkeypress="FKeyPress('')" onkeydown ="FKeyDown('')">
<input id="txt_Day" runat="server" style="width: 38px; direction: rtl" type="text" /></span> </td>
<td align="right" style="font-size: x-small; width: 100px; color: green; font-family: Tahoma;
height: 17px; nt-weight: bold">
روز</td>
</tr>
</table>
</td>
<td style="width: 21px; height: 3px">
<asp:RequiredFieldValidator ID="RequiredFieldDay" runat="server" ErrorMessage="تاریخ تولد کودک را وارد کنید" ControlToValidate="txt_Day">*</asp:RequiredFieldValidator>
<asp:RangeValidator ID="RangeValidator1" runat="server" ControlToValidate="txt_Day"
ErrorMessage="RangeValidator" MaximumValue="31" MinimumValue="0">*</asp:RangeValidator></td>
<td align="center" style="font-weight: bold; font-size: xx-small; width: 57px; color: green;
font-family: Tahoma; height: 3px">
تاریخ تولد</td>
</tr>
<tr>
<td align="right" style="width: 30px; height: 3px">
</td>
<td align="right" style="width: 188px; height: 3px">
نمونه:0151-32548885 </td>
<td style="width: 202px; height: 3px">
<span onkeypress="FKeyPress('')" onkeydown ="FKeyDown('')">
<input id="Txt_Tel" runat="server" style="width: 209px; direction: rtl" type="text" /></span> </td>
<td style="width: 21px; height: 3px">
<asp:RequiredFieldValidator ID="RequiredFieldTel" runat="server" ControlToValidate="Txt_Tel"
ErrorMessage="شماره تماس را وارد کنید">*</asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionTel" runat="server" ErrorMessage="شماره تماس مجاز نمی باشد"
ValidationExpression="(\d{4}-\d{7})" ControlToValidate="Txt_Tel">*</asp:RegularExpressionValidator></td>
<td align="center" style="font-weight: bold; font-size: xx-small; width: 57px; color: green;
font-family: Tahoma; height: 3px">
شماره تماس</td>
</tr>
<tr>
<td style="width: 30px; height: 1px">
</td>
<td style="width: 188px; height: 1px">
</td>
<td style="width: 202px; height: 1px">
<span onkeypress="FKeyPress('')" onkeydown ="FKeyDown('')">
<input id="Txt_Adress" runat="server" style="width: 209px; direction: rtl" type="text" /></span> </td>
<td style="width: 21px; height: 1px">
</td>
<td align="center" style="font-weight: bold; font-size: x-small; width: 57px; color: green;
font-family: Tahoma; height: 1px">
آدرس</td>
</tr>
<tr>
<td style="width: 30px; height: 1px">
</td>
<td style="width: 188px; height: 1px">
</td>
<td style="width: 202px; height: 1px">
</td>
<td style="width: 21px; height: 1px">
</td>
<td align="center" style="font-weight: bold; font-size: x-small; width: 57px; color: green;
font-family: Tahoma; height: 1px">
</td>
</tr>
<tr>
<td align="center" colspan="1" style="font-weight: bold; width: 30px; font-family: Tahoma;
height: 21px">
</td>
<td align="center" colspan="4" style="font-weight: bold; font-family: Tahoma; height: 21px;
background-color: #ff66ff">
<li dir="rtl">فرم اطلاعات کاربری</li></td>
</tr>
<tr>
<td style="width: 30px; height: 22px">
</td>
<td style="width: 188px; height: 22px">
</td>
<td style="width: 202px; height: 22px">
</td>
<td style="width: 21px; height: 22px">
</td>
<td align="center" style="font-weight: bold; font-size: x-small; width: 57px; color: green;
font-family: Tahoma; height: 22px">
</td>
</tr>
<tr>
<td style="width: 30px; height: 12px">
</td>
<td style="width: 188px; height: 12px" align="right">
حداکثر کارکتر نام کاربری8 وحداقل4 میباشد</td>
<td style="width: 202px; height: 12px">
<input id="Txt_Username" runat="server" style="width: 209px; direction: rtl; background-color: #ffff66"
type="text" /></td>
<td style="width: 21px; height: 12px">
<asp:RequiredFieldValidator ID="RequiredFielduser" runat="server" ControlToValidate="Txt_Username"
ErrorMessage="نام کاربری راوارد کنید">*</asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator" runat="server" ControlToValidate="Txt_Username"
ErrorMessage="نام کاربری مجاز نمی باشد" ValidationExpression="(\w{8})">*</asp:RegularExpressionValidator></td>
<td align="center" style="font-weight: bold; font-size: x-small; width: 57px; color: green;
font-family: Tahoma; height: 12px">
نام کاربری</td>
</tr>
<tr>
<td style="width: 30px; height: 13px">
</td>
<td style="width: 188px; height: 13px" align="right">
حداکثر کارکتر کلمه عبور8 وحداقل4 میباشد</td>
<td style="width: 202px; height: 13px">
<input id="Txt_Password" runat="server" style="width: 209px; direction: rtl" type="text" /></td>
<td style="width: 21px; height: 13px">
<asp:RequiredFieldValidator ID="RequiredFieldPass" runat="server" ControlToValidate="Txt_Password"
ErrorMessage="کلمه عبور راوارد کنید">*</asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="Txt_Password"
ErrorMessage="کلمه عبور مجاز نمی باشد" ValidationExpression="(\w{8})">*</asp:RegularExpressionValidator></td>
<td align="center" style="font-weight: bold; font-size: x-small; width: 57px; color: green;
font-family: Tahoma; height: 13px">
کلمه عبور</td>
</tr>
<tr>
<td style="width: 30px; height: 9px">
</td>
<td style="width: 188px; height: 9px" align="right">
</td>
<td style="width: 202px; height: 9px">
<input id="Txt_Repassword" runat="server" style="width: 209px; direction: rtl" type="text" /></td>
<td style="width: 21px; height: 9px">
<asp:RequiredFieldValidator ID="RequiredFieldPerPass" runat="server" ControlToValidate="Txt_Repassword"
ErrorMessage="تکرار کلمه عبور را وارد کنید">*</asp:RequiredFieldValidator>
<asp:CompareValidator ID="CompareValidatorrepPass" runat="server" ControlToValidate="Txt_Password"
ErrorMessage="کلمه عبور وارد شده با کلمه عبور قبلی مطابقت ندارد" ControlToCompare="Txt_Repassword">*</asp:CompareValidator></td>
<td align="center" style="font-weight: bold; font-size: xx-small; width: 57px; color: green;
font-family: Tahoma; height: 9px">
تکرار کلمه عبور</td>
</tr>
<tr>
<td align="center" style="width: 30px; height: 32px">
</td>
<td align="center" style="width: 188px; height: 32px">
</td>
<td align="center" style="width: 202px; height: 32px">
<asp:ImageButton ID="Btn_Cancel" runat="server" ImageUrl="~/Images/Register_Cancel.gif" />
<asp:ImageButton ID="Btn_Sapt" runat="server" ImageUrl="~/Images/register.gif" /></td>
<td align="center" style="width: 21px; height: 32px">
<asp:CustomValidator ID="CustomValidator1" runat="server" ControlToValidate="Txt_Username"
ErrorMessage="CustomValidator">*</asp:CustomValidator></td>
<td style="width: 57px; height: 32px">
</td>
</tr>
<tr>
<td align="center" style="width: 30px; height: 32px">
</td>
<td align="center" style="width: 188px; height: 32px">
</td>
<td align="center" style="width: 202px; height: 32px">
</td>
<td align="center" style="width: 21px; height: 32px">
</td>
<td style="width: 57px; height: 32px">
</td>
</tr>
<tr>
<td colspan="6" style="height: 29px">
</td>
</tr>
</table>
</div>
<img src="" style="width: 8px" />
</td>
<td style="width: 182px; height: 175px">
<div style="z-index: 101; left: 784px; width: 158px; position: absolute; top: 285px;
height: 180px">
<table border="0" cellpadding="0" cellspacing="0" style="width: 175px; height: 315px">
<tr>
<td align="center" style="font-weight: bold; font-size: 9pt; background-image: url(images/Reg013.jpg);
width: 894px; color: #ff6666; font-family: Tahoma; height: 30px">
<span style="color: #454545">فرم </span>اصلی</td>
</tr>
<tr>
<td align="center" style="font-weight: bold; font-size: 9pt; background-image: url(images/Reg014.jpg);
width: 894px; color: #ff6666; font-family: Tahoma; height: 199px">
<table border="0" cellpadding="0" cellspacing="0" style="width: 162px; height: 195px">
<tr>
<td align="right" style="width: 406px">
<a href="pgmain.aspx">
<asp:Label ID="Label1" runat="server" Font-Bold="True" Font-Names="Tahoma" Font-Size="X-Small"
ForeColor="#FF8000" Text="خانه"></asp:Label></a>
<%-- Link To Web Other --%>
</td>
<td style="width: 100px">
<img src="Images/load.gif" /></td>
</tr>
<tr>
<td align="right" style="width: 406px">
<a href="pgmoarefi.aspx">
<asp:Label ID="Label2" runat="server" Font-Bold="True" Font-Names="Tahoma" Font-Size="X-Small"
ForeColor="#FF8000" Text="معرفی مهد"></asp:Label></a></td>
<td style="width: 100px">
<img src="Images/load.gif" /></td>
</tr>
<tr>
<td align="right" style="width: 406px; height: 7px">
<a href="Pgstory0.aspx">
<asp:Label ID="Label3" runat="server" Font-Bold="True" Font-Names="Tahoma" Font-Size="X-Small"
ForeColor="#FF8000" Text="داستانهای کودکانه"></asp:Label></a></td>
<td style="width: 100px; height: 7px">
<img src="Images/load.gif" /></td>
</tr>
<tr>
<td align="right" style="width: 406px; height: 14px">
<asp:HyperLink ID="HyperLink1" runat="server" Font-Bold="True" Font-Names="Tahoma"
Font-Size="X-Small" ForeColor="#FF8000" NavigateUrl="~/PgGallaryPic1.aspx">گالری عکس</asp:HyperLink><a href="pgGallaryPic1.aspx" ></a></td>
<td style="width: 100px; height: 14px">
<img src="Images/load.gif" /></td>
</tr>
<tr>
<td align="right" style="width: 406px; height: 1px">
<asp:HyperLink ID="HyperLink2" runat="server" Font-Names="Tahoma" Font-Size="X-Small"
ForeColor="#FF8000" NavigateUrl="~/PgSaptnam1.aspx">ثبت نام</asp:HyperLink><a href="PgSaptnam1.aspx"></a></td>
<td style="width: 100px; height: 1px">
<img src="Images/load.gif" /></td>
</tr>
<tr>
<td align="center" style="width: 406px; height: 8px">
</td>
<td style="width: 100px; height: 8px">
</td>
</tr>
<tr>
<td style="width: 406px; height: 35px">
</td>
<td style="width: 100px; height: 35px">
</td>
</tr>
<tr>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" style="font-weight: bold; font-size: 9pt; background-image: url(images/Reg015.jpg);
width: 894px; color: #ff6666; font-family: Tahoma; height: 18px">
</td>
</tr>
</table>
</div>
</td>
</tr>
</tbody>
</table>
</asp:Content>
اینم کد مربوط به ذخیره در اکسس:
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.Sql
Imports System.Web.UI.Control
Imports System.ServiceModel.Channels
Imports System.IO
Imports System.Drawing
Imports System.Text.RegularExpressions
Imports System.Drawing.Drawing2D
Imports Connection
Partial Class PgSaptenam0
Inherits System.Web.UI.Page
Dim connect As Connection
Private da As OleDbDataAdapter
Dim strcon As String
Dim con As OleDbConnection
Private ds As DataSet '
Private t As TableRow = New TableRow
Dim row As DataRow
Dim clm As DataColumn
Dim cb As OleDbCommandBuilder
Dim ObjUsername As String
Public Sub clearField()
Txt_Username.Value = String.Empty
Txt_Password.Value = String.Empty
Txt_Repassword.Value = String.Empty
Txt_Fname.Value = String.Empty
txt_Day.Value = String.Empty
Txt_Lname.Value = String.Empty
Txt_Adress.Value = String.Empty
Txt_Tel.Value = String.Empty
Drp_Month.SelectedIndex = -1
Drp_Year.SelectedIndex = -1
End Sub
'Public Sub Func_FillCBo_Year()
' Dim str As String = "select * from Tbl_Year"
' Dim Datemp As OleDbDataAdapter = New OleDbDataAdapter(str, connect.Connection)
' Dim DStemp As DataSet = New DataSet
' Datemp.Fill(DStemp, "Year")
' Drp_Year.DataSource = DStemp.Tables("Year")
' Drp_Year.DataBind()
'End Sub
'Public Sub Func_FillCBo_Month()
' Dim str As String = "select Tbl_Month.Month_Baby from Tbl_Month"
' Dim Datemp As OleDbDataAdapter = New OleDbDataAdapter(str, connect.Connection)
' Dim DStemp As DataSet = New DataSet
' Datemp.Fill(DStemp, "Month")
' 'Drp_Month.DataSource = DStemp.Tables("Month")
' 'Drp_Month.DataMember = "Month"
' 'DataList1.DataSource = DStemp
' 'DataList1.DataBind()
' Select1.DataSource = DStemp
' Select1.DataMember = "Month_Baby"
' Select1.DataSourceID = "ID_Month"
' Select1.DataBind()
'End Sub
Protected Sub Btn_Sapt_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Btn_Sapt.Click
Dim UrlImageUser As String
UrlImageUser = Session("UrlImage")
Dim strInsert As String = "INSERT INTO Tbl_Baby(FName,LName,Day_Baby,ID_Month,ID_Year,Tel _Baby,Adress_Baby,User_Baby,Pass_Baby,pic)" + _
" VALUES (@FName,@LName,@Day_Baby,@ID_Month,@ID_Year,@Tel_B aby,@Adress_Baby,@User_Baby,@Pass_Baby,@pic)"
Dim Insertcmd As OleDbCommand = New OleDbCommand(strInsert, connect.Connection)
Insertcmd.Parameters.Add("@FName", OleDbType.VarWChar).Value = Txt_Fname.Value
Insertcmd.Parameters.Add("@LName", OleDbType.VarWChar).Value = Txt_Lname.Value
Insertcmd.Parameters.Add("@Day_Baby", OleDbType.Integer).Value = Convert.ToInt32(txt_Day.Value)
Insertcmd.Parameters.Add("@ID_Month", OleDbType.Integer).Value = Drp_Month.SelectedIndex
Insertcmd.Parameters.Add("@ID_Year", OleDbType.Integer).Value = Drp_Year.SelectedIndex
Insertcmd.Parameters.Add("@Tel_Baby", OleDbType.VarWChar).Value = Txt_Tel.Value
Insertcmd.Parameters.Add("@Adress_Baby", OleDbType.VarWChar).Value = Txt_Adress.Value
Insertcmd.Parameters.Add("@User_Baby", OleDbType.VarWChar).Value = Txt_Username.Value
Insertcmd.Parameters.Add("@Pass_Baby", OleDbType.VarWChar).Value = Txt_Password.Value
Insertcmd.Parameters.Add("@pic", OleDbType.VarWChar).Value = UrlImageUser
Insertcmd.ExecuteNonQuery()
'MsgBox("رکورد جدید با موفقیت درج شد")
connect.Connection.Close()
' _user = Txt_Username.Text
'us.UserNmae = Txt_Username.Text
'_user = Txt_Username.Text
'' Response.Redirect("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]")
ObjUsername = Txt_Username.Value
Session("UserSapt") = ObjUsername
Response.Redirect("pgSaptnam2.aspx", True)
'Dim theFSQ As New FileStream("", FileMode.Open)
'Dim theBytesQ(theFSQ.Length) As Byte
'theFSQ.Read(theBytesQ, 0, theBytesQ.Length)
'theFSQ.Close()
End Sub
Protected Sub Btn_Cancel_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Btn_Cancel.Click
clearField()
End Sub
Public Sub New()
connect = New Connection
'"G:\Sorce code\Sorce code Asp\WebSite2\DataBase\Db.mdb"
''"G:\Sorce code\Sorce code Asp\glestaneh\db.mdb"
connect.DataBasePath = Server.MapPath("db.mdb")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'IMG2.Visible = True
'IMG1.Visible = False
'Func_FillCBo_Year()
'Func_FillCBo_Month()
End Sub
End Class
مشاهده نسخه کامل
: