<% Dim App,Rp Set App = Server.CreateObject("CrystalRuntime.Application") if Request.Form("Combo")<>"" then FiName="C:\InetPub\wwwroot\"&Request.Form("Combo")&".rpt" Set Rp = App.OpenReport(FiName) Else Set Rp = App.OpenReport("C:\Inetpub\wwwroot\GoodBook.rpt") End if Set session("oPageEngine") = Rp.PageEngine %> <HTML> <HEAD> <TITLE>ตัวอย่าง OpenRpt.asp</TITLE> </HEAD> <BODY BgColor="Yellow"> <Form Action="http://Ramcom4/OpenRpt.asp" method="POST"> <p>เลือกรายงาน :<select name="Combo" size="1"> <option>GoodBook</option> <option>SubLink</option> <option>MyLetter</option> <option>Label</option> </select> <input type="submit" value="Submit"></p> </Form> <OBJECT ID="CRViewer" CLASSID="CLSID:2DEF4530-8CE6-41c9-84B6-A54536C90213" WIDTH=100% HEIGHT=85% CODEBASE="./activexviewer.cab#Version=9,2,0,442" VIEWASTEXT> <PARAM NAME="EnableGroupTree" VALUE=0> <PARAM NAME="DisplayGroupTree" VALUE=0> <PARAM NAME="EnableSearchControl" Value =0> </OBJECT> <SCRIPT LANGUAGE="VBScript"> Sub Window_Onload On Error Resume Next Dim webBroker Set webBroker = CreateObject("WebReportBroker.WebReportBroker") Dim webSource Set webSource = CreateObject("WebReportSource.WebReportSource") webSource.ReportSource = webBroker webSource.URL = "./rptserver.asp" CRViewer.Zoom 100 webSource.PromptOnRefresh = True CRViewer.ReportSource = webSource CRViewer.ViewReport End Sub </SCRIPT> </BODY></HTML>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง