 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
相信有个人主页的网友，是不是很想知道访客是 怎么评价自己的作品，从而给自己一个改进方向， 下面的网上调查就是其中一例：） 你需要支持FSO的空间，只需两个文件，一是处理 的页面poll.asp,还有一个是数据文件poll.txt,当 然还有一个是显示提交表单的页面，下面分别给出 代码： 1。poll.asp: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>本站调查</title> <link href="news1.css" rel="stylesheet" type="text/css"> </head> <body> <p> <% dim polled,total dim pollper(4) dim pollname(7) dim 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) if not session(polled) then i=0 while not textar.atendofstream getdata=textar.readline pollname(i)=left(rtrim(getdata),7) pollnum(i)=right(RTrim(getdata),4) if i=polled then j=cdbl(pollnum(i))+1 pollnum(i)=right(space(6)&trim(cstr(j)),7) end if i=i+1 wend textar.close set textar1=fs.createtextfile(poll,-1,0) totle=0 for j=0 to (i-1) total=total+cdbl(pollnum(j)) textar1.writeline pollname(j)&pollnum(j) next textar1.close %> <span class="news1"> 你认为本站哪些地方需要改进？</span></p> <% for j=0 to (i-1) pollper(j)=cdbl(pollnum(j))/total width=500*pollper(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(pollper(j)) &"<p>") next Response.Write("总计:") Response.Write(formatnumber(total,0)) %> </td> </tr> </table> <% session(polled)=true else Response.Write("你已经投过票了，谢谢你的投票！") end if %> <p> </p> </body> </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" checked> 页面的美工 </td> </tr> <tr> <td height="20" background=" " bgcolor="#FFFFFF" class="1"> 内容的覆盖面 </td> </tr> <tr> <td height="20" bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="2"> 内容的更新速度 </td> </tr> <tr> <td height="20" background=" " bgcolor="#FFFFFF" class="1"> <input type="radio" name="select" value="3"> 网站的访问量 </td> </tr> <tr> <td height="66" align="center" bgcolor="#FFFFFF"><span class="1"> <input type="submit" name="Submit2" value="提交"> </span><a href="poll.asp">查看</a></td> </tr> </table> 是不是很简朴，赶紧自己做一个吧：） 返回类别: 教程 上一教程: ASP无组件生成缩略图(2) 下一教程: GLOBAL.ASA 参考 您可以阅读与"用文件写入建立简朴的网上调查"相关的教程: · 使用ASP、VB和XML建立运行于互联网上的应用程序 · 如何使用ASP在自己的网站建立投票机制(二) · 一个简朴的网上书城的例子（三） · 一个简朴的网上书城的例子(三) · ASP取动态表单中数据并写入XML文件,用XSL显示 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
