其他小程序

开发平台：

VBScript

savearticle.asp：源码内容

							<%
if session("ifadm")<>"youarewelcome" then
  response.redirect "../hermesadm/admlogin.asp"
end if
%>
<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
dim listname
dim typename
dim title
dim content
dim sql
dim filename
dim articleid
dim outfile
title=htmlencode2(request.form("txttitle"))
content=htmlencode2(request.form("txtcontent"))
title=replace(title,"'","''")
content=replace(content,"'","''")
sql="insert into learning values('"&title&"','"&content&"',0,convert(datetime,getdate()),0)"
conn.execute(sql)
conn.close
set conn=nothing
%>
<head>
</head>
<div align="center">
  <table border="1" cellspacing="0" width="50%" bgcolor="#F0F8FF" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
    <tr>
      <td width="100%" bgcolor="#0080C0" height="20">
        <p align="center"><font color="#FFFFFF"><b>添加文章成功</b></font></td>
    </tr>
    <tr>
      <td width="100%">
        <p align="left"><br>
        其文件名为：<%response.write "article"&articleid%><br>
        文件标题为：<%response.write title%></p>
    <center>
    <p align="center">是否继续添加？<br>
    <br>
    <a href="addarticle.asp">
    是</a>&nbsp;&nbsp; <a href="manage.asp">否</a><br>
    <br>
    </p>
        </td>
    </tr>
    </table>
</div>

						