ฉันเชื่อว่าชาวเน็ตที่มีหน้าแรกส่วนตัวต้องการทราบว่าผู้เยี่ยมชมประเมินผลงานของตนอย่างไร เพื่อจะได้เป็นแนวทางในการปรับปรุงตนเอง
แบบสำรวจออนไลน์ต่อไปนี้เป็นตัวอย่างหนึ่ง :)
คุณต้องมีพื้นที่ที่รองรับ FSO คุณต้องการเพียงสองไฟล์ ไฟล์หนึ่งคือหน้าการประมวลผล poll.asp อีกไฟล์หนึ่งคือไฟล์ข้อมูล poll.txt และแน่นอนว่าอีกไฟล์หนึ่งคือ แสดงหน้าแบบฟอร์มการส่งรหัสตามด้านล่าง:
1. poll.asp:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<html>
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>การสำรวจไซต์</title>
<link href="news1.css" rel="stylesheet" type="text/css">
</หัว>
<ร่างกาย>
<p>
-
สลัวถึงขนาดทั้งหมด
โพลเปอร์สลัว(4)
ชื่อโพลสลัว(7)
พอลนัมสลัว(4)
ถึงขนาด = cint (Request.Form ("เลือก"))
ตั้ง fs= Server.CreateObject("scripting.filesystemobject")
แบบสำรวจ = server.MapPath ("poll.txt")
ตั้งค่า textar = fs.opentextfile (โพล, 1,0,0)
ถ้าไม่ใช่เซสชัน (โพล) แล้ว
ผม=0
ในขณะที่ไม่ใช่ textar.atendofstream
getdata=textar.readline
ชื่อการสำรวจความคิดเห็น (i) = ซ้าย (rtrim (getdata), 7)
pollnum(i)=ขวา(RTrim(getdata),4)
ถ้าฉัน = สำรวจแล้ว
j=cdbl(โพลนัม(i))+1
pollnum(i)=ขวา(ช่องว่าง(6)&ตัดแต่ง(cstr(j)),7)
สิ้นสุดถ้า
ฉัน=ฉัน+1
เวน
textar.ปิด
ตั้งค่า textar1=fs.createtextfile (โพล, -1,0)
ยอดรวม=0
สำหรับ j=0 ถึง (i-1)
รวม=รวม+cdbl(pollnum(j))
textar1.writeline pollname(j)&pollnum(j)
ต่อไป
textar1.ปิด
-
<span class="news1"> คุณคิดว่าไซต์นี้จำเป็นต้องปรับปรุงในส่วนใด </span></p>
-
สำหรับ j=0 ถึง (i-1)
pollper(j)=cdbl(pollnum(j))/ผลรวม
width=500*โพลเปอร์(เจ)
-
<ความกว้างของตาราง="750" border="0" align="left">
<tr>
<td align="left" bgcolor="#CCCCCC">
<%Response.Write(ตัดแต่ง(ชื่อโพลล์(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(โพลเปอร์(j)) &"<p>")
ต่อไป
Response.Write("ทั้งหมด:")
Response.Write(หมายเลขรูปแบบ(รวม,0))
-
</td>
</tr>
</ตาราง>
-
เซสชั่น (โพล) = จริง
อื่น
Response.Write("คุณได้โหวตแล้ว ขอบคุณสำหรับการโหวตของคุณ!")
สิ้นสุดถ้า
-
<p> </p>
</ร่างกาย>
</html>
2.poll.txt:
หน้าปก 27
ความครอบคลุมของเนื้อหา 35
ความเร็วในการอัปเดตเนื้อหา 43
จำนวนการเข้าชมเว็บไซต์คือ 53
หน้า (แบบฟอร์ม) ที่คุณต้องการแสดง:
<table width="100%" height="215" border="0" bordercolor="#FFFFFF" background="%20" >
<tr>
<td height="20" align="center" background="images/bg1.gif" class="1">คุณคิดว่าไซต์นี้จำเป็นต้องปรับปรุงในด้านใด </td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input name="select" type="radio" value="0" ทำเครื่องหมายไว้>
หน้าศิลปะ</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
ความครอบคลุมของเนื้อหา</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="1"> <input type="วิทยุ" name="select" value="2">
ความเร็วในการอัปเดตเนื้อหา</td>
</tr>
<tr>
<td height="20" background=" " bgcolor="#FFFFFF" class="1">
<ประเภทอินพุต = "วิทยุ" ชื่อ = "เลือก" ค่า = "3">
การเข้าชมเว็บไซต์</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">ดู</a></td>
</tr>
</table>
มันไม่ง่ายเลยเหรอ รีบสร้างมันขึ้นมาเองเลย :)