newsmng.asp

来自「诚信商店系统源代码」· ASP 代码 · 共 212 行

<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
Const PageSize=18
Page=CInt(request("Page"))
if Page<=0 then Page=1
wxl=request("wxl")
int_sNewsID=request("int_sNewsID")
int_sNewsType=request("int_sNewsType")
if int_sNewsType="" then int_sNewsType=1
%>
<script language="javascript">
function confirmDel(id){
if ( confirm("你确定要删除吗？")) {
  window.location.href = "<%=UrlFile%>?wxl=del&int_sNewsType=<%=int_sNewsType%>&int_sNewsID=" + id
  }
}
</script>
<%
dim strTitle(4)
strTitle(1)="公告"
strTitle(2)="支付方式"
strTitle(3)="配送方式"
strTitle(4)="FAQ管理"


'显示已有公告列表
if wxl="" then
  ShowLookHtml

'显示增加公告的网页
elseif wxl="ShowHtml" then
  dim sql11(10)
  sql11(4)="-"
  sql11(5)="-"
  sql11(6)="-"
  sql11(7)="-"
  sql11(8)="-"
  ShowData sql11

'增加公告
elseif wxl="Add" then
  str_sNewsTitle=trim(request("str_sNewsTitle"))
  txt_sNewsContent=html(trim(request("txt_sNewsContent")))
  set sql=Server.Createobject("ADODB.Recordset")
  if int_sNewsID<>"" then
   sql.open "select * from web_ShopNews where int_sNewsID="&int_sNewsID,conn,3,2
   int_sLogType=1
  else
   int_sLogType=0
   int_sNewsID=GetID("select Max(int_sNewsID)+1 from web_ShopNews")
   sql.open "select * from web_ShopNews where int_sNewsID="&int_sNewsID,conn,3,2
   sql.AddNew
   sql("int_sNewsID")=int_sNewsID
   sql("int_sNewsType")=int_sNewsType
   sql("int_sNewsOper")=UserInfo("int_sOleUserID")
   sql("int_sNewsTime")=now
  end if
  sql("str_sNewsTitle")=str_sNewsTitle
  sql("txt_sNewsContent")=txt_sNewsContent
  sql.update
  sql.close
%>
<script language='javascript'>
  alert('<%=strTitle(int_sNewsType)%>保存成功!');
  window.location.href = "<%=UrlFile&"?int_sNewsType="&int_sNewsType&"&MenuId="&MenuId%>";
</script>
<%

'修改公告
elseif wxl="Modi" then
  Query="select * from web_ShopNews where int_sNewsID="&int_sNewsID
  set sql=conn.Execute(Query)
  ShowData sql

'删除公告
elseif wxl="del" then
  Query="delete from  web_ShopNews  where int_sNewsID="&int_sNewsID
  conn.Execute(Query)
%>
<script language='javascript'>
  alert('指定<%=strTitle(int_sNewsType)%>成功删除');
  window.location.href = "<%=UrlFile&"?int_sNewsType="&int_sNewsType&"&MenuId="&MenuId%>";
</script>
<%

elseif wxl="Show" then
   ShowContent()
end if

sub ShowData(sql)
 HtmlHead(strTitle(int_sNewsType)&"管理")
%>
<SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.str_sNewsTitle.value=="") {
        window.alert ("请输入标题!"); aa.str_sNewsTitle.focus();return false}
    if (aa.txt_sNewsContent.value=="") {
        window.alert ("请输入内容!"); aa.txt_sNewsContent.focus();return false}
     }

//-->
</SCRIPT>
<table border="1" width="650" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<form name=form1 action="<%=UrlFile%>" method="POST" onSubmit='return checkvalue();'>
<tr>                                                                                                      
    <td width="60" align="right">标&nbsp;&nbsp;&nbsp;&nbsp;题：</td>
    <td align="left"><input type='text' name='str_sNewsTitle' value='<%=sql(2)%>' size=65 maxLength="50"><font color=red>*</font></td>
</tr> 
<tr align=center>                                                                                                      
    <td width="100%" colspan=2><TEXTAREA NAME="txt_sNewsContent" ROWS="13" COLS="70"><%=UnHtml(sql(3))%></TEXTAREA></td>
</tr> 
</table>
          <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#D6D3CE">
            <tr>
              <td height="6"></td>
            </tr>
            <tr>
              <td height="2" align="center">
<%if wxl="Modi" then%>
			  <input type="submit" value="  修 改" name="B1" class="submit" style="width:60; height:25;">&nbsp;&nbsp;  
<%else%>
			  <input type="submit" value="  确 认" name="B1" class="submit" style="width:60; height:25;">&nbsp;&nbsp;  
<%end if%>
                &nbsp; <input type="reset" value="  返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back();"></td> 
            </tr>
            <tr>
              <td height="6"></td>
            </tr>
          </table>
		<input type=hidden name="wxl" value="Add">
		<input type='hidden' name='int_sNewsType' value='<%=int_sNewsType%>'>
		<input type=hidden name="int_sNewsID" value="<%=int_sNewsID%>">
	</form>
<%
HtmlEnd
end sub

'显示公告列表
sub ShowLookHtml()
  set sql2=server.createobject("ADODB.recordset")
  Query="select * from web_ShopNews where int_sNewsType="&int_sNewsType&" order by int_sNewsTime desc"
  sql2.open Query,conn,1,1
  sql2.PageSize=CLng(PageSize)
  if Page>sql2.PageCount then Page=sql2.PageCount
  if not(sql2.eof) then
    sql2.absolutepage=CLng(Page)
  end if
  PageNum=sql2.PageCount
  Rows=sql2.RecordCount

  call HtmlListHead("["&strTitle(int_sNewsType)&"列表]",sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml&int_sNewsType="&int_sNewsType&"'>新建"&strTitle(int_sNewsType)&"</a>",UrlFile&"?int_sNewsType="&int_sNewsType&"&str_mTypeID="&str_mTypeID)
%>
<TABLE class=coolTable cellSpacing=0 cellPadding=2 altRowColor="oldlace" borderStyle="2" align="center">

  <THEAD>
  <TR align=middle>
    <TD align="center">标题</TD>
	<TD align="center" width=80>发布人</TD>
	<TD align="center" width=130>发布时间</TD>
	<TD width=80 align="center">操&nbsp;&nbsp;作</TD>
  </TR>
  </THEAD>
  <TBODY>
<%for i=1 to Pagesize
   if sql2.eof then exit for
   %>
  <TR>
    <td ><%="<a href='"&UrlFile&"?wxl=Show&int_sNewsID="&sql2("int_sNewsID")&"' target=_blank>"&sql2("str_sNewsTitle")%></td>
    <TD width=80><%=GetOperName(sql2("int_sNewsOper"))%></TD>
	<td width=130><%=sql2("int_sNewsTime")%></td>
    <TD >
	 <a href=<%response.write(UrlFile&"?wxl=Modi&int_sNewsType="&int_sNewsType&"&int_sNewsID="&sql2("int_sNewsID")&"&MenuId="&MenuId)%>>修改</a>&nbsp;
     <a href=<%response.write("javascript:confirmDel('"&sql2("int_sNewsID")&"')")%>>删除</a>
    </TD>
  </TR>
<%
  sql2.movenext
  next
  if i<>18 then
  for i=i to 18
%>
   <TR>
    <td>&nbsp;</td>
    <td></td>
	<td></td>
	<td></td>
  </TR>
<%
  next
  end if
%>    
</TBODY></TABLE>
<%
 HtmlListEnd sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml&int_sNewsType="&int_sNewsType&"'>新建"&strTitle(int_sNewsType)&"</a>",UrlFile&"?int_sNewsType="&int_sNewsType&"&str_mTypeID="&str_mTypeID
 end sub

sub ShowContent()
   set sql=conn.execute("select * from web_ShopNews where int_sNewsID="&int_sNewsID)
   response.write "<html><head><title>"&sql("str_sNewsTitle")&"</title></head><body><table align=center width='95%'><tr><td>"
   response.write "<br><div align=center><font size=5><b>"&sql("str_sNewsTitle")&"</b></font></div>"
   response.write "<div align=center>("&sql("int_sNewsTime")&")</div>"
   response.write "<hr size=1 color=red align=center>"
   response.write sql("txt_sNewsContent")&"</td></tr></table>"
end sub

%>