--- title: "Javascript och ASP" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12225-javascript-och-asp" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "cHeMiCaL-X" published: "2001-10-22T08:40:00.000Z" updated: "2001-10-22T13:42:00.000Z" replies: 13 views: 242 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12225-javascript-och-asp" --- # Javascript och ASP ## #1 — cHeMiCaL-X, 2001-10-22T08:40Z Hadd tänkt att ha ett Jaascript intgrerat med asp .. Det vill säga, när man trycker på en länk så skall det komma en pop-up med information från databasen.. Något man bör tänka på? Just det ja.. Informationerna kommer att hämtas från flera olika tabeller.. Permalänk: https://www.webforum.nu/p/12225 ## #2 — Vide, 2001-10-22T08:47Z > Något man bör tänka på? Att ASP-koden körs innan javascriptet. Permalänk: https://www.webforum.nu/p/292620 ## #3 — cHeMiCaL-X, 2001-10-22T09:02Z Men hur gör man med Rs("fältnamn")för att hämta indformation då? Permalänk: https://www.webforum.nu/p/292621 ## #4 — Vide, 2001-10-22T09:03Z Hur menar du? Rs("fältnamn") innehåller ju ett värde ifrån en post i ett fält i databasen. Förklara lite närmare vad du försöker att göra så kan vi hjälpa till... Permalänk: https://www.webforum.nu/p/292622 ## #5 — cHeMiCaL-X, 2001-10-22T09:13Z Men hur hämtar Javascriptet information ur databasen? Då måste den väll andvända sig av ADODB.RECORDSET för att hämta information från databasen. Permalänk: https://www.webforum.nu/p/292623 ## #6 — Vide, 2001-10-22T09:40Z Citerar mig själv: > Förklara lite närmare vad du försöker att göra så kan vi hjälpa till... Men hur hämtar Javascriptet information ur databasen? strVar = \<%=rs( "färtnamn" )%\>; Som sagt, ASP-koden körs först, och på så sätt kommer värdet att finnas där när javascriptskoden körs (på klienten). Permalänk: https://www.webforum.nu/p/292624 ## #7 — cHeMiCaL-X, 2001-10-22T10:00Z Men om vi säger att popup'en ska gå till info.asp?råga1=värde1&fråga2=värde2 och ska öppnas i en ruta som är 400\*400? \[Redigerat av cHeMiCaL-X den 22 okt 2001\] Permalänk: https://www.webforum.nu/p/292625 ## #8 — cHeMiCaL-X, 2001-10-22T10:12Z Jag kör med PatrikB's zPagin II script och hadde tänkt mig att använda mig av detta script: ``` ``` och Ankar taggen som triggar popupen ser ut så här: ``` Click Here ``` Hur får man detta att funka? Jag förstår att jag måste använda mig av denna typ ungefär: ``` ``` Han anänder inte ADODN.RECORDSET Han använder ju Getrows Hoppas ni försär vad jag menar.. Men får det inte att funka.. \[Redigerat av cHeMiCaL-X den 22 okt 2001\] \[Redigerat av cHeMiCaL-X den 22 okt 2001\] Permalänk: https://www.webforum.nu/p/292626 ## #9 — cHeMiCaL-X, 2001-10-22T10:30Z Hur gör jag för att sätta värdena i URL'en? om vi säger att man hämtar värdena med strVärde1 osv... ``` function doPopUp(){ doPopUpWindow = window.open("http://xxx.xxx.xxx.xxx/katalog/script.asp?Artist=värde1&fråga2=värde2","Album:","width=400,height=400,"+pos); ``` Permalänk: https://www.webforum.nu/p/292627 ## #10 — cHeMiCaL-X, 2001-10-22T11:00Z Just nu ser hela sidan ut så här: ``` <% '## -- hämta alla poster -- Function getRecords Dim m_objConn Dim m_strConnString Dim m_strSQL Dim m_objRS Dim m_arrRecords m_strConnString = "provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("/bypath/totalonanist/bypath.mdb") '## -- skapa connection object och öppna upp databasen -- Set m_objConn = Server.CreateObject("ADODB.Connection") m_objConn.Open m_strConnString '## -- sql-fråga för att hämta alla poster -- '## -- denna ska du ändra så att den stämmer '## med det som du vill hämta -- m_strSQL = "SELECT * " & _ "FROM Albums " & _ "ORDER BY Artist, AlbumTitle" '## -- recordset för att hämta alla poster -- Set m_objRS = m_objConn.Execute(m_strSQL) If Not m_objRS.EOF Then m_arrRecords = m_objRS.GetRows getRecords = m_arrRecords End If '## -- clean up -- m_objRS.Close Set m_objRS = Nothing m_objConn.Close Set m_objConn = Nothing End Function '## -- skriver ut sidnavigeringen -- '## -- skriv ut föregående sida -- Sub PrevPage(ByVal WichPage) Dim strScriptName strScriptName = Request.ServerVariables("SCRIPT_NAME") '## -- skriv ut en länk till föregående sida -- If CInt(WichPage) > 1 Then Response.Write "Previous " Else Response.Write "Previous " End If End Sub '## -- skriv ut nästa sida -- Sub NextPage(ByVal HowManyPages, ByVal WichPage) Dim strScriptName strScriptName = Request.ServerVariables("SCRIPT_NAME") '## -- skriv ut en länk till nästa sida -- If CInt(WichPage) < CInt(HowManyPages) Then Response.Write "Next" Else Response.Write " Next" End If End Sub '## -- skriv ut sidnummer navigeringen -- Sub PageNumbers(ByVal HowManyPages, WichPage) Dim strScriptName Dim I '## -- kolla om det finns några sidor -- If HowManyPages = 0 Then Response.Write "0" Exit Sub End If strScriptName = Request.ServerVariables("SCRIPT_NAME") '## -- skriv ut länkar till sid nummer n. '## Den sida som visas ska ej vara länkad -- For I = 1 To HowManyPages If CInt(I) <> CInt(WichPage) Then Response.Write "" & I & " " Else Response.Write "" & I & " " End If Next End Sub '## -- vilken post ska pagingen börja på -- Function getStartID(ByVal PageSize, ByVal ViewPage) ' As Integer Dim m_intStart m_intStart = ((PageSize * ViewPage) - PageSize) getStartID = m_intStart End Function '## ------------------------------------------------------------- '## -- räkna ut hur många sidor som ska visas -- '## -- updated: July 14, 2001 '## -- update by: Patrik Berggren, mrwize@mrwize.nu '## ------------------------------------------------------------- '## '## -- vid vissa tillfällen returnerades fel sidantal. '## Felet/Buggen berodde på avrundningen med CInt() '## och CLng(). '## -- Avrundningen som jag gjorde: '## '## m_intTotalPages = CInt((HowManyRecords / PageSize) + 0.5) '## '## vart i vissa fall fel och sid antalet vart fler än '## vad det egentligen skulle vara. '## Lösningen, hoppas jag, är att kolla hur stor resten '## blir vid avrundning. '## Om resten är större än 0 eller mindre än 0.5 så ska en sida '## läggas till. '## I annat fall så gäller avrundningen. '## Har testat flera olika kombinationer med olika records antal '## och sidstorlekar och ej hittat några buggar. '## Så nu hoppas jag att denna paging är buggfri *ler* '## ------------------------------------------------------------- Function countPages(ByVal HowManyRecords, ByVal PageSize) Dim m_intTotalPages, m_intRest m_intTotalPages = HowManyRecords / PageSize If m_intTotalPages < 1 Then m_intTotalPages = 1 Else m_intRest = m_intTotalPages - CLng(m_intTotalPages) If m_intRest > 0 AND m_intRest < 0.5 Then m_intTotalPages = CLng(m_intTotalPages) + 1 Else m_intTotalPages = CLng(m_intTotalPages) End If End If '## -- return how many pages -- countPages = m_intTotalPages End Function '##*********************************************************************************** Dim arrRecords Dim intPageSize Dim intPage Dim intStartID Dim I Dim intId Dim strNamn Dim dteDatum Dim intTotalPages Dim intTotalRecords '## -- vilken sida ska visas -- intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 '## -- hur många poster ska visas per sida -- intPageSize = 25 '## -- hämta alla records, hämtas med metoden getrows och returneras '## som en array. -- arrRecords = getRecords '## -- vilken post är den första -- intStartID = getStartID(intPageSize, intPage) '## -- printa ut sidan som ska visas '## alla poster finns i arrayen arrRecords som '## kommer från funktionen getRecords -- If IsArray(arrRecords) Then 'Response.Write "E ju en array
" '## -- hur många records finns det totalt -- intTotalRecords = UBound(arrRecords,2) + 1 '## -- hur många sidor finns det i recordsetet -- intTotalPages = countPages(intTotalRecords, intPageSize) For I = intStartID To ((intStartID + intPageSize) -1) intId = arrRecords(0,I) strkommando1 = arrRecords(1,I) strkommando2 = arrRecords(2,I) strkommando3 = arrRecords(3,I) strKommando4 = arrRecords(4,I) strKommando5 = arrRecords(5,I) %> Titel....

hmm1hmmm2hmmm3hmmm4hmm5
<% Response.Write "
" & strkommando1 & "" & strkommando2& "" & strkommando3& "" & strkommando4 & "" & strkommando5 & "
" %> <% If I = UBound(arrRecords,2) Then Exit For Next Else '## -- inga poster fanns i db -- intPage = 0 intTotalRecords = 0 intTotalPages = 0 '## -- skriv ut att inga poster hittades -- Response.Write "

No records found.

" End If '## -- skriv ut sidnavigerings menyn -- Call PrevPage(intPage) Call PageNumbers(intTotalPages,intPage) Call NextPage(intTotalPages,intPage) %>

Admin
Bypath - indirect or retired path, less important or less direct path.
``` Permalänk: https://www.webforum.nu/p/292628 ## #11 — cHeMiCaL-X, 2001-10-22T12:14Z Hittade ett script som jag tror funkar bätte: ``` ``` Så här triggar man den.. ``` länk ``` Har testat med detta men får det inte att fungera: Detta är för zpaging II ``` Response.Write "länk ``` Har testat med detta men får det inte att fungera.. \[Redigerat av cHeMiCaL-X den 22 okt 2001\] Permalänk: https://www.webforum.nu/p/292629 ## #12 — cHeMiCaL-X, 2001-10-22T12:43Z Var ska man lägga Javscript koden? Den ska ju ligga mellan \ taggarna... Vet inte rikigt hur jag ska göra.. Permalänk: https://www.webforum.nu/p/292630 ## #13 — Vide, 2001-10-22T13:38Z Javascriptskoden bör väl läggas mellan HEAD-taggarna, eller fritt mellan BODY-taggarna. Permalänk: https://www.webforum.nu/p/292631 ## #14 — cHeMiCaL-X, 2001-10-22T13:42Z La dom mellan \ taggarna.. Fick hjälp med det andra här: Permalänk: https://www.webforum.nu/p/292632 --- Tråden på webben: https://www.webforum.nu/amne/asp/12225-javascript-och-asp