config.asp

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

<%
session("title")="系统配置"
session("headline")="首页 -> 系统配置"


set lqsm_config= server.CreateObject("lqsm.config")
%>


<!--#include file="head.asp"-->
 
 <br><br><br>
 <script language='JavaScript'>
<!--
function check_input()
{
	web=document.Web;
	if(web.WebHomeDir.value=='')
	{
		alert('站点主目录不能为空');
		web.WebHomeDir.focus();
		return false;
	}
	
	if(web.MailHomeDir.value=='')
	{
		alert('邮箱主目录不能为空');
		web.MailHomeDir.focus();
		return false;
	}
	
	if(web.PageSize.value=='')
	{
		alert('每页记录数不能为空');
		web.PageSize.focus();
		return false;
	}
	
	if(isNaN(web.PageSize.value))
	{
		alert('每页记录数只能为数字');
		web.PageSize.focus();
		return false;
	}
	
}
//-->
</script>
<%
on error resume next

WebHomeDir=request("WebHomeDir")
MailHomeDir=request("MailHomeDir")
WebAction=request("WebAction")
WebIPList=request("WebIPList")
HostID=request("HostID")
RegCode=request("RegCode")
DbHomeDir = request("DbHomeDir")
MssqlConnStr = request("MssqlConnStr")
MysqlConnStr = request("MysqlConnStr")
PageSize = request("PageSize")



if WebAction="" then
ret = lqsm_config.CfgManage("query",WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)
ret = lqsm_config.CfgGetConfig("DbHomeDir",DbHomeDir,ErrMsg)
ret = lqsm_config.CfgGetConfig("MssqlConnStr",MssqlConnStr,ErrMsg)
ret = lqsm_config.CfgGetConfig("MysqlConnStr",MYsqlConnStr,ErrMsg)
ret = lqsm_config.CfgGetConfig("PageSize",PageSize,ErrMsg)
%>
<form name="Web" action="Config.asp" onsubmit='return check_input()'>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=60% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入系统配置信息</td></tr>
<input name="WebAction" type="Hidden" value="edit">
<tr><td>机器码</td><td><input name="RegCode" class="form" disabled type="Text" maxlength="300" size="50"  value="<%=HostID%>">&nbsp;</td></tr>
<tr><td>注册码</td><td><input name="RegCode" class="form" type="Text" maxlength="300" size="50"  value="<%=RegCode%>">&nbsp;</td></tr>
<tr><td>每页记录数</td><td><input name="PageSize" class="form" type="Text" maxlength="5" size="5"  value="<%=PageSize%>">&nbsp;</td></tr>
<tr><td>网站主目录</td><td><input name="WebHomeDir" class="form" type="Text" maxlength="100" size="30" value="<%=WebHomeDir%>"></td></tr>
<tr><td>邮局主目录</td><td><input name="MailHomeDir" class="form" type="Text" maxlength="100" size="30"  value="<%=MailHomeDir%>"></td></tr>
<tr><td>数据库主目录</td><td><input name="DbHomeDir" class="form" type="Text" maxlength="00" size="30"  value="<%=DbHomeDir%>"></td></tr>
<tr><td>mssql连接串</td><td><input name="MssqlConnStr" class="form" type="Text" maxlength="300" size="50"  value="<%=MssqlConnStr%>"></td></tr>
<tr><td>mysql连接串</td><td><input name="MysqlConnStr" class="form" type="Text" maxlength="300" size="50"  value="<%=MysqlConnStr%>"></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'>

</table>
</form>
<%
response.end
end if%>
<%

if WebAction="edit" then
ret = lqsm_config.CfgManage("edit",WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)
ret = lqsm_config.CfgSetConfig ("DbHomeDir",DbHomeDir,ErrMsg)
ret = lqsm_config.CfgSetConfig ("MssqlConnStr",MssqlConnStr,ErrMsg)
ret = lqsm_config.CfgSetConfig ("MysqlConnStr",MysqlConnStr,ErrMsg)
ret = lqsm_config.CfgSetConfig ("PageSize",PageSize,ErrMsg)

if ret = 0 and ErrMsg="" then
response.write "<table width='80%' align='center'><tr><td align='center'>系统配置成功</td></tr></table>"
else
response.write "<table width='80%' align='center'><tr><td align='center'>系统配置失败:错误码=["&ret&"],描述=["&ErrMsg&"]</td></tr></table>"
end if
end if
%>

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