tuya.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->
<%
t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
d2="</td></tr></table></center></div>"
if lgname="" then%>
<br><br>
<%=t1%>错误信息<%=t2&d1%>你还没有登陆论坛不能用涂鸦板！！！请你在这<a href=login.asp>登陆</a><%=d2%>
<%else%>
<%set gconn=server.CreateObject ("adodb.connection")
	gconn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath ("db/tuya.mdb")
tys=gconn.execute("select count(*)from[tuya]where username='"&lgname&"'")(0)
if tys>=3 then%>
 <br><br><%=t1%>错误信息<%=t2&d1%>你在涂鸦板中已经有3幅作品！！！如果想再次涂鸦请你来这里删除其中的一幅作品！！！<a href=tuyagl.asp?gl=look>作品管理</a><%=d2%>
<%else%><br><br>
<%=t1%>社区涂鸦板<%=t2&d1%><p align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="550" height="400">
        <param name="quality" value="high">
        <param name="SRC" value="tuya/tuya.swf">
        <param name="wmode" value="transparent">
        <embed src="tuya/tuya.swf" width="550" height="400" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed></object>
<br><br><a href=tuya2.asp>欣赏全部作品</a><br><br><font color="#FF0000">请不要在此涂一些不文明的和反动的画！！一经发现立刻删除！情节严重者删除论坛帐号！！</font><br><br><%=d2%><%
end if
 End If

 set gconn=nothing %>
<br>
<!--#include file="down.asp"-->