O.WriteLine "schema = "& Replace(Request.Form("farg"), """", "")
en sak till:
byt
O.WriteLine ""& Request.Form("gomd") &""
mot
O.WriteLine "%>"
4 svar · 187 visningar · startad av Jöben
Hej.
Jag använder mig av denna fil för att skicka info...
<form method="post" action="setup-action.asp">
<select name="farg" class="form">
<option value="beige">Beige
<option value="blue">Blå
<option value="gray">Grå
<option value="green">Grön
<option value="red">Röd
</select><br>
<br>
<input type="hidden" value="%>" name="gomd">
<input type="submit" value="Ändra" class="form-but">
</form>
...och denna för att ta emot och behandla informationen.
<%
Dim F, O
Set F = CreateObject("Scripting.FileSystemObject")
Set O = F.CreateTextFile("c:\sqlcustomers\ass\db\config.inc")
O.WriteLine "<%"
O.WriteLine "dim schema"
O.WriteLine "schema = "& Request.Form("farg") &""
O.WriteLine ""& Request.Form("gomd") &""
O.Close
%>
När jag kört detta ska det skapas en fil som heter config.inc skapas denna ska i sin tur seut såhär (om man väljer blå).
<%
dim schema
schema = "blue"
%>
Men jag vet inte hur jag ska få till citationstecknen runt blue.
Någon som vet hur detta problemet kan lösas?
O.WriteLine "schema = "& Replace(Request.Form("farg"), """", "")
en sak till:
byt
O.WriteLine ""& Request.Form("gomd") &""
mot
O.WriteLine "%>"
Använd Chr(34) när du vill skriva ett citat-tecken.
ex:
O.WriteLine "dim schema"
O.WriteLine "schema = "& Chr(34) & Request.Form("farg") & Chr(34)
O.WriteLine ""& Request.Form("gomd") &""
O.Close
/Andreas L