Snygga upp koden — webForum

medialabsMedlem sedan mars 20023 686 inlägg

Frågan1 okt. 2002 12:14#1

hej!

Skulle nån vilja ta sig en titt på denna kod och se om man kan snygga upp i asp koden.


<!-- #include file = "../inc/adovbs.inc" -->
<!-- #include file = "artikel_losenord.asp" -->

<%
IF Request.QueryString("alt") = "login" THEN
	IF Request.Form("losen") = losenord AND Request.Form("anv") = anvandare THEN
		Session("access") = "YaHoO"
	END IF
END IF
%>

<body bgcolor="#FFFFFF">
<p align="center"><font face="Verdana" size="6">Artiklar<b><font face="Verdana" size="1">
<script language="JavaScript" type="text/JavaScript" src="../js/funktioner.js"></script>
  </font></b><br>
  <font size="1"> <font size="2">Administration</font></font></font></p>
<%IF Session("access") = "YaHoO" THEN%>

<div align="center"></div>
<div align="center"> 

  <%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("kontakter.mdb") 

IF Request.Querystring("alt") ="del" Then 
SQL = "DELETE * FROM kunder WHERE ID = " & Request.Querystring("id")
Connect.execute(SQL)
Response.Redirect "artikel_admin.asp"
ELSE

SQL = "SELECT * From kunder ORDER BY Kontaktperson"
Set RecSet = Connect.Execute(SQL)

DO UNTIL RecSet.EOF %>
  <tr> 
    <table width="300" border="0" style="border: #330099 1px solid" align="center">
      <td> 
          <table border="0" align="center">
            <tr> 
              <td> 
                <div align="center"><b><font size="1" face="Verdana">Artikel</font></b><font size="1" face="Verdana"><br>
                  <a href="javascript:popup('las.asp?id=<%=RecSet("id")%>',500,500);"><%=RecSet("Foretagsnamn")%></a></font></div>
              </td>
            </tr>
          </table>
      </td>
      </tr>
      <tr> 
        <td height="12"> 
          <div align="center"><font size="1" face="Verdana"><b><a href="artikel_admin.asp?alt=del&id=2" onClick="return confirm('säkert?');">Radera</a>
            / <a href="artikel_andra.asp?id=<%=RecSet("id")%>">&Auml;ndra</a></b></font></div>
        </td>
      </tr>
    </table>
  <font size="1" face="Verdana">&nbsp;&nbsp;&nbsp; </font><br>
  <tr>
    <%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
END IF
%>
</div>
<%ELSE%>
<form name="form2" method="post" action="artikel_admin.asp?alt=login">
  <font size="1"> <font face="Verdana, Arial, Helvetica, sans-serif"> </font></font> 
  <table border="0" align="center">
    <tr> 
      <td colspan="2"> 
        <div align="center"><font size="1"></font> <font size="1"><font face="Verdana"><b>LOGGA 
          IN</b></font></font></div>
      </td>
    </tr>
    <tr> 
      <td><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Anv. 
        namn:</font></font></td>
      <td><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
        <input type="text" name="anv" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" size="15" maxlength="20">
        </font></font></font></td>
    </tr>
    <tr> 
      <td><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">L&ouml;senord:</font></font></td>
      <td><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> </font><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
        <input type="text" name="losen" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" size="15" maxlength="20">
        </font></font></font></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"> 
        <input type="submit" style="border: #000000 1px solid; font-family: verdana; font-size: 10px" name="Submit2" value="Logga in">
        </font></font></td>
    </tr>
    <tr> 
      <td colspan="2">
        <div align="center"><font face="Verdana" size="1">(<b>admin</b> p&aring; 
          b&aring;da &auml;r f&ouml;rvalt)</font></div>
      </td>
    </tr>
  </table>
</form>
<% END IF %>

m_soderlundMedlem sedan sep. 20026 425 inlägg

1 okt. 2002 13:10#2

Du kan ju till att börja med skriva <%Option Explicit%> i början av dokumentet så att du måste deklarera alla variabler. Det ger en liten prestandaökning..
(Dim Connect, SQL....)

fundrusseMedlem sedan jan. 2002286 inlägg

1 okt. 2002 15:21#3

Det ger ingen prestandaökning alls..
Det ända syftet med att dimma grejorna är att man skall kunna felsöka lättare..

Dvs programmera med Explicit

voigtann1Medlem sedan juni 20019 519 inlägg

1 okt. 2002 15:22#4

du använder ju inget ifrån

JosefMedlem sedan mars 20023 561 inlägg

1 okt. 2002 15:23#5

Men jag har för mig att asp.dll hanterar variablerna snabbare om de finns deklarerade... Men jag kanske kommer ihåg fel.

Denniz PoPMedlem sedan aug. 2002207 inlägg

1 okt. 2002 15:32#6

Josef skrev:

Men jag har för mig att asp.dll hanterar variablerna snabbare om de finns deklarerade... Men jag kanske kommer ihåg fel.

Det har jag också för mig :)

Typ att den hela tiden måste kontrollera om varibeln existerar eller inte om man inte använder Option Explicit. Om man använder det så vet den hela tiden om varibeln i fråga existerar eller inte, därav en liten prestandaökning.

crisse6Medlem sedan dec. 20002 526 inlägg

1 okt. 2002 21:15#7

snygga upp din kod med stylesheets ;) jakla massa font face.... och en del i styles i dina tabeller...

JosefMedlem sedan mars 20023 561 inlägg

1 okt. 2002 21:19#8

...och så blir det mycket lättare att ändra senare. Byta färger, fonter osv...