Ich glaube, dass Internetnutzer, die eine persönliche Homepage haben, gerne wissen würden, wie Besucher ihre Werke bewerten, um sich selbst eine Richtung für Verbesserungen zu geben.
Die folgende Online-Umfrage ist ein Beispiel:)
Sie benötigen einen Speicherplatz, der FSO unterstützt. Sie benötigen nur zwei Dateien, eine ist die Verarbeitungsseite poll.asp, die andere ist die Datendatei poll.txt und natürlich die andere Zeigen Sie die Seite mit dem Einreichungsformular an. Die Codes sind unten aufgeführt:
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<Kopf>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Standortumfrage</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</head>
<Körper>
<p>
<%
schwach abgefragt, insgesamt
schwacher Poller(4)
dim pollname(7)
schwaches Pollnum(4)
polled=cint(Request.Form("select"))
set fs= Server.CreateObject("scripting.filesystemobject")
poll=server.MapPath("poll.txt")
set textar=fs.opentextfile(poll,1,0,0)
Wenn nicht, dann Sitzung (abgefragt).
ich=0
während nicht textar.atendofstream
getdata=textar.readline
pollname(i)=left(rtrim(getdata),7)
pollnum(i)=right(RTrim(getdata),4)
wenn i=abgefragt, dann
j=cdbl(pollnum(i))+1
pollnum(i)=right(space(6)&trim(cstr(j)),7)
Ende wenn
i=i+1
wenden
textar.close
set textar1=fs.createtextfile(poll,-1,0)
Gesamt=0
für j=0 bis (i-1)
total=total+cdbl(pollnum(j))
textar1.writeline pollname(j)&pollnum(j)
nächste
textar1.close
%>
<span class="news1"> Wo muss diese Website Ihrer Meinung nach verbessert werden? </span></p>
<%
für j=0 bis (i-1)
pollper(j)=cdbl(pollnum(j))/total
width=500*polper(j)
%>
<table width="750" border="0" align="left">
<tr>
<td align="left" bgcolor="#CCCCCC">
<%Response.Write(trim(pollname(j))&"(")
Response.Write(formatnumber(pollnum(j),0)&")")
Response.Write("<br>")
Response.Write("<img src='images/bg1.gif' width=")
Response.Write(width&"' height=10>")
Response.Write(formatpercent(polller(j)) &"<p>")
nächste
Response.Write("Total:")
Response.Write(formatnumber(total,0))
%>
</td>
</tr>
</table>
<%
session(polled)=true
anders
Response.Write("Sie haben bereits abgestimmt, vielen Dank für Ihre Stimme!")
Ende wenn
%>
<p> </p>
</body>
</html>
2.poll.txt:
Seitengrafik 27
Inhaltliche Abdeckung 35
Geschwindigkeit der Inhaltsaktualisierung 43
Die Anzahl der Besuche auf der Website beträgt 53.
Die Seite (das Formular), die Sie anzeigen möchten:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">Welche Bereiche auf dieser Website sind Ihrer Meinung nach verbesserungswürdig? </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" geprüft>
Seitenkunst</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
Inhaltliche Berichterstattung</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2">
Geschwindigkeit der Inhaltsaktualisierung</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<input type="radio" name="select" value="3">
Website-Besuche</td>
</tr>
<tr>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<input type="submit" name="Submit2" value="Submit">
</span><a href="poll.asp">Ansicht</a></td>
</tr>
</table>
Ist es nicht ganz einfach? Beeilen Sie sich und machen Sie selbst eines :)