|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在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
数据表格(题目名数组,字段名数组,字段范例数组[auto:主动编号,num:数字型,char:字符型(备注型),date,日期型,time:工夫型],单位格宽度数组,表名,题目款式,注释款式,表格全体款式,底部款式,分页数,表格边框,修正需求[0:无1:增加2:删除3:修正4:增加+修正5:删除+修正6:增加+删除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
数据表格(题目名数组,字段名数组,字段范例数组[auto:主动编号,num:数字型,char:字符型(备注型),date,日期型,time:工夫型],单位格宽度数组,表名,主键名,题目款式,注释款式,表格全体款式,底部款式,分页数,表格边框,修正需求[0:无1:增加2:删除3:修正4:增加+修正5:删除+修正6:增加+删除7:增加+删除+修正])
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的概念本就是为一个能让系统运行于一个大的多样化环境而设计的； |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:49:20
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
窥视卡
雷达卡
发表于 2015-3-4 02:17:27