آخه این کاری که شما میگید خودش میتونه یه پروژه باشه.
فکر نکنم کسی فرصت کنه پروژه برای شما انجام بده.
درستش اینه که کار کنید و مشکلاتی که تو کار پیش میاد بیان کنید تا حل بشه...
این برای اضافه کردن:
HTML:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Sub Button_Click( s As Object, e As EventArgs )
Dim conNorthwind As SqlConnection
Dim strInsert As String
Dim cmdInsert As SqlCommand
conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Northwind" )
strInsert = "Insert Products ( ProductName, UnitPrice ) Values ( @ProductName, @UnitPrice )"
cmdInsert = New SqlCommand( strInsert, conNorthwind )
cmdInsert.Parameters.Add( "@ProductName", txtProductName.Text )
cmdInsert.Parameters.Add( "@UnitPrice", SqlDbType.Money ).Value = txtUnitPrice.Text
conNorthwind.Open()
cmdINsert.ExecuteNonQuery()
conNorthwind.Close()
End Sub
</Script>
<html>
<head><title>SqlFormInsert.aspx</title></head>
<body>
<form Runat="Server">
<h2>Add New Product</h2>
<b>Product Name:</b>
<br>
<asp:TextBox
ID="txtProductName"
Runat="Server" />
<p>
<b>Unit Price:</b>
<br>
<asp:TextBox
ID="txtUnitPrice"
Runat="Server" />
<p>
<asp:Button
Text="Add!"
OnClick="Button_Click"
Runat="Server" />
</form>
</body>
</html>
این برای حذف:
HTML:
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Sub Button_Click( s As Object, e As EventArgs )
Dim conPubs As SqlConnection
Dim strDelete As String
Dim cmdDelete As SqlCommand
Dim intDeleteCount As Integer
conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" )
strDelete = "Delete Authors Where au_lname=@lastname"
cmdDelete = New SqlCommand( strDelete, conPubs )
cmdDelete.Parameters.Add( "@lastname", txtLastName.Text )
conPubs.Open()
intDeleteCount = cmdDelete.ExecuteNonQuery()
conPubs.Close()
lblResults.Text = intDeleteCount & " records deleted!"
End Sub
</Script>
<html>
<head><title>SqlFormDelete.aspx</title></head>
<body>
<form Runat="Server">
<h2>Delete Authors</h2>
<b>Last Name:</b>
<br>
<asp:TextBox
ID="txtLastName"
Runat="Server" />
<p>
<asp:Button
Text="Delete Author!"
OnClick="Button_Click"
Runat="Server" />
<p>
<asp:Label
ID="lblResults"
Runat="Server" />
</form>
</body>
</html>
اینم مخصوص ثبت عضو:
HTML:
<!-- #INCLUDE Virtual="/aspnetjobs/site/includes/header.aspx" -->
<Script runat="Server">
Dim blnIsResume As Boolean
Sub Page_Load
Dim strReturnURL As String
If Not IsPostBack Then
strReturnURL = Request.QueryString( "ReturnURL" )
IF INSTR( strReturnURL.ToLower(), "listjob" ) > 0 Then
blnIsResume = False
Else
blnIsResume = True
End If
Databind()
End If
End Sub
Sub Button_Click( s As Object, e As EventArgs )
Dim conJobs As SqlConnection
Dim strConString As String
Dim cmdInsert As SqlCommand
Dim parmReturn As SqlParameter
If IsValid Then
strConString = ConfigurationSettings.AppSettings( "constring" )
conJobs = New SqlConnection( strConString )
cmdInsert = New SqlCommand( "addUser", conJobs )
cmdInsert.CommandType = CommandType.StoredProcedure
parmReturn = cmdInsert.Parameters.Add( "@Return", SqlDbType.Int )
parmReturn.Direction = ParameterDirection.ReturnValue
cmdInsert.Parameters.Add( "@username", txtUsername.Text )
cmdInsert.Parameters.Add( "@password", txtPassword.Text )
cmdInsert.Parameters.Add( "@firstname", txtFirstname.Text )
cmdInsert.Parameters.Add( "@lastname", txtLastname.Text )
cmdInsert.Parameters.Add( "@email", txtEmail.Text )
cmdInsert.Parameters.Add( "@briefdesc", txtBriefdesc.Text )
cmdInsert.Parameters.Add( "@fulldesc", txtFulldesc.Text )
cmdInsert.Parameters.Add( "@isresume", pnlResume.Visible )
conJobs.Open()
cmdInsert.ExecuteNonQuery()
conJobs.Close
If cmdInsert.Parameters( "@Return" ).Value = 0 Then
If pnlResume.Visible Then
Cache.Remove( "NewResumes" )
End If
FormsAuthentication.RedirectFromLoginPage( txtUsername.Text, False )
Else
lblError.Visible = True
End If
End If
End Sub
</Script>
<myControls:Header
PageTitle="Register"
Runat="Server" />
<h3>Please Register</h3>
<form runat="Server">
<table border=0 width="400">
<tr><td>
<asp:Label
ID="lblError"
forecolor="red"
font-bold="True"
Visible="False"
Runat="Server">
The username that you entered has already been selected
by another user. Please enter a new username.
<p>
</asp:Label>
<b>First Name</b>
<br>
<asp:TextBox
ID="txtFirstname"
Maxlength="30"
CssClass="formfield"
Runat="Server" />
<asp:RequiredFieldValidator
ControlToValidate="txtFirstname"
Text="Required!"
Runat="Server" />
<p>
<b>Last Name</b>
<br>
<asp:TextBox
ID="txtLastname"
Maxlength="30"
CssClass="formfield"
Runat="Server" />
<asp:RequiredFieldValidator
ControlToValidate="txtLastname"
Text="Required!"
Runat="Server" />
<p>
<b>Email Address</b>
<br>
<asp:TextBox
ID="txtEmail"
Maxlength="255"
Columns="50"
CssClass="formfield"
Runat="Server" />
<asp:RequiredFieldValidator
ControlToValidate="txtEmail"
Text="Required!"
Runat="Server" />
<p>
<b>Username</b>
<br>
<asp:TextBox
ID="txtUsername"
Maxlength="20"
CssClass="formfield"
Runat="Server" />
<asp:RequiredFieldValidator
ControlToValidate="txtUsername"
Text="Required!"
Runat="Server" />
<p>
<b>Password</b>
<br>
<asp:TextBox
ID="txtPassword"
Maxlength="20"
TextMode="Password"
CssClass="formfield"
Runat="Server" />
<asp:RequiredFieldValidator
ControlToValidate="txtPassword"
Text="Required!"
Runat="Server" />
<p>
<b>Password (Again for confirmation)</b>
<br>
<asp:TextBox
ID="txtPassword2"
Maxlength="20"
TextMode="Password"
CssClass="formfield"
Runat="Server" />
<asp:RequiredFieldValidator
ControlToValidate="txtPassword2"
Text="Required!"
Display="Dynamic"
Runat="Server" />
<asp:CompareValidator
ControlToValidate = "txtPassword"
ControlToCompare = "txtPassword2"
Type = "String"
Operator="Equal"
Text="Passwords must match!"
Runat = "server" />
<p>
<asp:Panel
Visible='<%# Not blnIsResume %>'
Runat="Server">
<b>Company Brief Description</b>
<br>
Enter a brief description of your company. This description
will appear on the page that lists links to your current
job postings.
</asp:Panel>
<asp:Panel
Visible='<%# blnIsResume %>'
Runat="Server">
<b>Brief Description</b>
<br>
Enter a brief description of the type of job that you are seeking.
</asp:Panel>
<br>
<asp:TextBox
ID="txtBriefdesc"
Maxlength="50"
Columns="50"
CssClass="formfield"
Runat="Server" />
<p>
<asp:Panel
ID="pnlCompany"
Visible='<%# Not blnIsResume %>'
Runat="Server">
<b>Company Full Description</b>
<br>
Enter a full description of your company. This description
will appear on the page that lists links to your current
job postings. This description can contain HTML formatting.
</asp:Panel>
<asp:Panel
ID="pnlResume"
Visible='<%# blnIsResume %>'
Runat="Server">
<b>Resume</b>
<br>
Enter your resume. Your resume will appear on your personal home page.
Your resume can contain HTML formatting.
</asp:Panel>
<br>
<asp:TextBox
ID="txtFullDesc"
TextMode="Multiline"
Columns="80"
Rows="10"
CssClass="formfield"
Runat="Server" />
<p>
<asp:Button
Text="Register!"
OnClick="Button_Click"
Runat="Server" />
</td></tr>
</table>
</form>
<myControls:Footer
Runat="Server" />
