求一行多列的asp源码,万分感谢!!
參考答案:<!--#include file=conn.asp-->
<!--#include file="admin.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">
<html xmlns="">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<link href="inc/Style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim admincls,Sword,timeb,timee,branch,i,sql
if (isdate(trim(request("dateB")))) and cdate(request("dateB"))>cdate("2006-11-25") then
timeB=trim(request("dateB"))
else
timeB = date
end if
if not(isdate(trim(request("dateE")))) then
timeE = dateadd("d",1,date)
else
timeE=trim(request("dateE"))
end if
branch = trim(request("dept"))
k="dept="&branch&"&dateB="&timeb&"&dateE="&timeE&""
Sword="<br><form action=webuser.asp method=get name=frm>"
Sword=Sword+"<table width=600 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#000066>"
Sword=Sword+"<tr bgcolor=#ffffff><td colspan=6>部门"
Sword=Sword+"<select name=dept>"
Sword=Sword+"<option value="&request.Cookies(cacheName&"dept")&" selected>"&request.Cookies(cacheName&"dept")&"</option>"
Sword=Sword+"</select>"
if timeb<>"" and isdate(timeb) then
Sword=Sword+ "时间<input name=dateB type=text id=dateB size=14 maxlength=20 value="&timeb&">"
else
Sword=Sword+ "时间<input name=dateB type=text id=dateB size=14 maxlength=20 value="&date&">"
end if
if timeE<>"" and isdate(timeE) then
Sword=Sword+"-<input name=dateE type=text id=dateE size=14 maxlength=20 value="&timeE&">"
else
Sword=Sword+"-<input name=dateE type=text id=dateE size=14 maxlength=20 value="&dateadd("d",1,date)&">"
end if
Sword=Sword+"<input name=Submit type=submit class=button_red value=查询> <a href=dept_stat.asp>统计</a> </tr></td>"
Sword=Sword+"<tr bgcolor=#ffffff><td width=55>id</td>"
Sword=Sword+"<td width=94>帐号</td>"
Sword=Sword+"<td width=85>呢称</td>"
Sword=Sword+"<td width=81>注册时间</td>"
Sword=Sword+"<td width=166>最后登陆时间</td>"
Sword=Sword+"<td width=72>部门</td></tr>"
sql="select * from f_user where (reg_date between #"&timeB&"# and #"&timeE&"#) and branch like '"&request.Cookies(cacheName&"dept")&"' and [money]<10 "
on error resume next
set rs=rsopen(sql,1,1)
maxpage=15
if (Not isempty(request("page"))) and (request("page")<>"") then
Page=Cint(request("page"))
else
Page=1
end if
rs.PageSize=maxpage
if rs.pagesize > rs.recordcount then
last = 1
elseif rs.recordcount mod rs.pagesize <> 0 then
last = rs.recordcount / rs.pagesize + 1
else
last = rs.recordcount / rs.pagesize
end if
if page<1 then page=1
rs.move (Page-1)*MaxPage
for i=0 to maxpage-1
if rs.eof then exit for
Sword=Sword+"<tr bgcolor=#ffffff><td width=55><a href=WebUesrInfo.asp?id="&rs("user_id")&">"&rs("user_id")&"</a></td>"
Sword=Sword+"<td width=94>"&rs("user_name")&"</td>"
Sword=Sword+"<td width=85>"&rs("cuname")&"</td>"
Sword=Sword+"<td width=81>"&rs("reg_date")&"</td>"
Sword=Sword+"<td width=166>"&rs("last_login")&"</td>"
Sword=Sword+"<td width=72>"&rs("branch")&"</td></tr>"
rs.movenext
next
Sword=Sword+"</table></form>"
function showpage(key,url)
sword=sword+"<table width=650 height=25 border=0 align=center cellpadding=1 cellspacing=1>"
sword=sword+"<tr>"
sword=sword+"<td width=630 align=right>"
if page<2 then
sword=sword+"[首页][上一页]"
else
sword=sword+"<a href="&url&"?page=1&"& key &">[首页]</a>"
sword=sword+"<a href="&url&"?page="&page-1&"&"& key &">[上一页]</a>"
end if
if last-page <1 then
sword=sword+"[下一页][尾页]"
else
sword=sword+"<a href="&url&"?page="&page+1&"&"& key &">[下一页]</a>"
sword=sword+"<a href="&url&"?page="&last&"&"& key &">[尾页]</a>"
end if
sword=sword+"</td></tr></table>"
end function
showpage k,"webuser.asp"
response.Write sword
%>
</body>
</html>