网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

作者： 北京网站建设   日期：2008-03-27 06:04:51  来源： http://www.qitongnet.com

现在做图片网站的朋友比较多,这类网站容易有流量,而且可以在短时间内达到一个高峰.

下面我们来谈谈美女图片站推广方法

(1)常用方法:SEO优化或者说是作弊 www.qitongnet.com,友情连接,病毒等

(2)登陆专业的娱乐导航:www.diaozi.com  www.vv11.com等

(3)百度的美女吧，是个好地方，流量大，但发不了广告，会封ip和删贴。北京网页设计
你去贴图，图上打你的域名是可以的，但得累死你。但你可以用美女回复一次图片变一次的原理，让大家把你的贴顶起来，一个火爆的贴回复过百，流量过k,而你不过是发了一个贴，效果真不错.贴吧天天有人这么做，可能就是这里的朋友，我说多了大家别砍我！！！！！！！！北京网页设计
北京网站建设
下面给出asp源码企通互联
北京网页设计
************************* 随机图片显示 **************************** 网站制作
'使用实例:img.asp?list=图片存放目录 网页设计
'使用注意:图片目录放于本文件同目录下!需要FSO 网页设计支持! 网站设计
'说明：只要将变化图片放于一个目录下，修改下面程序的（需要修改的地方）成你的目录名称！ 网站建设
上传本程序和图片文件夹到同一目录下，在发帖时候使用UBB代码形如：即可！ 北京网站制作 网站建设
'---------------------------------------------------------------------------------------- 网站设计
Function AllPath() 北京网站制作
Dim Domain,GFilePath 网页设计
Domain = Request.ServerVariables("SERVER_NAME") 网站建设
GFilePath = Request.ServerVariables("PATH_INFO") 网站制作
GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/"))) 北京网页设计
AllPath = "http://"&Domain&GFilePath 网站建设
End Function 北京网站制作
企通互联
Function ShowFileList(folderspec) 北京网页设计
Dim Path,objFSO,objFolder,count,objFile,nume,S 网站制作
Path = Server.MapPath(folderspec) 企通互联
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 北京网页设计
If objFSO.FolderExists(Path) Then 网站设计
Set objFolder = objFSO.GetFolder(Path) 北京网站设计
count = 0 网站建设
For Each objFile in objFolder.Files 网站制作
count = count+1 网站制作
Next 北京网站建设
randomize 北京网站建设
nume = Int((count*rnd)+1) 北京网页设计
S = 0 企通互联
ShowFileList = "" 北京网站建设
For Each objFile in objFolder.Files 企通互联
S = S + 1 企通互联
If S = nume Then 网站设计
ShowFileList = objFile.Name 北京网站建设
Exit For 北京网站制作 北京网站建设
End If 网站设计
Next 企通互联
Set objFolder = Nothing 北京网页设计
Else 网页设计
ShowFileList = "NO" 北京网站制作
End If 北京网站建设
Set objFSO = Nothing 北京网站制作
End Function 企通互联
网页设计
Dim list,2004528115924.htm,address,str 北京网站制作
网站制作
list = trim(Request.QueryString("list")) 北京网站建设
if list = "" then 网站建设网页设计
Response.write "本页需要正确参数引入,您缺少相关的参数！正确格式如下："&AllPath&"img.asp?list=（需要修改的地方）" 网站制作北京网页设计
Response.End() 北京网页设计
end if 网站建设
网页设计
2004528115924.htm = ShowFileList("./"&list&"/") 网站建设
if 2004528115924.htm = "NO" then 网页设计
Response.write "您指定的目录<b>"&list&"</b>不存在，请重新指定！" 北京网页设计
Response.End() 网站制作 北京网页设计
end if 北京网站设计
网站建设
if 2004528115924.htm = "" then 网站制作
Response.write "您指定的目录<b>"&list&"</b>没有相关的图片文件存在，请重新指定！" 北京网站建设
Response.End() 北京网站建设
end if 北京网站设计
网页设计
str = right(2004528115924.htm,3) 北京网页设计
if str<>"jpg" and str<>"gif" then 网站设计 北京网站设计
2004528115924.htm = "erro.gif" 网页设计
end if 网站建设
北京网站建设
address = AllPath&list&"/" 北京网页设计
address = address&2004528115924.htm 北京网站设计
%> 北京网站制作
<%Response.redirect(address)%>北京网站建设