Microsoft VBScript 运行时错误 '800a01f4'

chy158 2009-12-26 10:30:25
大家好请帮我看一下点击频道更新时出现Microsoft VBScript 运行时错误 '800a01f4'

变量未定义: 'CreateClassJs'

\sd\Admin_Channel.asp, line 1327
另一个问题创建频道出错,执行查询代码时发现错误,请检查您的查询代码是否正确。Microsoft Jet 数据库引擎找不到输入表或查询 'CreateFiles'。 确定它是否存在,以及它的名称的拼写是否正确。
Select Data From CreateFiles Where ID=1

请大家看看什么意思

<!--#include file="Admin_Const.asp"-->
<!--#include file="../Inc/Function_Article.asp"-->
<!--#include file="../Inc/Function_Soft.asp"-->
<!--#include file="../Inc/Function_Photo.asp"-->
<!--#include file="../Inc/Function_Movie.asp"-->
<%
if Not Cl.TrueOtherPurview("Channel") then
Admin_ShowErr("<br /><li>您无此操作权限!</li>")
end if
dim Action',ChannelID
dim iCount,j
'ChannelType 0为系统,1为内部,2为外部
Action=Trim(request("Action"))
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>网 站 频 道 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航:</strong></td>
<td><a href="Admin_Channel.asp">频道管理首页</a> | <a href="Admin_Channel.asp?Action=Add">添加新频道</a> | <a href="Admin_Channel.asp?Action=OrderID">修改频道排序</a> | <a href="Admin_Channel.asp?Action=SelectStyle">批量选择模板/Css</a></td>
</tr>
</table>
<%
Select Case Action
Case "Add"
call ChannelInfo()
Case "SaveAdd"
call SaveChannelInfo()
Case "Modify"
call ChannelInfo()
Case "SaveModify"
call SaveChannelInfo()
Case "Del"
call DelChannel()
Case "OrderID"
call OrderID()
Case "UpOrder"
call UpOrder()
Case "DownOrder"
call DownOrder()
Case "SelectStyle"
call SelectStyle()
Case "UpdateStyle"
call UpdateStyle()
Case "UpdateStyleAll"
call UpdateStyleAll()
Case "RefreshChannelJs"
call RefreshChannelJs()
Call Cl.OutMsg("恭喜您,所有频道Js刷新成功!","Admin_Channel.asp")
Case "IsShow"
Call IsShow()
Case "CIsShow"
Call CIsShow()
Case "IsDisabled"
Call IsDisabled()
Case "CIsDisabled"
Call CIsDisabled()
Case "OWindow"
Call OWindow()
Case "NWindow"
Call NWindow()
Case "Update"
Call UpdateChannel()
Case else
call main()
end Select
if FoundErr=True then Admin_ShowErr(ErrMsg)
Footer
Sub Main()
Dim SQL
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsDisabled,IsCreateHtml,ModuleID from Channel order by OrderID"
Set rs=Cl.Execute(SQL)
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td width="50" align="center"><strong>频道ID</strong></td>
<td height="22" align="center" width="80"><strong>频道名称</strong></td>
<td align="center"><strong>目录或链接地址</strong></td>
<td width="60" align="center"><strong>模块</strong></td>
<td width="60" align="center"><strong>显示</strong></td>
<td width="60" align="center"><strong>禁用</strong></td>
<td width="60" height="22" align="center"><strong>打开方式</strong></td>
<td width="50" align="center"><strong>排序ID</strong></td>
<td width="60" align="center"><strong>属性</strong></td>
<td width="100" height="22" align="center"><strong>常规操作</strong></td>
</tr>
<%
if Not (rs.Bof and rs.Eof) then
SQL=rs.GetRows(-1)
For i=0 to Ubound(SQL,2)
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="50" align="center"> <b><%=SQL(0,i)%></b> </td>
<td align="center" width="80"><%=SQL(1,i)%></td>
<td><%
if SQL(7,i)>1 then
response.write Cl.ReplaceDir(SQL(5,i))
else
response.write SQL(4,i)
end if
%></td>
<td width="60" align="center"><%
Select Case SQL(12,i)
Case 1 : response.write "文章"
Case 2 : response.write "下载"
Case 3 : response.write "图片"
Case 4 : response.write "影视"
Case 5 : response.write "商城"
Case 6 : response.write "留言"
Case Else : response.write "未定义"
End Select
%></td>
<td width="60" align="center"><%
if SQL(9,i)=0 then
response.write "<a href='Admin_Channel.asp?Action=IsShow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>不显示</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=CIsShow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>显示</font></a>"
end if
%></td>
<td width="60" align="center"><%
if SQL(10,i)=0 then
response.write "<a href='Admin_Channel.asp?Action=IsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>使用</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=CIsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>禁用</font></a>"
end if
%></td>
<td width="60" align="center"><%
if SQL(8,i)=1 then
response.write "<a href='Admin_Channel.asp?Action=OWindow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>新窗口</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=NWindow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>原窗口</font></a>"
end if
%></td>
<td width="50" align="center"> <%=SQL(6,i)%> </td>
<td width="60" align="center">
<%
Select Case SQL(7,i)
Case 0
response.write "<font color=#ff0033>系统</font>"
if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
Case 1
response.write "<font color=#006600>内部</font>"
if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
Case else
response.write "外部"
end Select
%>
...全文
715 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
chy158 2009-12-27
  • 打赏
  • 举报
回复
感谢youngsheep热情帮助
youngsheep 2009-12-26
  • 打赏
  • 举报
回复
你的数据库表有问题

如果不行加QQ:1618988
注明:CSDN ASP
chy158 2009-12-26
  • 打赏
  • 举报
回复
<tr class="tdbg">
<td width="130"><strong>项目名称:</strong></td>
<td><input name="ChannelItemName" type="text" id="ChannelItemName" size="20" maxlength="50" value="<%=ChannelItemName%>"> <font color=red>*</font><br /><font color="#ff0033">如:“文章”“软件”“图片”等。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>项目单位:</strong></td>
<td><input name="ChannelItemUnit" type="text" id="ChannelItemUnit" size="20" maxlength="50" value="<%=ChannelItemUnit%>"> <font color=red>*</font><br /><font color="#ff0033">如:“篇”“个”“张”等。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong><font color=blue>是否生成HTML:</font></strong></td>
<td>
<input type="radio" name="IsCreateHtml" value="1" <%if IsCreateHtml=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
<font color=blue>生成</font>      <input type="radio" name="IsCreateHtml" value="0" <%if IsCreateHtml<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
<font color=blue>不生成</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>文件的扩展名:</strong></td>
<td><input name="CreateFileExt" type="text" id="CreateFileExt" size="30" maxlength="50" value="<%=CreateFileExt%>" <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>> <font color=red>*</font><br /><font color="#3370CC">只填扩展名。例:要生成“*.shtml”,填“shtml”即可。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>生成目录结构:</strong></td>
<td>
<input type="radio" name="CreatePathType" value="0">Html目录/频道/大类(英文目录)/小类(英文目录)/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="1">Html目录/频道/大类(ClassID)/小类(ClassID)/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="2">Html目录/频道/栏目(英文目录)/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="3">Html目录/频道/栏目(ClassID)/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="4">Html目录/频道/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="5">Html目录/频道/年月/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/200603/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="6">Html目录/频道/年/月/文件<br />
      <font color="#3370CC">例如:<%=Cl.htmlDir%>Article/2006/03/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="7">频道/Html目录/大类(英文目录)/小类(英文目录)/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="8">频道/Html目录/大类(ClassID)/小类(ClassID)/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="9">频道/大类(英文目录)/小类(英文目录)/文件<br />
      <font color="#3370CC">例如:Article/Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="10">频道/大类(ClassID)/小类(ClassID)/文件<br />
      <font color="#3370CC">例如:Article/25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="11">频道/Html目录/栏目(英文目录)/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="12">频道/Html目录/栏目(ClassID)/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="13">频道/栏目(英文目录)/文件<br />
      <font color="#3370CC">例如:Article/Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="14">频道/栏目(ClassID)/文件<br />
      <font color="#3370CC">例如:Article/25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="15">频道/Html目录/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>20060325.html</font><br />
<input type="radio" name="CreatePathType" value="16">频道/Html目录/年月/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>200603/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="17">频道/Html目录/年/月/文件<br />
      <font color="#3370CC">例如:Article/<%=Cl.htmlDir%>2006/03/20060325.html</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>生成文件结构:</strong></td>
<td>
<input type="radio" name="CreateFileType" value="0">标题ID号+更新时间
      <font color="#3370CC">例如:168200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="1">标题ID号
      <font color="#3370CC">例如:168.html</font><br />
<input type="radio" name="CreateFileType" value="2">更新时间
      <font color="#3370CC">例如:200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="3">栏目ID+_+标题ID号+更新时间
      <font color="#3370CC">例如:25_168200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="4">栏目ID+_+标题ID号
      <font color="#3370CC">例如:25_168.html</font><br />
<input type="radio" name="CreateFileType" value="5">栏目ID+_+更新时间
      <font color="#3370CC">例如:25_200603250345234.html</font>
</td>
</tr>

<tr class="tdbg">
<td width="130"><strong>是否生成相关列表:</strong></td>
<td>
<input type="radio" name="IsCreateList" value="1" <%if IsCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
生成     
<input type="radio" name="IsCreateList" value="0" <%if IsCreatelist<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
不生成<br /><font color="#3370CC">如果选择否,则除内容页外栏目等列表将使用Asp文件(对于数据量较大的站,建议选否)</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>自动生成相关列表:</strong></td>
<td>
<input type="radio" name="AutoCreateList" value="1" <%if AutoCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
生成     
<input type="radio" name="AutoCreateList" value="0" <%if AutoCreateList<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
不生成
<br /><font color="#3370CC">添加或修改文章后,自动生成相关列表,默认为生成(对于数据量较大的站,建议选否)</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道模板/风格:</strong></td>
<td>
模板:<select name="Styleid">
<%
Dim rs_s
set rs_s = Cl.Execute("select ID,StyleName from Style Order by ID")
if rs_s.eof and rs_s.bof then
response.write "请先添加模板!"
else
do while not rs_s.eof
response.write "<option value="""&rs_s(0)&""""
If rs_s(0)=StyleID Then response.write " selected"
response.write ">"&rs_s(1)&"</option>"
rs_s.MoveNext
Loop
End If
Set rs_s=Nothing
%>
</select>  CSS风格:<select name="Cssid">
<%
Dim strTempCss,strCssName
strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
strCssName=Split(strTempCss,"|||")
for i=0 to ubound(strCssName)-1
response.write "<option value="""&i&""""
If i=CssID Then response.write " selected"
response.write ">"&strCssName(i)&"</option>"
next%>
</select>
</td>
</tr>
<!--上传设置-->
<tr class="tdbg">
<td width="130"><strong>允许上传用户等级:</strong></td>
<td><input name="UploadSetting(0)" type="text" id="UploadSetting(0)" value="<%=UploadSetting(0)%>" size="66" onclick="SelectUserGroup('UploadSetting(0)');" Readonly>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>上传文件存放目录:</strong></td>
<td><input name="UploadSetting(1)" type="text" value="<%=UploadSetting(1)%>" ID="UploadSetting(1)" size="23"> 
<b>分类:</b><select name="UploadSetting(2)" id="UploadSetting(2)">
<option value="0">不使用</option>
<option value="1">年</option>
<option value="2">年-月</option>
<option value="3">年\月</option>
<option value="4">年-月-日</option>
<option value="5">年-月\日</option>
<option value="6">年\月\日</option>
</select> 
<b>路径:</b><select name="UploadSetting(3)" id="UploadSetting(3)">
<option value="0">绝对根路径</option>
<option value="1">绝对全路径</option>
</select>
chy158 2009-12-26
  • 打赏
  • 举报
回复
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
if (document.form1.ChannelName.value == "") {
alert("请输入频道名称!");
document.form1.ChannelName.focus();
return false;
}
if (document.getElementById('OuterChannel').style.display == 'none'){
var str="<%=Action%>";
if (document.form1.ChannelDir.value == "" && str=="Add"){
alert("请输入频道目录!");
document.form1.ChannelDir.focus();
return false;
}
if (document.form1.ChannelItemName.value == "") {
alert("请输入频道项目名称!");
document.form1.ChannelItemName.focus();
return false;
}
if (document.form1.ChannelItemUnit.value == "") {
alert("请输入频道项目单位!");
document.form1.ChannelItemUnit.focus();
return false;
}
}
else{
if (document.form1.LinkUrl.value == "") {
alert("请输入链接地址!");
document.form1.LinkUrl.focus();
return false;
}
}
return true;
}
</script>
<form method="post" action="Admin_Channel.asp" name="form1" onsubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 频 道</strong></div></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道名称:</strong></td>
<td><input name="ChannelName" type="text" id="ChannelName" value="<%=ChannelName%>" size="49" maxlength="200"> <font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道说明:</strong></td>
<td><textarea name="ReadMe" cols="40" rows="5" id="ReadMe"><%=ReadMe%></textarea></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>打开方式:</strong></td>
<td>
<input type="radio" name="OpenType" value="0" <%if OpenType=0 then%>checked<%end if%>>
原窗口     
<input type="radio" name="OpenType" value="1" <%if OpenType<>0 then%>checked<%end if%>>
新窗口</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否显示:</strong></td>
<td>
<input type="radio" name="IsShow" value="1" <%if IsShow<>0 then%>checked<%end if%>>
显  示      <input type="radio" name="IsShow" value="0" <%if IsShow=0 then%>checked<%end if%>>
不显示
</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否禁用:</strong></td>
<td>
<input type="radio" name="IsDisabled" value="0" <%if IsDisabled=0 then%>checked<%end if%>>
使  用     
<input type="radio" name="IsDisabled" value="1" <%if IsDisabled<>0 then%>checked<%end if%>>
禁  用</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道类型:</strong></td>
<td>
<input type="radio" name="ChannelType" value="0" Disabled <%if ChannelType=1 then%> checked<%end if%>> 系统     
<input type="radio" name="ChannelType" value="1" <%=ChkDisabled%><%if ChannelType=1 then%> checked<%end if%> OnClick="ChkChannelType('1');"> 内部     
<input type="radio" name="ChannelType" value="2" <%=ChkDisabled%><%if ChannelType<>1 and ChannelType<>0 then%> checked<%end if%> OnClick="ChkChannelType('2');"> 外部
</td>
</tr>
<tr class="tdbg" ID="OuterChannel" style="DisPlay:none">
<td width="150" align="right"><strong>链接地址:</strong></td>
<td><input name="LinkUrl" type="text" id="LinkUrl" size="49" maxlength="200" value="<%=LinkUrl%>"><br /><font color=red>请输入请输入完整的URL地址。</font></td>
</tr>
<!--==================================================================-->
<tr class="tdbg" id="NoOuterChannel">
<td width="150" align="right"><strong>内部频道参数:</strong></td>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="130"><strong>使用模块:</strong></td>
<td>
<select name="ModuleID" ID="ModuleID" <%=ChkDisabled%>>
<option value="1">文章模块</option>
<option value="2">下载模块</option>
<option value="3">图片模块</option>
<%if SysTemVersion>1 or Action="Modify" then%>
<option value="4">影视模块</option>
<%end if%>
<%if Action<>"Add" then%>
<option value="5">商城模块</option>
<option value="6">留言模块</option>
<option value="0">网站首页</option>
<%end if%>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道目录:</strong></td>
<td><input name="ChannelDir" type="text" id="ChannelDir" size="20" maxlength="50" onkeyup="OutputUploadDir(this.value);" value="<%=ChannelDir%>" <%=ChkDisabled%>> <font color=red>*</font><br /><font color="#ff0033">注意:只能是英文,不能带空格或“\”、“/”等符号,此项添加后不允许更改。</font></td>
</tr>
chy158 2009-12-26
  • 打赏
  • 举报
回复
代码交多,多贴几次
</td>
<td width="100" align="center"><%
response.write "<a href='Admin_Channel.asp?Action=Modify&ChannelID=" & SQL(0,i) & "'>修改</a> "

if SQL(0,i)=0 then
response.write "<font color=#888888>删除</font> "
response.write "<font color=#888888>更新</font>"
else
Select Case SQL(7,i)
Case 2
response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗?\n\n注意:如果是内部频道,此操作将会删除频道相关的所有数据(包括此频道模版及频道目录文件夹),此操作不可恢复!');"">删除</a> "
response.write "<font color=#888888>更新</font>"
Case 1
response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗?\n\n注意:如果是内部频道,此操作将会删除频道相关的所有数据(包括此频道模版及频道目录文件夹),此操作不可恢复!');"">删除</a> "
response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗?\n\n注意:更新此频道将更新相应的JS,统计信息,及频道文件!');"">更新</a>"
Case else
response.write "<font color=#888888>删除</font> "
response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗?\n\n注意:更新此频道将更新相应的JS,统计信息,及频道文件!');"">更新</a>"
end Select
end if
%></td>
</tr>
<%
Next
SQL=Empty
End if
if Cl.Web_Info(15) = "1" then
%>
<form name="formRefresh" method="Post" action="Admin_Channel.asp">
<tr class="tdbg">
<td height="40" colspan="10" align="center">
<input name="Action" type="hidden" id="Action" value="RefreshChannelJs">
<input name="Submit" type="submit" value=" 刷新所有频道JS文件 "></td>
</tr>
</form>
<%end if%>
</table>
<%
rs.Close:set rs=Nothing
end sub

sub ChannelInfo()
dim ChannelID,sTemp,ChkDisabled
dim ChannelName,ReadMe,OpenType,IsShow,IsDisabled,ChannelType,LinkUrl,IsRss,IsWap
dim ModuleID,ChannelDir,ChannelItemName,ChannelItemUnit
dim IsCreateHtml,CreatePathType,CreateFileType,CreateFileExt,IsCreateList,AutoCreateList
dim StyleID,CssID,UploadSetting,OtherSetting
dim CLogo,CBanner
dim sAction,SubmitValue

if Action = "Modify" then
sAction="SaveModify":SubmitValue="修 改"
ChannelID = Trim(Request("ChannelID"))
if Not IsNumeric(ChannelID) then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请指定要修改频道ID</li>"
exit sub
end if
set rs=Cl.Execute("select * from Channel where ChannelID=" & Clng(ChannelID))
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>找不到指定的频道!</li>"
Exit sub
end if
ChannelName = rs("ChannelName") : ReadMe = rs("ReadMe")
OpenType = rs("OpenType") : ChannelType = rs("ChannelType")
IsShow = rs("IsShow") : LinkUrl = rs("LinkUrl")
ModuleID = rs("ModuleID") : ChannelDir = rs("ChannelDir")
ChannelItemName = rs("ChannelItemName") : ChannelItemUnit = rs("ChannelItemUnit")
IsCreateHtml = rs("IsCreateHtml") : CreatePathType = rs("CreatePathType")
CreateFileType = rs("CreateFileType") : CreateFileExt = rs("CreateFileExt")
IsCreateList = rs("IsCreateList") : AutoCreateList = rs("AutoCreateList")
StyleID = rs("StyleID") : CssID = rs("CssID")
CLogo = rs("Logo") : CBanner = rs("Banner")
IsDisabled = rs("IsDisabled"):IsRss = rs("IsRss"):IsWap = rs("IsWap")
OtherSetting = Split(Rs("OtherSetting"),",")
if Ubound(OtherSetting)<9 then Redim OtherSetting(9)
if IsNull(rs("UploadSetting")) or rs("UploadSetting")="" then
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
else
UploadSetting=Split(rs("UploadSetting"),"@")
'if Ubound(UploadSetting)<15 then
'UploadSetting=Split("4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
'end if
end if
ChkDisabled="Disabled"
set rs = Nothing
else
sAction = "SaveAdd" : SubmitValue = "添 加"
OpenType = 1 : ChannelType = 1 : IsShow = 1 : ModuleID = 1
IsCreateHtml = 0 : CreatePathType = 0 : CreateFileType = 0 : CreateFileExt = "html"
IsCreateList = 1 : AutoCreateList = 1 : StyleID = Cl.StyleID : CssID = Cl.CssID
CLogo = "" : CBanner = "" : IsDisabled = 0
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
OtherSetting=Array(0,12,1,20,20,20,20,20,10,20)
ChkDisabled=""
end if

%>
<br />
使用XHTML+CSS架构,令页面结构化,节省了静态页面代码的传输,同时也易于修改界面,更符合WEB标准; 论坛采用Cookies、Session、Application等技术对论坛数据进行缓存,减少对数据库的访问,提高论坛的性能。可以承载较多的用户同时访问; 数据分表功能,减轻数据量大的时候访问数据库的负担; 支持多皮肤、风格切换功能; 框架模式+ 平板模式的显示方式,用户可以根据自己的爱好来选择; 优化论坛页面关键字搜索,让论坛更容易被搜索引擎收录; 可扩展插件,为广大朋友提供了一个广阔的论坛服务扩展空间; 站长可以根据不同版面添加不同的顶部广告; 发帖采用HTML+UBB的方式,两种编辑器,互相转换、互相兼容; 一、论坛所需环境 本论坛程序需要服务器至少支持以下组件或者对象: 1)服务器必须支持asp,呵呵,此项必须。 2)Ado2.5或者更高版本,需允许使用Adodb.stream,此项必须。 3)FSO文件操作对象,此项非必须,但可能丧失一部分功能。 4)Vbscript版本5.6以上就是服务器安装了IE5.5或者更高版本,此项非必须,但需要相关补丁。 二、论坛的安装步骤 将论坛代码压缩包解开包,保持文件的相对位置,将解压后得到的全部目录、文件包括所有空目录上传到你的服务器上,论坛基本上就可以使用了,您可以进入后台管理设置一些参数。 默认的管理员帐号:admin 前台密码:admin 后台密码:admin 后台Sql密码:admin 另外重要说明[点击帖子显示] Microsoft VBScript 运行时错误 '800a01f4' 变量未定义: 'Cls_IUBB' \bbs\topic.asp, line 144 此错误不是错误!是本程序不支持本地测试!您只要把程序传到主机空间进去就可以了!没有任何问题! 为了您网站的安全,非一定需要请尽量不要打开上传功能!还有下载使用要修改conn.asp里面的数据库路径(当然了数据名称也要修改)
简约论坛使用XHTML+CSS架构,令页面结构化,节省了静态页面代码的传输,同时也易于修改界面,更符合WEB标准; 论坛采用Cookies、Session、Application等技术对论坛数据进行缓存,减少对数据库的访问,提高论坛的性能。可以承载较多的用户同时访问; 数据分表功能,减轻数据量大的时候访问数据库的负担; 支持多皮肤、风格切换功能; 框架模式+ 平板模式的显示方式,用户可以根据自己的爱好来选择; 优化论坛页面关键字搜索,让论坛更容易被搜索引擎收录; 可扩展插件,为广大朋友提供了一个广阔的论坛服务扩展空间; 站长可以根据不同版面添加不同的顶部广告; 发帖采用HTML UBB的方式,两种编辑器,互相转换、互相兼容; 一、论坛所需环境 本论坛程序需要服务器至少支持以下组件或者对象: 1)服务器必须支持asp,呵呵,此项必须。 2)Ado2.5或者更高版本,需允许使用Adodb.stream,此项必须。 3)FSO文件操作对象,此项非必须,但可能丧失一部分功能。 4)Vbscript版本5.6以上就是服务器安装了IE5.5或者更高版本,此项非必须,但需要相关补丁。   二、论坛的安装步骤 将论坛代码压缩包解开包,保持文件的相对位置,将解压后得到的全部目录、文件包括所有空目录上传到你的服务器上,论坛基本上就可以使用了,您可以进入后台管理设置一些参数。 默认的管理员帐号:admin 前台密码:admin 后台密码:admin 后台Sql密码:admin   另外重要说明[点击帖子显示] Microsoft VBScript 运行时错误 '800a01f4' 变量未定义: 'Cls_IUBB' bbstopic.asp, line 144 此错误不是错误!是本程序不支持本地测试!您只要把程序传到主机空间进去就可以了!没有任何问题! 为了您网站的安全,非一定需要请尽量不要打开上传功能!还有下载使用要修改conn.asp里面的数据库路径(当然了数据名称也要修改) 2015年09月21日发布几个说明: 1、重新改写模板使之能兼容360浏览器、360极速浏览器、火狐浏览器、Google Chrome等主流浏览器 2、删除在线人数状态,删除公告、删除图片友情链接、使论坛更加简约 3、更改论坛为主流字体:微软雅黑

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧