www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > admin/recommendimg.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
Call CnkAdminRight(7)
Dim ShowLang
ShowLang=Trim(Request("ShowLang"))
if ShowLang<>"" then ShowLang=Clng(ShowLang)
Dim action
action=Trim(Request.Form("action"))
If action="add" Then
rs.open "select * from cnk_OtherImg",conn,1,3
rs.addnew
rs("image")=Trim(Request.Form("image"))
rs("url")=Trim(Request.Form("url"))
rs("title")=Trim(Request.Form("title"))
rs("Lang")=Trim(Request.Form("Language"))
rs.update
rs.close
'conn.execute("insert into cnk_OtherImg (image,url,title,Lang) values ('"&Trim(Request.Form("image"))&"','"&Trim(Request.Form("url"))&"','"&Trim(Request.Form("title"))&"',"&Trim(Request.Form("Language"))&")")
End If
If Request.QueryString("del")<>"" Then
conn.execute("delete from cnk_OtherImg where tvid="&Request.QueryString("del"))
End If
%>
<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() {
validity=true;
//clipboardData.setData('Text',document.form1.wjcontent.value);
//document.form1.content.value=editor.HtmlEdit.document.body.innerHTML;
if (!check_empty(document.form1.username.value))
{ validity=false;
alert('请输入用户名!');
document.form1.username.focus();
return validity; }
/*
if (!check_empty(document.form1.url.value))
{ validity=false;
alert('请填上链接地址');
document.form1.url.focus();
return validity; }
*/
}
//-->
</script>
</head>
<body>
<form method="post" action="" name="form1" onSubmit="return validata_form();">
<div class="cnkbox">
<div class="title">添加首页推荐产品图片</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">选择语言：</li>
<li class="t2">
<% If Lang=0 or Lang=2 Then %>
<input type="radio" name="Language" value="0" id="Lang1" checked="checked" />
<label for="Lang1">中文</label>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<input type="radio" name="Language" value="1" id="Lang2" />
<label for="Lang2">EngLish</label>
<% End If %>
</li>
</ul>
<ul>
<li class="t1">图片地址：</li>
<li class="t2">
<input name="image" class="input" id="image" value="http://" size=40 maxlength="100">
120*90像素，即4:3比例，图片高度如超出比例，将自动切割取上部<br />
</li>
</ul>
<ul>
<li class="t1">链接地址：</li>
<li class="t2">
<input name="url" class="input" id="url" value="http://" size=40 maxlength="100">
< 100个字符 </li>
</ul>
<ul>
<li class="t1">标题文字：</li>
<li class="t2">
<input name="title" class="input" id="title" size=40 maxlength="50">
< 50 个字符 </li>
</ul>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="add" />
<input name="ShowLang" type="hidden" id="ShowLang" value="<%= ShowLang %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<div class="cnkbox">
<div class="title">首页推荐产品图片</div>
<div class="content" align="center">
<a href="recommendimg.asp">显示全部</a> | <a href="?ShowLang=0">只显示中文</a> | <a href="?ShowLang=1">只显示英文</a>
<% sql="select * from cnk_OtherImg"
if ShowLang<>"" then sql=sql&" where Lang="&ShowLang
sql=sql&" order by tvid desc"
rs.open sql,conn,1,1
do while not rs.eof %>
<div class="starbox">
<div class="homeimage_img"> <a href="<%= rs("url") %>" target="_blank"><img src="<%= rs("image") %>" width="120" border="0" alt="<%= rs("title") %>"></a></div>
<br />
<%= rs("title") %>
<br />
<a href="?del=<%= rs("tvid") %>" onClick="return cfdel();">[删除]</a> <br />
<%= rs("updatetime") %></div>
<% rs.movenext
loop %>
<div class="clearboth"></div>
</div>
</div>
</body>
</html>
<% rs.close
set rs=nothing
conn.close
set conn=nothing
%>