add_save.asp

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

<%@ codepage ="936" %><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/check_input.asp"-->
<%
dim rs,tsql
dim rst,id
id=request("id")
id=CheckInput(id,"i","1")
set rst=server.CreateObject("ADODB.RecordSet")
if request("method")="modified" then 
if request("changetype")="创建" then
rst.open "select * from mod where id="+id,conn,1,3
rst("typename")=request("TableName")
rst.Update
end if 
end if
rst.close
Set fso = CreateObject("Scripting.FileSystemObject")
Fso.Createfolder(server.mappath(request("TableName")))
Set fso =nothing
response.write"<SCRIPT language=JavaScript>alert('创建成功！');"
response.write"javascript:window.close();</script>" 
%>