📄 useradd.asp
字号:
<!--#include file="bkconn.asp"-->
<%Response.Expires=0
Response.Buffer=true
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if Session("ljl_liujinlu")="" then%>
<script language=vbscript>
MsgBox "错误：非法用户！"
location.href = "login.asp"
</script>
<%end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>小灵通管理系统</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<STYLE type=text/css>BODY {
BORDER-RIGHT: medium none; PADDING-RIGHT: 0px; BORDER-TOP: medium none; PADDING-LEFT: 0px; FONT-SIZE: 9pt; PADDING-BOTTOM: 0px; BORDER-LEFT: medium none; COLOR: black; PADDING-TOP: 0px; BORDER-BOTTOM: medium none; FONT-FAMILY: 宋体; BACKGROUND-COLOR: buttonface
}
TD {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
INPUT {
FONT-SIZE: 9pt; COLOR: #0000ff; FONT-FAMILY: 宋体; BACKGROUND-COLOR: buttonface
}
</STYLE>
<link rel="stylesheet" href="ljl.css">
<script language="javascript">
function ljl1()
{
if(document.ljl.name.value.length<1)
{
alert("无效用户帐号!");
return ;
}
if(document.ljl.dj.value.length<1)
{
alert("请正确输入操作员的等级!");
return ;
}
if(document.ljl.dj.value.length>2)
{
alert("请正确输入操作员的等级!");
return ;
}
if(document.ljl.dw.value.length<1)
{
alert("姓名非空!");
return ;
}
document.ljl.submit();
}
</script>
</head>
<%
const MaxPerPage=15
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
dim keyword
keyword=request("guestname")
typename="客户域名信息管理系统"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<body style="background-color: #FFFFFF">
<div align="center"><center>
<table border="0" width="77%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<%
sql="select * from user where list=false and guestname like '%"&keyword&"%' order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有或没有找到任何数据</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"useradd.asp"
showContent
showpage totalput,MaxPerPage,"useradd.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"useradd.asp"
showContent
showpage totalput,MaxPerPage,"useradd.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"useradd.asp"
showContent
showpage totalput,MaxPerPage,"useradd.asp"
end if
end if
rs.close
end if
set rs=nothing
sub showContent
dim i
i=0
%>
<div align="center"><center>
<table border="1" cellspacing="0" width="587" bordercolorlight="#D4D0C8" bordercolordark="#D4D0C8" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="92" align="center"><strong>用户<span lang="zh-cn">帐号</span></strong></td>
<td width="82" align="center"><strong>密码</strong></td>
<td width="39" align="center"><strong>级别</strong></td>
<td width="109" align="center"><strong><span lang="zh-cn">姓名</span></strong></td>
<td width="156" align="center"><strong>最后登陆时间</strong></td>
<td width="102" align="center" colspan="2"><strong>操 作</strong></td>
</tr>
<%do while not rs.eof%>
<tr>
<form method="POST" target="_self" action="useredit.asp?id=<%=rs("id")%>">
<td width="92"><p>
<input class=smallInput type="text" name="guestname" size="11" style="background-color: #FFFFFF" value="<%=rs("guestname")%>"></td>
<td width="82"> <input class=smallInput type="text" name="pwd" size="10" style="background-color: #FFFFFF" value="<%=rs("ljl_pwd")%>"></td>
<td width="39"><p align="left"> <input class=smallInput type="text" name="dj" size="3" style="background-color: #FFFFFF" value="<%=rs("grad")%>">
</td>
<center>
<td width="109"> <input class=smallInput type="text" name="dw" size="14" style="background-color: #FFFFFF" value="<%=rs("add")%>"></td>
<td width="156">
<input class=smallInput type="text" name="sjjj1" size="21" style="background-color: #FFFFFF" value="<%=rs("denglusj")%>"></td>
<td width="61">
<p align="center"><input style="COLOR: #008000; BORDER-TOP-STYLE: groove; BORDER-RIGHT-STYLE: groove; BORDER-LEFT-STYLE: groove; BORDER-BOTTOM-STYLE: groove" type="submit" value="修改" name="button"></td>
<td width="40">
<p align="center"><a href="deluser.asp?id=<%=rs("id")%>" target="_self">删除</a></td>
</form>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
</div><%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
' response.write "<p align='center'><font color='red'>"&typename&"</font> "
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1&guestname="&keyword&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&guestname="&keyword&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&guestname="&keyword&">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>条记录 <b>"&maxperpage&"</b>条记录/页</font> "
response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput type='text' name='txtitle' value="¤tpage&">"
response.write "<input class=buttonface type='submit' value=' Goto ' name='cndok'></span></p></form>"
end function
%>
<form name="searchtitle" method="POST" action="useradd.asp">
<p align=center><span lang="zh-cn">帐号</span>：<input class=smallInput type="text" name="guestname" size="13" style="background-color: #FFFFFF">
<input class=buttonface type="submit" value="查 询" name="title"> </p>
</form>
<!---查询-------end----------------->
</td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="91%">
<tr>
<td width="100%">
<form method="POST" target="_self" action="addusersave.asp" name="ljl">
<p> 授权<span lang="zh-cn">帐号</span>：<input class=smallInput type="text" name="name" size="14" style="background-color: #FFFFFF"> 等级：<input class=smallInput type="text" name="dj" size="3" style="background-color: #FFFFFF">
<span lang="zh-cn">姓名</span>：<input class=smallInput type="text" name="dw" size="15" style="background-color: #FFFFFF"> <INPUT style="COLOR: #800000; BORDER-TOP-STYLE: groove; BORDER-RIGHT-STYLE: groove; BORDER-LEFT-STYLE: groove; BORDER-BOTTOM-STYLE: groove" onclick=javascript:ljl1() type=button value='添 加' name=button> <INPUT style="COLOR: #800000; BORDER-TOP-STYLE: groove; BORDER-RIGHT-STYLE: groove; BORDER-LEFT-STYLE: groove; BORDER-BOTTOM-STYLE: groove" type=reset value='取消' name=button1> </p>
</form>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<html></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -