29. juli 2003 - 15:19Der er
6 kommentarer og 1 løsning
Hælp til preview funktion i en artikelsystem
Hejsa ekspertere
Jeg har lavet mig en artikelsystem som virker fint nok, men kan bare ikke lave preview til den. Har virkelig brug for DIN hjælp. TAK.
Jeg vil have at i laver koden til preview og laver noget om på koden i artikel.asp hvis du skulle være.
Her er koden til artikel.asp som virker fint: <% category = Request("category") subject = Request("subject") article = Request("article")
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/artikel.mdb")
Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from articles" rs.open sql, conn, 1, 3
if category <> "Choose" AND subject <> "" AND article <> "" then
rs.AddNew rs("category") = Request("category") rs("subject") = Server.HTMLEncode(Request("subject")) rs("article") = Replace(Request("article"),vbCrLf,"<br>") rs("date") = date rs.update Response.write "<b>Thanks for your article.</b>" end if
rs.close set rs = Nothing Conn.Close Set Conn = Nothing %> <form method="post" action="preview.asp">
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
'Hvis iCount er større end den fulde artikel sættes iCount til artiklens længde If iCount > Ubound(sTempSplit) Then iCount = Ubound(sTempSplit) End If
'Laver en sætning med antal (iCount) ord For i = 0 to iCount sTempText = sTempText & chr(32) & sTempSplit(i) Next
'Hvis der er flere ord i artiklen sættes "..." på for at vise at den fortsættes If iCount < Ubound(sTempSplit) Then sTempText = sTempText & "..." End If
'Færdiggør teksten til udskrift VisLidt = sTempText End Function
Nej, nej, nej......hvad jeg mener med preview er......at naar man har skraevet en artikel og har trykket paa preview skal man kunne se hvad man har skraevet ligsom i udvikleren.dk......og der efter acceptere det hvis det er godt nok og trykke paa send eller gaa tilbage hvis det ikke er god nok.
Så skal du bare sende det til en ny side, hvor du laver en ny form, med alle værdierne i hidden felter, som man så submitter hvis det er OK, ellers går man bare tilbage og retter.
Du laver en side (preview.asp) med en <form> med nogle hidden felter, som henter dataene fra den første form. <input type=hidden value="<% =Request.Form("feltnavn") %>" På samme side viser du hvad du tastede for forrige side ved at taste <% =Request.Form("feltnavn") %> Denne forms action skal så være fx submit.asp Dvs artikel.asp er en form som submitter til preview.asp med hidden fields, som igen submitter til submit.asp.
Synes godt om
Ny brugerNybegynder
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.