<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%

call head()
call saycardd("社区相册")
%>

<!--#INCLUDE file="newguest.asp"-->
<%'response.write NOW()
Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================
dim cont_file,path_File
path_File= Server.MapPath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?sid=@@sid@@&id="&myid&"]"&myni&"[/url]加入[url=/bbs/photo.asp?sid=@@sid@@]真人相片交友[/url]"
Call CreatedTextFiles(path_File,cont_file)

response.write "<br/><a href=""/bbs/board.asp?bbsid=725&amp;sid="&sid&""">相片交友</a>"
response.write "<br/><a href=""/bbs/board.asp?bbsid=725&amp;sid="&sid&""">单身贵族</a>"
response.write "<br/><a href=""/bbs/board.asp?bbsid=725&amp;sid="&sid&""">红颜蓝颜</a>"
response.write "<br/>"
'最新贴子
call newsell(1,725)
'回复动态
call relsell(2,725)

call photosell(2,0)

response.write "<br/><a href=""photolist.asp?TP=1&amp;sid="&sid&""">最新上传</a>"

response.write "<br/><a href=""photolist.asp?TP=2&amp;sid="&sid&""">所有相片</a>"
response.write "<br/><a href=""photolist.asp?TP=3&amp;sid="&sid&""">人气相片</a>"
response.write "<br/><a href=""photolist.asp?TP=4&amp;sid="&sid&""">评论最多</a>"
response.write "<br/><a href=""myphoto.asp?sid="&sid&""">我的相册</a>"
response.write "<br/>---------"
response.write "<br/><a href=""photofile.asp?sid="&sid&""">上传相片</a>"
Response.write "<br/><a href=""/bbs/show.asp?sid="&sid&""">空间</a>>>"
Response.write "<a href=""/bbs/index.asp?sid="&sid&""">社区</a>"
Response.write ">><a href=""/index.asp?sid="&sid&""">首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"

%>

<%
call headsay()
%>
