yanosh021
دوشنبه 29 شهریور 1389, 15:17 عصر
سلام دوستان
من می خوام مثل سایت فورد صفحات سایتم پسوند نداشته باشه درست مثل اینکه هر صفحه داخل یک پوشه رفته بدونه اینکه بخوام تنظیمات iis رو عوض کنم . من تو .net این کارو کردم اما تو asp کلاسیک نیاز دارم بهش
مثلا : mydomain.com/test.asp را می خواهم mydomain.com/test نشون بده
میشه کسی کمکم کنه
من خیلی گشتم اما فقط این کد را پیدا کردم که اونم خودش تو سایت طراحش داره کار میکنه اما من هرچی استفاده کردم کار نمی کنه میشه کسی راه نمایی کنه؟؟؟؟/؟؟
1. Class URL
2.
3. Private aURL ' Mảng các phần tử trong URL
4.
5. PrivateSub Class_Initialize()
6. sTemp = Request.Querystring
7. ' Bỏ các ký tự dầu trong URL: “404;”, “403”
8. sTemp = Right(sTemp, len(sTemp) - 4)
9. ' Bỏ đi phần địa chỉ chính trong URL
10. sTemp = replace(sTemp, "http:// degiocuondi.com:80/", "")
11. sTemp = replace(sTemp, "http:// degiocuondi.com /", "")
12. ' Thêm ký tự “/” sau cùng nếu chưa có
13. If Right(sTemp, 1) <> "/"then
14. sTemp = sTemp & "/"
15. EndIf
16. aURL = split(sTemp, "/")
17. EndSub
18.
19. PublicPropertyGet url(index)
20. If index > uBound(aUrl)then
21. url = ""
22. Else
23. url = trim(aUrl(index))
24. EndIf
25. EndProperty
26.
27.EndClass
28.
29.Set MyUrl = New URL
30.Session(0) = MyUrl.url(1))
31.Server.Transfer("/" & MyUrl.url(0) & ".asp”)
من می خوام مثل سایت فورد صفحات سایتم پسوند نداشته باشه درست مثل اینکه هر صفحه داخل یک پوشه رفته بدونه اینکه بخوام تنظیمات iis رو عوض کنم . من تو .net این کارو کردم اما تو asp کلاسیک نیاز دارم بهش
مثلا : mydomain.com/test.asp را می خواهم mydomain.com/test نشون بده
میشه کسی کمکم کنه
من خیلی گشتم اما فقط این کد را پیدا کردم که اونم خودش تو سایت طراحش داره کار میکنه اما من هرچی استفاده کردم کار نمی کنه میشه کسی راه نمایی کنه؟؟؟؟/؟؟
1. Class URL
2.
3. Private aURL ' Mảng các phần tử trong URL
4.
5. PrivateSub Class_Initialize()
6. sTemp = Request.Querystring
7. ' Bỏ các ký tự dầu trong URL: “404;”, “403”
8. sTemp = Right(sTemp, len(sTemp) - 4)
9. ' Bỏ đi phần địa chỉ chính trong URL
10. sTemp = replace(sTemp, "http:// degiocuondi.com:80/", "")
11. sTemp = replace(sTemp, "http:// degiocuondi.com /", "")
12. ' Thêm ký tự “/” sau cùng nếu chưa có
13. If Right(sTemp, 1) <> "/"then
14. sTemp = sTemp & "/"
15. EndIf
16. aURL = split(sTemp, "/")
17. EndSub
18.
19. PublicPropertyGet url(index)
20. If index > uBound(aUrl)then
21. url = ""
22. Else
23. url = trim(aUrl(index))
24. EndIf
25. EndProperty
26.
27.EndClass
28.
29.Set MyUrl = New URL
30.Session(0) = MyUrl.url(1))
31.Server.Transfer("/" & MyUrl.url(0) & ".asp”)