install.asp
来自「1.支持文章」· ASP 代码 · 共 888 行 · 第 1/4 页
ASP
888 行
</TABLE>
<table border="0" width="100%"><tr><td height="2"></td></tr></table>
<%
IF Step=-1 Then
Call ReadLicense()
' Response.End
ElseIF Step=0 Then
Call SetAdmin()
Else
Call CheckLogin()
End IF
set RS=server.CreateObject("ADODB.recordset")
RS.open SQLStr,conn,1,3
FsoIndexFile=split(RS("FsoIndex"),".")(0)
FsoIndexExt=split(RS("FsoIndex"),".")(1)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<form name="SetWebInfoForm" method="post" action="" onSubmit="return(CheckForm())">
<TR><TD valign="top">
<input type="hidden" value="Edit" name="Action">
<input type="hidden" value="<%=Step+1%>" name="Step">
<table <%IF Step<>1 Then Response.Write(" style=""display:none""") End IF%> width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CDCDCD">
<tr valign="middle" bgcolor="#EEF8FE">
<td width="30%" height="22"> <div align="right">网站名称：
</div></td>
<td width="63%" height="22"> <input name="WebName" type="text" id="WebName" value="<%=RS("WebName")%>" size="30"> </td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE" >
<td height="22"> <div align="right">网站标题：
</div></td>
<td height="22"> <input name="WebTitle" type="text" id="WebTitle" value="<%=RS("WebTitle")%>" size="30"></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE" >
<td width="30%" height="22"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">网站地址： </td>
</tr>
<tr>
<td align="center"><font color="#FF0000">系统会自动获得正确的路径，但需要手工保存设置</font></td>
</tr>
</table></td>
<td height="22"> <input name="WebUrl" type="text" value="<%=KSCMS.GetAutoDoMain%>" size="30">
(请使用http://标识),后面不要带"/"符号 </td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE" >
<td width="30%" height="22"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">安装目录： </td>
</tr>
<tr>
<td align="center"><font color="#FF0000">系统会自动获得正确的路径，但需要手工保存设置</font></td>
</tr>
</table></td>
<td height="22"> <input name="InstallDir" type="text" id="InstallDir" value="<%=InstallDir%>" readonly size=30>
系统安装的虚拟目录</td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="22"><div align="right">网站Logo地址： </div></td>
<td height="22"><input name="WebLogo" type="text" id="WebLogo" value="<%=RS("WebLogo")%>" size=30>
申请友情链接时显示给用户</td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td width="30%" height="22">
<div align="right">生成的网站首页： </div><font color=blue>扩展名为.asp，首页将不启用生成静态HTML的功能</font></td>
<td height="22"> <input type="radio" name="IndexFile" value="Index" <%IF FsoIndexFile="Index" THEN RESPONSE.WRITE(" checked")%>>
Index
<input type="radio" name="IndexFile" value="Default" <%IF FsoIndexFile="Default" THEN RESPONSE.WRITE(" checked")%>>
Default
<select name="FsoIndexExt" id="select">
<option value=".htm" <%if FsoIndexExt="htm" then response.Write("selected")%>>.htm</option>
<option value=".html" <%if FsoIndexExt="html" then response.Write("selected")%>>.html</option>
<option value=".shtml" <%if FsoIndexExt="shtml" then response.Write("selected")%>>.shtml</option>
<option value=".shtm" <%if FsoIndexExt="shtm" then response.Write("selected")%>>.shtm</option>
<option value=".asp" <%if FsoIndexExt="asp" then response.Write("selected")%>>.asp</option>
</select></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="22"><div align="right">默认允许上传最大文件大小： </div></td>
<td height="22"><input name="DefaultUpFilesSize" onBlur="CheckNumber(this,'允许上传最大文件大小');" type="text" id="DefaultUpFilesSize" value="<%=RS("DefaultUpFilesSize")%>" size=15>
KB <span class="STYLE2">提示：1 KB = 1024 Byte，1 MB = 1024 KB</span></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="22"><div align="right">默认允许上传文件类型： </div></td>
<td height="22"><input name="DefaultAllowUpFilesType" type="text" id="DefaultAllowUpFilesType" value="<%=RS("DefaultAllowUpFilesType")%>" size=30></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td width="30%" height="22">
<div align="right">站长姓名：
<div align="right"></div>
</div></td>
<td height="22"> <input name="Webmaster" type="text" value="<%=RS("Webmaster")%>" size=30></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td width="30%" height="22">
<div align="right">站长信箱： </div></td>
<td height="22"> <input name="WebmasterEmail" type="text" value="<%=RS("WebmasterEmail")%>" size=30></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="22"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">SMTP服务器地址: </td>
</tr>
<tr>
<td align="center"><span class="STYLE1">用来发送邮件的SMTP服务器<BR>
如果你不清楚此参数含义，请联系你的空间商</span></td>
</tr>
</table></td>
<td height="22"><input name="MailServer" type="text" id="MailServer" value="<%=RS("MailServer")%>" size=30></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="22"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">SMTP登录用户名: </td>
</tr>
<tr>
<td align="center"><span class="STYLE1">当你的服务器需要SMTP身份验证时还需设置此参数</span></td>
</tr>
</table></td>
<td height="22"><input name="MailUserName" type="text" id="MailUserName" value="<%=RS("MailUserName")%>" size=30></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="22"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">SMTP登录密码: </td>
</tr>
<tr>
<td align="center"><span class="STYLE1">当你的服务器需要SMTP身份验证时还需设置此参数</span></td>
</tr>
</table></td>
<td height="22"><input name="MailUserPass" type="password" id="MailUserPass" value="<%=RS("MailUserPass")%>" size=30></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td width="30%" height="22"> <div align="right">版权信息：
<br>
<font color="#FF0000"> 支持html语法 </font></div></td>
<td height="22"> <textarea name="Copyright" cols="60" style="height:50" rows="5" id="textarea"><%=RS("Copyright")%></textarea></td>
</tr>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="30" colspan="2" align="center">
<input type="button" name="Submit22" value=" 上一步 " disabled>
<input type="submit" name="Submit2" value=" 下一步 "></td>
</tr>
</table>
<table <%IF Step<>2 Then Response.Write(" style=""display:none""") End IF%> width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><strong>设置说明:</strong></td>
</tr>
<tr>
<td height="25">为了使系统能够正常运行，请务必认真填写以下每一项，<font color="#FF0000">文章目录、图片目录、下载目录、商城目录、ＪＳ目录和专题目录</font>在发布时系统会自动产生,其它目录必须保证在站点根目录下已存在，否则系统可能无法正常运行。</td>
</tr>
<tr>
<td height="15"> </td>
</tr>
</table>
<table <%IF Step<>2 Then Response.Write(" style=""display:none""") End IF%> width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CDCDCD">
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">网站后台目录： </div></td>
<td height="21" bgcolor="#EEF8FE"> <input name="AdminDir" type="text" id="AdminDir" value="<%=Trim(RS("AdminDir"))%>" size=30></td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">模板文件目录： </div></td>
<td height="21" bgcolor="#EEF8FE"> <input name="TemplateDir" type="text" id="TempletDir2" value="<%=Trim(RS("TemplateDir"))%>">
后面必须带"/"符号</td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE"> <div align="right">默认上传文件目录： </div></td>
<td height="21" bgcolor="#EEF8FE"> <input name="UpFilesDir" type="text" id="UpFilesDir" value="<%=Trim(RS("UpFilesDir"))%>">
后面必须带"/"符号 一级上传目录 </td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">远程图片保存目录： </div></td>
<td height="21" bgcolor="#EEF8FE"><font color="#FF0000">
<input name="BeyondPicDir" type="text" id="InstallDir5" value="<%=Trim(RS("BeyondPicDir"))%>">
</font>后面必须带"/"符号</td>
<tr valign="middle">
<td height="21" bgcolor="#EEF8FE"> <div align="right">JS目录： </div></td>
<td height="21" bgcolor="#EEF8FE"><font color="#FF0000">
<input name="JSDir" type="text" id="JSDir" value="<%=Trim(RS("JSDir"))%>">
</font>后面必须带"/"符号</td>
<tr valign="middle">
<td height="21" bgcolor="#EEF8FE"><div align="right">通用页面目录：
</div></td>
<td height="21" bgcolor="#EEF8FE"><font color="#FF0000">
<input name="CommonDir" type="text" id="CommonDir" value="<%=Trim(RS("CommonDir"))%>">
</font>后面必须带"/"符号<font color="#FF0000"> </font></td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">文章中心目录： </div></td>
<td height="21" bgcolor="#EEF8FE"><font color="#FF0000">
<input name="ArticleDir" type="text" id="ArticleDir" value="<%=Trim(RS("ArticleDir"))%>">
</font>后面必须带"/"符号</td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">图片中心目录： </div></td>
<td height="21" bgcolor="#EEF8FE"><font color="#FF0000">
<input name="PicDir" type="text" id="PicDir" value="<%=Trim(RS("PicDir"))%>">
</font>后面必须带"/"符号 </td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">下载中心目录： </div></td>
<td height="21" bgcolor="#EEF8FE"> <input name="DownDir" type="text" id="DownDir" value="<%=Trim(RS("DownDir"))%>">
后面必须带"/"符号 </td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE">
<div align="right">Flash中心目录： </div></td>
<td height="21" bgcolor="#EEF8FE"> <input name="FlashDir" type="text" id="FlashDir" value="<%=Trim(RS("FlashDir"))%>">
后面必须带"/"符号 </td>
<tr valign="middle">
<td width="20%" height="21" bgcolor="#EEF8FE"> <div align="right">专题目录： </div></td>
<td height="21" bgcolor="#EEF8FE"> <input name="SpecialDir" type="text" id="SpecialDir" value="<%=Trim(RS("SpecialDir"))%>">
后面必须带"/"符号</td>
<tr valign="middle" bgcolor="#EEF8FE">
<td height="30" colspan="2" align="center">
<input type="button" name="Submit22" value=" 上一步 " onClick="javascript:location.href='Install.Asp?Step=1';">
<input type="submit" name="Submit2" value=" 下一步 "></td></tr>
</table>
<table <%IF Step<>3 Then Response.Write(" style=""display:none""") End IF%> width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CDCDCD">
<tr>
<td height="25" bgcolor="#EEF8FE"><div align="right">Session会话保持时间： </div></td>
<td height="21" valign="middle" bgcolor="#EEF8FE"><input name="SessionTimeout" type="text" id="SessionTimeout" value="<%=Trim(RS("SessionTimeout"))%>">
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?