扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:青苹果工作室(编译) 来源:yesky 2007年10月26日
关键字: Windows
<% Class dhtmlGetRows '******* PRIVATE MEMBER VARIABLES ********** Private iRecsPerPage Private strTHString '******************************************* '************ Initialize Event ************* Private Sub Class_Initialize() iRecsPerPage = 10 'assign a default value End Sub '******************************************* '************ PROPERTY LET/GET ************* Public Property Let THString(strValue) 'Replace all apostrophes with \' strTHString = Replace(strValue, "'", "\'") End Property Public Property Get THString() THString = strTHString End Property Public Property Let RecsPerPage(iValue) If iValue > 0 and IsNumeric(iValue) then iRecsPerPage = CInt(iValue) End If End Property Public Property Get RecsPerPage() RecsPerPage = iRecsPerPage End Property '******************************************* '**************** METHODS ****************** Public Function GenerateHTML(objRS) 'Begin by getting an array of the data Dim aValues aValues = objRS.GetRows() 'Find the value of rows and columns Dim iCols, iRows iCols = UBound(aValues, 1) iRows = UBound(aValues, 2) Dim strOutput 'Display the initial script block strOutput = "<script language=""javascript"">" & vbCrLf & _ "var tableRow = new Array(" & iRows & ");" & vbCrLf & vbCrLf Dim iLoop, iColLoop, strTmp For iLoop = 0 to iRows strOutput = strOutput & "tableRow[" & iLoop & "] = '<tr>" For iColLoop = 0 to iCols 'Fix apostrophes strTmp = Replace(aValues(iColLoop, iLoop),"'", "\'") 'Remove carraige returns strTmp = Replace(strTmp, vbCrLf, "") strOutput = strOutput & "<td>" & strTmp & "</td>" Next 'iColLoop strOutput = strOutput & "</tr>';" & vbCrLf Next 'iLoop 'Init global varaibles and find out what browser the user is using strOutput = strOutput & vbCrLf & vbCrLf & "var first = 0;" & vbCrLf & _ "var last = " & iRecsPerPage & ";" & vbCrLf & _ "var mynav;" & vbCrLf & "if (navigator.appName == ""Netscape"")" & _ vbCrLf & vbTab & "mynav = ""NS"";" & vbCrLf & _ "if (navigator.appName == ""Microsoft Internet Explorer"")" & _ vbCrLf & vbTab & "mynav = ""IE"";" & vbCrLf & _ vbCrLf & "</script>" & vbCrLf & vbCrLf 'Now display the HTML table strOutput = strOutput & vbCrLf & "<div id=""grid""> </div>" & vbCrLf & _ vbCrLf & vbCrLf & "<script language=""javascript"">" & vbCrLf 'Write the nav function strOutput = strOutput & "function nav(iVal) {" & vbCrLf & _ "// do we want to move forward or backwards?" & vbCrLf & _ "if (iVal == 1) { " & vbCrLf & vbTab & "first += " & _ iRecsPerPage & ";" & vbCrLf & "last += " & iRecsPerPage & _ vbCrLf & "}" & vbCrLf & "else if (iVal == -1) { " & vbCrLf & vbTab & _ "first -= " & iRecsPerPage & ";" & vbCrLf & vbTab & "last -= " & _ iRecsPerPage & ";" & vbCrLf & "}" & vbCrLf & _ vbCrLf & vbCrLf & "var txt = '';" & vbCrLf & _ "txt += '<table border=""1"">';" & vbCrLf 'Do we need to add a TH string? If Len(strTHString) > 0 then strOutput = strOutput & "txt += '<tr>" & strTHString & "</tr>';" & vbCrLf End If strOutput = strOutput & "for (var iLoop = first; iLoop < last; iLoop++)" & vbCrLf & _ vbTab & "if (iLoop <= " & iRows & ") txt += tableRow[iLoop];" & vbCrLf & _ "txt += '</table>';" & vbCrLf & vbCrLf 'Now, show next/prev links if applicable strOutput = strOutput & "if (first > 0) // show prev link" & vbCrLf & _ vbTab & "txt += '<a href=""javascript:nav(-1);"">Prev " & _ iRecsPerPage & "</a> ';" & vbCrLf & vbCrLf & _ "if (last <= " & iRows & ") // show next link" & vbCrLf & vbTab & _ "txt += '<a href=""javascript:nav(1);"">Next " & _ iRecsPerPage & "</a>';" & vbCrLf & vbCrLf 'Write out the new HTML content to the DIV tag strOutput = strOutput & "// write out the the DIV tag depending on browser..." & vbCrLf & _ "if (mynav == ""NS"") {" & vbCrLf & vbTab & _ "document.layers['grid'].document.write(txt);" & vbCrLf & vbTab & _ "document.close();" & vbCrLf & "}" & vbCrLf & vbCrLf & _ "if (mynav == ""IE"")" & vbCrLf & vbTab & _ "document.all['grid'].innerHTML = txt;" & vbCrLf & vbCrLf & _ "}" & vbCrLf & vbCrLf strOutput = strOutput & "nav(0);" & vbCrLf & "</script>" GenerateHTML = strOutput End Function '******************************************* End Class %> |
婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌e☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜<閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者