addtopic.asp

来自「实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用」· ASP 代码 · 共 24 行

<!-- #include file="..\auctionlib.asp" -->
<!-- #include file="admconfig.asp" -->
<%
NewTopic = Request.Form("topicadd")


If IsLoggedOn Then
	Call DoPageHeader
	Call OpenDBConn
	Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
	sSQL = ""
	sSQL = sSQL & "INSERT INTO Categories (CategoryName) VALUES (" & SQLStr(NewTopic) & ")" 
	GobjConnect.Execute(sSQL)
			Response.Write("<CENTER><BR>目录已经添加成功<BR>")
	Call DoPageFooter
	Call CloseDBConn
Else
	Response.Redirect "adminlogin.asp"
End If


%>