ASP教程之函数便利制造办理界面
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.函数有的时分做办理界面的增加删除修正反复休息很贫苦试写了一个函数包括了分页显现增加删除修正
dimarrHeaderName,arrFieldName,arrFieldData,arrTdWidth,strTblName,strKeyName,strHeaderCss,strBodyCss,strTableCss,strButtomCss,iPageSize,iTableBorder,iMpdifyMethod
arrHeaderName=array("编号","肇端地点","停止地点","国度","地址")
arrFieldName=array("id","onip","offip","addj","addf")
arrFieldData=array("auto","num","num","char","char")
arrTdWidth=array("50","100","100","150","250")
strTblName="ip"
strKeyName="id"
strHeaderCss="HeaderCss"
strBodyCss="BodyCss"
strTableCss="TableCss"
strButtomCss="ButtomCss"
iPageSize=20
iTableBorder=1
iModifyMethod=7
数据表格(题目名数组,字段名数组,字段范例数组,单位格宽度数组,表名,题目款式,注释款式,表格全体款式,底部款式,分页数,表格边框,修正需求)
DataGridarrHeaderName,arrFieldName,arrFieldData,arrTdWidth,strTblName,strKeyName,strHeaderCss,strBodyCss,strTableCss,strButtomCss,iPageSize,iTableBorder,iModifyMethod
这个函数就完成了具有分页显现增加删除修正一个表中的几个字段功效的页面
http://www.musecn.com/new
函数以下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
界说全局变量
dimobjConn
信息过滤(信息,范例)
functionMyRequest(info,iType)
ifiType=0then
MyRequest=trim(cstr(Replace(request(info),"","")))
else
ifisnumeric(request(info))then
MyRequest=clng(request(info))
else
Response.write"范例毛病"
Response.End
endif
endif
endfunction
页面头部(页面题目,款式地点)
subPageStart(strPageTitle,strPageCss)
response.write"<html>"&vbcrlf
response.write"<head>"&vbcrlf
response.write"<metahttp-equiv=""Content-Type""content=""text/html;charset=gb2312"">"&vbcrlf
response.write"<linkhref="""&strPageCss&"""rel=""stylesheet""type=""text/css"">"&vbcrlf
response.write"<title>"&strPageTitle&"</title>"&vbcrlf
response.write"</head>"&vbcrlf
response.write"<body>"&vbcrlf
endsub
毗连数据库(数据库名)
subDbConn(DbName)
setobjConn=server.CreateObject("adodb.connection")
objConn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(DbName)
endsub
subPageLast()
response.write"</body>"&vbcrlf
response.write"</html>"&vbcrlf
endsub
数据表格(题目名数组,字段名数组,字段范例数组,单位格宽度数组,表名,主键名,题目款式,注释款式,表格全体款式,底部款式,分页数,表格边框,修正需求)
subDataGrid(arrHeaderName,arrFieldName,arrFieldData,arrTdWidth,strTblName,strKeyName,strHeaderCss,strBodyCss,strTableCss,strButtomCss,iPageSize,iTableBorder,iModifyMethod)
dimobjRs
dimstrExec
dimiTmp,iTmp2
dimiPageCount
dimiPage
dimiRecordCount
dimiPageStart
dimiPageEnd
dimiLastTenPage
dimiNextTenPage
setobjRs=server.CreateObject("adodb.recordset")
objRs.open"selectcount(*)from"&strTblName,objConn,1,1
iRecordCount=objRs(0)
objRs.close
IfiRecordCountmodiPageSize=0Then
iPageCount=iRecordCountiPageSize
Else
iPageCount=iRecordCountiPageSize+1
EndIf
iPage=MyRequest("iPage",1)
ifiPage<1theniPage=1
ifiPage>iPageCounttheniPage=iPageCount
ifMyRequest("Method",0)="Delete"then
strExec="deletefrom"&strTblName&"where"&strKeyName&"="&MyRequest(strKeyName,1)
objConn.executestrExec
response.redirect"?iPage="&iPage
endif
ifMyRequest("Method",0)="ModifyPost"then
strExec="update"&strTblName&"set"
foriTmp=0toubound(arrHeaderName)
ifarrFieldName(iTmp)strKeyNamethen
ifarrFieldData(iTmp)="num"then
strExec=strExec&arrFieldName(iTmp)&"="&MyRequest(arrFieldName(iTmp),0)
else
strExec=strExec&arrFieldName(iTmp)&"="&MyRequest(arrF</p>无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的； 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。
页:
[1]