Aramdreams
New Member
سلام دوستان اين هم اسكريپت كانتر نوشتاري كه با Asp.netخودم كاركردم
ازجمله امكانات جالب اين برنامه ميتوان به ايجاد خودكار فايل در صورت نبود يا پيدا نكردن آن و همچنين اين فايل ايجاد شده درصورت باز شدن به هيج وجه قابل خواندن نيست مگر اينكه شما مانند نمونه زير آنرا در برنامه خود فراخواني كنيد اين هم كد كل صفحه
ازجمله امكانات جالب اين برنامه ميتوان به ايجاد خودكار فايل در صورت نبود يا پيدا نكردن آن و همچنين اين فايل ايجاد شده درصورت باز شدن به هيج وجه قابل خواندن نيست مگر اينكه شما مانند نمونه زير آنرا در برنامه خود فراخواني كنيد اين هم كد كل صفحه
<%@ Page Language="vb" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim numshowing As integer
FileOpen(1, "C:\INETPUB\GOOGOOL.TXT", OpenMode.Random, OpenAccess.ReadWrite)
Try
FileGet(1, numshowing,2)
Catch ex As Exception
End Try
numshowing+=1:fileput(1,numshowing,2)
Label2.Text = "This page " & numshowing & " visited"
FilePut(1, NUMshowing, 2)
FileClose(1)
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
dim NUMCLICK as integer
FileOpen(1, "C:\INETPUB\wwwroot\counter.txt", OpenMode.Random, OpenAccess.ReadWrite)
Try
FileGet(1, NUMCLICK, 1)
Catch ex As Exception
End Try
NUMCLICK += 1
Label1.Text = "This page " & NUMCLICK & " clicked"
FilePut(1, NUMCLICK, 1)
FileClose(1)
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:Label id="label1" runat="server"></asp:Label>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" autopostback="true" Text="Button"></asp:Button>
<asp:Label id="Label2" runat="server" text="Label"></asp:Label>
</form>
</body>
</html>
ياحق<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim numshowing As integer
FileOpen(1, "C:\INETPUB\GOOGOOL.TXT", OpenMode.Random, OpenAccess.ReadWrite)
Try
FileGet(1, numshowing,2)
Catch ex As Exception
End Try
numshowing+=1:fileput(1,numshowing,2)
Label2.Text = "This page " & numshowing & " visited"
FilePut(1, NUMshowing, 2)
FileClose(1)
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
dim NUMCLICK as integer
FileOpen(1, "C:\INETPUB\wwwroot\counter.txt", OpenMode.Random, OpenAccess.ReadWrite)
Try
FileGet(1, NUMCLICK, 1)
Catch ex As Exception
End Try
NUMCLICK += 1
Label1.Text = "This page " & NUMCLICK & " clicked"
FilePut(1, NUMCLICK, 1)
FileClose(1)
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:Label id="label1" runat="server"></asp:Label>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" autopostback="true" Text="Button"></asp:Button>
<asp:Label id="Label2" runat="server" text="Label"></asp:Label>
</form>
</body>
</html>
آخرین ویرایش:
