www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/GongGao.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="opendb.asp" --> <% Call CheckAdmin() Call CnkAdminRight(3) thispage=request("page_code") if thispage="" then thispage=1 else thispage=clng(thispage) end if if thispage<1 then thispage=1 PagePara="?tmp=" If Trim(Request.Form("Action"))="saveadd" Then sql="insert into Cnk_GongGao (content,Link,Lang)" sql=sql&" values ('"&Trim(Request.Form("content"))&"','"&Trim(Request.Form("Link"))&"',"&Trim(Request.Form("Lang"))&")" 'Response.Write(sql) conn.execute(sql) Call alertmsg_url("添加成功","GongGao.asp") End If if Request.QueryString("del")<>"" then conn.execute("delete from Cnk_GongGao where ggid="&Request.QueryString("del")) Call Head() %> <script language="javascript"> <!-- function mOvr(src,clrOver){ if (!src.contains(event.fromElement)) { //src.style.cursor = 'hand'; src.bgColor = clrOver; } } function mOut(src,clrIn) { if (!src.contains(event.toElement)) { src.style.cursor = 'default'; src.bgColor = clrIn; } } function mClk1(src,id) { window.location .href =src; } //--> </script> <script language="JavaScript"> <!-- function cform(){ if(!confirm("真的删除吗?")) return false; }//--> </script> <body> <div class="cnkbox"> <div class="title">公告管理</div> <form name="form1" method="post" action="GongGao.asp"> <div id="list"> <ul> <li class="t1">选择语言:</li> <li class="t2"> <% If Lang=0 or Lang=2 Then %> <input name="Lang" type="radio" id="lang1" value="0" checked="checked" /> <label for="lang1">中文</label> <% End If %> <% If Lang=1 or Lang=2 Then %> <input type="radio" name="Lang" value="1" id="lang2" <% If Lang=1 Then Response.Write("checked=""checked""")%> /> <label for="lang2">English</label> <% End If %> </li> </ul> <ul> <li class="t1">公告内容:</li> <li class="t2"> <input name="content" type="text" class="input" id="content" size="50" maxlength="50" /> 最多50字,如是更多的内容,请在新闻栏发布,把链接填到下面框 </li> </ul> <ul> <li class="t1">链接地址:</li> <li class="t2"> <input name="Link" type="text" class="input" id="Link" value="http://" size="50" maxlength="100" /> 无链接可不填 </li> </ul> <br> <ul> <li class="t1"><input name="Action" type="hidden" id="Action" value="saveadd" /></li> <li class="t2"> <input name="submit" type="submit" class="button" value="发布广告" /> </li> </ul> <div class="clearboth"></div> </div> </form> <div class="content"> <% Dim ipage rs.open "select * from Cnk_GongGao order by initime desc",conn,1,1 if rs.recordcount=0 then Response.Write "未有内容" Response.end else rs.pagesize=20 if thispage>rs.pagecount then thispage=rs.pagecount rs.AbsolutePage = thispage %> <table width="96%" border="0" cellpadding="3" cellspacing="1"> <tr bgcolor="#C2E0FE" align="center"> <td width="14%">发布时间</td> <td width="10%">语言</td> <td width="65%"> 内容</td> <td width="11%" align="center">删除</td> </tr> <% for ipage=1 to rs.pagesize%> <tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');"> <td align="center"><% = rs("initime")%></td> <td align="center"><% If rs("Lang")=0 Then Response.Write("中文") Else Response.Write("English")%></td> <td><% If rs("Link")<>"" and rs("Link")<>"http://" Then Response.Write("<a href="""&rs("Link")&""" target=""_blank"">"&rs("content")&"</a>") Else Response.Write(rs("content")) End If %></td> <td align="center"><a href="?del=<%=rs("ggid")%>" onClick="return cform()">删除</a></td> </tr> <%rs.movenext if rs.eof then exit for next%> </table> <table width="96%" height="21" border="0" background="images/bg-xg.gif" bgcolor="#EFEFEF"> <tr> <td width="50%"><% = GetPageList(rs.pagecount,thispage,PagePara,0) %></td> <td width="50%" align="right"> 共<strong><%=rs.recordcount%></strong> 条 <% = GetPage(rs.pagecount,thispage,PagePara,0) %></td> </tr> </table> <% rs.close set rs=nothing End If %> </div> </div> <% Call Foot() Call Closedb() %>