<script type="text/javascript">
function checkadd(){
if (document.form1.username.value==""){
alert('用户名不能为空');
document.form1.username.select();
document.form1.username.focus();
return false;
}
}
</script><title>用户管理</title>
<%
Dim action,id
action=trim(request.QueryString("action"))
select case action
case "add"
username=trim(request.Form("username"))
password=md5(request.Form("password"),16)
Set rs=server.CreateObject("adodb.recordset")
sql="select * from manager"
rs.open sql,conn,1,3
rs.addnew
rs("userid")=username
rs("password")=password
rs.update
rs.close
set rs=nothing
'set rs=conn.execute("insert into manager(userid,password) values("&username&","&password&")")
response.Write "<script>alert('添加用户成功!');window.location.href='usermanage.asp';</script>"case "edituser"
%>
<p> </p>
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" bgcolor="#E4E4E4"><div align="center"><strong>统计</strong></div></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<%
set rs=conn.execute("select * from manager")
do while not rs.eof
%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("userid")%></td>
<td align="center" bgcolor="#FFFFFF"><%
set rs1=conn.execute("select count(*) from ebook where userid="&rs("id"))
response.write rs1(0)
%></td>
<td align="center" bgcolor="#FFFFFF"><a href="usermanage.asp?action=edituser&id=<%=rs("id")%>">修改</a> | <a href="usermanage.asp?action=del&id=<%=rs("id")%>" onclick="return confirm('确认要删除吗?');">删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<p> </p>
<%
id=cint(request.QueryString("id"))
set rs=conn.execute("select * from manager where id="&id)
if rs.eof or rs.bof then
response.Write "<script>alert('没有该用户!');window.location.href='usermanage.asp';</script>"
else
%>
<form id="form1" name="form1" method="post" action="usermanage.asp?action=edit&id=<%=id%>">
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" align="center" bgcolor="#E4E4E4"><strong>密码</strong></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><input name="username" type="text" id="username" value="<%=rs("userid")%>" size="15" readonly="readonly" /></td>
<td align="center" bgcolor="#FFFFFF"><input name="password" type="text" id="password" size="15" /></td>
<td align="center" bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="修应密码" onclick="return checkadd();" /></tr>
</table>
</form>
<%
end if
%>
<p> </p>
<%case "edit"
id=cint(request.querystring("id"))
password=md5(request.Form("password"),16)
Set rs=server.CreateObject("adodb.recordset")
sql="select * from manager where id="&id
rs.open sql,conn,1,3
rs("password")=password
rs.update
rs.close
set rs=nothing
'conn.execute("update manager set password="&password&" where id="&id)
response.Write"<BR><BR><BR><Center><a href=usermanage.asp>修改成功!返回</a>"case "del"
id=cint(request.QueryString("id"))
conn.execute("delete from manager where id="&id)
response.Write "alert('删除用户成功!');window.location.href='usermanage.asp'"case else
%>
<p> </p>
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" bgcolor="#E4E4E4"><div align="center"><strong>统计</strong></div></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<%
set rs=conn.execute("select * from manager")
do while not rs.eof
%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("userid")%></td>
<td align="center" bgcolor="#FFFFFF"><%
set rs1=conn.execute("select count(*) from ebook where userid="&rs("id"))
response.write rs1(0)
%></td>
<td align="center" bgcolor="#FFFFFF"><a href="usermanage.asp?action=edituser&id=<%=rs("id")%>">修改</a> | <a href="usermanage.asp?action=del&id=<%=rs("id")%>" onclick="return confirm('确认删除吗?');">删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<p> </p>
<form id="form1" name="form1" method="post" action="usermanage.asp?action=add">
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" bgcolor="#E4E4E4"><div align="center"><strong>密码</strong></div></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><input name="username" type="text" id="username" size="15" /></td>
<td align="center" bgcolor="#FFFFFF"><input name="password" type="text" id="password" size="15" /></td>
<td align="center" bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="添加用户" onclick="return checkadd();" />
</tr>
</table>
</form>
<p> </p>
<%
end select
%>
function checkadd(){
if (document.form1.username.value==""){
alert('用户名不能为空');
document.form1.username.select();
document.form1.username.focus();
return false;
}
}
</script><title>用户管理</title>
<%
Dim action,id
action=trim(request.QueryString("action"))
select case action
case "add"
username=trim(request.Form("username"))
password=md5(request.Form("password"),16)
Set rs=server.CreateObject("adodb.recordset")
sql="select * from manager"
rs.open sql,conn,1,3
rs.addnew
rs("userid")=username
rs("password")=password
rs.update
rs.close
set rs=nothing
'set rs=conn.execute("insert into manager(userid,password) values("&username&","&password&")")
response.Write "<script>alert('添加用户成功!');window.location.href='usermanage.asp';</script>"case "edituser"
%>
<p> </p>
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" bgcolor="#E4E4E4"><div align="center"><strong>统计</strong></div></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<%
set rs=conn.execute("select * from manager")
do while not rs.eof
%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("userid")%></td>
<td align="center" bgcolor="#FFFFFF"><%
set rs1=conn.execute("select count(*) from ebook where userid="&rs("id"))
response.write rs1(0)
%></td>
<td align="center" bgcolor="#FFFFFF"><a href="usermanage.asp?action=edituser&id=<%=rs("id")%>">修改</a> | <a href="usermanage.asp?action=del&id=<%=rs("id")%>" onclick="return confirm('确认要删除吗?');">删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<p> </p>
<%
id=cint(request.QueryString("id"))
set rs=conn.execute("select * from manager where id="&id)
if rs.eof or rs.bof then
response.Write "<script>alert('没有该用户!');window.location.href='usermanage.asp';</script>"
else
%>
<form id="form1" name="form1" method="post" action="usermanage.asp?action=edit&id=<%=id%>">
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" align="center" bgcolor="#E4E4E4"><strong>密码</strong></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><input name="username" type="text" id="username" value="<%=rs("userid")%>" size="15" readonly="readonly" /></td>
<td align="center" bgcolor="#FFFFFF"><input name="password" type="text" id="password" size="15" /></td>
<td align="center" bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="修应密码" onclick="return checkadd();" /></tr>
</table>
</form>
<%
end if
%>
<p> </p>
<%case "edit"
id=cint(request.querystring("id"))
password=md5(request.Form("password"),16)
Set rs=server.CreateObject("adodb.recordset")
sql="select * from manager where id="&id
rs.open sql,conn,1,3
rs("password")=password
rs.update
rs.close
set rs=nothing
'conn.execute("update manager set password="&password&" where id="&id)
response.Write"<BR><BR><BR><Center><a href=usermanage.asp>修改成功!返回</a>"case "del"
id=cint(request.QueryString("id"))
conn.execute("delete from manager where id="&id)
response.Write "alert('删除用户成功!');window.location.href='usermanage.asp'"case else
%>
<p> </p>
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" bgcolor="#E4E4E4"><div align="center"><strong>统计</strong></div></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<%
set rs=conn.execute("select * from manager")
do while not rs.eof
%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("userid")%></td>
<td align="center" bgcolor="#FFFFFF"><%
set rs1=conn.execute("select count(*) from ebook where userid="&rs("id"))
response.write rs1(0)
%></td>
<td align="center" bgcolor="#FFFFFF"><a href="usermanage.asp?action=edituser&id=<%=rs("id")%>">修改</a> | <a href="usermanage.asp?action=del&id=<%=rs("id")%>" onclick="return confirm('确认删除吗?');">删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<p> </p>
<form id="form1" name="form1" method="post" action="usermanage.asp?action=add">
<table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
<tr>
<td width="204" height="21" bgcolor="#E4E4E4"><div align="center"><strong>用户名</strong></div></td>
<td width="205" bgcolor="#E4E4E4"><div align="center"><strong>密码</strong></div></td>
<td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><input name="username" type="text" id="username" size="15" /></td>
<td align="center" bgcolor="#FFFFFF"><input name="password" type="text" id="password" size="15" /></td>
<td align="center" bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="添加用户" onclick="return checkadd();" />
</tr>
</table>
</form>
<p> </p>
<%
end select
%>
解决方案 »
- DropDownList中的数据时怎么加载的???
- 通过url传递的客户端文件名,怎么上传?
- vs2010里是否可以使用“Microsoft.ReportViewer.WebForms 9.0”?
- 删除留言时怎么删除上传到文件夹里的图片?
- 异常详细信息: System.ArgumentException: 项“integrated security”的值无效。
- 一个BS架构的软件是网站吗
- 在ASP.NET中的TEXTBOX中录入时,遇到要输入上标或下标怎么处理?
- [请前辈们到来,本人有结贴习惯]对用户控件的一点疑惑.
- 求执行某个页面但不打开某个页面的代码
- **********高手帮忙**************
- webBrowser很奇怪的一个现象,必须弹出窗口才能提交
- C#中怎么做两个两个DropDownList的联动啊?求救啊,大虾们、、、
Default.aspx<script type="text/javascript" language="javascript">
function validateloginname()
{
var loginname=document.getElementById("Text1").value; xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
xmlHttp.onreadystatechange=getdata;
xmlHttp.Open("GET","validate.aspx?loginname="+loginname,true);
xmlHttp.Send();
}
function getdata()
{
if(xmlHttp.readystate==4)
{
if(xmlHttp.status==200)
{
var text=xmlHttp.responseText;
if(text=="1")
{
document.getElementById("td1").innerHTML="用户名已存在";
document.getElementById("Text1").style.borderColor="Black";
document.getElementById("Text1").focus();
document.getElementById("Text1").value="";
}
else
{
document.getElementById("td1").innerHTML="OK";
document.getElementById("Text1").style.borderColor="Red";
}
}
}
}
</script>
<input id="Text1" type="text" runat="server" onblur="validateloginname()" />
validate.aspx protected void Page_Load(object sender, EventArgs e)
{
string loginname = Request.QueryString["loginname"]; if (loginname == "mcluzhi")
{
Response.Write("1");
}
else
{
Response.Write("0");
}
}