www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/common.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
'Call CnkAdminRight(1)

If Trim(Request.Form("action"))="modi" Then 
dim content,content_en,image,align
content=Request.Form("content")
'content=ubbcode(replace(Content,strSiteUrl,""))
content=replace(content,"'","""")
content_en=Request.Form("content_en")
'content_en=ubbcode(replace(Content_en,strSiteUrl,""))
content_en=replace(content_en,"'","""")
image=Trim(Request.Form("image"))
align=Request.Form("align")

rs.open "select * from cnk_company_content where id="&Request("id"),conn,1,3
rs("content")=content
rs("content_en")=content_en
rs("image")=image
rs("align")=align
rs.update
rs.Close
End If

rs.open "select id,image,align from cnk_company_content where ChannelID="&ChannelID,conn,1,1	
Call Head()
 %>
<script language="javascript">
function  save_onclick()
{
  <% If Lang=0 or Lang=2  Then Response.Write("document.form1.Content.value=editor.HtmlEdit.document.body.innerHTML;")%>
  <% If Lang=1 or Lang=2  Then Response.Write("document.form1.Content_en.value=editor_en.HtmlEdit.document.body.innerHTML; ")%>
  return true;
}
</script>
<body>
<form name="form1" method="post" action="" onSubmit="return save_onclick()">
  <div class="cnkbox">
    <div class="title"><%= GetChannelContent(ChannelID,"ChannelName") %></div>
    <div class="content">
      <div id="list">
        <ul>
          <li class="t1">首页调用图片:</li>
          <li class="t2">
            <input name="image" class="input" id="image" value="<%= rs("image") %>" size=40 maxlength="100">
            <input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=image&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
            本图片为首页调用时显示的图片,要显示更多图片请在内容里上传;用外部图片或上传均可,上传前请处理好图片尺寸大小 </li>
        </ul>
        <ul>
          <li class="t1">图片对齐:</li>
          <li class="t2">
            <label for="alignleft">
            <input name="align" type="radio" id="alignleft" value="left" <% If rs("align")="left" Then Response.Write("checked")%>>
            左对齐</label>
            <label for="alignright">
            <input type="radio" name="align" id="alignright" value="right" <% If rs("align")="right" Then Response.Write("checked")%>>
            左对齐</label>
          </li>
        </ul>
        <% If Lang=0 or Lang=2 Then %>
        <ul>
          <li class="t1">中文内容:</li>
          <li class="t2"> <font color="#FF0000">·换行请按Shift+Enter 
            ·另起一段请按Enter ·用|||设置分页符 <br />
            </font>
            <textarea name="Content" style="display:none"></textarea>
            <iframe ID="editor" src="editor.asp?table=cnk_company_content&zd=Content&id=<%= rs("id") %>" frameborder=1 scrolling=no width="600" height="405" style="display:block;"></iframe>
          </li>
        </ul>
        <% End If %>
        <% If Lang=1 or Lang=2 Then %>
        <ul>
          <li class="t1">英文内容:</li>
          <li class="t2"> <font color="#FF0000">·换行请按Shift+Enter 
            ·另起一段请按Enter ·用|||设置分页符 <br />
            </font>
            <textarea name="Content_en" style="display:none"></textarea>
            <iframe ID="editor_en" src="editor.asp?table=cnk_company_content&zd=Content_en&id=<%= rs("id") %>" frameborder=1 scrolling=no width="600" height="405"></iframe>
          </li>
        </ul>
        <% End If %>
        <ul>
          <li class="t1">&nbsp;</li>
          <li class="t2">
            <input name="id" type="hidden" id="id" value="<%=rs("id")%>" />
            <input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
            <input name="action" type="hidden" id="action" value="modi" />
            <input name="提交" type="submit" class="button" value="提交保存" <% If isAdminRight("ModiAdmin",ChannelID,session("admin"))<>1 Then Response.Write("disabled=""disabled""")%> />
            <input name="重置" type="reset" class="button" value="恢复" />
          </li>
        </ul>
      </div>
    </div>
      <div class="clearboth"></div>
    </div>
  </div>
</form>
<% If Trim(Request.Form("action"))="modi" Then 
Response.Write "<script language=javascript>alert('修改成功!');</script>"
 End If %>
<% Call Foot()
Call Closedb()%>