channel.asp

Ajax留言本源代码 网上找到的一个源码,希望做网站的能用上.

<!--#include file="Function.asp"-->
<%
SiteHead "频道管理",2

dim Action,Id,rs,sql,i,Num,Page,Amount,temp,ErrMsg
Action=request.querystring("Action")
Page=request.querystring("Page")
Id=request.querystring("Id")
set rs=server.createobject("adodb.recordset")
%>

<table width="<%=SiteWidth%>" border="0" align="center" cellpadding="2" cellspacing="0">
<tr><td height="25" align="center" class="td">频道管理</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td valign="top">
    <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
    <tr><td width="16%" valign="top"><li><a href="?ChoosePage=Channel&Action=Send">频道发布</a></li>
        <li><a href="?ChoosePage=Channel">所有频道</a></li>
<%
sql="select * from Sort where Leo=1 order by Layer desc,Id"
rs.open sql,conn,1,1
do while not rs.eof
   response.write "<li>>><a href=""?ChoosePage=Channel&Sort="&rs("Id")&""">"&rs("Name")&"</a><<</li>"
   rs.movenext
loop
rs.close
%>
    <td valign="top">
       <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<%
if Action="Send" then
%>
<form name="Channel_Adds" method="post" action="?ChoosePage=Channel&Action=Save">
<tr><td colspan="4" bgcolor="#8CB4FD"><font color="white">频道发布（带*的为必填项）</font></td></tr>
<tr><td width="20%">名称：*</td><td width="30%"><input name="Name" type="text" size="24"></td>
<td width="20%">属性：*</td><td><input name="Leo" type="text" size="2" value="0"></td></tr>
<tr><td>分类：*</td><td>
    <select name="Sort">
    <option value="0">顶级分类</option>
<%
sql="select Id,Name from Sort where Sort=0 order by Layer desc,Id"
rs.open sql,conn,1,1
do while not rs.eof
   response.write "<option value="""&rs("Id")&""">"&rs("Name")&"</a></option>"
   rs.movenext
loop
rs.close
%>	
    </select><font color="red">*</font>
</td><td>排序：</td><td>
    <select name="Layer">
<%
for i=0 to 9
    response.write "<option value="""&i&""">"&i&"</option>"
next
%>
    </select>
</td>
</tr>
<tr><td>数据表：*</td><td><input size="16" name="TableName" value=""><font color="red">*</font></td>
<td>文件夹：</td><td><input size="16" name="FolderName" value=""></td></tr>
<tr><td>描述：*</td><td colspan="3"><textarea cols="60" rows="4" name="Explain"></textarea></td></tr>
<tr align="center"><td colspan="4"><input type="submit" name="Submit" value="发布频道"></td></tr>
</form>
<%
elseif Action="Save" then

   response.write "<tr><td>"
   if trim(request.form("Name"))="" then ErrMsg=ErrMsg&"<li>请填写频道名称！</li>"
   if Not IsNumeric(trim(request.form("Leo"))) or trim(request.form("Leo"))="" then ErrMsg=ErrMsg&"<li>属性有误！</li>"
   if len(trim(request.form("Name")))<1 or len(trim(request.form("Name")))>36 then ErrMsg=ErrMsg&"<li>主题只能为1-36个字符！当前有"&len(trim(request.form("Name")))&"字符</li>"
   if GetInfo("Sort","Id","TableName='"&trim(request.form("TableName"))&"'","","")<>"Error" then ErrMsg=ErrMsg&"<li>重复的数据表！</li>"
   if GetInfo("Sort","Id","FolderName='"&trim(request.form("FolderName"))&"'","","")<>"Error" then ErrMsg=ErrMsg&"<li>重复的文件夹！</li>"
   if ErrMsg<>"" then
      RecordLog "Sort",session(PreName&"_KarLeo"),"增加频道失败：<br/>"&ErrMsg,""
      Error 3,"","错误类型：100003<br>可能原因："&ErrMsg,"","","90%",0,4,"white","#E4E4F3"
   else
      sql="select * from Sort"
      rs.open sql,conn,1,3
      rs.addnew
      rs("Name")=Server.HTMLEncode(trim(request.form("Name")))
      rs("Layer")=request.form("Layer")
      rs("Sort")=request.form("Sort")
      rs("Leo")=trim(request.form("Leo"))
      rs("Explain")=request.form("Explain")
      rs.update
      rs.close
      response.write("<script language=javascript>alert('发布成功！');</script>")
      response.redirect("Channel.asp")
   end if
   response.write "</td></tr>"

elseif Action="Modify" then

   if Isnumeric(Id) then
      sql="select Name,Layer,Sort,Leo,Lei,Explain from Sort where id="&Id
      rs.open sql,conn,1,1
      if rs.bof and rs.eof then
         response.write("<script language=javascript>alert('参数错误！');</script>")
         response.redirect("Channel.asp")
      else
%>
<form name="Channel_Modify" method="post" action="?Action=Update&Id=<%=Id%>">
<tr><td colspan="4" bgcolor="#8CB4FD"><font color="white">频道修改（带*的为必填项）</font></td></tr>
<tr><td width="20%">名称：*</td><td width="30%"><input name="Name" type="text" size="24" value="<%=rs("Name")%>"></td>
<td width="20%">显示：</td><td><input name="Leo" type="checkbox" size="2" <%if rs("Leo")=1 then response.write "checked"%>></td></tr>
<tr><td>分类：*</td><td>
    <select name="Sort">
    <option value="0">顶级分类</option>
<%
dim rss,sqll
set rss=server.createobject("adodb.recordset")
sqll="select Id,Sort,Name from Sort where Leo>0 and Id<>"&Id&" and Lei<>-1 order by Layer desc,Id"
rss.open sqll,conn,1,1
do while not rss.eof
   if right(rss("Sort"),Len(rs("Sort"))-4)=rs("Sort") then
      response.write "<option value="""&rss("Id")&""" selected>"&rss("Name")&"</a></option>"
   else
      response.write "<option value="""&rss("Id")&""">"&rss("Name")&"</a></option>"
	end if
   rss.movenext
loop
rss.close
set rss=nothing
%>	
    </select><font color="red">*</font>
</td><td>排序：</td><td>
    <select name="Layer">
<%
for i=0 to 9
    if Cint(rs("Layer"))=i then
       response.write "<option value="""&i&""" selected>"&i&"</option>"
	else
        response.write "<option value="""&i&""">"&i&"</option>"	
	end if
next
%>
    </select>
</td></tr>
<tr><td>描述：*</td><td colspan="3"><textarea cols="60" rows="4" name="Explain"><%=rs("Explain")%></textarea></td></tr>
<tr align="center"><td colspan="4"><input type="submit" name="Submit" value="编辑频道"></td></tr>
</form>
<%
end if
rs.close
end if

elseif Action="Update" then

   response.write "<tr><td>"
   if Not IsNumeric(Id) then ErrMsg=ErrMsg&"<li>Id参数错误！</li>"
   if trim(request.form("Name"))="" then ErrMsg=ErrMsg&"<li>请填写频道名称！</li>"
   if ErrMsg<>"" then

         response.write("<script language=javascript>alert('"&ErrMsg&"');</script>")
         response.redirect("Channel.asp")

   else
      sql="select * from Sort where Id="&Id
      rs.open sql,conn,1,3
      rs("Name")=Server.HTMLEncode(trim(request.form("Name")))
      rs("Layer")=request.form("Layer")
      if request.form("Sort")<>"0" then rs("Sort")=request.form("Sort"):rs("Lei")=-1:else:rs("Lei")=0
      if request.form("Leo")="on" then rs("Leo")=1:else:rs("Leo")=0
      rs("Explain")=request.form("Explain")
      rs.update
      rs.close
      response.write("<script language=javascript>alert('修改成功！');</script>")
      response.redirect("Channel.asp")      
   end if
   response.write "</td></tr>"


elseif Action="Del" then

   response.write "<tr><td>"
   if Not IsNumeric(Id) then ErrMsg=ErrMsg&"<li>Id参数错误！</li>"
   if ErrMsg<>"" then

      response.write("<script language=javascript>alert('"&ErrMsg&"');</script>")
      response.redirect("Channel.asp")      
   else
      sql="select Id from Sort where Id="&Id
      rs.open sql,conn,1,3
      if not rs.eof then
         rs.delete
         rs.update
         response.write("<script language=javascript>alert(删除成功'');</script>")
         response.redirect("Channel.asp")      
      else
         response.write("<script language=javascript>alert(删除失败'');</script>")
         response.redirect("Channel.asp")      

      end if
      rs.close
   end if
   response.write "</td></tr>"


else
dim Sort
i=1
Num=20
Sort=trim(request.querystring("Sort"))

if Sort<>"" then
  sql="select * from Sort where Sort<>0 and Sort='"&Sort&"' order by Sort,Layer desc,Id"
else
  sql="select * from Sort order by Sort,Layer desc,Id"
end if
rs.open sql,conn,1,1
if rs.bof and rs.eof then
 response.write "<tr><td>数据库没有数据记录！</td></tr>"
else
rs.pagesize=Num
if Page="" or IsNull(Page) or Not IsNumeric(Page) or Page=0 then:Page=1
rs.absolutepage=Page
Amount=Num
response.write "<tr><td colspan=""6"">"
   DividePage "Sort="&Sort&"&",rs.recordcount,rs.pagecount,8,Amount,"条",Page,"100%","16","Table2","TdPageHead","a","right","lightblue","blue"
response.write "</td></tr>"
do while not rs.eof and Num>0
   response.write "<tr><td width=""10%"" align=""center"">"&i+(Page-1)*Amount&"</td><td width=""20%""><a href=""Channel.asp?Id="&rs("Id")&""" target=""_blank"">"&rs("Name")&_
"</a></td><td width=""16%"" align=""center"">"&GetInfo("Sort","Name","Id<>"&rs("Id")&" and Sort='"&Left(rs("Sort"),Len(rs("Sort"))-4)&"'","","")&"</td><td width=""4%"" align=""center"">"&rs("Leo")&_
"</td><td></td><td width=""24%"" align=""center"">[<a href=""?Action=Modify&Id="&rs("Id")&""">编辑</a>]"&VbCrLf&_
"[<a href=""javascript:if(confirm('确认删除吗?')){window.location='?Action=Del&Id="&rs("Id")&"'}"">删除</a>]"
response.write "</td></tr>"
i=i+1
Num=Num-1
rs.movenext
loop
end if
rs.close

end if
%>
       </table>
    </td></tr>
    </table>

</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td height="25" align="right" class="td"><%SiteBottom%></td></tr></table>
</body>
</html>