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

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
Call AdminRight("AddAdmin",3,session("admin"))
Call AdminRight("ModiAdmin",3,session("admin"))

dim pid
pid=Trim(Request("pid"))

if request("addnew")<>"" then
 rs.open "select * from cnk_pna",conn,1,3
 rs.addnew
 rs("pid")=pid
 rs("Lang")=Trim(Request.Form("language"))
 rs("title")=Trim(Request.Form("title"))
 rs("url")=Trim(Request.Form("url"))
 rs.update
 rs.Close
end if

if request("delid")<>"" then conn.execute("delete from cnk_pna where id="&request("delid"))
%>
<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" src="inc/cnkgl.js"></script>
</head>

<body>
<div class="cnkbox">
 <% If pid<>"" Then %>
 <div class="title">添加产品相关链接</div>
 <div class="content" align="center">
   <table width="100%" border="0" cellspacing="1">
     <form action="" method="post" name="form2" onSubmit="return validata_form()">
       <tr bgcolor="#f0f0f0">
         <td align="right">语言::</td>
         <td>
		 <% If Lang=0 or Lang=2 Then %>
		 <label for="yy0"><input name="language" type="radio" id="yy0" value="0" checked>
          中文</label>
		  <% End If %>
		  <% If Lang=1 or Lang=2 Then %>
		  <label for="yy1"><input type="radio" name="language" value="1" id="yy1" <% If Lang=1 Then Response.Write("checked")%>>
          英文</label>
		  <% End If %>
		  </td>
       </tr>
       <tr bgcolor="#f0f0f0">
         <td align="right">标题:</td>
         <td><input name="title" type="text" class="input" size="30" maxlength="50"></td>
       </tr>
       <tr bgcolor="#f0f0f0">
         <td align="right">链接地址:</td>
         <td><input name="url" type="text" class="input" value="http://" size="30" maxlength="255"></td>
       </tr>
       <tr bgcolor="#f0f0f0">
         <td align="right"><input name="addnew" type="hidden" id="addnew" value="1">
            <input name="pid" type="hidden" id="pid" value="<%= pid %>" /></td>
         <td><input type="submit" name="Submit2" value="增加">         </td>
       </tr>
     </form>
   </table>
 </div>
 <% End If %>
  <div class="title">管理产品新闻链接</div>
 <div class="content" align="center">
   <table width="100%" border="0" cellspacing="1">
     <tr bgcolor="#f0f0f0">
       <td width="24%" align="center"><strong>产品名称</strong></td>
       <td width="9%" align="center"><strong>新闻语言</strong></td>
       <td width="52%" align="center"><strong>新闻标题</strong></td>
       <td width="15%" align="center"><strong>删除</strong></td>
     </tr>
     <% 
	 sql="select cnk_pna.*,cnk_products.product_name,cnk_products.classid from cnk_pna,cnk_products where cnk_pna.pid=cnk_products.id"
	 if pid<>"" then sql=sql&" and cnk_pna.pid="&pid
	 rs.open sql,conn,1,1 
	do while not rs.eof%>
       <tr bgcolor="#f0f0f0">
         <td><a href="product.asp?id=<%= rs("pid") %>&classid=<%= rs("classid") %>&action=modi"><%= rs("product_name") %></a></td>
         <td align="center"><% If rs("Lang")=0 Then Response.Write("中文") Else Response.Write("英文")%>&nbsp;</td>
         <td><a href="<%= rs("url") %>" target="_blank"><%= rs("title") %></a></td>
         <td align="center"><a href="?pid=<%= pid %>&delid=<%= rs("id") %>" onClick="return cfdel();">删除</a></td>
       </tr>
     <% rs.movenext
		  loop
		  rs.close %>
   </table>
 </div>
</div>

</body>
</html>
<% 
conn.close 
set conn=nothing 
%>