📄 link_add.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]"
  rs.open strsql,conn,1,3
  rs.addnew()
  rs("title")=title
  rs("body")=body
  rs.update
  rs.close
  set rs=nothing
  call msgbox("添加成功","GoUrl","link_list.asp")
  response.End()
End IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站添加</title>
</head>
<body><!--#include file="top.asp"-->
<form action="" onSubmit=submitonce(this) method="post" name="frmAnnounce">
  <table width="100%" border="1" bordercolorlight="#FFFFFF" bordercolor="#8DD082">
    <tr> 
      <td width="93"><font color="#008000">网站标题:</font></td>
      <td><input name="title" type="text" id="title"></td>
    </tr>

    <tr> 
      <td width="93"><font color="#008000">网站地址</font></td>
      <td><input name="body" type="text" id="body" value="http://"></td>
    </tr>
    <tr> 
      <td width="93">　</td>
      <td><input type="submit" name="Submit" value="提交">
        <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form><!--#include file="copy.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -