Notifikationer

Markér alle som læst Log ud

phaze Nybegynder

12. marts 2001 - 16:57 Der er 7 kommentarer og
1 løsning

ASP

1. (15 point) Hvad er ASP koden for beat time ?

2. (30 point) Kan man med ASP se cpu hastigheden ? (I m/s)

3. (30 point) Hvordan åbner og lukker jeg forbindelsen til min Access db ?

4. (100 point) En der gidder lave en domain tester ?

5. (100 point) En der gidder lave en tæller der logger Tidspunkt (dato og klokkeslet), IP, Browser, Styresystem, Opløsning og domain i en access database ?

Synes godt om

phaze Nybegynder

12. marts 2001 - 16:58 #1

Naaa, never mind..

Synes godt om

tpiil Nybegynder

12. marts 2001 - 16:59 #2

1. <%

h = Cstr(hour(time)-1)
If Cstr(h) = \"-1\" then
h = \"23\"
End If
m = minute(time)
s = second(time)
getBeats = Left(Round(((Cint(h) * 3600) + (Cint(m) * 60) + (Cint(s))) * (1000 / 86400)),3)

response.write getBeats
%>

Synes godt om

tpiil Nybegynder

12. marts 2001 - 16:59 #3

hvorfor opretter du det så?? :)

Synes godt om

netsrac Praktikant

12. marts 2001 - 17:00 #4

4:

<HTML>
<HEAD>
</HEAD>
<BODY BGCOLOR=\"A3A8B1\">
<CENTER>
<TABLE BORDER=\"0\" CELLSPACING=\"2\" CELLPADDING=\"2\">
<TR><TD>
<TABLE BORDER=\"1\" BORDERCOLOR=\"657C91\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
<TD BGCOLOR=\"657C91\" WIDTH=\"100\"> Menu</TD>
</TR>
<TR>
<TD BGCOLOR=\"FFF8EE\" WIDTH=\"100\" HEIGHT=\"400\" VALIGN=\"top\">

</TD>
</TR>
<TR>
<TD BGCOLOR=\"657C91\" WIDTH=\"100\"> <% =date() %></TD>
</TR>
</TABLE>
</TD><TD>
<TABLE BORDER=\"1\" BORDERCOLOR=\"657C91\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
<TD BGCOLOR=\"657C91\" WIDTH=\"600\"> Carsten N Hansen</TD>
</TR>
<TR>
<TD BGCOLOR=\"FFF8EE\" WIDTH=\"600\" HEIGHT=\"400\" VALIGN=\"top\">

 Domain Tester 
 Det er muligt at søge på .dk, .com, .net, .org, .as, .it, .nu og .se domains. 
 
<% if request.querystring(\"fejl\") = \"1\" then %>
 Du kan kun søge på .dk, .com, .net, .org, .as, .it, .nu og .se domains.
<% end if %>
<% if request.querystring(\"fejl\") = \"2\" then %>
 Du skal indtaste et domain.
<% end if %>
<% if request.querystring(\"fejl\") = \"3\" then %>
 Du skal ikke taste "www." foran domainet.
<% end if %>
<% if request.querystring(\"fejl\") = \"4\" then %>
 Et domain navn må ikke indeholde æ, ø, å og _
<% end if %>
<% if request.querystring(\"fejl\") = \"5\" then %>
 Et domain navn må KUN indeholde et punktum.
<% end if %>
<% if request.querystring(\"fejl\") = \"6\" then %>
 cnh.dk er selvfølgelig optaget :-)
<% end if %>
<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

StrDomain = lcase(trim(request.form(\"domain\")))

if len(StrDomain) = 0 Then
response.redirect (\"domain.asp?fejl=2\")
end if

If InStr(StrDomain, \"www.\") > 1 then
response.redirect (\"domain.asp?fejl=3\")
end if

if InStr(1, StrDomain, \".\") > 0 and InStr(InStr(1, StrDomain, \".\")+1, StrDomain, \".\") then
response.redirect (\"domain.asp?fejl=5\")
end if

If InStr(StrDomain, \"æ\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"ø\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"å\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"_\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If StrDomain = \"cnh.dk\" then
response.redirect (\"domain.asp?fejl=6\")
end if

\' // .DK Domains
if InStr(StrDomain, \".dk\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.dk-hostmaster.dk:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(1, tmpBuffer, \"% No entries found\", 1) > 0 Then
Response.Write \" Domain navnet \" & strDomain & \" er ledigt hos DK-HOSTMASTER.\"
Else
Response.Write \" Desværre domainet <a href=\'http://www.\" & strDomain & \"\' target=\'_blank\'>\" & strDomain & \"</A> er optaget. \"
\'Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
End If
objSocket.Close

\' // .COM og .NET og .ORG Domains
ElseIf InStr(StrDomain, \".com\") OR InStr(StrDomain, \".net\") OR InStr(StrDomain, \".org\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.internic.net:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"Name Server\") Then
Response.Write \" Desværre domainet <a href=\'http://www.\" & strDomain & \"\' target=\'_blank\'>\" & strDomain & \"</A> er optaget. \"
\'Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
Else
Response.Write \" Domain navnet \" & strDomain & \" er ledigt hos INTERNIC.\"
End if
objSocket.Close

\' // .AS Domains
ElseIf InStr(StrDomain, \".as\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.nic.as:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"Domain Not Found\") Then
Response.Write \" Domain navnet \" & strDomain & \" er ledigt hos ASNIC.\"
Else
Response.Write \" Desværre domainet <a href=\'http://www.\" & strDomain & \"\' target=\'_blank\'>\" & strDomain & \"</A> er optaget. \"
\'Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
End if
objSocket.Close

\' // .IT Domains
ElseIf InStr(StrDomain, \".it\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.nic.it:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"No entries found\") Then
Response.Write \" Domain navnet \" & strDomain & \" er ledigt hos IT-NIC.\"
Else
Response.Write \" Desværre domainet <a href=\'http://www.\" & strDomain & \"\' target=\'_blank\'>\" & strDomain & \"</A> er optaget. \"
\'Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
End If
objSocket.Close

\' // .NU Domains
ElseIf InStr(StrDomain, \".nu\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.nic.nu:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"Found exact match:\") Then
Response.Write \" Desværre domainet <a href=\'http://www.\" & strDomain & \"\' target=\'_blank\'>\" & strDomain & \"</A> er optaget. \"
\'Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
Else
Response.Write \" Domain navnet \" & strDomain & \" er ledigt hos NUNAMES.\"
End If
objSocket.Close

\' // .SE Domains
ElseIf InStr(StrDomain, \".se\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.nic-se.se:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"No data found.\") Then
Response.Write \" Domain navnet \" & strDomain & \" er ledigt hos NIC-SE.\"
Else
Response.Write \" Desværre domainet <a href=\'http://www.\" & strDomain & \"\' target=\'_blank\'>\" & strDomain & \"</A> er optaget. \"
\'Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
End If
objSocket.Close

else response.redirect(\"domain.asp?fejl=1\")

end if%>
 
 Der gives ingen garanti for korrektheden af denne søgning.
<% End If %>

</TD>
</TR>
<TR>
<TD BGCOLOR=\"657C91\" WIDTH=\"600\"> <A HREF=\"mailto:info@cnh.dk\">info@cnh.dk</A></TD>
</TR>
</TABLE>

</TD></TR></TABLE>

</CENTER>
</BODY>
</HTML>

Synes godt om

netsrac Praktikant

12. marts 2001 - 17:00 #5

Fuck hvor elendigt !!

Synes godt om

ortrak Nybegynder

12. marts 2001 - 17:01 #6

idiot

/ortrak

Synes godt om

dudesicko Novice

12. marts 2001 - 17:05 #7

Sådan kan man også få ting lavet uden at give point for det ;(

Svindler.

Synes godt om

phineas_phreak Nybegynder

23. juni 2002 - 18:20 #8

:DDD og hans profil blev slettet

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS