strExec=strExec&MyRequest(arrFieldName(iTmp),0)
else
strExec=strExec&"'"&MyRequest(arrFieldName(iTmp),0)&"'"
end if
if iTmp<>ubound(arrFieldName) then strExec=strExec&","
end if
next
strExec=strExec&")"
objConn.execute strExec
response.redirect "?iPage="&iPage
end if
if iPage-5>0 then
iPageStart=iPage-5
else
iPageStart=1
end if
if 10+iPageStart<=iPageCount then
iPageEnd=10+iPageStart
else
iPageEnd=iPageCount
end if
if 10+iPage<=iPageCount then
iNextTenPage=iPage+10
else
iNextTenPage=iPageCount
end if
if iPage-10>0 then
iLastTenPage=iPage-10
else
iLastTenPage=1
end if
strExec="select top "&iPageSize*iPage&" "
strExec=strExec&strKeyName&","
for iTmp=0 to ubound(arrFieldName)
strExec=strExec&arrFieldName(iTmp)
if iTmp<>ubound(arrFieldName) then strExec=strExec&","
next
strExec=strExec&" from "&strTblName
objRs.open strExec,objConn,1,1
objRs.move iPageSize*(iPage-1)
response.write "<table border=""0"" cellpadding=""0"" cellspacing="""&iTableBorder&""" class="""&strTableCss&""">"&vbcrlf
response.write "<tr class="""&strHeaderCss&""">"&vbcrlf
for iTmp=0 to ubound(arrHeaderName)
response.write "<td width="""&arrTdWidth(iTmp)&""">"&arrHeaderName(iTmp)&"</td>"&vbcrlf
next
if iModifyMethod=2 or iModifyMethod=5 or iModifyMethod=6 or iModifyMethod=7 then
response.write "<td width=""50"">删除</td>"
end if
if iModifyMethod=3 or iModifyMethod=4 or iModifyMethod=5 or iModifyMethod=7 then
response.write "<td width=""50"">修改</td>"
end if
response.write "</tr>"&vbcrlf
if iModifyMethod=1 or iModifyMethod=4 or iModifyMethod=6 or iModifyMethod=7 then
response.write "<form name=""addnew"" method=""get""><tr class="""&strBodyCss&""">"&vbcrlf
for iTmp=0 to ubound(arrHeaderName)
if arrFieldName(iTmp)<>strKeyName then
response.write "<td><input name="""&arrFieldName(iTmp)&""" type=""text"" size="""&arrTdWidth(iTmp)/10&"""></td>"&vbcrlf
else
response.write "<td>-</td>"&vbcrlf
end if
next
response.write "<td colspan=""2""><input type=""hidden"" name=""iPage"" value="""&iPageCount&"""><input type=""hidden"" name=""Method"" value=""AddNew""><input type=""button"" value=""新增记录"" onclick=""addnew.submit()""></td>"
response.write "</tr></form>"&vbcrlf
end if
for iTmp2=1 to iPageSize
if objRs.Eof then Exit For
response.write "<form name=""modify"&iTmp2&""" method=""get""><tr class="""&strBodyCss&""">"&vbcrlf
for iTmp=0 to ubound(arrHeaderName)
if arrFieldName(iTmp)<>strKeyName and MyRequest("Method",0)="Modify" and objRs(strKeyName)=MyRequest(strKeyName,1) then
response.write "<td><input name="""&arrFieldName(iTmp)&""" type=""text"" size="""&arrTdWidth(iTmp)/10&""" value="""&objRs(arrFieldName(iTmp))&"""></td>"&vbcrlf
else
response.write "<td>"&objRs(arrFieldName(iTmp))&"</td>"&vbcrlf
end if
next
if iModifyMethod=2 or iModifyMethod=5 or iModifyMethod=6 or iModifyMethod=7 then
response.write "<td width=""50""><input type=""button"" onclick=""location.href='?iPage="&iPage&"&Method=Delete&"&strKeyName&"="&objRs(strKeyName)&"'"" value=""删除""></td>"
end if
if iModifyMethod=3 or iModifyMethod=3 or iModifyMethod=5 or iModifyMethod=7 then
if MyRequest("Method",0)="Modify" and objRs(strKeyName)=MyRequest(strKeyName,1) then
response.write "<td width=""50""><input type=""hidden"" name=""Method"" value=""ModifyPost""><input type=""hidden"" name="""&strKeyName&""" value="""&objRs(strKeyName)&"""><input type=""hidden"" name=""iPage"" value="""&iPage&"""><input type=""submit"" value=""确认""></td>"
else
response.write "<td width=""50""><input type=""button"" onclick=""location.href='?iPage="&iPage&"&Method=Modify&"&strKeyName&"="&objRs(strKeyName)&"'"" value=""修改""></td>"
end if
end if
;response.write "</tr></form>"&vbcrlf
来源:upschool.cn
作者:
关键字：自己写
发表日期：2006-7-26
网页显示有限 阅读全文请下载本文完整版WORD文档上一篇：无限级目录树+记忆节点状态 下一篇：下载网页中的所有资源
共3页 9 7 [1] [2] [3] 8 :>
2009-1-9 20:45:28
