add_save.asp

来自「北京商务网」· ASP 代码 · 共 22 行

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/check.asp"-->
<!--#include file="../inc/welcomtext.asp"-->
<%
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
if request("method")="modified" then 
if request("changetype")="创建" then
rst.open "select * from mod where id="+request("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>" 
%>