July 30, 2005
du kan använda asp, php, jsp med mera
asp är nog en av de lättare språken:
http://www.aspsidan.se/default.asp
Formuläret addas i databasen:
add.asp
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DATABAS.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open strConnString
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TEXTER Where filid = " & Request.Querystring("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet("TEXT") = Request.Form("TEXT")
RecSet("RUBRIK") = Request.Form("RUBRIK")
RecSet.Update
end if
Response.Redirect "visa.asp"
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
texten visas:
visa.asp
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DATABAS.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open strConnString
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TEXT ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
DO UNTIL RecSet.EOF
%>
TEXT: <%=RecSet("TEXT")%>
RUBRIK <%=RecSet("RUBRIK")%>
<%
RecSet.MOVENEXT
LOOP
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
här postar du:
<form name="form" method="post" action="add.asp">
Rubrik:<input type="text" name="RUBRIK">
Text:<textarea rows="2" name="TEXT" cols="20"></textarea>
<input type="submit" name="Submit" value="posta">
</form>
Har inte testat om det innehåller några fel eller så. du behäver läggatill ,
, medmeraall asp kod är inom <% och %>
July 30, 2005
gör de olika filerna i antekninger
formular.html
<html>
<head>
<title>fromulär</title>
</head>
<body>
<form name="form1" method="post" action="add.asp">
Rubrik:<input type="text" name="RUBRIK">
Text:<textarea rows="2" name="TEXT" cols="20"></textarea>
<input type="submit" name="Submit" value="posta">
</form>
</body>
</html>
visa.asp
<html>
<head>
<title>visa</title>
</head>
<body>
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DATABAS.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open strConnString
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TEXT ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
DO UNTIL RecSet.EOF
%>
TEXT: <%=RecSet("TEXT")%>
RUBRIK <%=RecSet("RUBRIK")%>
<%
RecSet.MOVENEXT
LOOP
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</form>
</body>
</html>
add.asp ska sparas som den är
här har du en databas:
du måste ha ett webhottel som har stöd för asp och access, det finns många gratis t.ex http://www.domaindlx.com/
kan skicka en databas fil till dig om du vill så slipper du göra en. men har inte tid med det nu...[/code]
July 30, 2005
har du laggt in dem på ett webhptell med asp stöd?
databasen:
http://files.filefront.com/DAT.....b/;4985223;;/fileinfo.html
den ska ligga i samma mapp som alla andra filer
du borde lära dig lite asp så du senare kan ändra i scriptet med mera
1 Guest(s)