ASP中十大常用程序代码.：第二节〈我的心得〉
用ASP制作张扬个性的调查系统(1)
随着网络的普及，网上调查往往能达到较好的效果。在自己的个人站点上放一个趣味问题调查板，着实能为网站添色不少；况且通过调查结果你能更多更准确了解网友对自己站点的看法。作为Webmaster，如果你的网站也需要就某个主题进行调查，而你又讨厌使用别人免费提供的调查板（免费往往是要付出代价的，比如打广告！），那么我建议你花十几分钟时间看完这篇介绍用ASP制作调查板的文章。你只要把文中的代码Copy到你的机子上，稍做修改，你立即就拥有一个属于你自己的个性化调查板。好了，打起精神往下看吧。
本调查板共有三个文件：显示调查问题(research.html)、处理用户选择(select.asp)、浏览调查结果(viewresult.asp)。设计思路为：ASP取得由表单发来的信息，并据此修改记录调查得票数的数据库，然后ASP读取数据库，获得各个调查问题的得票数目，通过得票数多少来调节对应条形图显示的宽来直观比例地给出调查结果。在程序的关键处，我都给出了较为详细的注释，这里就不再讲述ASP的基本知识。读者可以到陶吧ASP专栏查阅。当然，我希望你在自己的服务器上调试程序时，有不懂的地方，还是查查身边的ASP技术手册，看看对象、方法或函数的详细语法试着修改，看看结果如何变化——这可是学习编程的一个好方法呢。
一、显示调查问题(research.html)
调查问题的设计要依据实际情况，或讲究实用性或讲究趣味性，在网页上显示的风格也或朴素或活泼，本例中是笔者主页上的一个关于“21世纪最重要的是什么？”的趣味调查，为说明问题，下面的代码中省略了美观修饰的代码，你自己动手设计时完全可以使用表格等技巧美化调查问题的显示。为了使提交或浏览调查时不影响当前页面，程序中给出了弹出新窗口的方案。
researchindex.html:
＜ html ＞
＜ title ＞调查板测试＜ /title ＞
＜ head ＞
＜ !-- start：定义新开的窗口-- ＞
＜ script language=javascript ＞
＜ !--
var newWindow = null
function OpenWindow(htmurl)
{
if (! newWindow || newWindow.closed)
{
newWindow =
window.open(htmurl,"newwin","toolbar=no,resiza =no,scrollbars=no,width=400,height=280");
}else
{
newWindow.focus();
}
}
//-- ＞
＜ /script ＞
＜ !-- end：定义新开的窗口-- ＞
＜ /head ＞
＜ body ＞
＜ !-- start：调查题目、选项 -- ＞
＜ p ＞您认为2
相关文档：
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
机构名称： 日期：2009 - 09 - 14 查看次数：
334 次
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明� ......
最近帮别人处理下数据,发现添加数据时,就提示"ASP 不能更新。数据库或对象为只读。",从网上找了,也没有解决我的问题.
1、服务器的数据目录mdb文件所在的目录，是只读的
2、数据库在本地的权限，去只读权限，再上传
3、有可能你是从只读目录移动到可读目录的，所以一定不能这么用，先下到本地，再上传，可解决此类问 ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
只需要在fckeditor\editor\filemanager\connectors\asp文件夹下的commands.asp修改一下即可
在这个文件中查找一下：FileUpload
会找到这个函数
把
代码如下:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
改为
代码如下:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......
