ASP网页编程之通用数据库显现程序,能调恣意库,恣意字...
结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。程序|分页|关头字|数据|数据库|显现数据库显现程序,能调恣意库,恣意字段,多关头字搜刮,主动分页.阿余常常写一些数据库相干的程序,固然离不开显现库中的数据了,说假话,做如许的程序真是无聊啊,以是,阿余就想写个函数,一个通用的数据库显现函数.请求以下:
1.能显现指定的字段,固然,字段名和显现的笔墨能够纷歧样.
2.能同时按多个字段举行查询,撑持含混和准确两种查询体例.
3.有横向分列和纵向分列字段两种显现体例.
4.能主动分页.
5.能设定每页显现几笔记录.好啦,请求年夜至就是如许了.依据这个请求,阿余写了上面的函数.
实践上,这里阿余写了两个函数.一个是TABDISP(),用于显现一个指定表中的内容.另有一个是ER()一个小小的毛病处置函数.
这个函数有5个参数(真够多的).而且各个参数都要输出数据,不克不及是空缺,否则会堕落的.
1(TAB),要挪用的表名.
2(DISPFILD),要显现表中的哪一些字段,如字段名和要显现的字符纷歧样用<分开.好比某一个字段名为:IMG,但要在页面上显现为:图片,那末,就写为IMG<图片,假如有多个字段,各字段间用“,”分开,唉，老声长谈.
3(FINDFILD),要按哪些字段举行查询,字段名和要显现的字符间用<分开.
4(PAGEN),每页显现几笔记录.
5(FH),显现的偏向.当为S时纵向显现.为H时横向显现.
函数的前往值,当没有堕落的时分,前往值为真,不然为假.
这个函数中没有包含毗连到数据库的部分.以是要本人毗连到库.别的,为了反复使用.能够把这个函数专门用一个文件来保留,然后在必要的时分包括这个文件.
看上面的函数:(不要不看完,最初我举有使用的例子)
<%
以下界说一个显现表格的函数TABDISP(),参数TAB,被显现的表名,DISPFILD,要显现的字段,FINDFILD,查询字段,PAGEN,每页显现数目,fh,显现的偏向
如显现乐成,前往值为真,不乐成,前往值为假.
多个字段间用,分开
查询字段必定要包括在显现字段中.
如字段名与要显现的称号纷歧样,用<分开,后面是字段名,前面是显现的名字,而要举行搜刮的字段则必定要用<分开要字段名和显现字符
FH显现偏向为"H"时作横向显现,为"S"时作纵向显现辨别巨细写
FUNCTIONTABDISP(TAB,DISPFILD,FINDFILD,PAGEN,FH)
OnErrorResumeNext
IFDISPFILD=""THENDISPFILD="*"
IFPAGEN=""THENPAGEN=15
DISPFILD1=DISPFILD&","
findfild1=findfild&","
dimfindl(10),findr(10)
i1=1
dowhileinstr(findfild1,",")0
star=instr(findfild1,",")
findl(i1)=left(findfild1,star-1)
findr(i1)=findl(i1)
fildbak=findl(i1)
findl(i1)=left(fildbak,instr(fildbak,"<")-1)
findr(i1)=right(fildbak,len(fildbak)-instr(fildbak,"<"))
findfild1=right(findfild1,len(findfild1)-star)
i1=i1+1
loop
Response.Write"<tableborder=0width=100%cellspacing=0><tr><formmethod=GET>"
Response.Write"<TD>"width=50%
IFSESSION("FLMENULBUP")""THEN
Response.Write"以后栏目：<AHREF=FLMEN.ASP?MENULB="&SESSION("FLMENULBUP")&">"&MID(SESSION("FLMENULBUP"),4,200)&""
ENDIF
IFSESSION("flmenulb")SESSION("FLMENULBUP")THEN
Response.Write">><AHREF=FLMEN.ASP?menulb="&SESSION("FLMENULBUP")&"&LB="&SESSION("flmenulb")&">"&MID(SESSION("flmenulb"),4,200)&""
ENDIF
Response.Write"</TD><tdalign=right></td><tdalign=right><tableborder=0cellspacing=0cellpadding=0>"
Response.Write"<tr><tdrowspan=2><imgsrc=http://www.163design.net/a/s/img/SEARCH.GIFwidth=50></td>"
fori3=1toi1-1
Response.Write"<td>"&findr(i3)&"：</td>"
next
Response.Write"</tr><tr>"<td></td>
fori2=1toi1-1
Response.Write"<td><inputtype=textname=key_word"&i2&"size=8value=></td>"
next
Response.Write"<tr></table></td><tdwidth=20%><inputtype=checkboxname=find_frvalue=yes>准确<inputtype=submitvalue=入手下手name=B_FIND></td>"
Response.Write"</form></tr></table>"
find_fr=request("find_fr")
TJ=""
urllr="&find_fr="&find_fr
findlrdisp=""
FORI3=1TOI1-1
TJ1=request("KEY_WORD"&I3)
urllr=urllr&"&key_word"&i3&"="&tj1&</p>优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 不能只是将它停留在纸上谈兵的程度上。 不能只是将它停留在纸上谈兵的程度上。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 不能只是将它停留在纸上谈兵的程度上。
页:
[1]