Forbedring i admin
Hejsa.. Jeg skal bruge noget eksempel på hvordan jeg skal optimere mit admin system i grove træk.Det er et relativt stort system så jeg vil gerne have det 100% optimeret !
tab_top("Køb/Sælges")
response.write "<table width=""100%"" cellpadding=""0"" cellspacing=""0"">"
Set strRS=strConn.Execute("SELECT * FROM [tabel]")
If Not (strRS.BOF Or strRS.EOF) Then
Do While Not strRS.EOF
'skriv indhold.....
strRS.MoveNext
loop
else
'dben er tom
end if
strRS.close
tab_bottom("<p>"
strRS="SELECT * from [tabel]"
if subp="opret"
'indsæt i db
elseif subp="ret"
'opdater db
elseif subp="delete"
'delete db
end if
if subsubp<>"" then : strRS=strRS&" where material_id="&subsubp&""
Set strRS=strConn.execute(strRS)
if strRS.eof then
str1=""
str2=""
str3=""
str4=""
else
str1=strRS("material_id")
str2=strRS("material_description")
str3=strRS("material_status")
str4=strRS("material_prise")
end if
if subp="Rediger" then : new_topic="| <a href=""admin.asp?p=2&subp=Opret&subsubp=0"">Opret ny</a>"
tab_top(subp&" "&new_topic&"")
response.write "<form action=""admin.asp?p=2&subp=opret&subsubp=2"" method=""POST"" name=""buy_sell"">"
response.write "<b>Beskrivelse:</b><br>"
response.write "<input type=""text"" size=""70"" name=""buy_sell_desc"" value="""&strDESC&""" class=""oneline""><br><br>"
response.write "<br><b>Pris:</b><br>"
response.write "<input type=""text"" size=""5"" name=""buy_sell_prise"" value="""&strPRISE&""" class=""oneline""> Dkk<br><br>"
response.write "<br><br><br><a href=""java script:check_form()"" class=""Button"">"&request("subp")&"</a>"
tab_bottom("")
strRS.close
