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

📄 bd_modify.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<% checkauthority %>
<%
dim bdid
bdid=request("bdid")
if not bdid="" then
	bdid=cint(bdid)
else
	response.redirect "../error.asp?emsg=这个版面不存在。"
	response.end
end if
dim isok
isok=request.form("isok")
if isok="yes" then
	updatebd bdid
else
	showform bdid
end if
conn.close
set conn=nothing
%>



<% sub updatebd(bdid)
dim bdname
dim bddetail
dim bdsort
bdname=request.form("bdname")
bddetail=request.form("bddetail")
bdlogo=request.form("bdlogo")
bdsort=cbyte(request.form("bdsort"))
dim sql
sql="update board set bdname='"&bdname&"', bdsort="&bdsort&", bdlogo='"&bdlogo&"', bddetail='"&bddetail&"' where bdid="&bdid
conn.execute(sql)
%>
<script language="javascript">alert("成功修改版面资料!");window.location.href="index.asp";</script>
<%
response.end
end sub %>



<% sub showform(bdid) %>
<html>
<head>
<title>3鸟设社[色彩连视版]T恤论坛管理-版面修改</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../blue.css" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
</head>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="760" height="653" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#FFFFFF"> 
    <td width="20" height="13"></td>
      
    <td width="719" height="13"></td>
      
    <td width="21" height="13"></td>
    </tr>
    <tr>
        <td width="25" height="455" background="images/bg.gif"><p>&nbsp;</p>
      <p>&nbsp;</p></td>
        
    <td width="719" height="455" valign="top"><table width="720" border="0" cellspacing="0">
        <tr> 
          <td height="49"> <div align="center"><a href=".."><br>
              <br>
              <br>
              <!-- TemplateBeginEditable name="atthere" --> [<a href="..">返回论坛</a>] 
              [<a href="index.asp">返回管理首页</a>] <!-- TemplateEndEditable --></a><br>
              <br>
            </div></td>
        </tr>
        <tr> 
          <td width="62">&nbsp; </td>
        </tr>
        <tr> 
          <td><div align="center">
              <table width="66%" height="73" border="0" align="center" cellpadding="0" cellspacing="3">
                <tr align="left" valign="top"> 
                  <td width="97%"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td width="11%" height="20" align="left" valign="middle"><div align="right"><img src="../images/frame_forum2.gif" align="absmiddle"></div></td>
                        <td width="89%" align="left" valign="middle" background="../images/frame_bg.gif"><font class="subtitle">论坛版面管理</font></td>
                      </tr>
                    </table>
                    <form name="updatefrm" action="bd_modify.asp" method="post">
                      <table width="469" border="0" cellspacing="1" cellpadding="0">
                        <%
					dim rs
					dim sql
					sql="select * from board where bdid="&bdid
					set rs=conn.execute(sql)
					if rs.eof then
						response.write "当前没有任何版面."
					else
						%>
                        <tr> 
                          <td width="100" align="right"></td>
                          <td width="366"><img src="../<%=rs("bdlogo")%>"></td>
                        </tr>
                        <tr> 
                          <td width="100" align="right">logo地址:</td>
                          <td><input type="text" name="bdlogo" value="<%=rs("bdlogo")%>"></td>
                        </tr>
                        <tr> 
                          <td width="100" align="right">版面名字:</td>
                          <td><input type="text" name="bdname" value="<%=rs("bdname")%>"></td>
                        </tr>
                        <tr> 
                          <td width="100" align="right">版面介绍:</td>
                          <td><textarea name="bddetail" cols="25" rows="4"><%=rs("bddetail")%></textarea></td>
                        </tr>
                        <tr> 
                          <td wdith="100" align="right">排序依据:</td>
                          <td><input type="text" size="3" maxlength="3" name="bdsort" value="<%=rs("bdsort")%>"></td>
                        </tr>
                        <tr> 
                          <td></td>
                          <td align="left"> <input type="hidden" name="isok" value="yes"> 
                            <input type="hidden" name="bdid" value="<%=rs("bdid")%>"> 
                            <input type="button" name="backbtn" value=" 取消 " onclick="location.href='index.asp';"> 
                            <input type="submit" name="submitbtn" value=" 修改 "> 
                          </td>
                        </tr>
                        <%
					end if
					rs.close
					set rs=nothing
				%>
                      </table>
                    </form></td>
                  <td width="3%"> </td>
                </tr>
              </table>
            </div></td>
        </tr>
      </table></td>
        
    <td width="25" height="451" background="images/bg.gif"></td>
    </tr>
    <tr>
      <td height="12" colspan="3"><div align="center">
        <table width="760" border="0" align="center" cellspacing="0">
          <tr> 
            <td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]T恤论论坛 
                www.3niao.com</div></td>
          </tr>
          <tr> 
            <td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif">&nbsp;</td>
            <td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
          </tr>
        </table>
      </div></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<% end sub %>

⌨️ 快捷键说明

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