📄 link_edit.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/FormChk.asp"-->
<!--#include file="../Inc/msgbox.asp"-->
<%
IF Trim(Request("Submit"))<>Empty Then
  Dim StrSql,Rs,title,body
  title=Request.Form("title")
 body=HtmlEncode2(Encodestr(request.Form("body")))
  set rs=server.CreateObject("adodb.recordset")
  strsql="select * from [links] where id="&request.form("id")
  rs.open strsql,conn,1,3  
  rs("title")=title
  rs("body")=body 
   rs.update
  rs.close
  set rs=nothing
  call msgbox("修改成功","GoUrl","link_List.asp")
  response.End()
End IF

dim strsq1,id,rs1
id=request.QueryString("id")
strsq1="select * from [links] where id="&id
set rs1=conn.execute(strsq1)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改网站</title>
<LINK href="../style.css" type=text/css rel=stylesheet>
</head>
<body><!--#include file="top.asp"-->
<table width="600" border="0">
  <tr> 
    
    <td align="center">

   

      <form   method="post" action="" name="input" id="input">
<input name="id" type="hidden" id="id" value="<%=id%>">
        <table width="98%" border="1">
          <tr> 
            <td align="right">网站标题：</td>
            <td><input name="title" type="text" id="title" value="<%=rs1("title")%>"></td>
          </tr>

          <tr> 
            <td align="right">网站内容：</td>
            <td><input name="body" type="text" id="title" value="<%=rs1("body")%>"></td>
          </tr>
  
          <tr> 
            <td colspan="2" align="center">
               <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置"> 
              </td>
          </tr>
        </table>
      </form>

      </td>
  </tr>
</table><!--#include file="copy.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -