⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_news.asp

📁 能进行网上购物的需求
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★                                                                          ★
'☆                    56770网络商城V2.3多语言版                             ☆
'★                                                                          ★
'☆  版权所有: 56770.com                                                     ☆
'★                                                                          ★
'☆  程序制作: 56770网络 小寒 MoGui                                          ☆
'★            email:admin@56770.com                                         ★
'☆            QQ:88464758                                                   ☆
'★                                                                          ★
'☆            [主页地址]http://www.56770.com                                ☆
'★            [支持论坛]http://bbs.56770.com/                               ★
'☆                                                                          ☆
'★  其他产品：                                                              ★
'☆            [56770MM写真系统]            [56770行业信息网]                ☆ 
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<%
if session("admin_name")="" then
        response.write"<SCRIPT language=JavaScript>alert('请重新登陆！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
%>
<%set rs=server.createobject("adodb.recordset")
'添加
if request("action")="add" then
        set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_news", conn, 1, 3
rs.addnew
rs("subject")=trim(request("subject"))
rs("message")=trim(request("message"))
rs("subject_ename")=request("subject_ename")
rs("message_fname")=request("message_fname")
rs("subject_fname")=trim(request("subject_fname"))
rs("message_ename")=request("message_ename")
rs("newstype")=trim(request("newstype"))
rs("idate")=now()
rs.update
rs.close
'修改成功返回
url="admin_newslist.asp?a=list"
response.write "<br><br><br><center><font size=-1>成功添加,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
end if%>
<%
if request("action")="addn" then
Response.Write("<script>alert("" 很抱歉，程序版本为试用版 \n\n 您无法对数据库进行操作，如您需要请您购买商业版本 \n\n *****感谢您对我们的支持，我们会继续努力***** \n\n QQ：88464758 联系电话：0451-89575990 \n\n为中国电子商务发展助力！-- 56770.com"");history.back();</script>")
Response.end
end if
if request("action")="del" then
Response.Write("<script>alert("" 很抱歉，程序版本为试用版 \n\n 您无法对数据库进行操作，如您需要请您购买商业版本 \n\n *****感谢您对我们的支持，我们会继续努力***** \n\n QQ：88464758 联系电话：0451-89575990 \n\n为中国电子商务发展助力！-- 56770.com"");history.back();</script>")
Response.end
end if
if request("action")="modi" then
Response.Write("<script>alert("" 很抱歉，程序版本为试用版 \n\n 您无法对数据库进行操作，如您需要请您购买商业版本 \n\n *****感谢您对我们的支持，我们会继续努力***** \n\n QQ：88464758 联系电话：0451-89575990 \n\n为中国电子商务发展助力！-- 56770.com"");history.back();</script>")
Response.end
end if
%>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr bgcolor="#FFCC33">
<td height="27" background="images/admin_bg_1.gif" bgcolor="#FFFFFF">.:: 您可以在这里进行帮助信息的相关操作</td>
</tr>
</table>
<%if request("a")="add" then%>
<table width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF" cellpadding="3">
<form method="post" action="admin_news.asp?action=add" name="add">
<tr>
<td background="images/admin_bg_1.gif" height="25" align="center" colspan="2">
<font color="#FFFFFF">发布帮助信息请选择相应栏目</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="28%">
<div align="center">主题：</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="72%">
简体<input type="text" name="subject" value="" size=30>
<br>繁体<input type="text" name="subject_ename" value="" size=30>
<br>英文<input type="text" name="subject_fname" value="" size=30>
	<font color="#FF0000">*</font>栏目： 
         <%
set rs=server.createobject("ADODB.Recordset")
        sql = "select * from 56770_newstype"
        rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			response.write "请先添加栏目。"
		else
		%>
 <select name="newstype">
        <option selected value="<%=rs("type_id")%>"><%=trim(rs("newstype"))%></option>
          <%
        	rs.movenext
		    do while not rs.eof
			%>
          <option value="<%=rs("type_id")%>"><%=trim(rs("newstype"))%></option>
          <%
		        rs.movenext
    	    loop
		end if
        rs.close
			%>
        </select></td>
</tr>

<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="28%">
<div align="center">信息内容：</div>
</td>
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" width="72%">
<textarea name="message" cols="60" rows="8"></textarea>
<br>繁体中文<br>
<textarea name="message_fname" cols="60" rows="8"></textarea>
<br>英文<br>
<textarea name="message_ename" cols="60" rows="8"></textarea>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td bordercolor="#FFFFFF" bgcolor="#D6DFF7" colspan="2">
<div align="center"><font color=red>支持html语法</font>
<input type="submit" name="Submit" value="确 定">
<input type="reset" name="Submit" value="取 消">
</div>
</td>
</tr>
</form>
</table>
<%end if
if request("a")="list" then%>
<table border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" width="100%" align="center">
<tr>
<td height="22" bgcolor="#6699CC" width="25%">简体中文</td>
<td height="22" bgcolor="#6699CC" width="25%">繁体中文</td>
<td height="22" bgcolor="#6699CC" width="25%">英文</td>
<td colspan="4" bgcolor="#6699CC">操作</td>
</tr>
<%
dim rscsort
set rs=server.CreateObject("adodb.recordset")
rs.open "Select * From 56770_newstype", conn, 1, 3
do while not rs.eof
%>
<tr bgcolor="#B0CBE6">
<td height="22" width="25%"><%=rs("newstype")%></td>
<td height="22" width="25%"><%=rs("newstype_fname")%></td>
<td height="22" width="25%"><%=rs("newstype_ename")%></td>
<td width="13%"><a href="admin_news.asp?type_id=<%=rs("type_id")%>&action=del">删除</a></td>
<td width="12%"><a href="admin_news.asp?type_id=<%=rs("type_id")%>&a=modi">修改</a></td>
</tr>
<%
set rscsort=nothing
rs.movenext
loop
rs.close
set rs=nothing
%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
<form name="addn" method="post" action="admin_news.asp">
<tr bgcolor="#B0CBE6">
<td align="right" width="60">栏目:</td>
<td>
简体<input type="text" size="15" name="addnewstype" class="form">
繁体<input type="text" size="15" name="newstype_fname" class="form">
英文<input type="text" size="15" name="newstype_ename" class="form">
</td>
<td colspan="2" align="center" bgcolor="#B0CBE6">
<input type="submit" name="Submit" value="添加帮助信息栏目">
<input type="hidden" name="action" value="addn">
</td>
</tr>
</form>
</table>
<%end if%>
<%if request("a")="del" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="180">
<tr bgcolor="#FFCC33">
<td colspan="2" bgcolor="#6699CC">删除一级类</td>
</tr>
<form name="delnewstype" method="post" action="admin_news.asp">
<%
if request("delnewstype")<>"" then
        %>
<tr bgcolor="#B0CBE6">
<td align="right" width="60">删除栏目:</td>
<td>
<input type="text" size="10" name="delnewstype" class="form" value="<%=request("delnewstype")%>">
</td>
</tr>
<%else%> <%end if%>
<tr bgcolor="#FFFF99">
<td colspan="2" align="center" bgcolor="#B0CBE6">
<input type="submit" name="Submit2" value="删 除">
<input type="hidden" name="action" value="del">
</td>
</tr>
</form>
</table>
<%end if%>

<%if request("a")="modi" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="80%">
<tr bgcolor="#6699CC">
<td colspan="2" height="25">修改帮助信息栏目</td>
</tr>
<form name="modinewstype" method="post" action="admin_news.asp?type_id=<%=request("type_id")%>">
<%
sql= "select * from 56770_newstype where type_id="&request("type_id")&""
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
newstype=rs("newstype")
newstype_fname=rs("newstype_fname")
newstype_ename=rs("newstype_ename")
rs.close
set rs=nothing
%>
<tr bgcolor="#B0CBE6">
<td>
简体<input type="text" name="newstype" class="form" size="10" value="<%=newstype%>">
繁体<input type="text" name="newstype_fname" class="form" size="10" value="<%=newstype_fname%>">
英文<input type="text" name="newstype_ename" class="form" size="10" value="<%=newstype_ename%>">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td colspan="2" align="center">
<input type="submit" name="Submit22" value="修 改">
<input type="hidden" name="action" value="modi">
</td>
</tr>
</form>
</table>
<%end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -