webromtemanage.asp

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

<!--#include file="WebFun.asp"-->
<%
on error resume next

WebIndex=request("WebIndex")
WebAction=request("WebAction")
WebSiteName=request("WebSiteName")
WebFilesPath=request("WebFilesPath")
WebDefaultDoc=request("WebDefaultDoc")
WebIP=request("WebIP")
WebPort=request("WebPort")
WebHostName=request("WebHostName")
WebAccess=request("WebAccess")
WebLogPath=request("WebLogPath")
WebLinks=request("WebLinks")
WebTimes=request("WebTimes")
WebWidth=request("WebWidth")
WebCPU=request("WebCPU")
IUSRName=request("IUSRName")
IUSRPass=request("IUSRPass")
WebState = request("WebState")

Select Case WebAction
	case	"add"
		ret=WebAdd(WebSiteName,WebFilesPath,WebDefaultDoc,WebIP,WebPort,WebHostName,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass)
	case	"edit"
		ret=WebEdit(WebIndex,WebSiteName,WebFilesPath,WebDefaultDoc,WebIP,WebPort,WebHostName,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass)
	case	"query"
		ret = WebQuery( WebIndex,WebSiteName,WebFilesPath,WebDefaultDoc,WebIP,WebPort,WebHostName,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass)
		Msg = Msg + "WebIndex="&WebIndex & vbcrlf
		Msg = Msg + "WebSiteName="&WebSiteName & vbcrlf
		Msg = Msg + "WebFilesPath="&WebFilesPath & vbcrlf
		Msg = Msg + "WebDefaultDoc="&WebDefaultDoc & vbcrlf
		Msg = Msg + "WebIP="&WebIP & vbcrlf
		Msg = Msg + "WebIndex="&WebIndex & vbcrlf
		Msg = Msg + "WebPort="&WebPort & vbcrlf
		Msg = Msg + "WebHostName="&WebHostName & vbcrlf
		Msg = Msg + "WebAccess="&WebAccess & vbcrlf
		Msg = Msg + "WebLogPath="&WebLogPath & vbcrlf
		Msg = Msg + "WebLinks="&WebLinks & vbcrlf
		Msg = Msg + "WebTimes="&WebTimes & vbcrlf
		Msg = Msg + "WebWidth="&WebWidth & vbcrlf
		Msg = Msg + "WebCPU="&WebCPU & vbcrlf
		Msg = Msg + "IUSRName="&IUSRName & vbcrlf
		Msg = Msg + "IUSRPass="&IUSRPass & vbcrlf
	case	"del"
		ret=WebDel(WebIndex)
	case	"start"
		ret=WebStart(WebIndex)
	case	"stop"
		ret=WebStop(WebIndex)
end select

if ret = "" then
	OK = "0"
else
	OK = "-1"
	Msg = ret
end if
response.write Msg
response.write OK

%>