Databasregister

Skript för redigering

Filen som anges under databasregistrets värde Redigera kommer att anropas av Consolo när användaren klickar på en rad i listan.

 

Invärden som skickas till skriptet med POST:

 

Respons förväntas enligt Consolos xml-definierade formulär »

 

Exempel

Det här exemplet visar hur man gör ett skript för redigering i ASP kopplat till SQL. Om du använder någon annan teknik på din server, så översätt skriptet till önskat språk.

Det här exemplet skapar ett formulär av ett pressklipp i ett arkiv. Lägg märke till att lösenordet som Consolo skickar kontrolleras på rad 4.

<%Response.ContentType = "text/xml"%>
<?xml version='1.0' encoding='ISO-8859-1'?>
<!-- #INCLUDE VIRTUAL='/consolo/db_opendb.asp' -->
<% If Request("password") <> "abc123" Then Response.End
tId = Request("id") & ""
If tId <> "" Then
 ' Hämta data från databas
 Set RS = Connect.Execute("SELECT * FROM Presscutting_T WHERE Presscutting_ID = " & tId & ";" )
 aTitle = Server.URLEncode(RS("Title_VC"))
 aText = Replace(RS("Text_VC"), "<br>", vbcrlf)
 aText = Replace(aText, "“", """")
 aText = Replace(aText, "”", """")
 aText = Replace(aText, "–", "-")
 aText = Server.URLEncode(aText)
 aDate = Server.URLEncode(RS("Date_VC"))
 aNewsPaper = Server.URLEncode(RS("Newspaper_VC"))
 RS.Close
 Set RS = Nothing
End If
%>
<DATA>
 <Title_VC type="text" caption= "Titel"maxlength="150"><%=aTitle%></Title_VC>
 <Text_VC type="textarea" caption= "Text"maxlength="2500"><%=aText%></Text_VC>
 <Date_VC type="date" caption= "Datum"autochange="0"><%=aDate%></Date_VC>
 <Newspaper_VC type="text" caption= "Tidning"maxlength="50"><%=aNewsPaper%></Newspaper_VC>
</DATA>
<%
'' Stäng databas
Connect.Close
Set Connect = Nothing
%>