<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()

Call saycarda("社区相册")
%>

<!--#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
'================================================


if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"浏览了(url=/bbs/photo.asp?saytk="&saytk&"&sid=[sid])社区相册(/url)')")


response.write "<a href=""myphoto.asp?saytk="&saytk&"&amp;sid="&sid&""">我的相册</a>"
Response.write "|"
response.write "<a href=""photofile.asp?saytk="&saytk&"&amp;sid="&sid&""">上传相片</a><br/>"




response.write "[社] 1.<a href=""photolist.asp?TP=2&amp;saytk="&saytk&"&amp;sid="&sid&""">全部相片</a><br/>"
response.write "[区] 2.<a href=""photolist.asp?TP=3&amp;saytk="&saytk&"&amp;sid="&sid&""">人气点击</a><br/>"
response.write "[相] 3.<a href=""photolist.asp?TP=4&amp;saytk="&saytk&"&amp;sid="&sid&""">评论最多</a><br/>"

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

response.write "=+社区最新相片+=<br/>"

call newphoto(6,2)


%>

<!--#include file="fanhui.asp"-->
<%  
 call headsay()
%>
