<%@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 %>
添加图片
 
 
当前位置:添加图片
在这里,您可以添加新的图片
 
    添加图片
相片名称: 必填
所属分类:
图片: 必填 请输入图片地址,或直接上传。为了打开速度,图片尽量不要太大!
详细介绍: <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "fckeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "300" oFCKeditor.Value = "" oFCKeditor.Create "mj_photo_content" %>