|
|
|||||||||
|
|||||||||
|
|||||||||
| |
||
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
#1
|
|||
|
|||
|
Help me, Using JavaScript in MS ACCESS ASP web page.
Anyone want help me out gets this one works?
I want include this javaScript in above asp page. so when you click news headlines (gets data from ms access database). then javascript menu will appear (gets data from ms access database). thanx. any easier way make this? URL ------------------------------------------------- <style type="text/css"> #menuShow{ border: 1px solid #00ffff; padding: 13px; font-size: 12px; font-family: Verdana, Arial; position: absolute; width: auto; height: auto; } #menuSelect{ padding: 13px; position: absolute; width: auto; height: auto; } </style> <div id="menuSelect"> <a href="javascript:void('0');" onClick="moveOnMenu();moveOffSelector()"> IMG 1.</a> </div> <div id="menuShow"> <p><a href="javascript:void('0');" onClick="moveOffMenu();moveOnSelector()"> IMG 2.</a> </p> <p>NEWS 1.<br> NEWS 2.<br> NEWS 3.</p> </div> <script type="text/javascript"> Show ="no"; var OffX = -200; var PosX = 300; var PosY = 10; var speed = 100; var increment = 100; var incrementNS4 = 150; var is_NS = navigator.appName=="Netscape"; var is_Ver = parseInt(navigator.appVersion); var is_NS4 = is_NS&&is_Ver>=4&&is_Ver<5; var is_NS5up = is_NS&&is_Ver>=5; var MenuX = OffX; var SelX = PosX; var sPosX = PosX; var sOffX = OffX; if (Show == "yes") { sPosX = OffX; sOffX = PosX; MenuX = sOffX; SelX = sPosX; } if (is_NS4) { increment = incrementNS4; Lq = "document.layers."; Sq = ""; eval(Lq+'menuSelect'+Sq+'.left=sPosX'); eval(Lq+'menuShow'+Sq+'.left=sOffX'); eval(Lq+'menuSelect'+Sq+'.top=PosY'); eval(Lq+'menuShow'+Sq+'.top=PosY'); } else { Lq = "document.all."; Sq = ".style"; document.getElementById('menuSelect').style.left = sPosX+"px"; document.getElementById('menuShow').style.left = sOffX+"px"; document.getElementById('menuSelect').style.top = PosY+"px"; document.getElementById('menuShow').style.top = PosY+"px"; } function moveOnMenu() { if (MenuX < PosX) { MenuX = MenuX + increment; if (is_NS5up) { document.getElementById('menuShow').style.left = MenuX+"px"; } else { eval(Lq+'menuShow'+Sq+'.left=MenuX'); } setTimeout('moveOnMenu()',speed); } } function moveOffMenu() { if (MenuX > OffX) { MenuX = MenuX - increment; if (is_NS5up) { document.getElementById('menuShow').style.left = MenuX+"px"; } else { eval(Lq+'menuShow'+Sq+'.left=MenuX'); } setTimeout('moveOffMenu()',speed); } } function moveOffSelector() { if (SelX > OffX) { SelX = SelX - increment; if (is_NS5up) { document.getElementById('menuSelect').style.left = SelX+"px"; } else { eval(Lq+'menuSelect'+Sq+'.left=SelX'); } setTimeout('moveOffSelector()',speed); } } function moveOnSelector() { if (SelX < PosX) { SelX = SelX + increment; if (is_NS5up) { document.getElementById('menuSelect').style.left = SelX+"px"; } else { eval(Lq+'menuSelect'+Sq+'.left=SelX'); } setTimeout('moveOnSelector()',speed); } } </script> end of java script. asp page start. <% Dim cnnSimple Dim rstSimple Dim strDBPath strDBPath = Server.MapPath("news.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _ & "DBQ=" & Server.MapPath("news.mdb")) Set rstSimple = cnnSimple.Execute("SELECT * FROM news") %> <table border="1"> <% Do While Not rstSimple.EOF %> <tr> <td><%= rstSimple.Fields("news").Value %></td> </tr> <% rstSimple.MoveNext Loop %> </table> <% rstSimple.Close Set rstSimple = Nothing cnnSimple.Close Set cnnSimple = Nothing %> |
![]() |
| Viewing: ASP Free Forums > Database > Microsoft Access Help > Help me, Using JavaScript in MS ACCESS ASP web page. |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|