savearticle.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 72 行

ASP
72 行
字号 
<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="function/char.inc"-->
<%
dim listname
dim typename
dim title
dim content
dim sql
dim rs
dim filename
dim articleid
dim outfile
dim typeid
dim swebname
dim semail
dim suesrname
dim slogo
dim shomepage

swebname=htmlencode(request.form("TxTName"))
semail=htmlencode(request.form("TxtEmail"))
susername=htmlencode(request.form("username"))
slogo=htmlencode(request.form("TxtHomelogo"))
shomepage=htmlencode(request.form("TxTHomepage"))
title=htmlencode(request.form("txttitle"))
content=htmlencode(request.form("txtcontent"))
typeid=request.form("typeid")

set rs=server.createobject("adodb.recordset")
sql="select * from yqlink where (articleid is null)" 

rs.open sql,conn,1,3
rs.addnew
rs("name")=susername
rs("email")=semail
rs("webname")=swebname
rs("homepage")=shomepage
rs("homelogo")=slogo
rs("title")=title
rs("content")=content
rs("typeid")=typeid
rs("dateandtime")=date()
rs.update

articleid=rs("articleid")

rs.close
%><head>
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>



<div align="center">
  <table border="1" cellspacing="3" width="30%" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" cellpadding="0">
    <tr>
      <td width="100%" height="20"> 
        <p align="center"><font color="#FFFFFF"><b>常用网址添加成功</b></font>
      </td>
    </tr>
    <tr valign="middle" bgcolor="#AB6C00"> 
      <td width="100%"> 
        <div align="center"><br>
          是否继续加入链接？<br>
          <br>
          <a href="addarticle.asp"> 是</a>&nbsp;&nbsp; <a href="index.asp">否<br>
          </a> </div>
      </td>
    </tr>
    </table>
  <!--#include file="function/ads.inc"--></div>

savearticle.asp - 源码说明

本页面展示了「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」中的 savearticle.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与1.5相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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