给文章模块添加图片调用

<tr>
<td><%response.write tit_fir%>图片：</td>
<td><input type=text name=pic value='<%response.write pic%>' size=40 maxlength=100>   <a href='<%=web_dim(6)%>common/upload.asp?uppath=<%response.write index_url%>&upname=<%response.write left(index_url,1)%>&uptext=pic' target=upload_frame>上传图片</a>  <a href='<%=web_dim(6)%>common/upload.asp?uppath=<%response.write index_url%>&upname=<%response.write left(index_url,1)%>&uptext=pic' target=upload_frame>上传至内容</a></td>
</tr>

该内容已经被作者隐藏,只有会员才允许查阅 登录 | 注册

function article_view1(v_id,v_topic,v_tim,v_comto,v_author,v_pic)
  dim n_pic,temp1
  if  v_pic<>"" and var_null(v_pic)<>"" then n_pic="<tr><td align=center><img src='"&pic_url(v_pic,0)&"' border=0 onload=""javascript:if(this.width>"&max_w&")this.width="&max_w&";""></td></tr>"
  temp1=temp1&vbcrlf&"<table cellspacing=0 cellpadding=1 class=table0>" & _
              vbcrlf&"<tr><td class=td> "+img_skin(web_img_m)+" "+v_topic+"</td></tr>" & _
              vbcrlf&"<tr class=bg_tds><td align=right height="&m_hei&" class=gray>作者："&v_author&"  出处："&v_comto&"  更新时间： "&v_tim&" </td></tr>" & _
              vbcrlf&"<tr><td height=10></td></tr>" & _
              vbcrlf&"<tr><td valign=top>" & _
              vbcrlf&"  <table border=0 class=tablew>"&n_pic&"<tr><td>" & _
              vbcrlf&"    <table border=0 width='100%' class=tf><tr><td class=bw>"
  article_view1=temp1
end function

该内容已经被作者隐藏,只有会员才允许查阅 登录 | 注册