update.asp

来自「与asp相关的技术　如数据库和网页设计 很有用的哦」· ASP 代码 · 共 51 行

ASP
51 行
字号 
<%
if session("user_type")<>"T" then
	response.redirect "../../../../index.asp"
end if
%>
<% response.buffer=true%>
<!--#INCLUDE FILE="../../../../system/odbc_connection.asp"-->
<% '还需要修改,直接添加好了，就不要显示原来的了%>
<HTML>
<HEAD>
	<title> 修改子论坛名 </title>
	<link rel="stylesheet" href="../../../../system/all.css">
</HEAD>

<BODY BGCOLOR="#FFFFFF">
<%
	dim sql
	sql="select * from bbs_forum where id=" & Request.QueryString("id")
	set rs=db.execute(sql)
%>
	<h2 align="center">修改子论坛名称</h2>
	<CENTER>
	<form name=form1 method=post action="">
	<TABLE border="0"  width="90%">
		</caption>
		<Tr bgcolor=#e9e9e9 align="center">
			<TD><input name="forumname" type=text  size="20" value="<%=rs("forumname")%>" >(最好字不要太多)
			<input name="id" type="hidden" value="<%=Request.QueryString("id")%>">
			</TD>
		</Tr>
	</TABLE>
	<p><input type="submit" name="submit" value="  提  交  " >&nbsp&nbsp<input type=submit name=submit value="  取  消  ">	
	</form>
	</CENTER>
	<%
		If request("submit")="  取  消  " Then
			response.redirect "index.asp"
		End If
		if trim(Request("forumname"))<>"" then
			forumname=trim(Request("forumname"))
			sql = "update bbs_forum set forumname='" & forumname & "' where id=" & Request.Form("id")
			db.Execute(Sql)
			db.close
			set db=nothing
			response.write "<script language='Jscript'> top.frames['bottom'].frames['left'].location.reload(); </script>"
			response.write "<script language='Jscript'> top.frames['bottom'].frames['main'].location.replace('index.asp?board_id=" &board_id&"');</script>"
		end if
	%>
</BODY>
</HTML>

update.asp - 源码说明

本页面展示了「与asp相关的技术　如数据库和网页设计 很有用的哦」中的 update.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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