📄 answertxt.asp

📁 我的小网站个人利用业余时间设计的

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="conn.asp"-->
<%
     dim txtid,editsql,ftitle
     txtid=request("PageId")
     ftitle=request("title")
     active=request("textanswer")
     
     if ftitle="" or active="" then
     showmessage"标题，和修改内容不能为空！"
     end if

     editsql="update xinqing set title='"&ftitle&"',content='"&active&"' where PageId='"&txtid&"'"
     set trexe=conn.execute(editsql)
     set conn=nothing
	 'response.redirect"bbs.asp"
         'end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改小说</title>
</head>

<body background="image/back.gif">
<div align=center>
<table>
<tr>
<td width="200">
修改成功
<a href="update_xinqing1.asp">返回修改页</a>
<%
  sub showmessage(message)
  response.write"<center><h3>"&message&"</h3>"
  response.write"<a href=updatexinqing.asp>返回上一页!</a></center>"
  response.end
  end sub
%></td>
</tr>
</table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -