changeadd.asp

来自「实现一定上传功能」· ASP 代码 · 共 18 行

<!--#include file="articleconn.asp"-->
 <%
dim rs,tsql
dim rst
	set rst=server.CreateObject("ADODB.RecordSet")
	  
if request("method")="added"  then 
rst.open "select * from type",conn,3,2
rst.addnew
rst("type")=request("ItemName2")
rst("typeNAME")=request("TableName")
			rst.update
			rst.close
		end if 
Set fso = CreateObject("Scripting.FileSystemObject")
Fso.Createfolder(server.mappath(request("TableName")))
Set fso = nothing
response.redirect "change.asp"%>