标题:高手帮忙看看,标题和内容上传不到数据库????高手看看
只看楼主
ntkish
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-12-26
结帖率:0
已结贴  问题点数:20 回复次数:1 
高手帮忙看看,标题和内容上传不到数据库????高手看看
<!--#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%>
搜索更多相关主题的帖子: include images action method 数据库 
2013-12-26 10:21
ysf0181
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:55
帖 子:914
专家分:2385
注 册:2006-10-4
得分:20 
请使用
response.write 你的东西。
response.end

记住调试方法。

ASP讨论QQ群:251346273
2013-12-26 12:36



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-425708-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.744486 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved