急急急急急急！
加我Q~~传你艾恩德无组件上传~458012374
试试这个，无组件上传，里面有好几种的http://www.asp300.com/View/10/28639.html
百度搜索一下“化境无组件上传”或者“eWebEditor在线编辑器”
用ACCESS数据库的
<!--#include file="check.asp" -->
<!--#include file=conn.asp-->
<%
If Request.querystring("act")="del" then
set rs=server.createobject("ADODB.recordset")
id=Request.form("id")
sql="select * from pic where id="&id
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "sbc-pic.asp?xiangmuID="&request.QueryString("xiangmuID")
End if
If Request.querystring("act")="add" then
set rs=server.createobject("ADODB.recordset")
sql="select * from pic"
rs.open sql,conn,1,3
Rs.AddNew
rs("url")=trim(request.Form("pic1"))
rs("xiangmuID")=request.querystring("xiangmuID")
rs.update
rs.close
set rs=nothing
response.redirect "sbc-pic.asp?xiangmuID="&request.QueryString("xiangmuID")
End if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Ty
我找了一个伪静态代码，如下：
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
