?? cf.asp
字號(hào):
<td colspan="3" class="bg4">
<input name="MaxPerPage_Search" type="text" id="MaxPerPage_Search" value="<%=MaxPerPage_Search%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td align="right" class="bg4"><strong>產(chǎn)品內(nèi)容是否分頁(yè)顯示：</strong></td>
<td colspan="3" class="bg4">
<input type="radio" name="ShowContentByPage" value="Yes" <%if ShowContentByPage="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>每頁(yè)顯示大約字符數(shù)：</strong></td>
<td colspan="3" class="bg4">
<input name="MaxPerPage_Content" type="text" id="MaxPerPage_Content" value="<%=MaxPerPage_Content%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td align="right" class="bg4"><strong>是否啟用文章審核功能：</strong></td>
<td colspan="3" class="bg4">
<input type="radio" name="EnableArticleCheck" value="Yes" <%if EnableArticleCheck="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>是否開(kāi)放文件上傳：</strong></td>
<td colspan="3" class="bg4">
<input type="radio" name="EnableUploadFile" value="Yes" <%if EnableUploadFile="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>是否彈出公告窗口：</strong></td>
<td colspan="3" class="bg4">
<input type="radio" name="PopAnnounce" value="Yes" <%if PopAnnounce="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>熱門文章點(diǎn)擊數(shù)：</strong></td>
<td colspan="3" class="bg4">
<input name="HitsOfHot" type="text" id="HitsOfHot" value="<%=HitsOfHot%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td align="right" class="bg4"><strong>上傳文件大小限制：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="MaxFileSize" type="text" id="MaxFileSize" value="<%=MaxFileSize%>" size="6" maxlength="5">
K 建議不要超過(guò)1024K，以免影響服務(wù)器性能</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>存放上傳文件的目錄：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="SaveUpFilesPath" type="text" id="SaveUpFilesPath" value="<%=SaveUpFilesPath%>" size="30" maxlength="100"> 請(qǐng)輸入相對(duì)于首頁(yè)（Default.asp）的相對(duì)路徑 </td>
</tr>
<tr>
<td align="right" class="bg4"><strong>允許的上傳文件類型：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="UpFileType" type="text" id="UpFileType2" value="<%=UpFileType%>" size="40" maxlength="255">
只輸入擴(kuò)展名。每種文件類型用“|”號(hào)分開(kāi)。</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>刪除文章時(shí)是否同時(shí)刪除文章中的上傳文件：</strong><br>
</td>
<td colspan="3" class="bg4">
<input type="radio" name="DelUpFiles" value="Yes" <%if DelUpFiles="Yes" then response.write "checked"%>>
是 <input type="radio" name="DelUpFiles" value="No" <%if DelUpFiles="No" then response.write "checked"%>>
否 此功能需要FSO支持。</td>
</tr>
<tr>
<td align="right" class="bg4"><strong>Session會(huì)話的保持時(shí)間：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="SessionTimeout" type="text" id="SessionTimeout" value="<%=SessionTimeout%>" size="6" maxlength="5">
分鐘 主要用于后臺(tái)管理員登錄，為了安全，請(qǐng)不要將時(shí)間設(shè)得太長(zhǎng)。建議設(shè)為10分鐘</td>
</tr>
<tr>
<td align="right" class="bg4"> </td>
<td colspan="3" class="bg4"> </td>
</tr>
<tr align="right">
<td colspan="4" align="left" class="bg3">郵件服務(wù)器選項(xiàng)</td>
</tr>
<tr>
<td width="261" align="right" class="bg4"><strong>郵件發(fā)送組件：</strong><br>
</td>
<td colspan="3" class="bg4">
<select name="MailObject" id="MailObject">
<option value="Jmail" selected>Jmail</option>
</select>
請(qǐng)一定要選擇服務(wù)器上已安裝的組件 </td>
</tr>
<tr>
<td width="261" align="right" class="bg4"><strong>SMTP服務(wù)器地址：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="MailServer" type="text" id="MailServer" value="<%=MailServer%>" size="40">
用來(lái)發(fā)送郵件的SMTP服務(wù)器<br>
如果你不清楚此參數(shù)含義，請(qǐng)聯(lián)系你的空間商 </td>
</tr>
<tr>
<td width="261" align="right" class="bg4"><strong>SMTP登錄用戶名：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="MailServerUserName" type="text" id="MailServerUserName" value="<%=MailServerUserName%>" size="40">
當(dāng)你的服務(wù)器需要SMTP身份驗(yàn)證時(shí)還需設(shè)置此參數(shù) </td>
</tr>
<tr>
<td width="261" align="right" class="bg4"><strong>SMTP登錄密碼：</strong><br>
</td>
<td colspan="3" class="bg4">
<input name="MailServerPassWord" type="text" id="MailServerPassWord" value="<%=MailServerPassWord%>" size="40">
當(dāng)你的服務(wù)器需要SMTP身份驗(yàn)證時(shí)還需設(shè)置此參數(shù) </td>
</tr>
<tr>
<td width="261" align="right" class="bg4"><strong>SMTP域名</strong>：<br>
</td>
<td colspan="3" class="bg4">
<input name="MailDomain" type="text" id="MailDomain" value="<%=MailDomain%>" size="40">
如果用“name@domain.com”這樣的用戶名登錄時(shí)，請(qǐng)指明domain.com </td>
</tr>
<tr>
<td colspan="4" align="center" class="bg4">
<input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存設(shè)置 " <% If ObjInstalled=false Then response.write "disabled" %>> </td>
</tr>
<tr>
<td colspan="4" align="center" class="bg4"> </td>
</tr>
<%
If ObjInstalled=false Then
Response.Write "<tr class='tdbg'><td height='40' colspan='3'><b><font color=red>你的服務(wù)器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。<br>請(qǐng)直接修改“Inc/config.asp”文件中的內(nèi)容。</font></b></td></tr>"
End If
%>
</table>
<%
end sub
%>
</form>
</body>
</html>
<%
sub SaveConfig()
If ObjInstalled=false Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你的服務(wù)器不支持 FSO(Scripting.FileSystemObject)! </li>"
exit sub
end if
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../up/inc/config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & " '網(wǎng)站名稱" & vbcrlf
hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & " '網(wǎng)站標(biāo)題" & vbcrlf
hf.write "Const SiteName2=" & chr(34) & trim(request("SiteName2")) & chr(34) & " '公司名稱" & vbcrlf
hf.write "Const Siteadd=" & chr(34) & trim(request("Siteadd")) & chr(34) & " '公司地址" & vbcrlf
hf.write "Const Siteno=" & chr(34) & trim(request("Siteno")) & chr(34) & " '公司地址" & vbcrlf
hf.write "Const Sitetel=" & chr(34) & trim(request("Sitetel")) & chr(34) & " '公司電話" & vbcrlf
hf.write "Const Sitefax=" & chr(34) & trim(request("Sitefax")) & chr(34) & " '公司傳真" & vbcrlf
hf.write "Const Sitetel2=" & chr(34) & trim(request("Sitetel2")) & chr(34) & " '公司傳真" & vbcrlf
hf.write "Const SiteUrl=" & chr(34) & trim(request("Siteurl")) & chr(34) & " '網(wǎng)站地址" & vbcrlf
hf.write "Const EnterpriseMail=" & chr(34) & trim(request("EnterpriseMail")) & chr(34) & " '企業(yè)郵局" & vbcrlf
hf.write "Const LogoUrl=" & chr(34) & trim(request("LogoUrl")) & chr(34) & " 'Logo地址" & vbcrlf
hf.write "Const BannerUrl=" & chr(34) & trim(request("BannerUrl")) & chr(34) & " 'Banner地址" & vbcrlf
hf.write "Const High=" & trim(request("High")) & " '高度" & vbcrlf
hf.write "Const WebmasterName=" & chr(34) & trim(request("WebmasterName")) & chr(34) & " '站長(zhǎng)姓名" & vbcrlf
hf.write "Const WebmasterEmail=" & chr(34) & trim(request("WebmasterEmail")) & chr(34) & " '站長(zhǎng)信箱" & vbcrlf
hf.write "Const Copyright=" & chr(34) & trim(request("Copyright")) & chr(34) & " '版權(quán)信息" & vbcrlf
hf.write "Const g1=" & chr(34) & trim(request("g1")) & chr(34) & " '廣告位1 (g1)" & vbcrlf
hf.write "Const g2=" & chr(34) & trim(request("g2")) & chr(34) & " '廣告位1 (g1)" & vbcrlf
hf.write "Const g3=" & chr(34) & trim(request("g3")) & chr(34) & " '廣告位1 (g1)" & vbcrlf
hf.write "Const g4=" & chr(34) & trim(request("g4")) & chr(34) & " '廣告位1 (g1)" & vbcrlf
hf.write "Const g5=" & chr(34) & trim(request("g5")) & chr(34) & " '廣告位1 (g1)" & vbcrlf
hf.write "Const g6=" & chr(34) & trim(request("g6")) & chr(34) & " '廣告位1 (g1)" & vbcrlf
hf.write "Const gl1=" & chr(34) & trim(request("gl1")) & chr(34) & " '廣告鏈接1 (gl1)" & vbcrlf
hf.write "Const gl2=" & chr(34) & trim(request("gl2")) & chr(34) & " '廣告鏈接1 (gl1)" & vbcrlf
hf.write "Const gl3=" & chr(34) & trim(request("gl3")) & chr(34) & " '廣告鏈接1 (gl1)" & vbcrlf
hf.write "Const gl4=" & chr(34) & trim(request("gl4")) & chr(34) & " '廣告鏈接1 (gl1)" & vbcrlf
hf.write "Const gl5=" & chr(34) & trim(request("gl5")) & chr(34) & " '廣告鏈接1 (gl1)" & vbcrlf
hf.write "Const gl6=" & chr(34) & trim(request("gl6")) & chr(34) & " '廣告鏈接1 (gl1)" & vbcrlf
hf.write "Const MaxPerPage_Default=" & trim(request("MaxPerPage_Default")) & " '首頁(yè)每頁(yè)產(chǎn)品或文章數(shù)" & vbcrlf
hf.write "Const MaxPerPage_Search=" & trim(request("MaxPerPage_Search")) & " '文章搜索頁(yè)每頁(yè)文章數(shù)" & vbcrlf
hf.write "Const ShowContentByPage=" & chr(34) & trim(request("ShowContentByPage")) & chr(34) & " '文章內(nèi)容是否分頁(yè)顯示" & vbcrlf
hf.write "Const MaxPerPage_Content=" & trim(request("MaxPerPage_Content")) & " '每頁(yè)顯示大約字符數(shù)" & vbcrlf
hf.write "Const EnableArticleCheck=" & chr(34) & trim(request("EnableArticleCheck")) & chr(34) & " '是否啟用文章審核功能" & vbcrlf
hf.write "Const EnableUploadFile=" & chr(34) & trim(request("EnableUploadFile")) & chr(34) & " '是否開(kāi)放文件上傳" & vbcrlf
hf.write "Const PopAnnounce=" & chr(34) & trim(request("PopAnnounce")) & chr(34) & " '是否彈出公告窗口" & vbcrlf
hf.write "Const HitsOfHot=" & trim(request("HitsOfHot")) & " '熱門文章點(diǎn)擊數(shù)" & vbcrlf
hf.write "Const MaxFileSize=" & trim(request("MaxFileSize")) & " '上傳文件大小限制" & vbcrlf
hf.write "Const SaveUpFilesPath=" & chr(34) & trim(request("SaveUpFilesPath")) & chr(34) & " '存放上傳文件的目錄" & vbcrlf
hf.write "Const UpFileType=" & chr(34) & trim(request("UpFileType")) & chr(34) & " '允許的上傳文件類型" & vbcrlf
hf.write "Const DelUpFiles=" & chr(34) & trim(request("DelUpFiles")) & chr(34) & " '刪除文章時(shí)是否同時(shí)刪除文章中的上傳文件" & vbcrlf
hf.write "Const SessionTimeout=" & trim(request("SessionTimeout")) & " 'Session會(huì)話的保持時(shí)間" & vbcrlf
hf.write "Const MailObject=" & chr(34) & trim(request("MailObject")) & chr(34) & " '郵件發(fā)送組件" & vbcrlf
hf.write "Const MailServer=" & chr(34) & trim(request("MailServer")) & chr(34) & " '用來(lái)發(fā)送郵件的SMTP服務(wù)器" & vbcrlf
hf.write "Const MailServerUserName=" & chr(34) & trim(request("MailServerUserName")) & chr(34) & " '登錄用戶名" & vbcrlf
hf.write "Const MailServerPassWord=" & chr(34) & trim(request("MailServerPassWord")) & chr(34) & " '登錄密碼" & vbcrlf
hf.write "Const MailDomain=" & chr(34) & trim(request("MailDomain")) & chr(34) & " '域名" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
end sub
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -