admin.asp

vb+sql server开发的旧点管理系统。具体配置文档内有说明

<STYLE type=text/css>
TD {
	font-size: 12px; color: #794400; line-height: 18px    /*字体大小，颜色，*/
}            /*----代码定义的 <TD>的字号，颜色，字体行间距 line-height---*/
</STYLE>
<%
dim cn
dim rs
dim mysql


mysql="select * from client"

set cn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")

cn.connectionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=hotel;Data Source=."

	cn.open
	rs.open mysql,cn,1,3

	rs.pagesize=8   '每页显示的
	if cpage<>"" then
		rs.absolutepage=cpage
	end if

	response.write "<table border=1 bordercolor=#D2D0D2>"
	response.write "<tr>"
	for i=0 to 12
		response.write "<th>"& rs.fields(i).name & "</th>"
	next
	response.write "</tr>"
	while not rs.eof and scount<rs.pagesize
		response.write "<tr>"
		for i=0 to 12
			if i=1 then
				response.write "<td>"&rs.fields(0).value&" "& rs.fields(i).value & "</td>"
			else
				response.write "<td>"& rs.fields(i).value & "</td>"
			end if
		next
		response.write "</tr>"
		rs.movenext
		Scount=SCount+1
	wend
	response.write "</table>"
	response.write "<center>"
	response.write "总页数/当前页:"&rs.pagecount&"/"&Cpage
	for i=1 to rs.pagecount
		if i <> Cint(Cpage) then
			response.write "&nbsp;&nbsp;&nbsp;<a href=admin.asp?id="&i&">["&i&"]</a>"
		else
			response.write "&nbsp;&nbsp;&nbsp;<font color=red>"&i&"</font>"
		end if
	next
	response.write "</center>"
%>