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("英文")%> </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 %>