mysqlmanage.asp

<虚拟主机站点管理系统>呵呵是我们公司的一个小产品

<%
	Server.ScriptTimeout=9999999
	if Session("UserName") = "" then
		response.Redirect "login.asp"
	end if
%>

<%
session("title")="砺青站点管理系统"
session("headline")="首页 -> mysql数据库管理"



set lqsm_config= server.CreateObject("lqsm.config")
set lqsm_mysql= server.CreateObject("lqsm.mysql")


on error resume next

%>


<!--#include file="head.asp"-->
 
 <br><br><br>
 <script language='JavaScript'>
<!--
function check_input()
{
	web=document.web;
	if(web.DbName.value=='')
	{
		alert('数据库名不能为空');
		web.DbName.focus();
		return false;
	}
	if(web.DbUserName.value=='')
	{
		alert('用户名不能为空');
		web.DbUserName.focus();
		return false;
	}	
	if(web.DbUserPass.value=='')
	{
		alert('用户密码不能为空');
		web.DbUserPass.focus();
		return false;
	}		
}
//-->
</script>
<%
'on error resume next

DbAction=request("DbAction")
DbName = request("DbName")
DbUserName = request("DbUserName")
DbUserPass = request("DbUserPass")
ErrMsg=""


page = request("page")
if page ="" or (not IsNumeric(page)) then
	page = 1
end if
ret = lqsm_config.CfgGetConfig("PageSize",PageSize,ErrMsg)
if not IsNumeric(PageSize) then PageSize = 20
recb = (page-1) * cint(PageSize) +1
rece = recb + cint(PageSize) -1


if DbAction="" then
	 DbAction="query"
	if WebIndex="" then WebIndex = lqsm_mysql.getDbList()
end if

if DbAction="query" then
IndexList = split(WebIndex,",")
%>

<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td>
<td class='color01' bgcolor='#efefef'>数据库名</td>
<td class='color01' bgcolor='#efefef'>用户名</td>
<td class='color01' bgcolor='#efefef'>删除</td>
<td class='color01' bgcolor='#efefef'>编辑</td></tr>
<%
i=1
for each Index in IndexList
	if Index <> "" then
	if (i >= recb) and  (i <= rece) then
	DbName = ""
	UserName = ""
	DbName = Index
	ret = lqsm_mysql.getDbDetail(DbName,DbUserName,ErrMsg)
		%>
		<tr>
		<td>&nbsp;<%=i%></td>
		<td>&nbsp;<%=DbName%></td>
		<td>&nbsp;<%=DbUserName%></td>
		<td><a href="MysqlManage.asp?DbAction=del&DbName=<%=DbName%>">删除</a></td>
		<td><a href="MysqlManage.asp?DbAction=edit_pre&DbName=<%=DbName%>">用户密码</a></td>
		</tr>
		
		<%
		end if
		i = i+ 1
	end if
	
next
%>
<Tr><td colspan="13" align="center"><a href="MysqlManage.asp?DbAction=add_pre">增加数据库</a></td></TR>
</table>
<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
pageall = cint(i / PageSize)
if (pageall * PageSize) < i then
	pageall = pageall + 1
end if
response.write page & "/" & pageall
do while ii<=pageall 
	if ii<> page then
		response.write "&nbsp;&nbsp;<A HREF=mysqlmanage.asp?page="&ii&">"&ii&"</A>"
else
	response.write ii
end if
ii=ii+1
loop
response.write Msg 
response.end
end if 
%>

<%if DbAction="add_pre" then 
%>
<form name="Web" action="MysqlManage.asp" onsubmit='return check_input()'>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=65% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入数据库信息</td></tr>
<input name="DbAction" type="Hidden" value="add">
<tr><td>数据库名</td><td><input name="DbName" class="form" type="Text" maxlength="100"></td></tr>
<tr><td>用户名</td><td><input name="DbUserName" class="form" type="Text" maxlength="100"></td></tr>
<tr><td>密码</td><td><input name="DbUserPass" class="form" type="Text" maxlength="100"></td></tr>
<tr><td align="center" colspan="2"><input type="Submit" value="添  加" style='text-align:center'> <input type='button' value='返  回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%
response.end
end if%>



<%if DbAction="edit_pre" then 
ret = lqsm_mysql.getDbDetail(DbName,DbUserName,ErrMsg)
%>
<form name="Web" action="MysqlManage.asp" onsubmit='return check_input()'>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=65% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入新密码</td></tr>
<input name="DbAction" type="Hidden" value="edit">
<input name="DbName" type="Hidden" value="<%=DbName%>">
<input name="DbUserName" type="Hidden" value="<%=DbUserName%>">
<tr><td>数据库名</td><td><%=DbName%></td></tr>
<tr><td>用户名</td><td><%=DbUserName%></td></tr>
<tr><td>密码</td><td><input name="DbUserPass" class="form" type="Text" maxlength="100" size="50"  value="<%=DbUserPass%>"></td></tr>
<tr><td align="center" colspan="2"><input type="Submit" value="修  改" style='text-align:center'> <input type='button' value='返  回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%
response.end
end if%>

<%
select case DbAction
	case	"add"
		ret = lqsm_mysql.DbAdd(DbName,DbUserName,DbUserPass,ErrMsg)
	case	"del"
		ret = lqsm_mysql.DbDel (DbName)
	case	"edit"
		ret = lqsm_mysql.DbEdit(DbName,DbUserName,DbUserPass,ErrMsg)
End Select


if ret = 0  then
	Msg = "交易成功"
else
	Msg = "交易失败:错误码=["&ret&"]; 描述=["&ErrMsg&"]"
end if
response.write "<table width='80%' align='center'><tr><td align='center'>"&Msg&"</td></tr></table>"
%>

<!--#include file="bottom.asp"-->