أعتقد أن مستخدمي الإنترنت الذين لديهم صفحات رئيسية شخصية يرغبون في معرفة كيفية تقييم الزوار لأعمالهم، حتى يتمكنوا من توجيه أنفسهم للتحسين.
الاستبيان التالي عبر الإنترنت هو أحد الأمثلة:)
أنت بحاجة إلى مساحة تدعم FSO. أنت بحاجة إلى ملفين فقط، أحدهما هو صفحة المعالجة poll.asp، والآخر هو ملف البيانات poll.txt، وبالطبع الآخر هو to. عرض صفحة نموذج التقديم، والأكواد موضحة أدناه:
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>مسح الموقع</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</الرأس>
<الجسم>
<ص>
<%
خافت شملهم الاستطلاع، المجموع
قاتمة المستنبت (4)
اسم الاستطلاع خافت (7)
حبوب لقاح خافتة(4)
polled=cint(Request.Form("select"))
مجموعة fs= Server.CreateObject("scripting.filesystemobject")
poll=server.MapPath("poll.txt")
تعيين textar=fs.opentextfile(poll,1,0,0)
إن لم يكن جلسة (استطلاع) ثم
أنا = 0
بينما لا textar.atendofstream
getdata=textar.readline
اسم الاستطلاع (i) = اليسار (rtrim (getdata)، 7)
Pollnum(i)=right(RTrim(getdata),4)
إذا كنت = استطلعت بعد ذلك
j=cdbl(pollnum(i))+1
Pollnum(i)=right(space(6)&trim(cstr(j)),7)
نهاية إذا
ط=ط+1
com.wind
textar. Close
تعيين textar1=fs.createtextfile(poll,-1,0)
الإجمالي = 0
من أجل j=0 إلى (i-1)
الإجمالي=الإجمالي+cdbl(pollnum(j))
textar1.writeline اسم الاستطلاع(ي)&pollnum(ي)
التالي
textar1.إغلاق
%>
<span class="news1"> أين تعتقد أن هذا الموقع يحتاج إلى تحسين؟ </span></p>
<%
من أجل j=0 إلى (i-1)
pollper(j)=cdbl(pollnum(j))/total
العرض = 500 * بولبر (ي)
%>
<عرض الجدول = "750" الحدود = "0" محاذاة = "يسار">
<تر>
<td align="left" bgcolor="#CCCCCC">
<%Response.Write(trim(pollname(j))&"(")
الاستجابة.الكتابة(رقم التنسيق(pollnum(j),0)&")")
الاستجابة.الكتابة("<br>")
Response.Write("<img src='images/bg1.gif' width=")
الاستجابة. الكتابة (العرض&"' الارتفاع=10>")
الاستجابة.الكتابة (النسبة المئوية (الاستطلاع (ي)) &"<p>")
التالي
الاستجابة.كتابة ("الإجمالي:")
الاستجابة.الكتابة (رقم التنسيق (المجموع، 0))
%>
</TD>
</tr>
</الجدول>
<%
جلسة (استطلاع) = صحيح
آخر
Response.Write("لقد قمت بالتصويت بالفعل، شكرًا لك على تصويتك!")
نهاية إذا
%>
<p> </p>
</الجسم>
</html>
2.poll.txt:
الصفحة رقم 27
تغطية المحتوى 35
سرعة تحديث المحتوى 43
عدد الزيارات للموقع هو 53.
الصفحة (النموذج) التي تريد عرضها:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" الخلفية="%20" >
<تر>
<td height="20" align="center" الخلفية="images/bg1.gif" class="1">ما هي المجالات التي تعتقد أنها تحتاج إلى تحسين في هذا الموقع؟ </TD>
</tr>
<تر>
<td height = "20" bgcolor = "#FFFFFF" class = "1"> <input name = "select" type = "radio" value = "0" محدد>
صورة الصفحة</td>
</tr>
<تر>
<td height = "20" الخلفية = " " bgcolor = "#FFFFFF" class = "1">
تغطية المحتوى</td>
</tr>
<تر>
<td height = "20" bgcolor = "#FFFFFF" class = "1"> <input type = "radio" name = "select" value = "2">
سرعة تحديث المحتوى</td>
</tr>
<تر>
<td height = "20" الخلفية = " " bgcolor = "#FFFFFF" class = "1">
<نوع الإدخال = "الراديو" اسم = "حدد" القيمة = "3">
زيارات الموقع</td>
</tr>
<تر>
<td height="66" align="center" bgcolor="#FFFFFF"><span class="1">
<نوع الإدخال = "إرسال" الاسم = "إرسال 2" القيمة = "إرسال">
</span><a href="poll.asp">عرض</a></td>
</tr>
</table>
أليس الأمر بسيطًا جدًا؟ اسرع واصنع واحدًا بنفسك :)