📄 sample1.asp

📁 Web based project,kisan online

💻 ASP

字号:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
 set con= Server.CreateObject("ADODB.Connection")
  con.Mode = 3
  set rs = server.CreateObject("ADODB.Recordset")
  con.ConnectionString =" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\wwwroot\admin1_files\db.mdb"
   con.Open
   query = "select * from market"
      rs.Open query,con,1,3 
      rs.MoveFirst 
      Response.Write("Cr_Nm")
      Response.Write(" &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write("Cr_Ty")
      Response.Write(" &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write("Avl_mk ")
      Response.Write(" &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write("Rt/qt")
      Response.Write(" &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write("Tra_Fac")
      Response.Write("<br>")
      while not rs.EOF 
      Response.Write rs.Fields(0)
      Response.Write ("&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write rs.Fields(1)
      Response.Write ("&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write rs.Fields(2)
      Response.Write ("&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write rs.Fields(3)
      Response.Write ("&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp")
      Response.Write rs.Fields(6)
       Response.Write("<br>")  
         rs.MoveNext 
         wend
         

%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -