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
%
>
查看全文
相关阅读:
2018-2019-1 20165212 《信息安全系统设计基础》第九周学习总结
12321
实现mybash
2018-2019-1 20165212 《信息安全系统设计基础》第八周学习总结(pwd)
2018-2019-1 20165212 实验三-并发程序设计
2018-2019-1 20165212 20165222 20165313 实验二 固件程序设计
2018-2019-1 20165212 《信息安全系统设计基础》第1次实验——实验环境的熟悉
开根号(二分法、牛顿法)
logistic回归的损失函数是什么形式?为什么?为什么不选平方损失函数?
西瓜书课后习题——第六章
原文地址:https://www.cnblogs.com/goodspeed/p/32675.html
最新文章
2018-2019-1 20165226 《信息安全系统设计基础》第9周学习总结
2018-2019-1 20165226_20165310_20165315 实验四 外设驱动程序设计
2018-2019-1 20165226 《信息安全系统设计基础》第8周学习总结
mybash的实现
2018-2019-1 20165226《信息安全系统设计基础》 pwd命令的实现
2018-2019-1 20165226 实验三 并发程序
2018-2019-1 20165226 《信息安全系统设计基础》第7周学习总结
2018-2019-1 20165226 20165310 20165315 实验二 固件程序设计
bugku web所有writeup_超详细讲解_持续更新
BurpSuite intuder里保存所有网页的特定内容:以bugku的cookies欺骗为例题
热门文章
windows下使用xortools
【转载】sudoers改坏后无法使用sudo的解决办法
python3 各种编码转换
2019 DDCTF 部分writeup
kali 32位 更换 xfce4 桌面
kali虚拟机添加共享文件夹
acm:屁屁上的巴掌
2018-2019-2 《网络对抗技术》Kali安装 Week1 20165212
2018-2019-1 20165212 实验五 通讯协议设计
20165212 20165222 20165313 实验四 外设驱动程序设计
Copyright © 2011-2022 走看看