美女图片站推广方法 回复图片变一次代码
现在做图片网站的朋友比较多,这类网站容易有流量,而且可以在短时间内达到一个高峰.
. ]9 J+ J2 c7 C# `5 r下面我们来谈谈美女图片站推广方法
, O4 F" p9 W/ d. y(1)常用方法:SEO优化或者说是作弊,友情连接,病毒等
9 q' C, j& |! i" n- X4 D(2)登陆专业的娱乐导航[url=http://www.meisetu.cn/][color=#0000ff]www.meisetu.cn[/color][/url]等
X* R2 V. d+ m(3)百度的美女吧，是个好地方，流量大，但发不了广告，会封ip和删贴。
- ^. w% @: @0 e$ B+ \3 F9 F9 m你去贴图，图上打你的域名是可以的，但得累死你。但你可以用美女回复一次图片变一次的原理，让大家把你的贴顶起来，一个火爆的贴回复过百，流量过k,而你不过是发了一个贴，效果真不错.贴吧天天有人这么做，可能就是这里的朋友，我说多了大家别砍我!!!!!!!!
- N* \' G# @( q4 U" D5 R下面给出asp源码
# U2 Z; A; A: e3 u4 `# i8 ]************************* 随机图片显示 ****************************7 D" h7 Y# @! \( s' j' r0 u
'使用实例:img.asp?list=图片存放目录
. D0 X- q2 T' }8 b'使用注意:图片目录放于本文件同目录下!需要FSO支持!) o7 Z M8 D4 K
'说明：只要将变化图片放于一个目录下，修改下面程序的(需要修改的地方)成你的目录名称!
" G0 i# a, V/ S) {: ~上传本程序和图片文件夹到同一目录下，在发帖时候使用UBB代码形如：即可!' a! m6 Y! r9 h, l6 I( I# _+ x
'----------------------------------------------------------------------------------------
4 i0 K' j" ~: |# aFunction AllPath() ; @' \# T8 a$ M6 [$ `" }1 c
Dim Domain,GFilePath & _7 X% \4 y4 b7 x9 Y/ u8 J
Domain = Request.ServerVariables("SERVER_NAME") $ b$ m5 F) k6 C8 n4 i9 u/ f% J2 V' q
GFilePath = Request.ServerVariables("PATH_INFO")
$ x' U& F' N% e5 T% g. g- O cGFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
- u. q" U+ a; A6 bAllPath = "[url=http://%22&domain&gfilepath/][color=#0000ff]http://"&Domain&GFilePath[/color][/url]
@# Y! h d" n7 o$ s( ^End Function : A5 V, }+ i& O+ P7 c4 W
Function ShowFileList(folderspec) 3 r, r: j! {* l) U
Dim Path,objFSO,objFolder,count,objFile,nume,S 4 Z+ g3 [5 g; N5 u/ k
Path = Server.MapPath(folderspec)
1 a1 L. X" I/ NSet objFSO = Server.CreateObject("Scripting.FileSystemObject")
" ~# k' P9 N4 `, F B8 X) f- ^8 N: iIf objFSO.FolderExists(Path) Then 8 V) v1 p& A1 Q7 n7 \0 U
Set objFolder = objFSO.GetFolder(Path)
( e6 V7 x9 `$ Y$ \8 xcount = 0 # F. Z$ R8 {6 s
For Each objFile in objFolder.Files ; J% a5 H. b; l2 a. G, @
count = count+1
\" Z, m0 J$ b% y1 _. b1 ]Next
: \- V; y5 L! M, r. z, wrandomize ' ]' D: a ~7 S2 S2 n0 ^6 X
nume = Int((count*rnd)+1)
5 j6 Y- y7 }: A5 G/ N5 u% dS = 0
& t9 M" n" i2 Z' p* GShowFileList = "" % R ~- p* P9 J& l4 j" u, ]4 I
For Each objFile in objFolder.Files
' l, u$ z* s4 f& iS = S + 1 / T* u. s: _' h3 e
If S = nume Then
; L! a, l# V2 D* W. `ShowFileList = objFile.Name
+ u- y( [1 Z. z7 w. @- V- uExit For
4 Y, r+ S4 r6 b tEnd If 9 C: ?# I- n& I' L
Next
* [ o% D$ x' q4 V1 x; \: gSet objFolder = Nothing
7 \& }& F/ k& O" y+ _: ]3 }7 g: ^Else ; H9 {6 v' T. \2 V/ s; [, H
ShowFileList = "NO" # d$ F% f, x' V/ i& M4 U3 e9 {
End If
# E) `- h0 i9 L+ N$ z0 Q$ G! xSet objFSO = Nothing 0 v: F, w+ b0 m
End Function
/ v, `4 p% v7 Y7 x1 F$ m- J' pDim list,2004528115924.htm,address,str 7 Z. `- b6 {* d) x( b
list = trim(Request.QueryString("list"))
4 u- B% K. A; ], Zif list = "" then
3 Q9 v; [( j9 z" c6 `2 mResponse.write "本页需要正确参数引入,您缺少相关的参数！正确格式如下："&AllPath&"img.asp?list=（需要修改的地方）"
+ s5 ]' Y4 K' v" r1 EResponse.End() 3 Y4 X& z4 j0 g q) e7 x
end if
& W. }" a9 T* b, }# L# W2004528115924.htm = ShowFileList("./"&list&"/")
/ e) r6 E: _' A( lif 2004528115924.htm = "NO" then
; l& h" Q1 F' rResponse.write "您指定的目录<b>"&list&"</b>不存在，请重新指定！" 3 K0 f d+ E2 A ^! X# R
Response.End() 8 y4 `% y8 }5 F0 Z6 K, q
end if 7 _1 Z; _2 x2 r5 c% B% ]% g* R
if 2004528115924.htm = "" then
' q, L) [1 B% T, uResponse.write "您指定的目录<b>"&list&"</b>没有相关的图片文件存在，请重新指定！" 0 M- g$ ~, N5 p- l) X- N9 A
Response.End()
" J' `1 a" t1 {8 h1 ~# Oend if
4 x; U; ?: O( S7 y' [str = right(2004528115924.htm,3)
( [. M n G0 \# r0 Rif str<>"jpg" and str<>"gif" then 6 g- Z, A# ] H4 {1 }# ?$ P
2004528115924.htm = "erro.gif"
" J" G; X) p- X' R& t1 R2 ]; N) uend if 8 i& z7 P7 D8 \8 E& v, }; m
address = AllPath&list&"/" 6 i% Q3 u) J) M3 l1 Q& A7 b0 @
address = address&2004528115924.htm " b! W% d+ R/ C& |0 }$ N3 t
%> ; a+ n, d/ B6 I2 L2 B# v
<%Response.redirect(address)%>
