您所在位置：主题：用风声无组建类上传,可是老出现问题,望高手指点!万分感谢
senky
[专家分：60] 发布于 2007-06-19 17:53:00
提交不上去!
提交页如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>龙舟赛</title>
<link rel="stylesheet" href="styl.css" type="text/css">
</head>
<%
set bmrs=server.CreateObject("adodb.recordset")
sqlstr="select * from bm order by time desc"
bmrs.open sqlstr,conn,1,1
if bmrs.eof or bmrs.bof then
response.Write("暂无版面信息!")
end if
%>
<body>
<table width="780" border="0" cellpadding="0" cellspacing="0" align="center" >
<tr>
<td colspan="4" height="150"><img name="top" src="image/<%=bmrs("top")%>.jpg" width="780" height="150"></td>
</tr>
<tr>
<td colspan="4" height="2"></td>
</tr>
<tr>
<td colspan="4" height="25" bgcolor="#<%=bmrs("nacolor")%>">
<table width="780" height="25" align="center" class="f">
<tr>
<td align="center" width="110"><a href="index.asp"><%=bmrs("navigation1")%></a></td>
<td align="center" width="110"><a href="dh2.asp"><%=bmrs("navigation2")%></a></td>
<td align="center" width="110"><a href="dh3.asp"><%=bmrs("navigation3")%></a></td>
<td align="center" width="110"><a href="dh4.asp"><%=bmrs("navigation4")%></a></a></td>
<td align="center" width="110"><a href="dh5.asp"><%=bmrs("navigation5")%></a></td>
<td align="center" width="110"><a href="dh6.asp"><%=bmrs("navigation6")%></a></td>
<td align="center" width="110"><a href="http://bbs.soosn.com/"><%=bmrs("navigation7")%></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" colspan="2"><font size="+2" face="楷体_GB2312">后台设置</font></td>
</tr>
<tr>
<td colspan="2"><a class="a01" href="admin1.asp">模板设置</a></td>
</tr>
<tr>
<td colspan="2"><a class="a01" href="admin2.asp">发布信息</a></td>
</tr>
<tr>
<td colspan="2"><a class="a01" href="admin3.asp">删除信息</a></td>
</tr>
</table>
<form action="upload2" method="post" name="form" enctype="multipart/form-data">
<table align="center" width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="150" align="right">新闻标题：</td>
<td><input name="title" size="25" maxlength="30"></td>
</tr>
<tr>
<td width="150" align="right">新闻内容：</td>
<td><textarea name="content" rows="20" cols="50"></textarea></td>
</tr>
<tr>
<td align="right">图片区1图片发布：</td>
<td><input type="file" id="tp1"></td>
</tr>
<tr>
<td align="right">图片1说明：</td>
<td><textarea name="tp1sm" rows="5" cols="50"></textarea></td>
</tr>
<tr>
<td align="right">图片区2图片发布：</td>
<td><input type="file" id="tp2"></td>
</tr>
<tr>
<td align="right">图片2说明：</td>
<td><textarea name="tp2sm" rows="5" cols="50"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="发布信息"> <input type="reset" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
处理页如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp"-->
<!-- #include file="UpLoadClass.asp"-->
<%
Server.ScriptTimeOut=5000
%>
<%
dim request1
set request1=New UpLoadClass
request1.AutoSave=2
request1.MaxSize=0
request1.savepath="D:\lzj\cs\"
request1.open()
%>
<html>
<head>
<title>模板样式上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><blockquote>
<%
if request1.Save("top",1) then
response.Write("<br>页头图片=>"&request1.SavePath&request1.Form("top"))
end if
if request1.Save("news",1) then
response.Write("<br>新闻标题图片=>"&request1.SavePath&request1.Form("news"))
end if
if request1.Save("left1",1) then
response.Write("<br>广告区1图片=>"&request1.SavePath&request1.Form("left1"))
end if
if request1.Save("left2",1) then
response.Write("<br>广告区2图片=>"&request1.SavePath&request1.Form("left2"))
end if
if request1.Save("right1",1) then
response.Write("<br>广告区3图片=>"&request1.SavePath&request1.Form("right1"))
end if
if request1.Save("right2",1) then
response.Write("<br>广告区4图片=>"&request1.SavePath&request1.Form("right2"))
end if
if request1.Save("middle1",1) then
response.Write("<br>图片区1标题图片=>"&request1.SavePath&request1.Form("middle1"))
end if
if request1.Save("middle2",1) then
response.Write("<br>图片区2标题图片=>"&request1.SavePath&request1.Form("middle2"))
end if
if request1.Save("button",1) then
response.Write("<br>页脚图片=>"&request1.SavePath&request1.Form("button"))
end if
response.write "<br>[<a href=""javascript:history.back();"">返回</a>]"
%>
</blockquote></td>
</tr>
</table>
<%
dim nacolor,navigation1,navigation2,vavigation3,navigation4,navigation5,navigation6,navigation7,left1name,left2name,right1name,right2name
top,news,left1,left2,right1,right2,middle1,middle2,button
top=request1.form("top")
news=request1.form("news")
left1=request1.form("left1")
left2=request1.form("left2")
right1=request1.form("right1")
right2=request1.form("right2")
button=request1.form("button")
nacolor=trim(request.Form("nacolor"))
navigation1=trim(request.Form("navigation1"))
navigation2=trim(request.Form("navigation2"))
navigation3=trim(request.Form("navigation3"))
navigation4=trim(request.Form("navigation4"))
navigation5=trim(request.Form("navigation5"))
navigation6=trim(request.Form("navigation6"))
navigation7=trim(request.Form("navigation7"))
left1name=trim(request.Form("left1name"))
left2name=trim(request.form("left2name"))
right1name=trim(request.form("right1name"))
right2name=trim(request.Form("right2name"))
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from bm"
rs.open sqlstr,conn,1,3
rs.addnew()
rs("nacolor")=nacolor
rs("navigation1")=navigation1
rs("navigation2")=navigation2
rs("navigation3")=navigation3
rs("navigation4")=navigation4
rs("navigation5")=navigation5
rs("navigation6")=navigation6
rs("navigation7")=navigation7
rs("left1name")=left1name
rs("left2name")=left2name
rs("right1name")=right1name
rs("right2name")=right2name
rs("top")=top
rs("news")=news
rs("left1")=left1
rs("left2")=left2
rs("right1")=right1
rs("right2")=right2
rs("button")=button
rs.update
rs.close
set rs=nothing
set request1=nothing
%>
</body>
</html>
提交页如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>龙舟赛</title>
<link rel="stylesheet" href="styl.css" type="text/css">
</head>
<%
set bmrs=server.CreateObject("adodb.recordset")
sqlstr="select * from bm order by time desc"
bmrs.open sqlstr,conn,1,1
if bmrs.eof or bmrs.bof then
response.Write("暂无版面信息!")
end if
%>
<body>
<table width="780" border="0" cellpadding="0" cellspacing="0" align="center" >
<tr>
<td colspan="4" height="150"><img name="top" src="image/<%=bmrs("top")%>.jpg" width="780" height="150"></td>
</tr>
<tr>
<td colspan="4" height="2"></td>
</tr>
<tr>
<td colspan="4" height="25" bgcolor="#<%=bmrs("nacolor")%>">
<table width="780" height="25" align="center" class="f">
<tr>
<td align="center" width="110"><a href="index.asp"><%=bmrs("navigation1")%></a></td>
<td align="center" width="110"><a href="dh2.asp"><%=bmrs("navigation2")%></a></td>
<td align="center" width="110"><a href="dh3.asp"><%=bmrs("navigation3")%></a></td>
<td align="center" width="110"><a href="dh4.asp"><%=bmrs("navigation4")%></a></a></td>
<td align="center" width="110"><a href="dh5.asp"><%=bmrs("navigation5")%></a></td>
<td align="center" width="110"><a href="dh6.asp"><%=bmrs("navigation6")%></a></td>
<td align="center" width="110"><a href="http://bbs.soosn.com/"><%=bmrs("navigation7")%></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" colspan="2"><font size="+2" face="楷体_GB2312">后台设置</font></td>
</tr>
<tr>
<td colspan="2"><a class="a01" href="admin1.asp">模板设置</a></td>
</tr>
<tr>
<td colspan="2"><a class="a01" href="admin2.asp">发布信息</a></td>
</tr>
<tr>
<td colspan="2"><a class="a01" href="admin3.asp">删除信息</a></td>
</tr>
</table>
<form action="upload2" method="post" name="form" enctype="multipart/form-data">
<table align="center" width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="150" align="right">新闻标题：</td>
<td><input name="title" size="25" maxlength="30"></td>
</tr>
<tr>
<td width="150" align="right">新闻内容：</td>
<td><textarea name="content" rows="20" cols="50"></textarea></td>
</tr>
<tr>
<td align="right">图片区1图片发布：</td>
<td><input type="file" id="tp1"></td>
</tr>
<tr>
<td align="right">图片1说明：</td>
<td><textarea name="tp1sm" rows="5" cols="50"></textarea></td>
</tr>
<tr>
<td align="right">图片区2图片发布：</td>
<td><input type="file" id="tp2"></td>
</tr>
<tr>
<td align="right">图片2说明：</td>
<td><textarea name="tp2sm" rows="5" cols="50"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="发布信息"> <input type="reset" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
处理页如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp"-->
<!-- #include file="UpLoadClass.asp"-->
<%
Server.ScriptTimeOut=5000
%>
<%
dim request1
set request1=New UpLoadClass
request1.AutoSave=2
request1.MaxSize=0
request1.savepath="D:\lzj\cs\"
request1.open()
%>
<html>
<head>
<title>模板样式上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><blockquote>
<%
if request1.Save("top",1) then
response.Write("<br>页头图片=>"&request1.SavePath&request1.Form("top"))
end if
if request1.Save("news",1) then
response.Write("<br>新闻标题图片=>"&request1.SavePath&request1.Form("news"))
end if
if request1.Save("left1",1) then
response.Write("<br>广告区1图片=>"&request1.SavePath&request1.Form("left1"))
end if
if request1.Save("left2",1) then
response.Write("<br>广告区2图片=>"&request1.SavePath&request1.Form("left2"))
end if
if request1.Save("right1",1) then
response.Write("<br>广告区3图片=>"&request1.SavePath&request1.Form("right1"))
end if
if request1.Save("right2",1) then
response.Write("<br>广告区4图片=>"&request1.SavePath&request1.Form("right2"))
end if
if request1.Save("middle1",1) then
response.Write("<br>图片区1标题图片=>"&request1.SavePath&request1.Form("middle1"))
end if
if request1.Save("middle2",1) then
response.Write("<br>图片区2标题图片=>"&request1.SavePath&request1.Form("middle2"))
end if
if request1.Save("button",1) then
response.Write("<br>页脚图片=>"&request1.SavePath&request1.Form("button"))
end if
response.write "<br>[<a href=""javascript:history.back();"">返回</a>]"
%>
</blockquote></td>
</tr>
</table>
<%
dim nacolor,navigation1,navigation2,vavigation3,navigation4,navigation5,navigation6,navigation7,left1name,left2name,right1name,right2name
top,news,left1,left2,right1,right2,middle1,middle2,button
top=request1.form("top")
news=request1.form("news")
left1=request1.form("left1")
left2=request1.form("left2")
right1=request1.form("right1")
right2=request1.form("right2")
button=request1.form("button")
nacolor=trim(request.Form("nacolor"))
navigation1=trim(request.Form("navigation1"))
navigation2=trim(request.Form("navigation2"))
navigation3=trim(request.Form("navigation3"))
navigation4=trim(request.Form("navigation4"))
navigation5=trim(request.Form("navigation5"))
navigation6=trim(request.Form("navigation6"))
navigation7=trim(request.Form("navigation7"))
left1name=trim(request.Form("left1name"))
left2name=trim(request.form("left2name"))
right1name=trim(request.form("right1name"))
right2name=trim(request.Form("right2name"))
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from bm"
rs.open sqlstr,conn,1,3
rs.addnew()
rs("nacolor")=nacolor
rs("navigation1")=navigation1
rs("navigation2")=navigation2
rs("navigation3")=navigation3
rs("navigation4")=navigation4
rs("navigation5")=navigation5
rs("navigation6")=navigation6
rs("navigation7")=navigation7
rs("left1name")=left1name
rs("left2name")=left2name
rs("right1name")=right1name
rs("right2name")=right2name
rs("top")=top
rs("news")=news
rs("left1")=left1
rs("left2")=left2
rs("right1")=right1
rs("right2")=right2
rs("button")=button
rs.update
rs.close
set rs=nothing
set request1=nothing
%>
</body>
</html>
