<% dim id id=request.querystring("id") test=request.form("test") title=request.form("title") if test="" or title = "" then Response.write "各项都不能为空！请按手机返回键" Response.write "" Response.end end if pic=request.form("pic") set rs=server.createobject("adodb.recordset") sql="select * from sms" rs.open sql,conn,1,3 rs.addnew rs("classid")=id rs("test")=test rs("title")=title rs("YD_date")=now() rs.update rs.close set rs=nothing response.write "记录添加成功!" upup(pic) function upup(str) if str=1 then set rs2=server.CreateObject("adodb.recordset") sql2="select top 1 * from sms order by id desc" rs2.open sql2,conn,1,1 idd=rs2("id") Rs2.close Set Rs2=nothing response.write("因为你选择了上传图片,请上传
") response.write("

图片文件:
") end if end function %>
----------
[返回文章]
[文章分类]
[后台管理]