北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
有三个表
admin
表data
表neirong
利用ASP页面显示效果
怎么都是一样的显示呀单位的。。代码如下
<%
dim rst,rs,rs1
set rst=server.CreateObject("ADODB.RecordSet")
rst.Source="SELECT * FROM data "
rst.Open rst.Source,conn,3,1
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="SELECT * FROM neirong "
rs1.Open rs1.Source,conn,3,1
Set rstObj = Server.CreateObject ("ADODB.Recordset")
strSQL="select admin.class from admin,data where data.username=admin.username"
rstObj.Open strSQL,conn,1
PageShowSize = 10 '每页显示多少个页
MyPageSize = 20 '每页显示多少用户
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
If Not rst.eof then
rst.PageSize = MyPageSize
MaxPages = rst.PageCount
rst.absolutepage = MyPage
total = rst.RecordCount
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title>- 用户管理</title>
<link href="css.css" type=text/css rel=stylesheet>
<style>
<!--
body { font-family: 宋体; font-size: 9pt }
.style1 {
font-size: 16px;
color: #FFFFFF;
}
.style2 {font-size: 16}
.style3 {font-size: 12px}
.style5 {
font-size: 16px;
font-weight: bold;
}
.style7 {font-size: 16px}
-->
</style>
</head>
