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

📄 readd.asp

📁 这是一个关于留言本的ASP程序设计,本人也是在网上找的,在这里提供大家学习用!
💻 ASP
字号:
<!--#INCLUDE FILE="odbc_connection.asp"-->
<!--#INCLUDE FILE="function.asp"-->
<!--#INCLUDE FILE="config.asp"-->
<HTML>
<head>
	<title>我的留言板</title>
	<link rel="stylesheet" href="guest.css">
	<script language="JavaScript">
	<!--
	function check_Null(){
		if (document.form1.reback.value==""){
			alert("回复不能为空!");
			return false;
		}
		if (document.form1.password.value==""){
			alert("密码不能为空!");
			return false;
		}
		return true;
	}
	// -->
	</script>
</head>
<body >
	<%
	'获取传递过来的记录编号和主题
	dim id,title
	id=Request.QueryString("id")
	title=Request.QueryString("title")
	%>
	<h2 align="center">回复</h2>
	<form method="post" action="" name="form1" onsubmit="javascript: return check_Null();">
		<table border="0" width="80%" bgcolor="#203F80" align="center">
			<tr>
				<td><font color=white>主题:</font></td>
				<td><font color=white>re:<%=request("title")%></font></td>
			</tr>
			<tr>
				<td><font color=white>内容:</font></td>
				<td><Textarea Name="reback" Rows=4 Cols=60></TextArea></td>
			</tr>
			<tr>
				<td><font color=white>回复密码:</font></td>
				<td><input type="password" name="password" size="10" value=""><font color=white>必须输入密码,才能回复。</font></td>
			</tr>
			<tr>
				<td><input type="hidden" name="id" value="<%=id%>"></td>
				<td><input TYPE="submit" value=" 提  交 " Size="20"></td>
			</tr>
		</table>
	</form>
	<%
	If Request.Form("password")=Password Then
		Dim strSql
		strSql="Update guest Set reback='" & myReplace(request("reback")) & "' where id=" & Request.Form("id")
		db.execute(strSql)
		response.redirect("index.asp")
	Else
		Response.Write "<p align='center'>请输入正确的密码"
	end if
	%>
</body>
</html>

⌨️ 快捷键说明

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