救命啊，贴了好几天了仍没有结局

shijian58 2004-02-19 03:02:55

图片的上传问题，无法限定上传图片的大小，求求高手帮忙啊，否则我死定了


<%
if request("action")="save" then
set rs=server.createobject("adodb.recordset")
sql="select * from smap"
rs.open sql,conn,3,3
If Not Request.TotalBytes < 1 then
Set objLoad = New DevyUpLoad
objLoad.UpLoad()
rs.AddNew()
rs("fenleimch") = objLoad.Form("fenleimch").value
rs("xiang") = objLoad.Form("xiang").value
rs("userid") = objLoad.Form("userid").value
rs("adid") = objLoad.Form("adid").value
rs("ftype") = objLoad.fileType
objLoad.SaveToDB(rs("pic"))
rs.Update()
xiang= objLoad.Form("xiang").value
fenleimch= objLoad.Form("fenleimch").value
adid= objLoad.Form("adid").value
userid= objLoad.Form("userid").value
Set objLoad = Nothing
end if
response.write "添加成功"
response.redirect "add-.asp?fenleimch="&fenleimch&"&xiang="&xiang&"&adid="&adid
%>
//主要是以上部分
<%else
set rs=server.CreateObject("adodb.recordset")
sql="select * from usr where id='"&session("userid")&"' and username='"&session("username")&"'"
rs.Open sql,conn,1,1
if rs.eof or rs.bof then
response.redirect "error.asp?error=请输入正确的用户名、密码,如果没有注册,现在<a href=/canzhan/step1.asp>[注册]</a>。"
end if
%>
<body bgcolor="990000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="startclock()">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top" width="605">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/bgt.jpg" width="605" height="170" border=0></td>
</tr>
</table></td>
</tr>
</table>
<table bgcolor=ffffff width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="155" valign="top" background="../new_images/leftbg.gif"><img src="images/left.jpg" width="90"></td>
<td height="300" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" align="right" valign="baseline"> </td>
</tr>
<tr>
<td align="right"> <table width="63%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=70><b><font color=red size=2><%=request("fenleimch")%></font></b></td>
<td width="150" height="15" align="center" bgcolor="#FFCC00">广告信息填加</td>
<td> </td>
</tr>
</table>
<table width="45%" height="1" border="0" align="cente?瑳牡?潔映謀Δ ???o?˙??????r" cellpadding="0" cellspacing="0" background="/images/hdot.gif">
<tr height="1">
<td></td>
</tr>
</table></td>
</tr>
</table>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout = Session("Customer_ConnectionTimeout")
Conn.CommandTimeout = Session("Customer_CommandTimeout")
Conn.Open Session("Customer_ConnectionString"), Session("Customer_RuntimeUserName"), Session("Customer_RuntimePassword")
set rs1=Server.CreateObject("adodb.recordset")
userid=session("userid")
rs1.Open "SELECT * FROM smap where userid='"&userid&"' and adid='"&request("adid")&"' order by tid",conn,1,1
if not(rs1.eof and rs1.bof) then
total=rs1.recordcount
set rs3=Server.CreateObject("adodb.recordset")
rs3.Open "SELECT * FROM ad where userid='"&userid&"' and adid='"&request("adid")&"' order by adid",conn,1,1
total3=rs3.recordcount
'response.write total3
'response.end
%>
<br>
<table border="1" cellpadding="2" cellspacing="1">
<TR>
<%i=1
do while not rs1.eof and i<20%>
<td valign=top>
<img src=showimg.asp?tid=<%=rs1("tid")%> width=45 height=30 border="1"><br>
<%rs1.movenext
if rs1.eof then exit do
i=i+1%>
<img src=showimg.asp?tid=<%=rs1("tid")%> width=45 height=30 border="1"><br>
<br>编号:<%=i&"-"&rs1("tid")%><br>分类:<%=rs1("fenleimch")%><br><a href=?action=del&tid=<%=rs1("tid")%>&fenleimch=<%=rs1("fenleimch")%>&xiang=<%=rs1("xiang")%>&adid=<%=request("adid")%>><font color=red>[删除]</font></a><br>
<%rs1.movenext
if rs1.eof then exit do
i=i+1%>
<img src=showimg.asp?tid=<%=rs1("tid")%> width=45 height=30 border="1"><br>
<br>编号:<%=i&"-"&rs1("tid")%><br>分类:<%=rs1("fenleimch")%><br><a href=?action=del&tid=<%=rs1("tid")%>&fenleimch=<%=rs1("fenleimch")%>&xiang=<%=rs1("xiang")%>&adid=<%=request("adid")%>><font color=red>[删除]</font></a><br>
</td>
<%rs1.movenext%>
<%i=i+1
loop%>
</tr>
</table>

<%end if%>
>
<%else%>
<b><font color=ff6600>您还可以上传 <%=20-total%> 个资料</font></B><%end if%></div>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td></td>
</tr>
<tr>
<td>
//主要部分
<FORM action="?action=save&adid=<%=request("adid")%>&fenleimch=<%=request("fenleimch")%>&xiang=<%=request("xiang")%>" method="post" ENCTYPE="multipart/form-data" name="fenlei">
图　　片:
<input name="pic" type=file class="inputreg" id="pic"><font color=red> (* 允许上传jpg,gif图象)</font>
<input name="userid" type=hidden id="userid" value=<%=session("userid")%>>
<INPUT type=hidden name="saveto" value="db">
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="f6f6f6">
<td valign="middle" bgcolor="f6f6f6">
<input type=hidden name=adid id=adid class=inputreg value=<%=request("adid")%>>
<input type=hidden name=fenleimch id=fenleimch class=inputreg value=<%=request("fenleimch")%>>广告分类:
<input type=text name=xiang id=xiang class=inputreg value=<%=request("xiang")%> readonly></td>
<td width="145" valign="middle" bgcolor="f6f6f6">
</td>
</tr>
<tr>
<td valign="middle">广告标题: <input type=text name=picname id=picname class="inputreg" value=<%=session("title")%> readonly></td>
<td valign="middle"></td>
</tr>
<tr>
<td align="right" valign="middle"> </td>
<td align="right" valign="middle"> </td>
</tr>
<tr>
<td align="right" valign="middle"><%if total=20 then%>
<input name="Submit" type="submit" class="input1" value="提交" disabled>
<%else%>
<input name="Submit" type="submit" class="input1" value="提交">
<%end if%>
　　
</td>
<td align="right" valign="middle"> </td>
</tr>
</table>
</FORM>
//FORM结束
<div align=center><a href=back.asp?adid=<%=request("adid")%>&company=<%=rsrz("company")%> target=_blank><font color=red><b>『不再提交，获得反馈单』</b></font></a></div><br><br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%><%end if%>

...全文