| عنوان | پاسخ | بازدید | توسط |
 دانلود جزوه ی سیستم عامل پیشرفته استاد برومند نیا |
0 | 2859 | admin |
| دانلود نمونه سوالات درس طراحی الگوریتم پیشرفته |
0 | 1722 | admin |
| دانلود نمونه سوالات درس سیستم عامل پیشرفته |
0 | 3771 | admin |
| دانلود جزوه سیستم عامل پیشرفته - استاد زیاری |
0 | 2081 | admin |
| اسلاید های درس سیستم عامل پیشرفته :: دکتر برومند نیا |
0 | 1870 | admin |
Display an image
<script runat="server"> Sub Page_Load(Sender As Object,E As EventArgs)
image1.Src="testimage.gif" image1.Alt="test image " End Sub
</script>
<html>
<body>
<form runat="server"> <img id="image1" runat="server" />
</form>
</body>
</html>
Simple Upload in ASP.NET
<%@ Page Language="VB" Debug="true" %>
<%@ import namespace="System.IO" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
if page.isPostBackDim strFilePath As String = strFile.PostedFile.FileName
Dim i As Integer = InStr(1, StrReverse(strFilePath), "")Dim strFileName As String = Mid(strFilePath, (Len(strFilePath) - i) + 2)
strFile.PostedFile.SaveAs("c:websitesarticles" & strFileName) fileUploading.visible = false
msg.text = "File Uploaded ..."end if
end sub
</script>
<html>
<head>
</head>
<body>
<form id="fileUploading" runat="Server" enctype="multipart/form-data">
<b>Image :</b> <input id="strFile" type="file" runat="Server" />
<input type="submit" id="AddImage" value="Upload Image" runat="server" />
</form>
<asp:label id="msg" runat="server"/></body>
</html>
Random numbers
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
Dim random(10) as Integer
Dim counter as Integer
Dim randNumber as New Random()
For counter = 0 to 10
random(counter) = randNumber.Next(100)
Next counter
Array.Sort(random)
displayNumbers.DataSource = random
displayNumbers.DataBind()
End Sub
</script>
<asp:DataGrid runat="server" id="displayNumbers" ShowHeader="False" />
Read a file
<%@ Import Namespace="System.IO" %><script language="vb" runat="server">
sub Page_Load(sender as Object, e as EventArgs)
'Open the sampletext.txt file . Note this is in the same directory as the scriptDim testfile as String = Server.MapPath("sampletext.txt")'Create a streamreader classDim objStreamReader as StreamReader
'open the fileobjStreamReader = File.OpenText(testfile)
'Read the file storing it in the readfile string
Dim readfile as String = objStreamReader.ReadToEnd()
'Place the string into a web controllblTextFile.Text = readfile
'close the StreamReader class
objStreamReader.Close()
end sub
</script>
<asp:label runat="server" id="lblTextFile" />
Error Loging in ASP.NET
Run this code to create table :if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[errorLog]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[errorLog]
GO
CREATE TABLE [dbo].[errorLog] (
[errID] [int] IDENTITY (1, 1) NOT NULL ,[errorPage] [nvarchar] (150) ,
[errorDate] [datetime] NULL
) ON [PRIMARY]
GO
Now we will create our stored procedure :
CREATE PROCEDURE dbo.insertLog
@page NVARCHAR(150)
AS
BEGIN
INSERT ErrorLog
( errorPage, errorDate )
VALUES
( @page, GETDATE() )
END
GO
Now if doed not exist web.config file create one or modify it with those codes :<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<system.web>
<compilation defaultLanguage="VB" debug="true" />
<customErrors mode="On" defaultRedirect="error.aspx" />
</system.web>
<appSettings>
<add key="strCon" value="server=localhost;User id=sa;password=;database=dotnet" />
</appSettings>
</configuration>
Ok. Our hard work finished after modifying our database connection. Double check that you have run sql scripts correctly without any error. You may use SQL Query Analyzer. Do not miss to check SQL connection. After editing and upload this script to your site.<%@ Page Language="VB" Debug="true" %>
<%@ import namespace="System.Data" %>
<%@ import namespace="System.Data.SQLClient" %>
<%@ import namespace="System.Diagnostics" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim objCon As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("strCon")) Dim objCmd As SqlCommand = New SqlCommand("insertLog", objCon)objCmd.CommandType = CommandType.StoredProcedure
Dim strParm As SqlParameter = objCmd.Parameters.Add("@Page", SqlDbType.NVarChar, 150) strParm.Value = trim(request.querystring("aspxerrorpath"))objCon.Open()
objCmd.ExecuteNonQuery()
objCon.Close()
end sub
</script>
<html>
<head>
</head>
<body>
<h2>Sorry, A error has occurred in this page.</h2>
</body>
</html>
انجام پروژه های برنامه نویسی و شبکه توسط تیم چیستا