海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
<% 
dim fso,objFolder,objFiles 
dim filelist 
Set fso=Server.CreateObject("scripting.FileSystemObject") 
Set objFolder=fso.GetFolder(server.MapPath("thumbs")) 
Set objFiles=objFolder.Files 
'循环输出文件夹path下的文件的文件名 
For each objFile in objFiles 
If getExt(objFile.name)="gif" or getExt(objFile.name)="jpg" or getExt(objFile.name)="jpeg" Then 
filelist = filelist"<img src="""&objFile.name""">" 
End If 
Next 

'释放对象 
Set objFolder=nothing 
Set fso=nothing 
'获取文件类型 
Function getExt(str) 
getExt = Lcase(Right(str,Len(str)-InstrRev(str,"."))) 
End Function 
%> 
<%=filelist%> 

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!