图片上传

Question

我的论坛上面的本地上传图片功能不能实现，求解决。
 If Int(Rs("GradeNum"))<Int(YxBBs.BBSSetting(36)) then
Temp=Temp&"您的等级未达到 <B><font Color=red>"&YxBBs.BBSSetting(36)&"级</font></B> 不能上传文件！<br>"
        Else
Temp=Temp&"<table border=0 cellpadding=0 cellspacing=0><tr><td>&nbsp;<input type=""hidden"" name=""topicpic""><iframe Src='ViewFile.Asp?Action=Upload&BoardID="&YxBBs.BoardID&"' scrolling='no' frameborder='0' height='20' width='260'></iframe></td><td>[每日您可以上传 <font color=blue>"&YxBBs.ClassSetting(11)&"</font> 个 小于 <font color=blue>"&YxBBs.ClassSetting(12)&"</font> KB / 每个]</td></tr></table>"
               
        End if

Temp=Temp&"</td></tr><tr><td valign='top'><table width='100%'  border='0' cellpadding='0' cellspacing='4'><tr><td colspan='2'><b>发特殊帖：</b></td></tr>"
Temp=Temp&"<tr><td rowspan='4' width=10 ></td></tr><tr><td><br><li><a href=javascript:Especial('[Reply]','内容[\/Reply]')>回复可见</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:Especial('[Coin=1000]','内容[\/Coin]')>金钱可见</a></li><br><li><a href=javascript:Especial('[Grade=1]','内容[\/Grade]')>等级可见</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:Especial('[Username=昵称]','内容[\/Username]')>指定读者</a></li><br><li><a href=javascript:Especial('[Buypost=100]','内容[\/Buypost]')>付费可见</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:Especial('[Date=2006-10-1]','内容[\/Date]')>日期可见</a></li><br><li><a href=javascript:Especial('[Sex=1]','内容[\/Sex]')>性别可见</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:Especial('[Login]','内容[\/Login]')>登陆可见</a></li></td></tr><tr><td><br><li>帖子内容最多允许：<font color=red>"&YxBBs.BoardSetting(3)/1024&"KB</font></li><br><br><li>如发帖失败,按<font color=bule>Ctrl+v</font>可找回内容!</li></td></tr></table></td>"
Temp=Temp&"<td width='76%' valign='top'><table border='0' cellpadding='0' cellspacing='3'  width='100%'><tr><td colspan='2'>"
        Temp=Temp&"<textarea name='content' cols='40' rows='2' style='display:none'>"&BbsContent&"</textarea><script type=""text/javascript"">editor.show()</script></tr></table></td></tr><tr><td height='40' colspan='2' align='center'>"
        If Action="edit" And (YxBBs.ClassID<=3) Then Temp= Temp & "<input name='EditChalk' type='checkbox' value='No'>不留下编辑标记 "
If Cint(YxBBs.BoardSetting(0))=1 Then Temp=Temp&""&YxBBs.GCode&""
Temp=Temp&"&nbsp;<input class=submit type=button value=OK_！发表 name='B1' onclick='submitform()'>&nbsp;&nbsp;&nbsp; <input class=submit type=button value='预  览！' onclick='preview()' name='B3'>&nbsp;&nbsp;&nbsp; <input class=submit type=reset value=NO_！重写 onclick='Goreset()' name=B2>&nbsp; [ 按 Ctrl+Enter 直接发送 ]" 
Temp=Temp&"<font color=#D8D8D8></font></td></tr></form>"
Call YxBBs.ShowTable(Caption,Temp)
Response.Write"<form style='margin:0;' name='form1' action='See.asp?Action=preview' method='post' target='showgg'><input type='hidden' name='Caption' /><input type='hidden' name='content' /></form>"
End Function
%>