(望高手指点!!!)
提交页
<%@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 name="form" method="post" action="upload1.asp" enctype="multipart/form-data">
<table width="580" align="center" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="150" align="right">页头图片设置：</td>
<td width="430" align="left"><input type="file" id="top" ><font size="-1">(尺寸：750*150 格式：GIF/JPG)</font></td>
</tr>
<tr>
<td align="right">导航条颜色：</td>
<td><input type="text" name="nacolor" size="15" maxlength="7"><font size="-1">(格式：#CC99FF)</font></td>
</tr>
<tr>
<Td align="right">导航栏目1：</Td>
<td><input type="text" name="navigatione1" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr>
<tr>
<Td align="right">导航栏目2：</Td>
<td><input type="text" name="navigatione2" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr>
<tr>
<Td align="right">导航栏目3：</Td>
<td><input type="text" name="navigatione3" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr>
<tr>
<Td align="right">导航栏目4：</Td>
<td><input type="text" name="navigatione4" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr>
<tr>
<Td align="right">导航栏目5：</Td>
<td><input type="text" name="navigatione5" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr>
<tr>
<Td align="right">导航栏目6：</Td>
<td><input type="text" name="navigatione6" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr> <tr>
<Td align="right">导航栏目7：</Td>
<td><input type="text" name="navigatione7" size="15" maxlength="4"><font size="-1">(最大4个汉字)</font></td>
</tr>
<tr>
<td align="right">新闻标题图片：</td>
<td><input type="file" id="news"><font size="-1">(尺寸：380*25)</font></td>
</tr>
<tr>
<td align="right">广告1标题：</td>
<td><input type="text" name="left1name"></td>
</tr>
<tr>
<td align="right">广告区1图片：</td>
<td><input type="file" id="left1"><font size="-1">(尺寸：200*175)</td>
</tr>
<tr>
<td align="right">广告2标题：</td>
<td><input type="text" name="left2name"></td>
</tr>
<tr>
<td align="right">广告区2图片：</td>
<td><input type="file" id="left2"><font size="-1">(尺寸：280*175)</td>
</tr>
<tr>
<td align="right">广告3标题：</td>
<td><input type="text" name="right1name"></td>
</tr>
<tr>
<td align="right">广告区3图片：</td>
<td><input type="file" id="right1"><font size="-1">(尺寸：280*175)</td>
</tr>
<tr>
<td align="right">广告4标题：</td>
<td><input type="text" name="right2name"></td>
</tr>
<tr>
<td align="right">广告区4图片：</td>
<td><input type="file" id="right2"><font size="-1">(尺寸：280*175)</td>
</tr>
<tr>
<td align="right">图片区1标题图片：</td>
<td><input type="file" id="middel1"></td>
</tr>
<tr>
<td align="right">图片区1标题图片：</td>
<td><input type="file" id="middel2"></td>
</tr>
<tr>
<td align="right">页脚图片：</td>
<td><input type="file" id="button"></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>
风声上传类出现问题,望指点
