asp单页更新

最新推荐文章于 2024-09-26 22:19:17 发布

原创最新推荐文章于 2024-09-26 22:19:17 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #server #stylesheet #input #action #javascript

ASP 专栏收录该内容

24 篇文章

订阅专栏

该博客展示了使用ASP实现服务范围修改的代码。包含用户检查、数据库连接，通过表单提交修改服务范围数据，提交后更新数据库记录，同时使用JavaScript弹出修改成功提示，还涉及表单元素及隐藏字段的设置。

<link href="../css/default.css" rel="stylesheet" type="text/css">

<%
if request("action")="modify" then
'提交后取值页面
Dim sContent1, i

For i = 1 To Request.Form("content1").Count
sContent1 = sContent1 & Request.Form("content1")(i)
Next

id=trim(request("id"))

set rs1=server.CreateObject("ADODB.recordset")
rs1.Open "select * from [server] where id=" & id & " ",conn,1,3
    rs1("server_area")=sContent1
    rs1.update
    %>
<script language="javascript">
alert("修改成功!");
</script>

<%
end if

set rs=server.CreateObject("ADODB.recordset")
rs.Open "select top 1 * from server",conn,1,3
%>
<table border="1" cellpadding="5" cellspacing="0" bgcolor="#E4E4E4" bordercolor="#FFFFFF">
<form method="POST" action="server_area.asp" name="frmAnnounce">
  <tr>
   <td align="center" colspan="2" height="30"><b>服务范围</b></td>
  </tr>
  <tr>
   <td align="center" width="150">服务范围：</td>
   <td>
   <INPUT type="hidden" name="content1" value='<%=rs("server_area")%>'>
<IFRAME ID="eWebEditor1" src="../WebEditor/ewebeditor.asp?id=content1&style=s_coolblue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>

   </td>
  </tr>
  <tr>
   <td align="center" width="150" valign="top"></td>
   <td><input type="hidden" name="id" value="<%=rs("id")%>">
   <input type="hidden" value="modify" name="action">
   <input type="submit" value="修改" >
      
   <input type="reset" value="重置" name="B2"></td>
  </tr>
</form>
</table>
<%
sub closedatabase
end sub
%>

</body>
</html>