www.gusucode.com > 书生图片管理Asp源码程序 > code/savearticle.asp
<!--#include file="security.asp"--> <!--#include file="inc/articlechar.inc"--> <% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("tu.asp") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") %> <% if request.form("images")="" then response.write "错误提示:请输入缩图地址!" response.end end if if request.form("images1")="" then response.write "错误提示:请输入图片地址!" response.end end if %> <% images=htmlencode2(request.form("images")) images1=htmlencode2(request.form("images1")) title=htmlencode2(request.form("title")) sql="select * from learning" rs.open sql,conn,3,2 rs.addnew rs("typeid")=Request.Form("typeid") rs("images")=images rs("images1")=images1 rs("title")=title rs("dateandtime")=date() rs.update rs.close %><head> </head> <div align="center"> <table border="1" cellspacing="0" width="50%" bordercolorlight="#006cd9" bordercolordark="#FFFFFF"> <tr bgcolor="#006cd9"> <td width="100%" height="20"> <p align="center"><font color="#FFFFFF"><b>添加成功</b></font> </td> </tr> <tr> <td width="100%"> <p align="left"><br> 文件标题为:<%response.write title%></p> <p align="center">是否继续添加?<br> <br> <a href="addarticle.asp"> 是</a> <a href="manage.asp">否</a><br> <br> </p> </td> </tr> </table> </div>