addshuoming.asp

文件上传功能。本例中包括文件上载有组件和无组件两种上载方法。

<!--#include file="connpic.asp"-->
<%shuoming=request.form("shuoming")
name=request.form("name")
if name="" or shuoming=""  then 
 response.write "请填上你的名字和说明"
else
set rs=server.createobject("adodb.recordset")
  

sql="select * from shuoming"
rs.open sql,conn,3,3
 
rs.addnew
rs("shuoming")=shuoming
rs("name")=name
rs("date")=date()
rs.update

response.redirect "upphoto.asp"
end if
%>