%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% If request.Form("submit") = "确认添加" Then If request.Form("mj_photo_name") = "" Then Call infoback("相册名称不能为空!") End If If request.Form("mj_uploadfile") = "" Then Call infoback("图片不能为空!") End If If request.Form("mj_photo_content") = "" Then Call infoback("详细介绍不能为空!") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_photo" rs.Open sql, conn, 1, 3 rs.addnew rs("mj_photo_name") = request.Form("mj_photo_name") rs("mj_photo_order") = rs("ID")*10 rs("mj_photo_category") = request.Form("mj_photo_category") rs("mj_uploadfile") = request.Form("mj_uploadfile") rs("mj_photo_content") = request.Form("mj_photo_content") rs.update Call close_rs Call close_conn Call infohref("相册添加成功!点击确认继续添加!", "mj_photo_add.asp") End If %>
|
||||||||||||||
|
||||||||||||||