Category Archives: Server Scripting

01.30.13
by

where the temp directory is located


How can I find out where the temp directory is located ?

try this

<%
Response.Write(“The TEMP environment variable is : ” & Environment.GetEnvironmentVariable(“TEMP”))
%>

01.30.13
by

USERPROFILE environment variable with ASP.NET


How can I find out the USERPROFILE environment variable with ASP.NET?

use this

<%
Response.Write(“The USERPROFILE environment variable is : ” & Environment.GetEnvironmentVariable(“USERPROFILE”))
%>

01.30.13
by

memory working set with ASP.NET


How can I find out my memory working set with ASP.NET?

U can find with the use of this:-

<%
Response.Write(“The Working Set is ” & System.Environment.WorkingSet.ToString() & ” bytes”)
%>

01.30.13
by

website in asp.net


I made a website, with some classes , files and bla bla.
I do’t want to upload the code as it is on the webserver, rather i just want to make DLLs out of these files and classes so no one could get hold of my code.

any idea

build your “Business Objects” in VB.NET. Build these as an application. They will push out your .DLL’s

VS can do this for you, there is a command line app in the .net framework folder in the windows folder or alternatively there are free apps that will give you a GUI for the command line function.

01.30.13
by

ASP to .NET Migration


Hello,

I’ve been working with a pure ASP for 3 years now. Is it hard to migrate to .NET (aspx) ? Anyone tried it?

Anyone’s experience would be interesting to know, and how long it took you to migrate.

They are two totally different beasts. ASP was a scripting language whereas .NET is more along the line of an OOP language.

It is not hard,
.NET is so powerful and while migrating possibly your line count of codes will be less. Migrating to Vb.net is can be easy if you don’t know C syntax.

Are you looking to migrate an already created site or simply just start creating new sites in .Net?

A large proportion of ASP will work in .Net though naturally it is not as efficient but it does allow people to continue to develop sites whilst learning.

If you are creating sites in VBScript then VB.Net will be the easiest to transfer to but persevering with C# is potentially preferable if you are looking for commercial applications as it is simply a more desired skill. Saying that, there are plenty of free tools that will convert one to the other and as long as the original code is well written they have a 99% success rate.

From my experience that not easy task. You can enable compatibility with ASP in visual studio, but I don’t think that will help if you need extend your code after and have access to asp objects from asp.net. I never tried ASP to ASP.NET Microsoft Migration Assistant, but I think its worth to try.

01.30.13
by

script for Google PR written in ASP .NET


Does anybody have a script for Google PR written in ASP .NET? I seen quite a few in PHP but i m looking for a script which is written in ASP .NET

I also tried many times to find one but find yet

You can use this php script in asp.net also.

you can call php script from asp & asp.net

try this

Code:

<%
Const GOOGLE_MAGIC = &HE6359A60

Function sl(ByVal x, ByVal n)
If n = 0 Then
sl = x
Else
Dim k
k = CLng(2 ^ (32 - n - 1))
Dim d
d = x And (k - 1)
Dim c
c = d * CLng(2 ^ n)
If x And k Then
c = c Or &H80000000
End If
sl = c
End If
End Function

Function sr(ByVal x, ByVal n)
If n = 0 Then
sr = x
Else
Dim y
y = x And &H7FFFFFFF
Dim z
If n = 32 - 1 Then
z = 0
Else
z = y  CLng(2 ^ n)
End If
If y <> x Then
z = z Or CLng(2 ^ (32 - n - 1))
End If
sr = z
End If
End Function

Function zeroFill(ByVal a, ByVal b)
Dim x
if (&H80000000 AND a) then
x = sr(a,1)
x = x AND (NOT &H80000000)
x = x OR &H40000000
x = sr(x,b-1)
else
x = sr(a,b)
end if
zeroFill = x
End Function

Private Function uadd(ByVal L1, ByVal L2)
Dim L11, L12, L21, L22, L31, L32
L11 = L1 And &HFFFFFF
L12 = (L1 And &H7F000000)  &H1000000
If L1 < 0 Then L12 = L12 Or &H80
L21 = L2 And &HFFFFFF
L22 = (L2 And &H7F000000)  &H1000000
If L2 < 0 Then L22 = L22 Or &H80
L32 = L12 + L22
L31 = L11 + L21
If (L31 And &H1000000) Then L32 = L32 + 1
uadd = (L31 And &HFFFFFF) + (L32 And &H7F) * &H1000000
If L32 And &H80 Then uadd = uadd Or &H80000000
End Function

Private Function usub(ByVal L1, ByVal L2)
Dim L11, L12, L21, L22, L31, L32
L11 = L1 And &HFFFFFF
L12 = (L1 And &H7F000000)  &H1000000
If L1 < 0 Then L12 = L12 Or &H80
L21 = L2 And &HFFFFFF
L22 = (L2 And &H7F000000)  &H1000000
If L2 < 0 Then L22 = L22 Or &H80
L32 = L12 - L22
L31 = L11 - L21
If L31 < 0 Then
L32 = L32 - 1
L31 = L31 + &H1000000
End If
usub = L31 + (L32 And &H7F) * &H1000000
If L32 And &H80 Then usub = usub Or &H80000000
End Function

Function mix(ByVal ia, ByVal ib, ByVal ic)
Dim a, b, c
a = ia
b = ib
c = ic

a = usub(a,b)
a = usub(a,c)
a = a XOR zeroFill(c,13)

b = usub(b,c)
b = usub(b,a)
b = b XOR sl(a,8)

c = usub(c,a)
c = usub(c,b)
c = c XOR zeroFill(b,13)

a = usub(a,b)
a = usub(a,c)
a = a XOR zeroFill(c,12)

b = usub(b,c)
b = usub(b,a)
b = b XOR sl(a,16)

c = usub(c,a)
c = usub(c,b)
c = c XOR zeroFill(b,5)

a = usub(a,b)
a = usub(a,c)
a = a XOR zeroFill(c,3)

b = usub(b,c)
b = usub(b,a)
b = b XOR sl(a,10)

c = usub(c,a)
c = usub(c,b)
c = c XOR zeroFill(b,15)

Dim ret(3)

ret(0) = a
ret(1) = b
ret(2) = c

mix = ret
End Function

Function gc(ByVal s, ByVal i)
gc = Asc(Mid(s,i+1,1))
End Function

function GoogleCH(ByVal sURL)
Dim iLength, a, b, c, k, iLen, m
iLength = Len(sURL)

a = &H9E3779B9
b = &H9E3779B9
c = GOOGLE_MAGIC
k = 0

iLen = iLength
do while iLen >= 12
a = uadd(a,(uadd(gc(sURL,k+0),uadd(sl(gc(sURL,k+1),8),uadd(sl(gc(sURL,k+2),16),sl(gc(sURL,k+3),24))))))
b = uadd(b,(uadd(gc(sURL,k+4),uadd(sl(gc(sURL,k+5),8),uadd(sl(gc(sURL,k+6),16),sl(gc(sURL,k+7),24))))))
c = uadd(c,(uadd(gc(sURL,k+8),uadd(sl(gc(sURL,k+9),8),uadd(sl(gc(sURL,k+10),16),sl(gc(sURL,k+11),24))))))

m = mix(a,b,c)

a = m(0)
b = m(1)
c = m(2)

k = k + 12

iLen = iLen - 12
loop

c = uadd(c,iLength)

select case iLen ' all the case statements fall through
case 11
c = uadd(c,sl(gc(sURL,k+10),24))
c = uadd(c,sl(gc(sURL,k+9),16))
c = uadd(c,sl(gc(sURL,k+8),8))
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 10
c = uadd(c,sl(gc(sURL,k+9),16))
c = uadd(c,sl(gc(sURL,k+8),8))
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 9
c = uadd(c,sl(gc(sURL,k+8),8))
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 8
b = uadd(b,sl(gc(sURL,k+7),24))
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 7
b = uadd(b,sl(gc(sURL,k+6),16))
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 6
b = uadd(b,sl(gc(sURL,k+5),8))
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 5
b = uadd(b,gc(sURL,k+4))
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 4
a = uadd(a,sl(gc(sURL,k+3),24))
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 3
a = uadd(a,sl(gc(sURL,k+2),16))
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 2
a = uadd(a,sl(gc(sURL,k+1),8))
a = uadd(a,gc(sURL,k+0))
case 1
a = uadd(a,gc(sURL,k+0))
End Select

m = mix(a,b,c)

GoogleCH = m(2)
End Function

Function CalculateChecksum(sURL)
CalculateChecksum = "6" & CStr(GoogleCH("info:" & sURL) AND &H7FFFFFFF)
End Function

Function GetRank(sURL)
response.redirect "http://www.google.com/search?client=navclient-auto&ch=" & sURL & "&features=Rank&q=" & "info:" & sURL
End Function

GetRank("www.google.com")
01.30.13
by

convert PHP code in ASP


Hi,
Can someone please give me the ASP of this PHP code?

<?php
echo file_get_contents($myv);
?>

It gets the entire content of a webpage and displays it on the page where the code runs. Supports http:// also.

I think I will first have to set the variable “myv” using:

dim myv=”http://site.com?id=33&#8243;;
Is that right?

Thanks for helping.

Try this

Code:

<%
Function getUrl(urltogo)
GotothisURL = urltogo
on error resume next
Set GetConnection = CreateObject("Microsoft.XMLHTTP")
on error resume next
GetConnection.Open "get", GotothisURL, False
GetConnection.Send
ResponsePage = GetConnection.responseText
Set GetConnection = Nothing
ResponsePage = removeChars(ResponsePage)
if err.description = "" then
getUrl = ResponsePage
else
getUrl = "News not found"
end if
end function

full_content = getUrl("http://www.mobile.am")
small_content = getUrl("http://www.mobile.am")

if full_content = "" then full_content = "<H3>Not found, invalid URL</h3>" end if
if small_content = "" then small_content = "<H3>Not found, invalid URL</h3>" end if

%>
01.30.13
by

version of ASP.NET


How can I find out what version of ASP.NET is running on my computer?

try this

Code:

<%
Response.Write("The .NET version is " & System.Environment.Version.ToString() )
%>