<!--#include file="conn.asp"-->
<!--#include FILE="images/

<%
set rs=server.createobject("adodb.recordset")
sql="select * from pic "
rs.open sql,conn,1,3
%>

<form name="form1" method="post" action="" enctype="multipart/form-data"><p>
图片：<input type=file name="file1"></p><p>   
标题:<input name="bt" type="text" id="bt"></p><p>
内容:<textarea name="nr" cols="" rows="" id="nr"></textarea></p><p>
<input type=submit name="submit" value=" 提 交 "></p>
</form>

<%
'dim bt,nr
'rs("bt")=request("bt")
'rs("nr")=request("nr")
set upload=new upload_5xsoft
set file=upload.file("file1")
kzm=right(file.filename,4)
name="img/" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&kzm
if file.fileSize>0 Then
If kzm<>".gif" And kzm<>".jpg" Then
else        
file.SaveAs Server.mappath(name)
rs.addnew
rs("name")=name
'rs("bt")=bt
'rs("bt")=nr
%>

<%   
rs.update
rs.close
set rs=nothing
conn.close
set rs=Nothing   
End If
end If
set file=nothing
set upload=Nothing
%>








<!--预览-->

<!--#include file="conn.asp"-->
<%
classid=request.querystring("classid")
For idd=1 To 10
if classid=idd then
end if
next
if classid="" then
classid="%"
end if
%>

<%
set rs=server.createobject("adodb.recordset")
if classid ="%" then
sql="select * from pic order by id desc"
else
End If
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=1    '//第页显示多少条
i=1
if mypage="" then
mypage=1
else
end if
do while not rs.eof
%>

<table width="500" border="1" cellspacing="1" cellpadding="1">
<tr><td width="112" rowspan="2"><img src="<%=rs("name")%>" /></td><td width="85" height="45">
标题：</td><td width="295"><%=rs("bt")%></td></tr><tr><td height="40">
内容：</td><td><%=rs("nr")%></td></tr></table>

<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
else
end if
sub plpage(one,two)
%>
<%end sub%>

请使用
response.write 你的东西。
response.end

记住调试方法。