仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 4997|回复: 18
打印 上一主题 下一主题

[学习教程] ASP编程:ASP使用中的使用函数

[复制链接]
蒙在股里 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-16 00:27:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。函数|函数   1,常常写些体系,那末普通都是从登录法式入手下手,每接一个体系就写一次登录,好费事。

爽性直接做个登录验证函数吧,对我来讲,大都情形可以胜任了:)



<%
Function chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)
dim cn_name,cn_pwd
cn_name=trim(request.form(""&requestname&""))
cn_pwd=trim(request.form(""&requestpwd&""))
if cn_name="" or cn_pwd="" then
response.Write("<script language=javascript>alert(""请将帐号暗码填写完全,感谢协作。"");history.go(-1)</script>")
end if
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from "&tablename&" where "&namefield&"='"&cn_name&"'"
rs.open sql,conn,1,1
if rs.eof then
response.Write("<script language=javascript>alert(""没有该会员ID,请确认有无被请求。"");history.go(-1)</script>")
else
if rs(""&pwdfield&"")=cn_pwd then
session("cn_name")=rs(""&namefield&"")
response.Redirect(reurl)
else
response.Write("<script language=javascript>alert(""提示,您的帐号和暗码是不吻合。注重数字和巨细写。"");history.go(-1)</script>")
end if
end if
rs.close
Set rs = Nothing
End Function
%>




参数申明:
chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)

requestname 为承受HTML页中输出称号的INPUT控件名
requestpwd 为承受HTML页中输出暗码的INPUT控件名
tablename 为数据库中保留注册信息的表名
namefield 为该信息表中寄存用户称号的字段名
pwdfield 为该信息表中寄存用户暗码的字段名
reurl 为登录准确后跳转的页

援用示例以下:



<%
call chk_regist("b_name","b_pwd","cn_admin","cn_name","cn_pwd","admin.asp")
%>



调试地址:http://www.cnbruce.com/test/function/regist.asp


2,常常有能够对某个事物停止以后形态的判别,普通即做一字段(数值类型,默许值为0)
经由过程对该字段值的修正到达形态切换的后果。那末,我又做了个函数,让本人轻松轻松。



<%
Function pvouch(tablename,fildname,autoidname,indexid)
dim fildvalue
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from "&tablename&" where "&autoidname&"="&indexid
rs.Open sql,conn,2,3
fildvalue=rs(""&fildname&"")
if fildvalue=0 then
fildvalue=1
else
fildvalue=0
end if
rs(""&fildname&"")=fildvalue
rs.update
rs.close
Set rs = Nothing
End Function
%>




参数申明:
pvouch(tablename,fildname,autoidname,indexid)

tablename 该事物地点数据库中的表名
fildname 该事物用以标明形态的字段名(字段类型是数值型)
autoidname 在该表中的主动编号名
indexid 用以修正形态的对应主动编号的值

援用示例以下:


<%
dowhat=request.QueryString("dowhat")
p_id=cint(request.QueryString("p_id"))

if dowhat="tj" and p_id<>"" then
call pvouch("cn_products","p_vouch","p_id",p_id)
end if
%>

<%if rs("p_vouch")=0 then%>
<a href=showpro.asp?dowhat=tj&p_id=<%=rs("p_id")%>>保举</a>
<%else%>
<a href=showpro.asp?dowhat=tj&p_id=<%=rs("p_id")%>>作废保举</a>
<%end if%>




调试地址:http://www.cnbruce.com/test/function/showpro.asp

3,为良多中小企业写站点,普通产物展现是个大项目,那末做成的页面也就分歧。
要不就是横排来几个,要不就是竖排来几个,乃至全站要翻来覆去的弄个好几回,费事也很累。
索性写个函数能减缓一下,因而就成了上面



<%
function showpros(tablename,topnum,fildname,loopnum,typenum)
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select top "&topnum&" * from "&tablename
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("临时无该纪录")
else
response.Write("<table width='100%'>")
for i=1 to rs.recordcount
if (i mod loopnum=1) then
response.write"<tr>"
end if
select case typenum
case "1"
response.Write("<td><table width='100%'><tr><td bgcolor=red width='50%'>")
response.Write(rs(""&fildname&""))
response.Write("</td><td bgcolor=black>")
response.Write("体例1之"&i&"纪录")'此处的“体例1”可以交换显示为其他字段的值
response.Write(&q</p>  写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)
若相依 该用户已被删除
沙发
发表于 2015-2-16 03:47:20 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
灵魂腐蚀 该用户已被删除
板凳
发表于 2015-2-26 00:33:09 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
海妖 该用户已被删除
地板
发表于 2015-3-3 08:03:53 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
金色的骷髅 该用户已被删除
5#
发表于 2015-3-7 10:27:48 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
6#
发表于 2015-3-17 20:09:19 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
冷月葬花魂 该用户已被删除
7#
发表于 2015-3-24 23:35:26 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
变相怪杰 该用户已被删除
8#
发表于 2015-3-26 06:00:17 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
愤怒的大鸟 该用户已被删除
9#
发表于 2015-4-6 00:08:45 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
柔情似水 该用户已被删除
10#
发表于 2015-4-7 01:30:03 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
活着的死人 该用户已被删除
11#
发表于 2015-4-12 22:32:29 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
若天明 该用户已被删除
12#
发表于 2015-4-26 00:54:24 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
不帅 该用户已被删除
13#
发表于 2015-6-4 13:06:44 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
只想知道 该用户已被删除
14#
发表于 2015-6-6 07:08:03 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
再见西城 该用户已被删除
15#
发表于 2015-6-6 08:12:56 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
飘灵儿 该用户已被删除
16#
发表于 2015-6-10 06:35:40 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
精灵巫婆 该用户已被删除
17#
发表于 2015-6-28 08:26:55 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
透明 该用户已被删除
18#
发表于 2015-7-4 00:33:09 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
小魔女 该用户已被删除
19#
发表于 2015-7-7 23:17:05 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-1 07:59

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表