zoukankan
html css js c++ java
自适应输出表格(ASP版)
<
%
'
'
Made by Goodspeed
'
'
Option
Explicit
Response.Buffer
=
True
'
sql数据库连接参数:数据库名、用户密码、用户名、连接名(本地用local,外地用IP)
Const
SqlUsername
=
"
sa"
Const
SqlPassword
=
"
qwe"
Const
SqlDatabaseName
=
"
NorthWind"
Const
SqlLocalName
=
"
127.0.0.1"
Dim
ConnStr
ConnStr
=
"
Provider = Sqloledb; User ID =
"
&
SqlUsername
&
"
; Password =
"
&
SqlPassword
&
"
; Initial Catalog =
"
&
SqlDatabaseName
&
"
; Data Source =
"
&
SqlLocalName
&
"
;"
'
打开数据库
Dim
Conn
Set
Conn
=
server.
createobject
(
"
adodb.connection
"
)
Conn.Open ConnStr
%
>
<
html
>
<
head
>
<
title
>
ASP Test
</
title
>
<
meta http
-
equiv
=
"
Content-Type
"
content
=
"
text/html; charset=gb2312
"
>
</
head
>
<
body
>
<
table
>
<
%
Dim
rs, strSQL, Field, strResponse
strSQL
=
"
SELECT EmployeeID,LastName,FirstName FROM Employees;"
Set
rs
=
Conn.
Execute
(strSQL)
'
输出表头
strResponse
=
"
<tr>"
For
Each
Field In rs.Fields
strResponse
=
strResponse
&
"
<td>
"
&
Field.Name
&
"
</td>"
Next
strResponse
=
strResponse
&
"
</tr>"
'
输出表体
Do
Until rs.EOF
strResponse
=
strResponse
&
"
<tr>"
For
Each
Field In rs.Fields
strResponse
=
strResponse
&
"
<td>
"
&
rs(Field.Name)
&
"
</td>"
Next
strResponse
=
strResponse
&
"
</tr>"
rs.MoveNext
Loop
Set
rs
=
nothing
Response.Write (strResponse)
%
>
</
table
>
</
body
>
</
html
>
<
%
Conn.Close()
Set
Conn
=
nothing
%
>
查看全文
相关阅读:
坚持的力量 第十五篇
<QT障碍之路>qt中使用串口类接收数据不完整
《开发板 — ping得通本地,但是不能上网。route设置默认网关》
《海思3531D 搭建环境出现的一些问题》
《应用编程 — 进程通信 — 命名管道FIFO》
<QT学习>QT中串口QSerialport类学习与使用
网络视频工具/网站
[恢]hdu 1701
[恢]hdu 1425
[恢]hdu 2523
原文地址:https://www.cnblogs.com/goodspeed/p/32675.html
最新文章
hdu 1879 继续畅通工程
hdu Eddy's picture (最小生成树)
HDU 2489 Minimal Ratio Tree (DFS枚举+最小生成树Prim)
HDU1301 Jungle Roads(最小生成树[Prim])
hdu 1535 Invitation Cards(SPFA)
hdu 4463 Outlets(最小生成树)
RMQ 详解
POJ 3419 Difference Is Beautiful(RMQ+二分 或者 模拟)
938_二叉搜索树的范围和
783_二叉搜索树节点最小距离
热门文章
701_二叉搜索树中的插入操作
坚持的力量 第十六篇
顺序表的查找/删除/插入
单链表
坚持的力量 第十四篇
坚持的力量 第十三篇
常量指针与指针常量的区别
建立顺序表
坚持的力量 第十七篇
光驱弹不出来问题
Copyright © 2011-2022 走看看