首页 › 资源下载 › 其他 › 1.支持文章 › 源码查看
install.asp

来自「1.支持文章」· ASP 代码 · 共 888 行 · 第 1/4 页
ASP
888 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit
Response.Buffer=true%>
<!--#include file="Conn.asp"-->
<!--#include file="SysCls/KS_CommonCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：林文仲
'E-Mail  :kesion2006@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Install
KSCls.Execute()
Set KSCls = Nothing

Class Install
        Private KSCMS
		Private SqlStr,RS,InstallDir,FsoIndexFile,FsoIndexExt,AdminDirStr,CurrPath
		Private Step

		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Sub Execute
			AdminDirStr="http://"&Trim(Request.ServerVariables("HTTP_HOST"))&"/"&KSCMS.GetConfig("AdminDir")
			Step=KSCMS.G("Step") 
			IF Step="" Then Step=-1
			dim strDir,strAdminDir
			strDir=request.ServerVariables("SCRIPT_NAME")
			
			InstallDir=Replace(StrDir,Split(StrDir,"/")(Ubound(Split(StrDir,"/"))),"")
			
			If Instr(UCASE(InstallDir),"/W3SVC")<>0 Then
			   InstallDir=Left(InstallDir,Instr(InstallDir,"/W3SVC"))
			End If


			SQLStr="Select * from KS_Config"
			
			IF KSCMS.G("Action")="Edit" then
			  Call SetSave()
			ElseIF KSCMS.G("Action")="Del" Then
			 CurrPath = KSCMS.GetConfig("InstallDir") 
			 Call KSCMS.DeleteFile(CurrPath&"Install.asp")  
			 Response.Redirect AdminDirStr & "Login.asp"
			END IF
			%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>科汛网站管理系统V2.2系列产品安装向导</TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<script src="<%=AdminDirStr%>/JS/Common.js" language="JavaScript"></script>
<link href="<%=AdminDirStr%>/Inc/Admin_Style.CSS" rel="stylesheet" type="text/css">
<META content="MSHTML 6.00.3790.2577" name=GENERATOR>
<style>
A {
	COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #4455aa; TEXT-DECORATION: none
}
BODY {
	MARGIN-TOP: 20px; TEXT-ALIGN: center
}
INPUT.text {
	BORDER-RIGHT: gray 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: gray 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: gray 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: gray 1px solid; HEIGHT: 19px
}
TEXTAREA {
	BORDER-RIGHT: gray 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: gray 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: gray 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: gray 1px solid; HEIGHT: 19px
}
subject {
	BORDER-RIGHT: gray 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: gray 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: gray 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: gray 1px solid; HEIGHT: 19px
}
SELECT {
	BORDER-RIGHT: gray 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: gray 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: gray 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: gray 1px solid; HEIGHT: 19px
}
TABLE {
	WORD-BREAK: break-all
}
BODY {
	FONT-SIZE: 12px; COLOR: #000000; LINE-HEIGHT: normal; FONT-FAMILY: Tahoma
}
TD {
	FONT-SIZE: 12px; COLOR: #000000; LINE-HEIGHT: normal; FONT-FAMILY: Tahoma
}
TH {
	FONT-SIZE: 12px; COLOR: #000000; LINE-HEIGHT: normal; FONT-FAMILY: Tahoma
}
DIV {
	FONT-SIZE: 12px; COLOR: #000000; LINE-HEIGHT: normal; FONT-FAMILY: Tahoma
}
TH {
	FONT-WEIGHT: bold; BACKGROUND: url(bg.gif); COLOR: #808080; HEIGHT: 25px
}
HR {
	WIDTH: 100%; COLOR: #6595d6; HEIGHT: 1px
}
TH {
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px
}
TH.Link {
	COLOR: #262060
}
TH.Link1 {
	BORDER-RIGHT: #cccccc 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: #cccccc 1px solid; PADDING-LEFT: 3px; BACKGROUND: #efefef; PADDING-BOTTOM: 1px; BORDER-LEFT: #cccccc 1px solid; COLOR: #ff3300; PADDING-TOP: 1px; BORDER-BOTTOM: #cccccc 1px solid
}
.table0 {
	BORDER-TOP: #99ccff 5px solid
}
.table0 {
	BORDER-RIGHT: #2563b6 5px solid; BORDER-LEFT: #99ccff 5px solid; WIDTH: 680px; BACKGROUND-COLOR: #ffffff
}
.table1 {
	BORDER-RIGHT: #2563b6 5px solid; BORDER-LEFT: #99ccff 5px solid; WIDTH: 680px; BACKGROUND-COLOR: #ffffff
}
.table2 {
	BORDER-RIGHT: #2563b6 5px solid; BORDER-LEFT: #99ccff 5px solid; WIDTH: 680px; BACKGROUND-COLOR: #ffffff
}
.table3 {
	BORDER-RIGHT: #2563b6 5px solid; BORDER-LEFT: #99ccff 5px solid; WIDTH: 680px; BACKGROUND-COLOR: #ffffff
}
.table3 {
	BORDER-BOTTOM: #2563b6 5px solid
}
.table4 {
	BACKGROUND-COLOR: #000000
}
.table5 {
	BORDER-RIGHT: #cecfce 1px solid; BORDER-TOP: #cecfce 1px solid; BORDER-LEFT: #cecfce 1px solid; BORDER-BOTTOM: #cecfce 1px solid; BACKGROUND-COLOR: #ffffff
}
TEXTAREA.LicenseInfo {
	BORDER-RIGHT: #666666 1px dotted; PADDING-RIGHT: 5px; BORDER-TOP: #666666 1px dotted; PADDING-LEFT: 5px; FONT-SIZE: 14px; PADDING-BOTTOM: 5px; OVERFLOW: auto; BORDER-LEFT: #666666 1px dotted; WIDTH: 100%; COLOR: #003399; PADDING-TOP: 5px; BORDER-BOTTOM: #666666 1px dotted; HEIGHT: 320px; BACKGROUND-COLOR: #ffffff
}
DIV.Showinfo {
	BORDER-RIGHT: #666666 1px dotted; PADDING-RIGHT: 5px; BORDER-TOP: #666666 1px dotted; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; BORDER-LEFT: #666666 1px dotted; COLOR: red; PADDING-TOP: 5px; BORDER-BOTTOM: #666666 1px dotted; BACKGROUND-COLOR: #eaeaea
}
.copyright {
	COLOR: gray; BACKGROUND-COLOR: #eaeaea
}
TD.tdbody1 {
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px; BACKGROUND-COLOR: #efefef
}
TD.tdbody2 {
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px; BACKGROUND-COLOR: #efefef
}
TD.tdbody3 {
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; FONT-WEIGHT: bold; PADDING-BOTTOM: 5px; PADDING-TOP: 5px; BACKGROUND-COLOR: #cecfce; TEXT-ALIGN: right
}
</style>
</HEAD>
<BODY>
<TABLE class=Table0 cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TD class=Table0 height=1></TD></TR></TBODY></TABLE>
<TABLE class=Table1 cellSpacing=1 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TH width=60 align="center" noWrap class=Link><div align="center"><A href="http://www.kesion.com" target="_blank">官方网站</A></div></TH>
    <TH  width=60 align="center" noWrap class=Link><div align="center"><A href="http://bbs.kesion.com" target="_blank">技术论坛</A></div></TH>
    <TH  width=60 align="center" noWrap class=Link><div align="center"><A href="http://help.kesion.com" target="_blank">帮助中心</A></div></TH>
    <TH width=60 align="center" noWrap class=Link><div align="center"><A href="http://test.kesion.com" target="_blank">演示站点</A></div></TH>
    <TH  width=250 noWrap class=Link>Kesion CMS V2.2 Sp1 </TH>
</TR></TBODY></TABLE>
<TABLE class=Table1 cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TD class=Table4 colSpan=3></TD></TR>
  <TR>
    <TD align=middle width="20%" height=80><A href="http://www.kesion.com/" 
      target=_blank><IMG  src="images/logo.jpg"  width="192" height="81"  border=0></A></TD>
    <TD align=middle width="60%"><strong>当前版本:</strong>V2.2 Sp1 Free <strong> &nbsp;官方版本:</strong>
      <script src="http://www.kesion.com/websystem/showver.asp"></script></TD>
    <TD align=middle width="20%"><IMG  src="images/gears.gif" alt="" width="71" height="76" 
      border=0></TD>
  </TR>
  <TR>
    <TD class=Table4 colSpan=3 height=1></TD></TR></TBODY></TABLE>
<TABLE class=Table1 cellSpacing=1 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TD class=tdbody1 vAlign=top align=middle height=400>
     <!--开始部分-->


			<table width="100%"  align="center" border="0" cellspacing="0" cellpadding="0">
			  <tr>
				<td height="25"> 
				  <div align="center" ><strong>
				  <%
				   Select Case Step
				    Case -1
					 Response.Write ("阅读科汛软件最终用户许可协议")
					Case 0
					 Response.Write("第一步 设置系统管理员")
					Case 1
					 Response.Write ("第二步 基本信息设置")
					Case 2
					 Response.Write ("第三步 目录信息设置")
					Case 3
					 Response.Write ("第四步 附加选项设置")
					Case 4
					 Response.Write ("第五步 开关选项设置")
					End Select
					%>
				  </strong></div></td>
			  </tr>
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?
install.asp

install.asp - 源码说明

⌨️ 快捷键说明
