webForumDet fria alternativet

Bättre kod?

ASP

1 svar · 188 visningar · startad av Steveking

Medlem sedan aug. 2001150 inlägg
Frågan#1

Hejsan!.

Jag har ett script där man lägger till text och länkar.
Koden jag använder för att ta emot infon som skrivs i textfälten ser ut såhär.


<%

name = Request.form("name")
subject = Request.form("subject")
text = Request.form("text")

		set Conn=server.createobject("adodb.connection")
	        path="DBQ=" & server.mappath("DB.mdb")
	        conn.open "driver={microsoft access driver (*.mdb)}; " & path," ",""
	        SQL = "Select * from pages"
	        set Rs = Server.CreateObject("ADODB.Recordset")
	        Rs.Open sql, conn, 3, 3
       
        
	 
        Rs.Addnew
                
                
        Rs("datum") = date
        Rs("name") = name
	Rs("subject") = subject
        Rs("text") = text
        
		
        Rs.Update

		Rs.close
		Conn.close

		Response.write("Du har nu lagt till en sida.")

	End if
%>

Nu undrar jag ifall detta är ett bra sätt att göra det på ?

Känns som att det blir ganska mycket kod om man har väldigt många forms att fylla i.

Går det att lösa på ett smidigare sätt? och framförallt snabbare/bättre
Istället för att behöva skriva


name = Request.form("name")

och Rs("name") = name

till varje form som ska in.

Medlem sedan dec. 19996 721 inlägg
#2
<%

name = Replace(Request.form("name"),"'","''")
subject = Replace(Request.form("subject"),"'","''")
text = Replace(Request.form("text"),"'","''")

set Conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.mappath("DB.mdb")

SQL="INSERT INTO Pages ([Name],[Datum],[Subject],[Text]) VALUES('" & name & "',date(),'" & subject & "','" & text & "')"

conn.Execute SQL
Conn.close

Response.write("Du har nu lagt till en sida.")

End if
%>
262 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
132 ms — ändringar (db)