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()
%>