Vide Active-X fel..

22 svar · 708 visningar · startad av voigtann1 30 juli 2003

voigtann1Medlem sedan juni 20019 519 inlägg

30 juli 2003 20:51#1

Jag har försökt följa Vides lilla tutorial... fast jag får bara fel hela tiden:

Anropet till Server.CreateObject misslyckades när behörigheterna kontrollerades. Ingen åtkomst medges till detta objekt.

rad 8 är:

      set myObject = Server.CreateObject( "com.string" )

Vad har jag gjort för fel?

strings.cls ser ut:

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "string"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function HTMLBreak(ByVal strText As String) As String
   HTMLBreak = Replace(strText, vbCrLf, "<br>")
End Function

När jag öppnar den i notepad.

SPiNMedlem sedan mars 20007 896 inlägg

30 juli 2003 21:12#2

Låt användaren IUSR_<datornamn> få tillgång till din DLL-fil.

voigtann1Medlem sedan juni 20019 519 inlägg

30 juli 2003 21:13#3

jaha? hur gör man det?

SPiNMedlem sedan mars 20007 896 inlägg

30 juli 2003 21:18#4

Du går in i egenskaper för filen, klickar på fliken Säkerhet, klickar dig in via en knapp ( Minns inte vilken, och kan inte kolla på min burk heller... ) och ger användaren IUSR_<datornamn> läs- & körrättigheter för filen.

voigtann1Medlem sedan juni 20019 519 inlägg

30 juli 2003 21:30#5

*yey* it works... time to search and find how database codes look like and regular expressions :e

voigtann1Medlem sedan juni 20019 519 inlägg

30 juli 2003 22:09#6

problem:

com (0x800A01A8)
Object required

med denna kod:

Public Function HTMLBreak(ByVal strText As String) As String
   Set objregexp = CreateObject("VBScript.RegExp")
   objregexp.Global = True
   objregexp.IgnoreCase = True
   objregexp.MultiLine = True
   strText = Server.HTMLEncode(strText)

   objregexp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
   HTMLBreak = objregexp.Replace(strText, "<$1>")

   HTMLBreak = Replace(strText, vbCrLf, "<br>" & vbCrLf)
End Function

Denna tråd kanske ska flyttas till VB?

------------------
RED
------------------
När jag kör denna kod:

Option Explicit

Public Function HTMLBreak(ByVal strText As String) As String
   Dim objregexp As String
   Set objregexp = CreateObject("VBScript.RegExp")
   objregexp.Global = True
   objregexp.IgnoreCase = True
   objregexp.MultiLine = True
   strText = Server.HTMLEncode(strText)

   objregexp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
   HTMLBreak = objregexp.Replace(strText, "<$1>")

   HTMLBreak = Replace(strText, vbCrLf, "<br>" & vbCrLf)
End Function

Så får jag att objregexp finns inte... har jag dim:at fel eller?

Nexus86Medlem sedan okt. 20023 030 inlägg

30 juli 2003 22:45#7

Vad exakt är det du ska göra och är det i ASP eller VB?

voigtann1Medlem sedan juni 20019 519 inlägg

30 juli 2003 22:58#8

Jag försöker få mina reg.exp från ASP till VB... som sen ska köras med ASP... är det rätt?

Nexus86Medlem sedan okt. 20023 030 inlägg

30 juli 2003 23:32#9

Varför inte köra med ASP på en gång?

Function HTMLBreak(strText)
   Dim objregexp
   Set objregexp = Server.CreateObject("VBScript.RegExp")
   objregexp.Global = True
   objregexp.IgnoreCase = True
   objregexp.MultiLine = True
   strText = Server.HTMLEncode(strText)

   objregexp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
   strText = objregexp.Replace(strText, "<$1>")

   HTMLBreak = Replace(strText, vbCrLf, "<br>" & vbCrLf)
End Function

voigtann1Medlem sedan juni 20019 519 inlägg

31 juli 2003 08:17#10

För det kör jag redan... vill ha det i VB

Nexus86Medlem sedan okt. 20023 030 inlägg

31 juli 2003 11:41#11

Blir lite marigare med tanke på att det inte finns någon motsvarighet till Server.HTMLEncode i VB men du har tur. Jag skrev en liknande funktion för några veckor sedan. :)

Option Explicit

Public Function HTMLBreak(sText As String) As String
  Dim objregexp As Object, sText As String
    Set objregexp = CreateObject("VBScript.RegExp")
    objregexp.Global = True
    objregexp.IgnoreCase = True
    strText = FixHTMLCodes(strText)

    objregexp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
    sText = objregexp.Replace(sText, "<$1>")

    HTMLBreak = Replace(sText, vbCrLf, "<br>" & vbCrLf)
End Function

Private Function FixHTMLCodes(sHTML As String) As String
  Dim sBuffer As String
    sBuffer = sHTML
    
    sBuffer = Replace(sBuffer, "&amp;aring;", "å")
    sBuffer = Replace(sBuffer, "&amp;auml;", "ä")
    sBuffer = Replace(sBuffer, "&amp;ouml;", "ö")
    sBuffer = Replace(sBuffer, "&amp;Aring;", "Å")
    sBuffer = Replace(sBuffer, "&amp;Auml;", "Ä")
    sBuffer = Replace(sBuffer, "&amp;Ouml;", "Ö")
    sBuffer = Replace(sBuffer, "&amp;amp;", "&")
    sBuffer = Replace(sBuffer, "&amp;quot;", """")
    sBuffer = Replace(sBuffer, "&amp;#130;", "‚")
    sBuffer = Replace(sBuffer, "&amp;#131;", "ƒ")
    sBuffer = Replace(sBuffer, "&amp;#132;", "„")
    sBuffer = Replace(sBuffer, "&amp;#133;", "…")
    sBuffer = Replace(sBuffer, "&amp;#134;", "†")
    sBuffer = Replace(sBuffer, "&amp;#135;", "‡")
    sBuffer = Replace(sBuffer, "&amp;#136;", "ˆ")
    sBuffer = Replace(sBuffer, "&amp;#137;", "‰")
    sBuffer = Replace(sBuffer, "&amp;#138;", "Š")
    sBuffer = Replace(sBuffer, "&amp;#139;", "‹")
    sBuffer = Replace(sBuffer, "&amp;#140;", "Œ")
    sBuffer = Replace(sBuffer, "&amp;#145;", "‘")
    sBuffer = Replace(sBuffer, "&amp;#146;", "’")
    sBuffer = Replace(sBuffer, "&amp;#147;", "“")
    sBuffer = Replace(sBuffer, "&amp;#148;", "”")
    sBuffer = Replace(sBuffer, "&amp;#149;", "•")
    sBuffer = Replace(sBuffer, "&amp;#150;", "–")
    sBuffer = Replace(sBuffer, "&amp;#151;", "—")
    sBuffer = Replace(sBuffer, "&amp;#152;", "˜")
    sBuffer = Replace(sBuffer, "&amp;#153;", "™")
    sBuffer = Replace(sBuffer, "&amp;#154;", "š")
    sBuffer = Replace(sBuffer, "&amp;#155;", "›")
    sBuffer = Replace(sBuffer, "&amp;#156;", "œ")
    sBuffer = Replace(sBuffer, "&amp;#159;", "Ÿ")
    sBuffer = Replace(sBuffer, "&amp;#160;", " ")
    sBuffer = Replace(sBuffer, "&amp;#161;", "¡")
    sBuffer = Replace(sBuffer, "&amp;#162;", "¢")
    sBuffer = Replace(sBuffer, "&amp;#163;", "£")
    sBuffer = Replace(sBuffer, "&amp;#164;", "¤")
    sBuffer = Replace(sBuffer, "&amp;#165;", "¥")
    sBuffer = Replace(sBuffer, "&amp;#166;", "¦")
    sBuffer = Replace(sBuffer, "&amp;#167;", "§")
    sBuffer = Replace(sBuffer, "&amp;#168;", "¨")
    sBuffer = Replace(sBuffer, "&amp;#169;", "©")
    sBuffer = Replace(sBuffer, "&amp;#170;", "ª")
    sBuffer = Replace(sBuffer, "&amp;#171;", "«")
    sBuffer = Replace(sBuffer, "&amp;#172;", "¬")
    sBuffer = Replace(sBuffer, "&amp;#173;", "_")
    sBuffer = Replace(sBuffer, "&amp;#174;", "®")
    sBuffer = Replace(sBuffer, "&amp;#175;", "¯")
    sBuffer = Replace(sBuffer, "&amp;#176;", "°")
    sBuffer = Replace(sBuffer, "&amp;#177;", "±")
    sBuffer = Replace(sBuffer, "&amp;#178;", "²")
    sBuffer = Replace(sBuffer, "&amp;#179;", "³")
    sBuffer = Replace(sBuffer, "&amp;#180;", "´")
    sBuffer = Replace(sBuffer, "&amp;#181;", "µ")
    sBuffer = Replace(sBuffer, "&amp;#182;", "¶")
    sBuffer = Replace(sBuffer, "&amp;#183;", "·")
    sBuffer = Replace(sBuffer, "&amp;#184;", "¸")
    sBuffer = Replace(sBuffer, "&amp;#185;", "¹")
    sBuffer = Replace(sBuffer, "&amp;#186;", "º")
    sBuffer = Replace(sBuffer, "&amp;#187;", "»")
    sBuffer = Replace(sBuffer, "&amp;#188;", "¼")
    sBuffer = Replace(sBuffer, "&amp;#189;", "½")
    sBuffer = Replace(sBuffer, "&amp;#190;", "¾")
    sBuffer = Replace(sBuffer, "&amp;#191;", "¿")
    sBuffer = Replace(sBuffer, "&amp;#192;", "À")
    sBuffer = Replace(sBuffer, "&amp;#193;", "Á")
    sBuffer = Replace(sBuffer, "&amp;#194;", "Â")
    sBuffer = Replace(sBuffer, "&amp;#195;", "Ã")
    sBuffer = Replace(sBuffer, "&amp;#196;", "Ä")
    sBuffer = Replace(sBuffer, "&amp;#197;", "Å")
    sBuffer = Replace(sBuffer, "&amp;#198;", "Æ")
    sBuffer = Replace(sBuffer, "&amp;#199;", "Ç")
    sBuffer = Replace(sBuffer, "&amp;#200;", "È")
    sBuffer = Replace(sBuffer, "&amp;#201;", "É")
    sBuffer = Replace(sBuffer, "&amp;#202;", "Ê")
    sBuffer = Replace(sBuffer, "&amp;#203;", "Ë")
    sBuffer = Replace(sBuffer, "&amp;#204;", "Ì")
    sBuffer = Replace(sBuffer, "&amp;#205;", "Í")
    sBuffer = Replace(sBuffer, "&amp;#206;", "Î")
    sBuffer = Replace(sBuffer, "&amp;#207;", "Ï")
    sBuffer = Replace(sBuffer, "&amp;#208;", "Ð")
    sBuffer = Replace(sBuffer, "&amp;#209;", "Ñ")
    sBuffer = Replace(sBuffer, "&amp;#210;", "Ò")
    sBuffer = Replace(sBuffer, "&amp;#211;", "Ó")
    sBuffer = Replace(sBuffer, "&amp;#212;", "Ô")
    sBuffer = Replace(sBuffer, "&amp;#213;", "Õ")
    sBuffer = Replace(sBuffer, "&amp;#214;", "Ö")
    sBuffer = Replace(sBuffer, "&amp;#215;", "×")
    sBuffer = Replace(sBuffer, "&amp;#216;", "Ø")
    sBuffer = Replace(sBuffer, "&amp;#217;", "Ù")
    sBuffer = Replace(sBuffer, "&amp;#218;", "Ú")
    sBuffer = Replace(sBuffer, "&amp;#219;", "Û")
    sBuffer = Replace(sBuffer, "&amp;#220;", "Ü")
    sBuffer = Replace(sBuffer, "&amp;#221;", "Ý")
    sBuffer = Replace(sBuffer, "&amp;#222;", "Þ")
    sBuffer = Replace(sBuffer, "&amp;#223;", "ß")
    sBuffer = Replace(sBuffer, "&amp;#224;", "à")
    sBuffer = Replace(sBuffer, "&amp;#225;", "á")
    sBuffer = Replace(sBuffer, "&amp;#226;", "â")
    sBuffer = Replace(sBuffer, "&amp;#227;", "ã")
    sBuffer = Replace(sBuffer, "&amp;#228;", "ä")
    sBuffer = Replace(sBuffer, "&amp;#229;", "å")
    sBuffer = Replace(sBuffer, "&amp;#230;", "æ")
    sBuffer = Replace(sBuffer, "&amp;#231;", "ç")
    sBuffer = Replace(sBuffer, "&amp;#232;", "è")
    sBuffer = Replace(sBuffer, "&amp;#233;", "é")
    sBuffer = Replace(sBuffer, "&amp;#234;", "ê")
    sBuffer = Replace(sBuffer, "&amp;#235;", "ë")
    sBuffer = Replace(sBuffer, "&amp;#236;", "ì")
    sBuffer = Replace(sBuffer, "&amp;#237;", "í")
    sBuffer = Replace(sBuffer, "&amp;#238;", "î")
    sBuffer = Replace(sBuffer, "&amp;#239;", "ï")
    sBuffer = Replace(sBuffer, "&amp;#240;", "ð")
    sBuffer = Replace(sBuffer, "&amp;#241;", "ñ")
    sBuffer = Replace(sBuffer, "&amp;#242;", "ò")
    sBuffer = Replace(sBuffer, "&amp;#243;", "ó")
    sBuffer = Replace(sBuffer, "&amp;#244;", "ô")
    sBuffer = Replace(sBuffer, "&amp;#245;", "õ")
    sBuffer = Replace(sBuffer, "&amp;#246;", "ö")
    sBuffer = Replace(sBuffer, "&amp;#247;", "÷")
    sBuffer = Replace(sBuffer, "&amp;#248;", "ø")
    sBuffer = Replace(sBuffer, "&amp;#249;", "ù")
    sBuffer = Replace(sBuffer, "&amp;#250;", "ú")
    sBuffer = Replace(sBuffer, "&amp;#251;", "û")
    sBuffer = Replace(sBuffer, "&amp;#252;", "ü")
    sBuffer = Replace(sBuffer, "&amp;#253;", "ý")
    sBuffer = Replace(sBuffer, "&amp;#254;", "þ")
    sBuffer = Replace(sBuffer, "&amp;#255;", "ÿ")
    
    FixHTMLCodes = sBuffer
End Function

R// wF Gjorde om alla tecken

voigtann1Medlem sedan juni 20019 519 inlägg

31 juli 2003 12:27#12

nu kan jag få igång vissa saker.. men inte [.B] och sånt.. kan bara få igång ny rad saken...

voigtann1Medlem sedan juni 20019 519 inlägg

31 juli 2003 16:55#13

Jag provade att skapa vides "test" program... och där får jag igång [.b]... men när jag kör i ASP:en får jag:

Feltyp:
Serverobjekt, ASP 0177 (0x8007007E)
8007007e

solbulleMedlem sedan mars 20015 287 inlägg

1 aug. 2003 09:48#14

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q273/7/44.asp&NoWebContent=1

voigtann1Medlem sedan juni 20019 519 inlägg

1 aug. 2003 10:17#15

men.. men... jag installerade dll filen... det vet jag att jag gjorde... anyway.. fungera nu :e ... strange

voigtann1Medlem sedan juni 20019 519 inlägg

3 aug. 2003 19:27#16

nu kommer jag igen... fungera Request.querystring på VB eller heter det något annat? eller bör man göra funktioner och lägga querystringen där? tex function test(requset.querystring)

SPiNMedlem sedan mars 20007 896 inlägg

3 aug. 2003 21:33#17

Både Server- och Request-objekten har jag för mig att man kan hämta in till sin komponent. Se till att importera/inkludera biblioteken ASPTypeLibrary och ObjectContext ( Kanske inte ens behövs importeras? ) till era projekt. Så kunde man göra med ASPTypeLibrary.Response ( Response-objektet i ASP ), bör inte vara någon skillnad?

Man anropar:

Private objContext As ObjectContext
Private objServer As ASPTypeLibrary.Server
Private objRequest As ASPTypeLibrary.Request

Public Function MinSub( ByVal MittAttr As String ) As String
     set objContext = GetObjectContext()
     set objServer = objContext.Item( "Server" )
     set objRequest = objContext.Item( "Request" )

     Dim str
     str = objServer.HTMLEncode( MittAttr )

     Return str
End Function

Något åt det hållet. :)

voigtann1Medlem sedan juni 20019 519 inlägg

3 aug. 2003 21:37#18

hmm... okey.. men hur får jag request.querystring("id") till exempel.. och det här ASPtypeLibrary.response... är det så den kan skriva ut response.write "" också???

SPiNMedlem sedan mars 20007 896 inlägg

3 aug. 2003 21:58#19

Du gör precis som i ASP/VBScript för att hämta querystring-värden. Och ja, ASPTypeLibrary.Response-objektet kan användas för att skriva ut till klienten med .Write-metoden.

Dim objRequest As ASPTypeLibrary.Request
Dim objResponse As ASPTypeLibrary.Response

set objRequest = objContext.Item( "Request" )
set objResponse = objContext.Item( "Response" )

Dim strId As String
strId = objRequest.QueryString( "id" )
objResponse.Write strId

voigtann1Medlem sedan juni 20019 519 inlägg

3 aug. 2003 22:01#20

aha! nu fattar jag... Fy vad kul jag ska ha imorgon när jag är piggare :e TACK SPiN!!!

set objRequest = objContext.Item( "Request" )

vad gör den koden egentligen.. förlåt för dumma frågor :e