Sep 23

Website og domæne til salg.

ASP Classic, FLASH, Javascript, SEO, SQL No Comments »

Sælger dette efterhånden gamle projekt..
http://www.qxl.dk/pris/computer-elektronik-software/domaenenavne/-dk/easyboligdk/v/an581973064/

Posted via email from Webkramfutten’s posterous

written by Kramfutten

Oct 16

Rate this og rate that.

ASP Classic, CSS, Development tools, Javascript, VBscripting, Web security, Webdesign No Comments »

I forbindelse med et lille projekt jeg har gang i, har jeg sat mig for at kode et lille rating system, som man ser på diverse sider såsom youtube mf.
Og da de fleste der er derude er lavet i php, tænkte jeg oh well.. hvorfor ikke lave sådan et lign. system bare i asp classic, så mig kode kode kode osv vuuuullaaa så er den i vinkel.

Hvis der er andre derude som sidder og tænker, hvordan hulen man laver dette, vil jeg dele det :)

Dette er hvad du skal bruge.
2 filer ( index.asp og update.asp )
1 database med 1 tabel ( underordnet om det er en accessdb eller mysql, mssql mf. )
1 billede ( alt_star.gif )
Og så skal det ellers liiiige i ovnen i ca. 45 min ved 37 grader, og vupti et stk rating system er klart.

index.asp :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

<%
Set Conn    = Server.CreateObject("ADODB.Connection")
Set FileOBJ = Server.CreateObject("Scripting.FileSystemObject")
FilePath = "d:/xxxxxxxxx/databaserating.mdb"
 
If FileOBJ.FileExists(FilePath) Then
 conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filepath&";"
 Conn.Open conStr
End If
 
SQL = "SELECT * FROM Rating WHERE id=1"
Set RS = Conn.Execute(SQL)
 
result = ROUND(RS("voteValue") / RS("voteTotal"),1)
%>
<a href="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd</a>"&gt;
http://www.w3.org/1999/xhtml"
 
<!--
  /*             styles for the star rater                */
 .star-rating{
  list-style:none;
  margin: 0px;
  padding:0px;
  width: 125px;
  height: 25px;
  position: relative;
  overflow:hidden;
  background: url(alt_star.gif) top left repeat-x;
 }
 .star-rating li{
  padding:0px;
  margin:0px;
  /*\*/
  float: left;
  /* */
 }
 .star-rating li a{
  display:block;
  width:25px;
  height: 25px;
  line-height:25px;
  text-decoration: none;
  text-indent: -9000px;
  z-index: 20;
  position: absolute;
  padding: 0px;
  overflow:hidden;
 }
 .star-rating li a:hover{
  background: url(alt_star.gif) left bottom;
  z-index: 2;
  left: 0px;
  border:none;
 }
 .star-rating a.one-star{
  left: 0px;
 }
 .star-rating a.one-star:hover{
  width:25px;
 }
 .star-rating a.two-stars{
  left:25px;
 }
 .star-rating a.two-stars:hover{
  width: 50px;
 }
 .star-rating a.three-stars{
  left: 50px;
 }
 .star-rating a.three-stars:hover{
  width: 75px;
 }
 .star-rating a.four-stars{
  left: 75px;
 }
 .star-rating a.four-stars:hover{
  width: 100px;
 }
 .star-rating a.five-stars{
  left: 100px;
 }
 .star-rating a.five-stars:hover{
  width: 125px;
 }
 .star-rating li.current-rating{
  background: url(alt_star.gif) left center;
  position: absolute;
  height: 25px;
  display: block;
  text-indent: -9000px;
  z-index: 1;
 }
 
 /* remove halo effect in firefox   */
 a:active{
  outline: none;
 }
-->
<h3>Rating:</h3>
<ul class="star-rating">
	<li><a href="update.asp?rating=1&amp;imgID=&lt;%=RS(">" title='1 star out of 5' class='one-star'&gt;</a></li>
	<li><a href="update.asp?rating=2&amp;imgID=&lt;%=RS(">" title='2 stars out of 5' class='two-stars'&gt;</a></li>
	<li><a href="update.asp?rating=3&amp;imgID=&lt;%=RS(">" title='3 stars out of 5' class='three-stars'&gt;</a></li>
	<li><a href="update.asp?rating=4&amp;imgID=&lt;%=RS(">" title='4 stars out of 5' class='four-stars'&gt;</a></li>
	<li><a href="update.asp?rating=5&amp;imgID=&lt;%=RS(">" title='5 stars out of 5' class='five-stars'&gt;5</a></li>
</ul>
&lt;%=result%&gt;/5 Stjerner. baseret på &lt;%=RS("voteTotal")%&gt; ratings

Update.asp :

&lt;%
Set Conn    = Server.CreateObject("ADODB.Connection")
Set FileOBJ = Server.CreateObject("Scripting.FileSystemObject")
FilePath = "d:/xxxxxx/databaserating.mdb"
 
If FileOBJ.FileExists(FilePath) Then
 conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&amp;filepath&amp;";"
 Conn.Open conStr
End If
 
SQLupdate = "UPDATE rating SET voteTotal=voteTotal+1,voteValue=voteValue+"&amp;Request.QueryString("rating")&amp;" WHERE id="&amp;request.QueryString("imgID")
Conn.Execute(SQLupdate)
 
'response.Write("rating ikke tom")
 
Response.Redirect("index.asp")
%&gt;

Sådan skal din Database se ud :

id - primær nøgle - autonummerering
voteTotal - tal
voteValue - tal

Har du nogle spørgsmål til dette lille rating system så bare fyre afsted med nogle kommentarer.
Denne kan sagtens udvides, sådan at der f.eks. er tjek på om der divideres med 0, kun muligt at vote én gang ifa. f.eks. cookies – ipadresse

written by Kramfutten

Jun 03

Skin my box

ASP Classic, Development tools, Javascript, Webdesign No Comments »

CSS er en herlig sag når det virker.. :)
har siddet idag og leget lidt med at lave skins til tekstboxe inklusiv textarea’s. Det er i bund og grund nemt nok, når man selvfølgelig lige ved hvordan det skal gøres.

Måden at gøre det på er i hårde træk. i ens grafik program ( jeg bruger photoshop ) udarbejder du din textbox, lav den lidt størrer sådan at det kommer til at passe med cursor osv. Derefter laver du noget css kode ala dette :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

.fieldHolder
{
 width: 194px;
 height: 27px;
 background: url(images/inputback.jpg) no-repeat;
 float: left;
}
.fieldAreaHolder
{
 width: 195px;
 height: 135px;
 background: url(images/inputTextback.jpg) no-repeat;
 float: left;
}
.textAreaInput
{
 font-family: Verdana, sans-serif;
 font-size: 11px;
 font-style: normal;
 line-height: normal;
 font-weight: normal;
 font-variant: normal;
 text-transform: none;
 color: #000000;
 width: 185px;
 height: 123px;
 background: none;
 border: none;
 color: #000000;
 margin-top: 5px;
 margin-left: 5px;
}
.textInput2
{
 font-family: Verdana, sans-serif;
 font-size: 11px;
 font-style: normal;
 line-height: normal;
 font-weight: normal;
 font-variant: normal;
 text-transform: none;
 color: #000000;
 width: 170px;
 height: 22px;
 background: none;
 border: none;
 color: #000000;
 margin-top: 5px;
 margin-left: 5px;
}

Bemærk at width og height skal passe med størrelsen på dine grafikfiler, ellers kommer det til at ligne noget ged..
Og din HTML :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

<form name="form1" method="post" action="">
              <table width="98" border="0" align="right" cellpadding="3" cellspacing="5">
                <tr>
                  <td><div class="fieldHolder"><input name="email" type="text" id="email" size="30" value="Indtast din email adresse" class="textinput2" maxlength="50" onFocus="if(this.value=='Indtast din email adresse')this.value='';" onBlur="if(this.value=='')this.value='Indtast din email adresse';"></div></td>
                </tr>
                <tr>
                  <td><div class="fieldHolder"><input name="navn" type="text" id="navn" size="30" value="Indtast dit navn" class="textInput2" maxlength="50" onFocus="if(this.value=='Indtast dit navn')this.value='';" onBlur="if(this.value=='')this.value='Indtast dit navn';"></div></td>
                </tr>
                <tr>
                  <td><div class="fieldAreaHolder"><textarea name="besked" cols="25" rows="10" wrap="virtual" class="textAreaInput" id="besked" onFocus="if(this.value=='Indtast en besked')this.value='';" onBlur="if(this.value=='')this.value='Indtast en besked';">Indtast en besked</textarea>
                  </div></td>
                </tr>
                <tr>
                  <td><div align="right">
                    <input name="Afsend" type="image" id="Afsend" src="images/ButtonAfsend.jpg" mce_src="images/ButtonAfsend.jpg" alt="Afsend" name="Afsend" <%=ImageStyle%>>
                  </div></td>
                </tr>
              </table>
</form>

Tagget <%=ImageStyle%> bruger jeg til at tilføje noget opacity filter på mine knapper, sådan at man ikke skal til at bruge flere grafikfiler.. hvilket kommer til at virke træg når man holder musen over knapper, i sær for dem med små internetforbindelser.

onFocus og onBlur sørger for at den initial value der står i ens tekstfelter, bliver fjernet når cursor’n er i feltet og tilføjet igen når cursor’n er væk fra feltet pretty neat :)

Ovenstående er testet på den seneste firefox og ie.

written by Kramfutten

Apr 23

Skjul din emailaddy.

Javascript No Comments »

Har lige haft en kunde som skulle have ændret deres kontakt formular, sådan at der ikke bliver brugt server kode men istedet almindelig html. Men da alle de spiders og det andet sjov der er på nettet, faldt jeg over dette site Mysterious Ways – Hiding your email som gør lige hvad jeg havde brug for. istedet for at jeg skulle til at sidde og kode mit eget lille script.. :)

Det konvertere alt incl. @ til html tekst koder.

Lidt et gammelt script, så chancen er rimelig stor for at spiders har taget højde for det, bliver nok til noget godt gammeldavs “onclick:windows.open” popup halløj.. med server kode..

Anywho so far so good.

written by Kramfutten