savenews.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<link rel="stylesheet" type="text/css" href="../style.css">
<%
dim sql1,rs1,typeid,typename1
typeid=request("typeid")
sql1="select type from hyxxtype where typeid="&typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("type")

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from hyxx",conn,3,2
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs("nfrom")=request("nfrom")
rs("selectpic")=request("selectpic")
rs("typeid")=request("typeid")
rs("typename")=typename1
rs("tjnews")=request("tj")
rs("picurl")=request("upfile")
rs.update
rs.close
set rs=nothing
conn.close
response.write "<br>"+"信息添加成功，请<a href=default.asp><font color=#ff000>继续</font></a>其他操作。"
%>