www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/Image.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
'Call CnkAdminRight(11)
Dim Action
Action=Trim(Request("Action"))
Dim id,paixu,imagename,LargeImage,title,title_en,content,content_en,recommend,ReadRight
id=Trim(Request("id"))
paixu=Trim(Request.Form("paixu"))
if paixu<>"" then paixu=Clng(paixu)
imagename=Trim(Request.Form("imagename"))
LargeImage=Trim(Request.Form("LargeImage"))
title=Trim(Request.Form("title"))
title_en=Trim(Request.Form("title_en"))
content=Trim(Request.Form("content"))
content_en=Trim(Request.Form("content_en"))
recommend=Trim(Request.Form("recommend"))
ReadRight=Trim(Request.Form("ReadRight"))
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript" src="inc/cnkgl.js"></script>
<script>
<!--
function validata_form() {
<% If Lang=0 or Lang=2 Then Response.Write("document.form1.Content.value=editor.HtmlEdit.document.body.innerHTML+'"&cnklable&"';")%>
<% If Lang=1 or Lang=2 Then Response.Write("document.form1.Content_en.value=editor_en.HtmlEdit.document.body.innerHTML+'"&cnklable&"'; ")%>
return true;
}
-->
</script>
</head>
<body>
<%
select case Action
case "saveadd"
Call SaveAdd()
case "savemodi"
Call SaveModi()
case "del"
Call AdminRight("DelAdmin",ChannelID,session("admin"))
Call del()
case ""
%>
<form method="post" action="Image.asp" name="form1" onSubmit="return validata_form();">
<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="paixu" class="input" id="paixu" value="0" maxlength="5">
只能填数字
</li>
</ul>
<ul>
<li class="t1">小图片(地址/文件名)：</li>
<li class="t2">
<input name="imagename" class="input" id="imagename" value="http://" size=40 maxlength="100">
<input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=imagename&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
4:3比例图片，小图显示160*120像素，如超出比例，将自动切割取左上部<br />
</li>
</ul>
<ul>
<li class="t1">大图片(地址/文件名)：</li>
<li class="t2">
<input name="LargeImage" class="input" id="LargeImage" value="http://" size=40 maxlength="100">
<input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=LargeImage&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
大图片宽度不宜超过1000像素<br />
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文标题：</li>
<li class="t2">
<input name="title" class="input" id="title" size=40 maxlength="50">
< 50 个字符 </li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文标题：</li>
<li class="t2">
<input name="title_en" class="input" id="title_en" size=40 maxlength="50">
< 50 个字符 </li>
</ul>
<% End If %>
<ul>
<li class="t1">重点推荐：</li>
<li class="t2">
<input type="radio" name="recommend" id="recommend1" value="0" checked />
<label for="recommend1">否</label>
<input type="radio" name="recommend" value="1" id="recommend2" />
<label for="recommend2">是</label>
</li>
</ul>
<ul>
<li class="t1">浏览权限：</li>
<li class="t2">
<input name="ReadRight" type="radio" id="ReadRight1" value="0" checked />
<label for="ReadRight1">所有用户</label>
<input type="radio" name="ReadRight" value="1" id="ReadRight2" />
<label for="ReadRight2">注册用户</label>
<input type="radio" name="ReadRight" value="2" id="ReadRight3" />
<label for="ReadRight3">VIP用户</label>
<!--input type="radio" name="ReadRight" value="3" id="ReadRight4" />
<label for="ReadRight4">代理商</label-->
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文内容：</li>
<li class="t2">
<font color="#FF0000">·换行请按Shift+Enter
·另起一段请按Enter
·支持UBB标签<br>
</font>
<textarea name="Content" style="display:none"></textarea>
<iframe ID="editor" src="editor.asp" frameborder=1 scrolling=no width="600" height="405"></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
·支持UBB标签<br>
</font>
<textarea name="Content_en" style="display:none"></textarea>
<iframe id="editor_en" src="editor.asp" frameborder=1 scrolling=no width="600" height="405"></iframe>
</li>
</ul>
<% End If %>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="saveadd" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" <% If isAdminRight("AddAdmin",ChannelID,session("admin"))<>1 Then Response.Write("disabled=""disabled""")%> />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<div class="cnkbox">
<div class="title"><% =GetChannelContent(ChannelID,"ChannelName")%> 图片</div>
<div class="content" align="center">
<% sql="select * from cnk_images where ChannelID="&ChannelID&" order by paixu"
rs.open sql,conn,1,1
do while not rs.eof
if instr(rs("imagename"),"http://")>0 then imagename=rs("imagename") else imagename="../upfiles/"&rs("imagename") %>
<div class="starbox">
<div class="imageschannel"> <img src="<%= imagename %>" border="0" alt="<%= rs("title") %>"></a></div>
<%If Lang=0 or Lang=2 Then Response.Write(rs("title"))
If Lang=1 or Lang=2 Then Response.Write(" "&rs("title_en")) %>
<br />
<a href="?id=<%= rs("id") %>&Action=del&ChannelID=<%= ChannelID %>" onClick="return cfdel();">[删除]</a> <a href="?id=<%= rs("id") %>&Action=modi&ChannelID=<%= ChannelID %>">[修改]</a> </div>
<% rs.movenext
loop
rs.close%>
<div class="clearboth"></div>
</div>
</div>
<% Case "modi"
Call AdminRight("ModiAdmin",ChannelID,session("admin"))
rs.open "select * from cnk_images where id="&id,conn,1,1 %>
<form method="post" action="Image.asp" name="form1" onSubmit="return validata_form();">
<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="paixu" class="input" id="paixu" value="<%= rs("paixu") %>" maxlength="5">
只能填数字
</li>
</ul>
<ul>
<li class="t1">小图片(地址/文件名)：</li>
<li class="t2">
<input name="imagename" class="input" id="imagename" value="<%= rs("imagename") %>" size=40 maxlength="100">
<input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=imagename&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
120*90像素，即4:3比例，图片高度如超出比例，将自动切割取上部<br />
</li>
</ul>
<ul>
<li class="t1">大图片(地址/文件名)：</li>
<li class="t2">
<input name="LargeImage" class="input" id="LargeImage" value="<%= rs("LargeImage") %>" size=40 maxlength="100">
<input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=LargeImage&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
大图片宽度不宜超过1000像素<br />
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文标题：</li>
<li class="t2">
<input name="title" class="input" id="title" value="<%= rs("title") %>" size=40 maxlength="50">
< 50 个字符 </li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文标题：</li>
<li class="t2">
<input name="title_en" class="input" id="title_en" value="<%= rs("title_en") %>" size=40 maxlength="50">
< 50 个字符 </li>
</ul>
<% End If %>
<ul>
<li class="t1">重点推荐：</li>
<li class="t2">
<input type="radio" name="recommend" id="recommend1" value="0" <% If rs("recommend")=0 Then Response.Write("checked=""checked""")%> />
<label for="recommend1">否</label>
<input type="radio" name="recommend" value="1" id="recommend2" <% If rs("recommend")=1 Then Response.Write("checked=""checked""")%> />
<label for="recommend2">是</label>
</li>
</ul>
<ul>
<li class="t1">浏览权限：</li>
<li class="t2">
<input name="ReadRight" type="radio" value="0" id="ReadRight1" <% If rs("ReadRight")=0 Then Response.Write("checked=""checked""")%> />
<label for="ReadRight1">所有用户</label>
<input type="radio" name="ReadRight" value="1" id="ReadRight2" <% If rs("ReadRight")=1 Then Response.Write("checked=""checked""")%> />
<label for="ReadRight2">注册用户</label>
<input type="radio" name="ReadRight" value="2" id="ReadRight3" <% If rs("ReadRight")=2 Then Response.Write("checked=""checked""")%> />
<label for="ReadRight3">VIP用户</label>
<!--input type="radio" name="ReadRight" value="3" id="ReadRight4" />
<label for="ReadRight4">代理商</label-->
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文内容：</li>
<li class="t2">
<font color="#FF0000">·换行请按Shift+Enter
·另起一段请按Enter
·支持UBB标签<br>
</font>
<textarea name="Content" style="display:none"></textarea>
<iframe ID="editor" src="editor.asp?table=cnk_images&zd=Content&id=<%= rs("id") %>" frameborder=1 scrolling=no width="600" height="405"></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
·支持UBB标签<br>
</font>
<textarea name="Content_en" style="display:none"></textarea>
<iframe ID="editor_en" src="editor.asp?table=cnk_images&zd=Content_en&id=<%= rs("id") %>" frameborder=1 scrolling=no width="600" height="405"></iframe>
</li>
</ul>
<% End If %>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="savemodi" />
<input name="id" type="hidden" id="id" value="<%= id %>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<%
End Select
Call Foot()
Call Closedb()
Sub SaveAdd()
conn.execute("insert into cnk_images (ChannelID,paixu,imagename,LargeImage,title,title_en,content,content_en,recommend,ReadRight) values ("&ChannelID&","&paixu&",'"&imagename&"','"&LargeImage&"','"&title&"','"&title_en&"','"&content&"','"&content_en&"',"&recommend&","&ReadRight&")")
Call alertmsg_url("添加成功","Image.asp?ChannelID="&ChannelID)
End Sub
Sub SaveModi()
sql="update cnk_images set"
sql=sql&" ChannelID="&ChannelID&",imagename='"&imagename&"',paixu="&paixu&",LargeImage='"&LargeImage&"',title='"&title&"',title_en='"&title_en&"',content='"&content&"',content_en='"&content_en&"',recommend="&recommend&",ReadRight="&ReadRight&" where id="&id
conn.execute(sql)
Call alertmsg_url("修改成功","Image.asp?ChannelID="&ChannelID)
End Sub
Sub del()
conn.execute("delete from cnk_images where id="&id)
Call alertmsg_url("删除成功","Image.asp?ChannelID="&ChannelID)
End Sub
%>