开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
NewsEdit.asp
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：10k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

NewsEdit.asp：源码内容
  1. <HTML xmlns="http://www.w3.org/1999/xhtml">
  2. <HEAD>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  4. <TITLE>编辑新闻</TITLE>
  5. <link rel="stylesheet" href="Images/CssAdmin.css">
  6. <script language="javascript" src="../skweb/JS/Admin.js"></script>
  7. </HEAD>
  8. <!--#include file="../skweb/Const.asp" -->
  9. <!--#include file="../skweb/ConnSiteData.asp" -->
  10. <!-- #include file="../fckeditor/fckeditor.asp" -->
  11. <!--#include file="CheckAdmin.asp"-->
  12. <%
  13. if Instr(session("AdminPurview"),"|23,")=0 then 
  14.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  15.   response.end
  16. end if
  17. '========判断是否具有管理权限
  18. %>
  19. <BODY>
  20. <% 
  21. dim Result
  22. Result=request.QueryString("Result")
  23. dim ID,NewsName,ViewFlag,SortName,SortID,SortPath,VoticeFlag,BigPic
  24. dim GroupID,GroupIdName,Exclusive,NoticeFlag,Source,Content
  25. ID=request.QueryString("ID")
  26. call NewsEdit() 
  27. %>
  28.  
  29. <table width="100%" border="0" cellpadding="3"  >
  30.   <form name="editForm" method="post" action="NewsEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
  31.   <tr>
  32.     <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" id=editNews idth="100%">
  34.    <tr>
  35.         <td height="29" colspan="2" background="Images/menutitle.gif" bgcolor="#FFFFFF"><table width="470" border="0" cellspacing="0" cellpadding="0">
  36.           <tr>
  37.             <td width="121"><strong><font color="#000000" size="2">新闻管理</font></strong></td>
  38.             <td width="87"><a href="NewsEdit.asp?Result=Add"><img src="Images/x1.gif" width="52" height="17" border="0"></a></td>
  39.             <td width="87"><a href="NewsList.asp"><img src="Images/xlm.gif" width="52" height="17" border="0"></a></td>
  40.             <td width="87"><a href="NewsSort.asp"><img src="Images/xx.gif" width="52" height="17" border="0"></a></td>
  41.             <td width="88">&nbsp;</td>
  42.           </tr>
  43.         </table></td>
  44.       </tr>
  45.       <tr>
  46.         <td height="24" align="right" bgcolor="#FFFFFF">新闻名称：</td>
  47.         <td bgcolor="#FFFFFF"><input name="NewsName" type="text" class="textfield" id="NewsName" style="WIDTH: 240;" value="<%=NewsName%>" maxlength="100">&nbsp;*&nbsp;不少于3个字符
  48.           <input name="ViewFlag" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" <%if ViewFlag then response.write ("checked")%>>&nbsp;显示
  49.           <input name="NoticeFlag" type="checkbox" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if NoticeFlag then response.write ("checked")%>>
  50.           &nbsp;公告</td>
  51.       </tr>
  52.       <tr>
  53.         <td height="24" align="right" bgcolor="#FFFFFF">所属类别：</td>
  54.         <td bgcolor="#FFFFFF"><input name="SortID" type="text" class="textfield" id="SortID" style="WIDTH: 40;background-color:#EBF2F9;" value="<%=SortID%>" readonly>&nbsp;<input name="SortPath" type="text" class="textfield" id="SortPath" style="WIDTH: 80;background-color:#EBF2F9;" value="<%=SortPath%>" readonly>&nbsp;<input name="SortName" type="text" class="textfield" id="SortName" value="<%=SortName%>" style="WIDTH: 140;background-color:#EBF2F9;" readonly>&nbsp;<a href="javaScript:OpenScript('SelectSort.asp?Result=News',500,500,'')"><img src="Images/Select.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  55.       </tr>
  56.       <tr>
  57.         <td height="24" align="right" bgcolor="#FFFFFF">新闻来源：</td>
  58.         <td bgcolor="#FFFFFF"><input name="Source" type="text" class="textfield" style="WIDTH: 240;" value="<%=Source%>" maxlength="100"></td>
  59.       </tr>
  60.       <tr>
  61.         <td height="24" align="right" bgcolor="#FFFFFF">查看权限：</td>
  62.         <td bgcolor="#FFFFFF"><select name="GroupID" class="textfield">
  63.           <% call SelectGroup() %>
  64.           </select>
  65.           <input name="Exclusive" type="radio" value="&gt;="  <%if Exclusive="" or Exclusive=">=" then response.write ("checked")%>> 隶属<input type="radio"  <%if Exclusive="=" then response.write ("checked")%> name="Exclusive" value="=">专属&nbsp;[隶属：权限值≥可查看，专属：权限值＝可查看]</td>
  66.       </tr>
  67.   <tr>
  68.         <td height="24" align="right" bgcolor="#FFFFFF">新闻主图：</td>
  69.         <td bgcolor="#FFFFFF"><input name="BigPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=BigPic%>" maxlength="100">&nbsp;<a href="javaScript:OpenScript('UpFileForm.asp?Result=BigPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  70.       </tr>
  71.       <tr>
  72.         <td height="24" align="right" bgcolor="#FFFFFF">首页标记：</td>
  73.         <td bgcolor="#FFFFFF"><input name="VoticeFlag" type="checkbox" id="VoticeFlag" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if VoticeFlag then response.write ("checked")%>>
  74. &nbsp;&nbsp;首页标记要在首页显示FLASH图片必须选上</td>
  75.       </tr>
  76.    <tr>
  77.         <td height="24" align="right" bgcolor="#FFFFFF">备注说明：</td>
  78.         <td bgcolor="#FFFFFF"><font color="red">上传文件必须是JPEG格式,宽为360PX 高180px　以首页合协处理</font></td>
  79.       </tr>
  80.       <tr>
  81.         <td height="24" align="right" valign="top" bgcolor="#FFFFFF">信息内容：<br>
  82.         <td bgcolor="#FFFFFF"><%
  83. Dim oFCKeditor
  84. Set oFCKeditor = New FCKeditor
  85. oFCKeditor.BasePath = "../fckeditor/" 
  86. oFCKeditor.ToolbarSet = "Default" 
  87. oFCKeditor.Width = "100%" 
  88. oFCKeditor.Height = "400" 
  89. oFCKeditor.Value = content
  90. oFCKeditor.Create "Content" 
  91. %></td>
  92.       </tr>
  93.       <tr>
  94.         <td height="30" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  95.         <td valign="bottom" bgcolor="#FFFFFF"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  96.       </tr>
  97.     </table></td>
  98.   </tr>
  99.   </form>
  100. </table>
  101. </BODY>
  102. </HTML>
  103. <%
  104. sub NewsEdit()
  105.   dim Action,rsRepeat,rs,sql
  106.   Action=request.QueryString("Action")
  107.   if Action="SaveEdit" then '保存编辑产品信息
  108.     set rs = server.createobject("adodb.recordset")
  109.     if len(trim(request.Form("NewsName")))<3 then
  110.       response.write ("<script language=javascript> alert('新闻名称为必填项目！');history.back(-1);</script>")
  111.       response.end
  112.     end if
  113.     if Result="Add" then '创建产品信息
  114.   sql="select * from sk_News"
  115.       rs.open sql,conn,1,3
  116.       rs.addnew
  117.       rs("NewsName")=trim(Request.Form("NewsName"))
  118.   if Request.Form("ViewFlag")=1 then
  119.         rs("ViewFlag")=Request.Form("ViewFlag")
  120.   else
  121.         rs("ViewFlag")=0
  122.   end if
  123.   if Request.Form("SortID")="" and Request.Form("SortPath")="" then
  124.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  125.         response.end
  126.   else
  127.     rs("SortID")=Request.Form("SortID")
  128. rs("SortPath")=Request.Form("SortPath")
  129.   end if
  130.   rs("Source")=trim(Request.Form("Source"))
  131.   if Request.Form("NoticeFlag")=1 then
  132.         rs("NoticeFlag")=Request.Form("NoticeFlag")
  133.   else
  134.         rs("NoticeFlag")=0
  135.   end if
  136.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  137.   rs("GroupID")=GroupIdName(0)
  138.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  139.      rs("BigPic")=trim(Request.Form("BigPic"))
  140.   if Request.Form("VoticeFlag")=1 then
  141.         rs("VoticeFlag")=Request.Form("VoticeFlag")
  142.   else
  143.         rs("VoticeFlag")=0
  144.   end if
  145.   rs("Content")=trim(Request.Form("Content"))
  146.   rs("AddTime")=now()
  147. end if  
  148. if Result="Modify" then '修改产品信息
  149.       sql="select * from sk_News where ID="&ID
  150.       rs.open sql,conn,1,3
  151.       rs("NewsName")=trim(Request.Form("NewsName"))
  152.   if Request.Form("ViewFlag")=1 then
  153.         rs("ViewFlag")=Request.Form("ViewFlag")
  154.   else
  155.         rs("ViewFlag")=0
  156.   end if
  157.   if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then
  158.     rs("SortID")=Request.Form("SortID")
  159. rs("SortPath")=Request.Form("SortPath")
  160.   else
  161.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  162.         response.end
  163.   end if
  164.   rs("Source")=trim(Request.Form("Source"))
  165.   if Request.Form("NoticeFlag")=1 then
  166.         rs("NoticeFlag")=Request.Form("NoticeFlag")
  167.   else
  168.         rs("NoticeFlag")=0
  169.   end if
  170.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  171.   rs("GroupID")=GroupIdName(0)
  172.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  173.   rs("BigPic")=trim(Request.Form("BigPic"))
  174.   if Request.Form("VoticeFlag")=1 then
  175.         rs("VoticeFlag")=Request.Form("VoticeFlag")
  176.   else
  177.         rs("VoticeFlag")=0
  178.   end if
  179.   rs("Content")=trim(Request.Form("Content"))
  180. end if
  181. rs.update
  182. rs.close
  183.     set rs=nothing 
  184.      Response.Redirect("Tips/news.asp")
  185.   else '提取产品信息
  186. if Result="Modify" then
  187.       set rs = server.createobject("adodb.recordset")
  188.       sql="select * from sk_News where ID="& ID
  189.       rs.open sql,conn,1,1
  190.       if rs.bof and rs.eof then
  191.         response.write ("数据库读取记录出错！")
  192.         response.end
  193.       end if
  194.   NewsName=rs("NewsName")
  195.   ViewFlag=rs("ViewFlag")
  196.   SortName=SortText(rs("SortID"))
  197.   SortID=rs("SortID")
  198.   SortPath=rs("SortPath")
  199.   Source=rs("Source")
  200.   NoticeFlag=rs("NoticeFlag")
  201.   GroupID=rs("GroupID")
  202.   Exclusive=rs("Exclusive")
  203.   BigPic=rs("BigPic")
  204.   VoticeFlag=rs("VoticeFlag")
  205.       Content=rs("Content")
  206.   rs.close
  207.       set rs=nothing 
  208.     end if
  209.   end if
  210. end sub
  211. %>
  212. <% 
  213. sub SelectGroup()
  214.   dim rs,sql
  215.   set rs = server.createobject("adodb.recordset")
  216.   sql="select GroupID,GroupName from sk_MemGroup"
  217.   rs.open sql,conn,1,1
  218.   if rs.bof and rs.eof then
  219.     response.write("未设组别")
  220.   end if
  221.   while not rs.eof
  222.     response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupName")&"'")
  223.     if GroupID=rs("GroupID") then response.write ("selected")
  224.     response.write(">"&rs("GroupName")&"</option>")
  225.     rs.movenext
  226.   wend
  227.   rs.close
  228.   set rs=nothing
  229. end sub
  230. %>
  231. <%
  232. '生成所属类别--------------------------
  233. Function SortText(ID)
  234.   Dim rs,sql
  235.   Set rs=server.CreateObject("adodb.recordset")
  236.   sql="Select * From sk_NewsSort where ID="&ID
  237.   rs.open sql,conn,1,1
  238.   SortText=rs("SortName")
  239.   rs.close
  240.   set rs=nothing
  241. End Function
  242. %>