create_index.asp
来自「top-cms内容管理系统」· ASP 代码 · 共 125 行
ASP
125 行
<%
'###########################################################################################
'* 程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'* 系统版本: 1.0 0215
'* 版权所有: www.Net-Develop.com
'* 程序设计: 江南行客
'* 联系方式:
'* OICQ：2503086
'* EMAIL：net-oa@sohu.com
'* 网站地址:
'* http://www.net-develop.com
'* http://www.top-cms.com
'*---------------------------------------------------------------------------------------
'* Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set objCMS = Server.CreateObject("TopCMS.CreateIndex")
if objCMS.ChkAdminPower then
SystemI_Init
objCMS.OpenDB()
If Not objCMS.CheckAdminField("CreateIndex") Then
objCMS.OutInfo "对不起，你不具备此项权限。", ""
Response.End
End If
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
objCMS.CreateIndexHtml
else
objCMS.ListOption()
%>
<form name="form1" method="post" action="create_index.asp">
<table width="100%" border="1" bordercolor="#999999" cellspacing="0" cellpadding="2" align="center">
<tr>
<td colspan="2" background="../Images/default_nav.gif"><font color="#FFFFFF">首页更新
[参数设置]</font></td>
</tr>
<tr>
<td width="144" align="right" bgcolor="#EEEEEE">图片信息设置:</td>
<td bgcolor="#EEEEEE" width="621"><font color="#666666">显示条数
<input type="text" name="cms0" size="2" maxlength="2" value="<%=objCMS.CMS0%>">
<br>
每行显示
<input type="text" name="cms1" size="2" maxlength="2" value="<%=objCMS.CMS1%>">
<br>
标题长度
<input type="text" name="cms2" size="2" maxlength="2" value="<%=objCMS.CMS2%>">
</font></td>
</tr>
<tr>
<td width="144" align="right">推荐信息:</td>
<td width="621"><font color="#666666"> 显示条数
<input type="text" name="cms3" size="2" maxlength="2" value="<%=objCMS.CMS3%>">
<br>
标题长度
<input type="text" name="cms4" size="2" maxlength="2" value="<%=objCMS.CMS4%>">
</font></td>
</tr>
<tr>
<td width="144" align="right" bgcolor="#EEEEEE">最新更新:</td>
<td bgcolor="#EEEEEE" width="621"><font color="#666666"> 显示条数
<input type="text" name="cms5" size="2" maxlength="2" value="<%=objCMS.CMS5%>">
<br>
标题长度
<input type="text" name="cms6" size="2" maxlength="2" value="<%=objCMS.CMS6%>">
</font></td>
</tr>
<tr>
<td align="right" width="144">专题信息:</td>
<td width="621"><font color="#666666"> 显示条数
<input type="text" name="cms7" size="2" maxlength="2" value="<%=objCMS.CMS7%>">
<br>
标题长度
<input type="text" name="cms8" size="2" maxlength="2" value="<%=objCMS.CMS8%>">
</font></td>
</tr>
<tr>
<td align="right" bgcolor="#EEEEEE" width="144">相关链接:</td>
<td bgcolor="#EEEEEE" width="621"><font color="#666666"> 显示条数
<input type="text" name="cms9" size="2" maxlength="2" value="<%=objCMS.CMS9%>">
</font></td>
</tr>
<tr>
<td align="right" width="144">类别信息:</td>
<td width="621"><font color="#666666">分几列显示
<input type="text" name="cms10" size="2" maxlength="2" value="<%=objCMS.CMS10%>">
<br>
每类条数
<input type="text" name="cms11" size="2" maxlength="2" value="<%=objCMS.CMS11%>">
<br>
标题长度
<input type="text" name="cms12" size="2" maxlength="2" value="<%=objCMS.CMS12%>">
</font></td>
</tr>
<tr>
<td align="center" colspan="2" bgcolor="#EEEEEE">
<input type="submit" name="S1" value=" 生成 ">
<input type="button" name="S2" value=" 取消 " onclick="history.back();">
</td>
</tr>
</table>
</form>
<%
end if
objCMS.CloseDB
else
objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?