您所在位置：主题：[讨论]大家给我帮忙啊 急用啊 是什么原因啊？？？
yg240
[专家分：0] 发布于 2008-08-18 22:57:00
<!--#include file="../System/conn.asp"-->
<!--#include file="../System/Admin.Class.asp"-->
<%
Dim rs
OpenAdmin()
Call Admin.IsAdmin("Article")
'//输出顶部
Response.Write("<html>")
Response.Write("<head>")
Response.Write("<title>WWS</title>")
Response.Write("<meta http-equiv='content-type' content='text/html;charset=utf-8'>")
Response.Write("<link rel='STYLESHEET' type='text/css' href='img/css.css'>")
Response.Write("<script src='img/js.js' type='text/javascript'></script>")
Response.Write("<body class='right_body'>")
Response.Write("<!--顶部固定部分开始-->")
Response.Write("<div class='right_title'>")
Response.Write("<a href='?'>频道管理</a>")
Response.Write(" <a href='?go=add'>添加频道</a>")
Response.Write("</div>")
Response.Write("<!--顶部固定部分结束-->")
Select case Request.QueryString("go")
case "del"
If CInt(Request.Querystring("id"))="" Then
Response.Redirect("Error.asp?W=对不起，参数错误！")
response.End()
End if
conn.execute("delete * from [WWS_Channel] where ID="&Request.Querystring("id"))
Response.Redirect("WWS@Channel.asp")
case "add"
Response.Write("<div class='right_title'>添加频道</div>")
Response.Write("<div class='right_item'>")
Response.Write("<form method='post' action='?go=addok'>")
Response.Write("<div class='br'></div>")
Response.Write(" 选择标题：<input name='Title' type='text' class='input' style='width:200px' />")
Response.Write("<div class='editer'>")
%>
<input type="hidden" id="Content" name="Content" value="" style="display:none" />
<input type="hidden" id="Content___Config" value="" style="display:none" />
<iframe id="Content___Frame" src="../Editor/fckeditor.html?InstanceName=Content&Toolbar=Default" width="100%" height="300" frameborder="0" scrolling="no"></iframe>
<%
Response.Write("</div>")
Response.Write("<center>")
Response.Write("<input type='submit' class='button' value='确认发布' />")
Response.Write(" <input type='reset' class='button' value='清空重置' />")
Response.Write(" <input name='IsBest' type='checkbox' value='1' /> 推荐")
Response.Write(" <input name='IsReply' type='checkbox' value='1' /> 评论")
Response.Write(" <input name='IsPass' type='checkbox' value='1' checked /> 通过")
Response.Write("</center>")
Response.Write("<div class='br'></div>")
Response.Write("</form>")
Response.Write("</div>")
Response.Write("<div class='br'></div>")
case "edit"
set rs=conn.execute("select * from [WWS_Channel] where ID="&request.QueryString("id"))
Response.Write("<div class='right_title'>编辑频道</div>")
Response.Write("<div class='right_item'>")
Response.Write("<form method='post' action='?go=editok'>")
Response.Write("<div class='br'></div>")
Response.Write(" 选择标题：<input name='Title' type='text' class='input' style='width:200px' value='"&RS("Title")&"' />")
Response.Write("<div class='editer'>")
%>
<input type="hidden" id="Content" name="Content" value="<%=Server.HTMLEncode(rs("Content"))%>" style="display:none" />
<input type="hidden" id="Content___Config" value="" style="display:none" />
<iframe id="Content___Frame" src="../Editor/fckeditor.html?InstanceName=Content&Toolbar=Default" width="100%" height="300" frameborder="0" scrolling="no"></iframe>
<%
Response.Write("</div>")
Response.Write("<center>")
Response.Write("<input type='submit' class='button' value='确认编辑' />")
Response.Write(" <input type='reset' class='button' value='清空重置' />")
Response.Write("<input type='hidden' name='id' value='"&rs("id")&"' />")
Response.Write(" <input name='IsBest' type='checkbox' value='1' /> 推荐")
Response.Write(" <input name='IsReply' type='checkbox' value='1' /> 评论")
Response.Write(" <input name='IsPass' type='checkbox' value='1' checked /> 通过")
Response.Write("</center>")
Response.Write("<div class='br'></div>")
Response.Write("</form>")
Response.Write("</div>")
Response.Write("<div class='br'></div>")
set rs=nothing
case "addok"
set rs=server.CreateObject("adodb.recordset")
rs.open "WWS_Channel",conn,1,3
rs.addnew
rs("Title")=replace(trim(request.Form("Title")),"'","")
rs("Content")=request.Form("Content")
if Request.Form("IsReply")=1 then
rs("IsReply")=1
end if
rs.update
rs.close
set rs=nothing
Response.Redirect("WWS@Channel.asp")
case "editok"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [WWS_Channel] where ID="&Request.Form("id"),conn,1,3
rs("Title")=replace(trim(request.Form("Title")),"'","")
rs("Content")=Request.Form("Content")
rs("IsReply")=Request.Form("IsReply")
rs.update
rs.close
set rs=nothing
Response.Redirect("WWS@Channel.asp")
Case Else
Call List()
End Select
sub List()
set rs=server.createobject("adodb.recordset")
rs.open "select * from [WWS_Channel] order by id DESC",conn,1,1
Response.Write("<div class='right_title'>频道列表 [当前共有"&rs.recordcount&"个频道]</div>")
Response.Write("<div class='right_item'>")
Response.Write("<table width='99%' border='0'>")
Response.Write("<tr height='25px'>")
Response.Write("<td width='25%' align='center'>频道名称</td>")
Response.Write("<td width='50%' align='center'>频道地址</td>")
Response.Write("<td width='25%' align='center'>操作</td>")
Response.Write("</tr>")
do while not rs.eof
Response.Write("<tr height='25px'>")
Response.Write("<td align='center'><a href='../Channel.asp?id="&rs("id")&"' target='_blank'>"&rs("Title")&"</a></td>")
Response.Write("<td align='center'><input type='text' value='Channel.asp?id="&rs("id")&"' class='input' style='width:180px' /></td>")
Response.Write("<td align='center'> <a href='?go=edit&id="&rs("id")&"'>编辑</a> <a href='?go=del&id="&rs("id")&"' onclick='return confirm(""您真的要删除此频道吗？"")'>删除</a> <a href='../Channel.asp?id="&rs("id")&"'>查看</a></td>")
Response.Write("</tr>")
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write("<tr><td colspan='3' height='100' align='center'>对不起，暂时没有数据！</td></tr>")
end If
Response.Write("</table>")
Response.Write("</div>")
rs.close
set rs=nothing
end Sub
Response.Write("</body>")
Response.Write("</html>")
CloseAdmin()
%>
<!--#include file="../System/Admin.Class.asp"-->
<%
Dim rs
OpenAdmin()
Call Admin.IsAdmin("Article")
'//输出顶部
Response.Write("<html>")
Response.Write("<head>")
Response.Write("<title>WWS</title>")
Response.Write("<meta http-equiv='content-type' content='text/html;charset=utf-8'>")
Response.Write("<link rel='STYLESHEET' type='text/css' href='img/css.css'>")
Response.Write("<script src='img/js.js' type='text/javascript'></script>")
Response.Write("<body class='right_body'>")
Response.Write("<!--顶部固定部分开始-->")
Response.Write("<div class='right_title'>")
Response.Write("<a href='?'>频道管理</a>")
Response.Write(" <a href='?go=add'>添加频道</a>")
Response.Write("</div>")
Response.Write("<!--顶部固定部分结束-->")
Select case Request.QueryString("go")
case "del"
If CInt(Request.Querystring("id"))="" Then
Response.Redirect("Error.asp?W=对不起，参数错误！")
response.End()
End if
conn.execute("delete * from [WWS_Channel] where ID="&Request.Querystring("id"))
Response.Redirect("WWS@Channel.asp")
case "add"
Response.Write("<div class='right_title'>添加频道</div>")
Response.Write("<div class='right_item'>")
Response.Write("<form method='post' action='?go=addok'>")
Response.Write("<div class='br'></div>")
Response.Write(" 选择标题：<input name='Title' type='text' class='input' style='width:200px' />")
Response.Write("<div class='editer'>")
%>
<input type="hidden" id="Content" name="Content" value="" style="display:none" />
<input type="hidden" id="Content___Config" value="" style="display:none" />
<iframe id="Content___Frame" src="../Editor/fckeditor.html?InstanceName=Content&Toolbar=Default" width="100%" height="300" frameborder="0" scrolling="no"></iframe>
<%
Response.Write("</div>")
Response.Write("<center>")
Response.Write("<input type='submit' class='button' value='确认发布' />")
Response.Write(" <input type='reset' class='button' value='清空重置' />")
Response.Write(" <input name='IsBest' type='checkbox' value='1' /> 推荐")
Response.Write(" <input name='IsReply' type='checkbox' value='1' /> 评论")
Response.Write(" <input name='IsPass' type='checkbox' value='1' checked /> 通过")
Response.Write("</center>")
Response.Write("<div class='br'></div>")
Response.Write("</form>")
Response.Write("</div>")
Response.Write("<div class='br'></div>")
case "edit"
set rs=conn.execute("select * from [WWS_Channel] where ID="&request.QueryString("id"))
Response.Write("<div class='right_title'>编辑频道</div>")
Response.Write("<div class='right_item'>")
Response.Write("<form method='post' action='?go=editok'>")
Response.Write("<div class='br'></div>")
Response.Write(" 选择标题：<input name='Title' type='text' class='input' style='width:200px' value='"&RS("Title")&"' />")
Response.Write("<div class='editer'>")
%>
<input type="hidden" id="Content" name="Content" value="<%=Server.HTMLEncode(rs("Content"))%>" style="display:none" />
<input type="hidden" id="Content___Config" value="" style="display:none" />
<iframe id="Content___Frame" src="../Editor/fckeditor.html?InstanceName=Content&Toolbar=Default" width="100%" height="300" frameborder="0" scrolling="no"></iframe>
<%
Response.Write("</div>")
Response.Write("<center>")
Response.Write("<input type='submit' class='button' value='确认编辑' />")
Response.Write(" <input type='reset' class='button' value='清空重置' />")
Response.Write("<input type='hidden' name='id' value='"&rs("id")&"' />")
Response.Write(" <input name='IsBest' type='checkbox' value='1' /> 推荐")
Response.Write(" <input name='IsReply' type='checkbox' value='1' /> 评论")
Response.Write(" <input name='IsPass' type='checkbox' value='1' checked /> 通过")
Response.Write("</center>")
Response.Write("<div class='br'></div>")
Response.Write("</form>")
Response.Write("</div>")
Response.Write("<div class='br'></div>")
set rs=nothing
case "addok"
set rs=server.CreateObject("adodb.recordset")
rs.open "WWS_Channel",conn,1,3
rs.addnew
rs("Title")=replace(trim(request.Form("Title")),"'","")
rs("Content")=request.Form("Content")
if Request.Form("IsReply")=1 then
rs("IsReply")=1
end if
rs.update
rs.close
set rs=nothing
Response.Redirect("WWS@Channel.asp")
case "editok"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [WWS_Channel] where ID="&Request.Form("id"),conn,1,3
rs("Title")=replace(trim(request.Form("Title")),"'","")
rs("Content")=Request.Form("Content")
rs("IsReply")=Request.Form("IsReply")
rs.update
rs.close
set rs=nothing
Response.Redirect("WWS@Channel.asp")
Case Else
Call List()
End Select
sub List()
set rs=server.createobject("adodb.recordset")
rs.open "select * from [WWS_Channel] order by id DESC",conn,1,1
Response.Write("<div class='right_title'>频道列表 [当前共有"&rs.recordcount&"个频道]</div>")
Response.Write("<div class='right_item'>")
Response.Write("<table width='99%' border='0'>")
Response.Write("<tr height='25px'>")
Response.Write("<td width='25%' align='center'>频道名称</td>")
Response.Write("<td width='50%' align='center'>频道地址</td>")
Response.Write("<td width='25%' align='center'>操作</td>")
Response.Write("</tr>")
do while not rs.eof
Response.Write("<tr height='25px'>")
Response.Write("<td align='center'><a href='../Channel.asp?id="&rs("id")&"' target='_blank'>"&rs("Title")&"</a></td>")
Response.Write("<td align='center'><input type='text' value='Channel.asp?id="&rs("id")&"' class='input' style='width:180px' /></td>")
Response.Write("<td align='center'> <a href='?go=edit&id="&rs("id")&"'>编辑</a> <a href='?go=del&id="&rs("id")&"' onclick='return confirm(""您真的要删除此频道吗？"")'>删除</a> <a href='../Channel.asp?id="&rs("id")&"'>查看</a></td>")
Response.Write("</tr>")
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write("<tr><td colspan='3' height='100' align='center'>对不起，暂时没有数据！</td></tr>")
end If
Response.Write("</table>")
Response.Write("</div>")
rs.close
set rs=nothing
end Sub
Response.Write("</body>")
Response.Write("</html>")
CloseAdmin()
%>
