resource_mdy.asp

一个很好的asp cms管理系统

          <option value="1">加粗</option>
          <option value="2">加[图]</option>
          <option value="3">加红</option>
          <option value="4">加蓝</option>
          <option value="5">倾斜</option>
          <option value="-1">清除样式</option>
          <option value="-2">默认样式</option>
          <option value="-3">隐藏工具框</option>
        </select>
        </span> </td>
    </tr>
    <tr>
      <td align="right">关 键 字:</td>
      <td width="89%"><input name="keyword" type="text" class="input_text"  onFocus="PopTool_Show(this, document.all.keyword_tool)" size="60">
        <span id="keyword_tool" style="position:absolute; visibility: hidden;"> 
	  <label>　多个关键字用空格分隔</label>
        </span> </td>
    </tr>
    <tr id="trNewsContentEdit"> 
      <td height="22" colspan="2" valign="top" class="BarTitle"><font color="#0000FF">资源内容</font>: 
        <span style="cursor:hand" Title="编辑区加高" onClick="tdNewsContent.style.height=1000;">[加高]</span>&nbsp;<span style="cursor:hand" Title="编辑区默认高度" onClick="tdNewsContent.style.height=400;">[默认]</span>&nbsp;<span style="cursor:hand" Title="编辑区减低" onClick="tdNewsContent.style.height=200;">[减低]</span>&nbsp;<span style="cursor:hand" Id="ShowHiddenHtmlEdit" Title="显示/隐藏" onClick="if(trNewsContent.style.display==''){trNewsContent.style.display='none';ShowHiddenHtmlEdit.innerHTML='[显示]'}else{trNewsContent.style.display='';ShowHiddenHtmlEdit.innerHTML='[隐藏]'}">[隐藏] 
        </span></td>
    </tr>
    <tr id="trNewsContent"> 
      <td height="400" colspan="2" valign="top" bgcolor="buttonface" id="tdNewsContent"><input type="hidden" name="NewsContent" value=""><iframe ID="Editor" src="Lib/Editor/Editor.asp?Id=NewsContent" frameborder="0" scrolling="no" width="100%" HEIGHT="100%"></iframe></td>
    </tr>
    <tr> 
      <td align="right">图片:</td>
      <td><input name="small_img" type="text" class="input_text" id="small_img" tabindex="4" size="60"><input name="Submit4" type="button" class="input_button" onClick="OpenWin('FileSysWin', 'FileSys_Select.asp?openertype=1', 750, 500).focus();" value="..."></td>
    </tr>
    <tr> 
      <td width="11%" align="right" valign="top">其它:</td>
      <td valign="top" width="89%"> <table border="0" cellpadding="2" cellspacing="0">
         <tr> 
            <td colspan="4" align="right"> <div align="left">推荐频道:
                <input name="shareidstr" type="text" class="input_text" id="shareidstr" tabindex="13" onFocus="PopTool_Show(this, null)" size="26"> 
                <input name="Submit103" type="button" class="input_button" onClick="my_RCSelector_Open1()" value="...">
            </div></td>
          </tr>
          <tr> 
            <td colspan="4" align="right"> <div align="left">来　源: 
                <input name="resfrom" type="text" class="input_text" tabindex="8" onFocus="PopTool_Show(this, document.all.resfrom_tool)" size="26"> 
                <span id="resfrom_tool" style="position:absolute; visibility: hidden;"> 
                <select name="resfrom_default_list" onChange="OptionFetchInto(this, form1.resfrom)" class="select_list">
                  <%From_OptionList()%>
                  </select>
                </span></div></td>
          </tr>
          <tr> 
            <td align="right">分　页:</td>
            <td>属于 
              <input name="pages_head" type="text" class="input_text" id="pages_head" value="0" size="3">
              领头的分页组第 
              <input name="pages_position" type="text" class="input_text" id="pages_position" value="0" size="3">
              页<br> </td>
            <td align="right">点　击:</td>
            <td><input name="total_hit" type="text" class="input_text" id="total_hit" tabindex="10" onFocus="PopTool_Show(this, null)" value="0" size="8">            </td>
          </tr>
        </table></td>
    </tr>
    <tr>
      <td align="right" valign="top">跳 链 接:</td>
      <td><input name="go_url" type="text" class="input_text" id="go_url" tabindex="4" onFocus="PopTool_Show(this, null)" size="60"></td>
    </tr>
    <tr> 
      <td align="right" valign="top" width="11%">&nbsp;</td>
      <td valign="top" width="89%"> <input name="Submit" type="submit" class="input_button" tabindex="11" value="提  交"> 
        <input name="Submit2" type="reset" class="input_button" tabindex="12" value="重置"> 
        <input name="Submit323" type="button" class="input_button" onClick="window.history.back()" value="返回"> 
        <input name="class_id" type="hidden" id="class_id" value="<%=ClassId%>"> 
        <input name="Work" type="hidden" id="Work" value="AddReco"></td>
    </tr>
  </table>
</form>
<script language="javascript1.2" src="inc/editor_config.js"></script>
<%
    Db.Close()
End Function

Function MdyReco()
    Db.Open()

    Dim Sql, Rs, Id
        Id = FLib.SafeSql(Request("Id"))
        Sql = "SELECT TOP 1 * FROM view_resource_all WHERE id=" & Id
    Set Rs = Db.ExeCute(Sql)

    If Rs.Eof And Rs.Bof Then
        Rs.Close
        Set Rs = Nothing
        FLib.Alert "记录不存在", "BACK", 0
        Response.End
    End If

	If Not FLib.chkPope_AboutTheClass(Rs("class_id"), "modify") Then
		FLib.Alert "你无法在此频道进行修改操作", "BACK", 0
		Response.End
	End If
%>
<form name="form1" method="post" action="Resource_Process.asp" onSubmit="return chkForm_AddReco(this)">
  <table width="100%" border="0" cellpadding="2" cellspacing="0">
    <tr> 
      <td width="11%" align="right" valign="top">频道:</td>
      <td width="89%"><a id="class_title" href="javascript:my_RCSelector_Open();void(0);"><%=Rs("class_title") & "&nbsp;[id:" & Rs("class_id") & "]"%></a></td>
    </tr>
    <tr> 
      <td align="right">标　　题:</td>
      <td width="89%"><input name="title" type="text" class="input_text" tabindex="2" onFocus="PopTool_Show(this, document.all.title_tool)" value="<%=Server.HtmlEncode(Rs("title"))%>" size="60"> 
        <span id="title_tool" style="position:absolute; visibility: hidden;"> 
        <select name="select" onChange="FormatTitle(this, form1.title, '')" class="select_list">
          <option selected>-- 修饰 --</option>
          <option value="1">加粗</option>
          <option value="2">加[图]</option>
          <option value="3">加红</option>
          <option value="4">加蓝</option>
          <option value="5">倾斜</option>
          <option value="-1">清除样式</option>
          <option value="-2">默认样式</option>
          <option value="-3">隐藏工具框</option>
        </select>
        </span> </td>
    </tr>
    <tr> 
      <td width="11%" align="right" valign="top">关 键 字:</td>
      <td width="89%"><input name="keyword" type="text" class="input_text"  onFocus="PopTool_Show(this, document.all.keyword_tool)" value="<%=Server.HtmlEncode(Rs("keyword"))%>" size="60">
        <span id="keyword_tool" style="position:absolute; visibility: hidden;"> 
	  <label>　多个关键字用空格分隔</label>
        </span> </td>
    </tr>
    <tr id="trNewsContentEdit"> 
      <td height="22" colspan="2" valign="top" class="BarTitle"><font color="#0000FF">资源内容</font>: 
        <span style="cursor:hand" Title="编辑区加高" onClick="tdNewsContent.style.height=1000;">[加高]</span>&nbsp;<span style="cursor:hand" Title="编辑区默认高度" onClick="tdNewsContent.style.height=400;">[默认]</span>&nbsp;<span style="cursor:hand" Title="编辑区减低" onClick="tdNewsContent.style.height=200;">[减低]</span>&nbsp;<span style="cursor:hand" Id="ShowHiddenHtmlEdit" Title="显示/隐藏" onClick="if(trNewsContent.style.display==''){trNewsContent.style.display='none';ShowHiddenHtmlEdit.innerHTML='[显示]'}else{trNewsContent.style.display='';ShowHiddenHtmlEdit.innerHTML='[隐藏]'}">[隐藏] 
        </span></td>
    </tr>
    <tr id="trNewsContent"> 
      <td height="400" colspan="2" valign="top" bgcolor="buttonface" id="tdNewsContent"><input type="hidden" name="NewsContent" value="<%=Server.HtmlEncode(Rs("content"))%>"><iframe ID="Editor" src="Lib/Editor/Editor.asp?Id=NewsContent" frameborder="0" scrolling="no" width="100%" HEIGHT="100%"></iframe></td>
    </tr>
    <tr> 
      <td align="right">图片:</td>
      <td><input name="small_img" type="text" class="input_text" id="small_img" tabindex="4" value="<%=Server.HtmlEncode(Rs("small_img"))%>" size="60"><input name="Submit4" type="button" class="input_button" onClick="OpenWin('FileSysWin', 'FileSys_Select.asp?openertype=1', 750, 500).focus();" value="..."></td>
    </tr>
    <tr> 
      <td width="11%" align="right" valign="top">其它:</td>
      <td valign="top" width="89%"> <table border="0" cellpadding="2" cellspacing="0">
         <tr> 
            <td colspan="4" align="right"> <div align="left">
<%
	if Rs("shareid") = 0 then
%>
			推荐频道:
                <input name="shareidstr" type="text" class="input_text" id="shareidstr" tabindex="13" onFocus="PopTool_Show(this, null)" value="<%=Server.HtmlEncode(Rs("shareidstr"))%>" size="26"> 
                <input name="Submit103" type="button" class="input_button" onClick="my_RCSelector_Open1()" value="...">
<%
	end if
	if Rs("shareid") <> 0 then
		dim shareralechk
		if Rs("sharerale") = 0 then
			shareralechk=""
		else
			shareralechk=" checked"
		end if
%>
                取消与原始数据关联
                <input name="sharerale" type="checkbox" class="input_text" value="1"<%=shareralechk%>>
<%
	end if
%>
            </div></td>
          </tr>
          <tr> 
            <td colspan="4" align="right"> <div align="left">来　源: 
                <input name="resfrom" type="text" class="input_text" tabindex="8" onFocus="PopTool_Show(this, document.all.resfrom_tool)" value="<%=Server.HtmlEncode(Rs("resfrom"))%>" size="26"> 
                <span id="resfrom_tool" style="position:absolute; visibility: hidden;"> 
                <select name="resfrom_default_list" onChange="OptionFetchInto(this, form1.resfrom)" class="select_list">
                  <%From_OptionList()%>
                  </select>
                </span></div></td>
          </tr>
          <tr> 
            <td align="right">分　页:</td>
            <td>在 
              <input name="pages_head" type="text" class="input_text" id="pages_head" value="<%=Rs("pages_head")%>" size="3" >
              领头分页组 
              <input name="pages_position" type="text" class="input_text" id="pages_position" value="<%=Rs("pages_position")%>" size="3" >
              页</td>
            <td align="right">点　击:</td>
            <td><input name="total_hit" type="text" class="input_text" id="total_hit" tabindex="10" onFocus="PopTool_Show(this, null)" value="<%=getResource_Total_Hit(Id)%>" size="8">            </td>
          </tr>
        </table></td>
    </tr>
    <tr>
      <td align="right" valign="top">跳 链 接:</td>
      <td><input name="go_url" type="text" class="input_text" id="go_url" tabindex="4" onFocus="PopTool_Show(this, null)" value="<%=Server.HtmlEncode(Rs("go_url"))%>" size="60"></td>
    </tr>
    <tr> 
      <td align="right" valign="top" width="11%">&nbsp;</td>
      <td valign="top" width="89%"> <input name="Submit" type="submit" class="input_button" tabindex="11" value="提  交"> 
        <input name="Submit2" type="reset" class="input_button" tabindex="12" value="重置"> 
        <input name="Submit3232" type="button" class="input_button" onClick="window.history.back()" value="返回"> 
        <input name="class_id" type="hidden" id="class_id" value="<%=Rs("class_id")%>"> 
        <input name="pages_count" type="hidden" id="pages_count" value="<%=Rs("pages_count")%>">	
        <input name="Work" type="hidden" id="Work" value="MdyReco"> <input name="res_id" type="hidden" id="res_id" value="<%=Id%>"></td>
    </tr>
  </table>
</form>
<script language="javascript1.2" src="inc/editor_config.js"></script>
<%
    Rs.Close
    Set Rs = Nothing
End Function
%>
</body>
</html>
<%
Function Author_OptionList()
    Dim Sql, Rs
        Sql = "SELECT * FROM author_list WHERE creator='" & Admin.UserName & "' ORDER BY show_order DESC"
    Set Rs = Db.ExeCute(Sql)
    Response.Write "    <option selected>-- 作者 --</option>" & vbCrLf
    While Not Rs.Eof
        Response.Write "    <option value=""" & Server.HtmlEncode(Rs("title")) & """>" & Server.HtmlEncode(Rs("title")) & "</option>" & vbCrlf
        Rs.MoveNext
    Wend
    Rs.Close
    Set Rs = Nothing
End Function

Function From_OptionList()
    Dim Sql, Rs
        Sql = "SELECT * FROM from_list WHERE creator='" & Admin.UserName & "' ORDER BY show_order DESC"
    Set Rs = Db.ExeCute(Sql)
    Response.Write "    <option selected>-- 来源 --</option>" & vbCrLf
    While Not Rs.Eof
        Response.Write "    <option value=""" & Server.HtmlEncode(Rs("content")) & """>" & Server.HtmlEncode(Rs("title")) & "</option>" & vbCrlf
        Rs.MoveNext
    Wend
    Rs.Close
    Set Rs = Nothing
End Function

Function KeyWord_OptionList()
    Dim Sql, Rs
        Sql = "SELECT * FROM keyword_list WHERE creator='" & Admin.UserName & "' ORDER BY show_order DESC"
    Set Rs = Db.ExeCute(Sql)
    Response.Write "    <option selected>-- 关键词 --</option>" & vbCrLf
    While Not Rs.Eof
        Response.Write "    <option value=""" & Server.HtmlEncode(Rs("content")) & """>" & Server.HtmlEncode(Rs("title")) & "</option>" & vbCrlf
        Rs.MoveNext
    Wend
    Rs.Close
    Set Rs = Nothing
End Function

Function getResource_Total_Hit(Id)
	Dim Sql, Rs
		Sql = "SELECT TOP 1 * FROM resource_count WHERE res_id=" & Id
    Set Rs = Db.ExeCute(Sql)
	If Rs.Eof And Rs.Bof Then
		getResource_Total_Hit = 0
	Else
		getResource_Total_Hit = Rs("total_hit")
	End If
	Rs.Close()
	Set Rs = Nothing
End Function
%>