sample1.asp

来自「Web based project,kisan online」· ASP 代码 · 共 44 行

ASP
44 行
字号 
<%@ 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>

sample1.asp - 源码说明

本页面展示了「Web based project,kisan online」中的 sample1.asp 源码文件，采用 ASP 编程语言编写，共 44 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web项目相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?