aspismylove
چهارشنبه 21 اردیبهشت 1390, 16:27 عصر
سلام خسته نباشید !!
ببخشید من یک پروژه از همین سایت دانلود کردم ولی چند جا رو نمیفهمم که چی کار کرده :
کد زیر و ببینید :
Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
Dim MyContext As HttpContext = HttpContext.Current
Dim rewrite_regex As Regex = New Regex("(.+)\/((.+)\.*)", RegexOptions.IgnoreCase)
Try
Dim match_rewrite As Match = rewrite_regex.Match(MyContext.Request.Path.ToStrin g())
If match_rewrite.Groups(2).Captures(0).ToString() = "NewAccount.php" Then
MyContext.RewritePath("SignUp.aspx")
ElseIf match_rewrite.Groups(2).Captures(0).ToString() = "ContactUs.php" Then
MyContext.RewritePath("contactus.aspx")
End If
Catch ex As Exception
Response.Write("ERR in Global.asax :" & ex.Message + Constants.vbLf + Constants.vbLf + ex.StackTrace.ToString() & Constants.vbLf + Constants.vbLf)
End Try
End Sub
ببینید کدهای خط دوم و سوم و و متغیری که داخل Try گفته شده .
ممممنون :بوس:
ببخشید من یک پروژه از همین سایت دانلود کردم ولی چند جا رو نمیفهمم که چی کار کرده :
کد زیر و ببینید :
Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
Dim MyContext As HttpContext = HttpContext.Current
Dim rewrite_regex As Regex = New Regex("(.+)\/((.+)\.*)", RegexOptions.IgnoreCase)
Try
Dim match_rewrite As Match = rewrite_regex.Match(MyContext.Request.Path.ToStrin g())
If match_rewrite.Groups(2).Captures(0).ToString() = "NewAccount.php" Then
MyContext.RewritePath("SignUp.aspx")
ElseIf match_rewrite.Groups(2).Captures(0).ToString() = "ContactUs.php" Then
MyContext.RewritePath("contactus.aspx")
End If
Catch ex As Exception
Response.Write("ERR in Global.asax :" & ex.Message + Constants.vbLf + Constants.vbLf + ex.StackTrace.ToString() & Constants.vbLf + Constants.vbLf)
End Try
End Sub
ببینید کدهای خط دوم و سوم و و متغیری که داخل Try گفته شده .
ممممنون :بوس: