ASP教程之用ASP制造声张本性的查询拜访体系
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。跟着收集的提高，网上查询拜访常常能到达较好的效果。在本人的团体站点上放一个兴趣成绩查询拜访板，实在能为网站添色很多；何况经由过程查询拜访了局你能更多更正确懂得网友对本人站点的意见。作为Webmaster，假如你的网站也必要就某个主题举行查询拜访，而你又厌恶利用他人收费供应的查询拜访板（收费常常是要支付价值的，好比打告白！），那末我倡议你花十几分钟工夫看完这篇先容用ASP制造查询拜访板的文章。你只需把文中的代码Copy到你的机子上，稍做修正，你当即就具有一个属于你本人的本性化查询拜访板。好了，打起精力往下看吧。本查询拜访板共有三个文件：显现查询拜访成绩(research.html)、处置用户选择(select.asp)、扫瞄查询拜访了局(viewresult.asp)。计划思绪为：ASP获得由表单发来的信息，并据此修正纪录查询拜访得票数的数据库，然后ASP读取数据库，取得各个查询拜访成绩的得票数量，经由过程得票数几来调治对应条形图显现的宽来直不雅比例地给出查询拜访了局。在程序的关头处，我都给出了较为具体的正文，这里就不再报告ASP的基础常识。读者能够到陶吧ASP专栏查阅。固然，我但愿你在本人的服务器上调试程序时，有不懂的中央，仍是查查身旁的ASP手艺手册，看看工具、办法或函数的具体语法试着修正，看看了局怎样变更――这但是进修编程的一个好办法呢。
1、显现查询拜访成绩(research.html)
查询拜访成绩的计划要根据实践情形，或考究有用性或考究兴趣性，在网页上显现的作风也或朴实或活跃，本例中是笔者主页上的一个关于“21世纪最主要的是甚么？”的兴趣查询拜访，为申明成绩，上面的代码中省略了美妙润色的代码，你本人下手计划时完整可使用表格等技能丑化查询拜访成绩的显现。为了使提交或扫瞄查询拜访时不影响以后页面，程序中给出了弹出新窗口的计划。
researchindex.html:
＜html＞
＜title＞查询拜访板测试＜/title＞
＜head＞
＜!--start：界说新开的窗口--＞
＜scriptlanguage=javascript＞
＜!--
varnewWindow=null
functionOpenWindow(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＞您以为21世纪最主要的是甚么？＜/p＞
＜formmethod="POST"action="vote/select.asp"name="research"LANGUAGE="javascript"
target="newwin"＞
＜palign="left"＞
＜br＞
＜inputtype="radio"value="1"name="Options"＞常识（常识就是力气）＜br＞
＜inputtype="radio"value="2"name="Options"＞学历（学历社会没有闭幕）＜br＞
＜inputtype="radio"value="3"name="Options"＞款项（经济就是基本）＜br＞
＜inputtype="radio"value="4"name="Options"＞恋爱（永不进进宅兆的恋爱）＜br＞
＜inputtype="radio"value="5"name="Options"＞幻想（天啦，幻想是甚么）＜br＞
＜inputtype="radio"value="6"name="Options"＞平易近主张识（体贴政治）＜br＞
＜inputtype="radio"value="7"name="Options"＞迷信头脑（科教兴国）＜br＞
＜inputtype="submit"value="提交"name="voting"＞
＜inputtype="button"value="检察"name="viewing"＞
＜/form＞
＜!--start：查询拜访标题、选项 --＞
＜/body＞
＜/html＞
2、处置用户选择(select.asp)
根据下面的查询拜访选项，我们得出纪录查询拜访得票的数据库researchdb.mdb的计划（以Access为例)，表名为：research。假如你的数据库和表没有存为以上的名字，那末在前面的程序和操纵中你不要健忘也响应修正过去。
寄存查询拜访投票数的表research：
字段名 数据范例 默许值
id 主动编号 1
select1 数字 0
select2 数字 0
select3 数字 0
select4 数字 0
select5 数字 0
select6 数字 0
select7 数字 0
建好数据库后，我们来在服务器上创建数据源。起首，运转“把持面板”中的“ODBC”，选择“体系DSN”，按“增加”按钮，拔取“MicrosoftAccessDriver”，选定后按“完成”按钮,然后在ODBC设定中“数据源名”输出框输出数据库称号，本例中为researchdb，然后按下“拔取”按钮选择数据库文件（你不会说你健忘了方才计划的数据库存在那边了吧），选定后按“断定”，你便可看到新建的数据源 researchdb。如许，我们就能够在ASP中挪用了。
select.asp:
＜%
上面的if语句是经由过程考证selected是不是为空来判别用户是不是作了选择
ifrequest.form("options")＜＞Emptythen
%＞
＜%
上面的if语句是经由过程对照Request的两个collection(ServerVariables和Cookies)的值
来避免用户一连按提交而影响查询拜访的了局
ifnotRequest.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress")then
把会见客户的IP信息写进Cookies
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
%＞
＜%
创建毗连（Connection）工具，翻开纪录查询拜访了局的数据库
setconn=server.createobject("ADODB.CONNECTION")
conn.open"researchdb"
%＞
＜%
界说变量
dimrs
dimsql
dimselected
selected=request.form("options")
创建纪录汇合（Recordset）工具，用办法Open翻开工具，同时修正对应的数据
setrs=server.createobject("adodb.recordset")
修正数据表ressearch中的数据，即对应的投票数增添1
sql="updateresearchsetselect"&selected&"=select"&selected&"+1whereid=1"
rs.opensql,conn,3,3
从内存中扫除纪录汇合工具
setrs=nothing
封闭毗连
conn.close
从内存中扫除毗连工具
setconn=nothing
毗连到扫瞄查询拜访了局的页面
response.redirect"viewresult.asp"
else
Response.write"投票失利提醒：您方才已投了票，感谢您的撑持！"
endif
else
Response.write"投票失利提醒：您健忘选择了！"
endif
%＞
3、扫瞄查询拜访了局(viewresult.asp)
本例中利用条形图来直不雅显现查询拜访了局，办法是用选项的投票数占总投票数的百分比值乘上5，得出的值作为条形图http://www.163design.net/a/y/bar.gif显现的宽（可用罕见的图像工具制造一个突变色的小条形图，或是到网上down一个)。为了给出带两为小数的得票的百分比，程序中利用了VBScript中的四舍五进函数Round。为了美妙，把查询拜访了局放到表格中显现，如图所示。上面给出的代码中略往了表格的计划。
viewresult.asp
＜%
setconn=server.createobject("ADODB.CONNECTION")
conn.open"researchdb"
%＞
＜%
dimrs
dimsql
dimselect1
dimselect2
dimselect3
dimselect4
dimselect5
dimselect6
dimselect7
dimtotal
setrs=server.createobject("adodb.recordset")
sql="select*fromresearchwhereid=1"
rs.opensql,conn,1,1
total=rs("select1")+rs("select2")+rs("select3")+
_rs("select4")+rs("select5")+rs("select6")+rs("select7")
判别总票数是不是为0，确保上面的除法无效
iftotal＞0then
select1=(rs("select1")/total)*100
select2=(rs("select2")/total)*100
select3=(rs("select3")/total)*100
select4=(rs("select4")/total)*100
select5=(rs("select5"</p>当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。
页:
[1]