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

📄 modify.asp

📁 java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.
💻 ASP
字号:
<% option explicit%>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能:公告管理--公告修改
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim bul_id,rs
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck
bul_id=getForm("id")
set rs=oConn.Execute("Select *  from t_BulletionCon where B_Id="&bul_id)
%>
<HTML>
<HEAD>
<title>电子商城</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="/inc/css/pub.css" TYPE="TEXT/CSS">
<SCRIPT LANGUAGE="JavaScript" SRC="/inc/js/shop.js">
</SCRIPT>
</HEAD>

<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include virtual="/admin/inc/all_top.asp" -->
<!--#include virtual="/admin/inc/all_first_top.asp" -->
<!--#include virtual="/admin/inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
  <TR>
    <TD COLSPAN=3><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0></TD>
  </TR>
  <TR>
    <TD WIDTH=170 ALIGN=right VALIGN=top>	
	  <!--#include virtual="/admin/inc/default_left.asp" -->
	</TD>
	<TD WIDTH=15><IMG SRC="/images/dot.gif" WIDTH="15" HEIGHT="1" BORDER=0 ></TD>
	<TD VALIGN=top>
	  <TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
	    <TR>
		  <TD VALIGN="TOP"> 
		    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
			  <TR>
			    <TD><B><FONT COLOR="#0033CC">公告管理</FONT></B><IMG SRC="/images/arrow.gif" BORDER=0></TD>
				<TD ALIGN="right"><A HREF="javascript:this.location.reload();">刷新</A></TD>
			  </TR>
			  <TR BGCOLOR="#000000">
			    <TD COLSPAN="2"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></TD>
			  </TR>
			</TABLE><br>
			<%if not rs.eof and not rs.bof then%>
			<form method=post action="SaveM.asp">
			<input type="hidden" name="bid" value="<%=RS("B_Id")%>">
		    <TABLE WIDTH="98%" BORDER="0" CELLSPACING="1" CELLPADDING="5" ALIGN="CENTER">
              <TR BGCOLOR="#558BFF"> 
                <TD CLASS="txt" ALIGN="right" ><FONT COLOR="#FFFFFF">公告标题</FONT></TD>
                <TD class=v9 bgcolor=#E6E6E6 ><input type="text" name="txtTitle" size="66" value="<%=RS("B_title")%>"></TD>
              </TR>
              <TR  BGCOLOR="#558BFF"> 
                <TD CLASS="txt" ALIGN="right"> <FONT COLOR="#FFFFFF">公告内容</FONT></TD>
                <TD class=v9 bgcolor=#E6E6E6  ALIGN="left"><textarea name="txtCon" rows="8" cols="58"> <%=RS("B_Con")%></textarea></TD>
              </TR>
			  <TR ALIGN="CENTER" BGCOLOR="#e1e1e1"> 
                <TD CLASS="txt" colspan="2"><input type="submit" value="提交">&nbsp;<input type="reset" value="取消"></TD>
              </TR>
            </TABLE>			
			</form>
			<%end if%>
            <BR>
            <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
		     <TR>
                <TD BACKGROUND="/images/gotop_bg.gif"><A HREF="#top"><IMG SRC="/images/gotop.gif" BORDER="0"></A></TD>
              </TR>
		    </TABLE>
		  </TD>
	    </TR>
	  </TABLE>
	</TD>
   </TR>
</TABLE>
<BR>
<!--#include virtual="/inc/default_end.asp" -->
<BR>
</BODY>
</HTML>
<%
call DB_DisConnect
%>

⌨️ 快捷键说明

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