type.asp

obbs完全基于Dreamweaver 和EmEditor 下面完成.采用最好的可视结构,非常用利于修改,结构很明确.代码效少.管理非常简单

response.Write("<tr><td colspan=""2"" bgcolor=""#FFFFFF"">")
dim pages,soonhost,pagename,nx,x,ISselect,tenpages
pages=cint(request.QueryString("page"))
if pages=0 then
pages=1
end if
if pages>rs.pagecount then
pages=rs.pagecount
end if
pagename=request.ServerVariables("SCRIPT_NAME")

response.Write("<table width=100% border=0 align=center cellpadding=2 cellspacing=0 bgcolor=#92b9fb>")
response.Write(" <tr bgcolor=#FFFFFF>")
response.Write("  <td width=734 class=main1>")

tenpages=cint(pages/10-0.5001)
nx=tenpages*10
response.Write("页次:<b>"&pages&"/"&rs.pagecount&"</b>&nbsp;每页<b>"&MaxPerPage&"</b>&nbsp;主题数<b>"&rs.recordcount&"</b>&nbsp;")
if request("page")>1 then
response.write "&nbsp;<a href='"&pagename&"?page=1"&URLparameter&"' title=首页><font face=webdings>9</font></a>"
else
response.write "&nbsp;<font face=webdings>9</font>"
end if

if nx>=10 then
response.write "&nbsp;<a href='"&pagename&"?page="&(nx-10)&URLparameter&"' title=上十页><font face=webdings>7</font></a>"
else
response.write "&nbsp;<font face=webdings>7</font>"
end if

for x=1 to 10
nx=nx+1
if pages=nx then
response.write ("<b>&nbsp;<font color=red>"&nx&"</font></b>")
else
Response.write "<b>&nbsp;<a href='"&pagename&"?page="&nx&URLparameter&"'>"&nx&"</a></b>"
end if
if nx>=rs.pagecount then exit for
next

if rs.pagecount>=10 and nx<rs.pagecount then
response.write "&nbsp;<a href='"&pagename&"?page="&(nx+1)&URLparameter&"' title=下十页><font face=webdings>8</font></a>"
else
response.write "&nbsp;<font face=webdings>8</font>"
end if
if pages<rs.pagecount then
response.write "&nbsp;<a href='"&pagename&"?page="&rs.pagecount&URLparameter&"' title=尾页><font face=webdings>:</font></a>"
else
response.write "&nbsp;<font face=webdings>:</font>"
end if

response.Write("</td><td width=""25"" class=main1 >")

response.Write("<select name=pagd onChange=setTimeout(location.href=this.value,3000)>")
soonhost=1
do while not soonhost = (rs.PageCount+1) 
if (soonhost)=pages then
ISselect=" selected"
else
ISselect=""
end if
response.Write("<option value="&pagename&"?Page="&soonhost&URLparameter&ISselect&">"&soonhost&"</option>")
soonhost=soonhost+1
loop
response.Write("</select> </td></tr></table></td></tr>")
end sub
if bbsskin=1 then
call listtreerely()
end if
%></table>
      <%call tabletop(true,"down")%>
      <div align="right"><%call listchangeLt()%></div>
    </td>
<%
if userislogin then
%>
  <tr> 
    <td>
	<FORM name=FORM1 onsubmit="return form1_onsubmit()" action="AddIn.asp?lb=<%=lb%>&czlb=ok" method=post>
        <%call tabletop(true,"top")%>
        <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#92b9fb">
          <tr> 
            <td height="27" colspan="2" background="backimg/bg1.gif" bgcolor="#92b9fb"> 
              <div align="center"><b><font color="#FFFFFF">快速回复</font><font color="#000000" size="3"> 
                <input name="czlb" type="hidden" id="czlb" value="retz">
                <input name="id" type="hidden" id="id" value="<%=id%>">
                <input name="name" type="hidden" id="name" value="[回复]:<%=name%>">
                <input name="lb" type="hidden" id="lb" value="<%=lb%>">
                </font></b></div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="18%" height="20"> <div align="center">发帖心情:</div></td>
            <td width="82%" rowspan="2"> <!--#include file="getubb.asp" -->
              <textarea cols="75" name="ly" rows="6" wrap="file" ></textarea>
              </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="18%"> <div align="center">(支持<a href="helpubb.asp">UBB</a>代码)<br>
                内容 
                <script language=javascript >
<!--

function form1_onsubmit() 
{
   if(document.FORM1.ly.value.length<1)
 {
   alert("请输入回复的内容");
   document.FORM1.ly.focus();
   return false;
  }

}
ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.sublit.submit();}}
}
//-->
</script>
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="2"> <div align="center"> <font color="#0000FF"> 
                <input name=sublit type=submit id="sublit"  value="提 交">
                &nbsp;&nbsp; 
                <input type="reset" name="Reset" value="重 填">
                </font></div></td>
          </tr>
        </table>
        <%call tabletop(true,"down")%>
      </form>
	
	  </td>
  </tr>
<%end if%>
  <tr> 
    <td></td>
  </tr>
  <tr> 
    <td>
<%
sub userms(user,disw)
dim rs,userjf,jb,jibie
jb=array("新手","初段","二段","三段","四段","五段","六段","七段","八段","九段","十段")
set rs=conn.execute("select ubbqm,myface,width,height,user,userjf,time,ftz,jibie,setuser1,email from userinfo where user='"&user&"'")
if not rs.eof then
select case(disw)
case "mess"
userjf=rs("userjf")
if userjf<=500 then
jibie=jb(0)
elseif userjf>500 and userjf=<1000 then
jibie=jb(1)
elseif userjf>1000 and userjf=<2000 then
jibie=jb(2)
elseif userjf>2000 and userjf=<3000 then
jibie=jb(3)
elseif userjf>3000 and userjf=<4000 then
jibie=jb(4)
elseif userjf>4000 and userjf=<5000 then
jibie=jb(5)
elseif userjf>5000 and userjf=<7500 then
jibie=jb(6)
elseif userjf>7500 and userjf=<10000 then
jibie=jb(7)
elseif userjf>10000 and userjf=<15000 then
jibie=jb(8)
elseif userjf>15000 and userjf=<20000 then
jibie=jb(9)
elseif userjf>20000 then
jibie=jb(10)
end if
response.write"<img src="&rs("myface")&" width="&rs("width")&" height="&rs("height")&"><br><br>"
response.write"<b>"&rs("jibie")&"</b><br>"
response.write "<table align=""center"" width=100 style=""filter:glow(color=red, strength=2)""><div align=""center"">"&rs("user")&"</div></table>"
response.write"等级："&jibie&"<br>"
response.write"文章："&rs("ftz")&"<br>"
response.write"积分："&rs("userjf")&"<br>"
response.write"注册时间：<br>"&rs("time")
case "uqm"
response.write rs("ubbqm")
case "email"
   if rs("setuser1")=0 then
   response.write "保密"
   else
   response.write rs("email")
   end if
end select
end if
end sub

sub chanagego(gid,glb)
dim rs
set rs=conn.execute("SELECT id FROM borecorder where lb='"&glb&"' and id<"&gid&" order by id desc")
if not rs.eof then
response.Write("<a href=type.asp?id="&rs("id")&"><img src=pic/prethread.gif width=52 height=12 border=0></a></td><td width=""6%"">")
else
response.Write("<img src=pic/prethread.gif width=52 height=12 border=0 alt=已经没有上一帖了></td><td width=""6%"">")
end if
response.Write("<a href=javascript:this.location.reload()><img src=pic/refresh.gif alt=刷新产品 width=40 height=12 border=0></a></td><td width=""8%"">")

set rs=conn.execute("SELECT id FROM borecorder where lb='"&glb&"' and id>"&gid&" order by id")
if not rs.eof then
response.Write("<a href=type.asp?id="&rs("id")&"><img src=pic/nextthread.gif width=52 height=12 border=0></a>")
else
response.Write("<img src=pic/prethread.gif width=52 height=12 border=0 alt=已经没有下一帖了>")
end if

if bbsskin=1 then
response.Write("&nbsp;<a href=type.asp?id="&id&"&skin=0><img src=pic/flatview.gif border=0 alt=平板结构显示></a>")
else
response.Write("&nbsp;<a href=type.asp?id="&id&"&skin=1><img src=pic/treeview.gif border=0 alt=树型结构显示></a>")
end if
response.Write("</td></tr>")
end sub
%> </td>
  </tr>
</table>
<%
sub typeusertp(tpid)
dim rs
set rs=conn.execute("select * from lttp where id="&cint(tpid))
%>
<table width="770" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
  <form name="formtp" method="post" action="type.asp?id=<%=id%>">
<%
dim alltp,ltsel,tpcount,n,i,user,useriftp
dim tpuser
useriftp=false
'on error resume next
alltp=0
		ltsel=split(rs("tply"),"|")
        tpcount=split(rs("count"),"|")
if (rs("tpuser")<>"") and userislogin then
tpuser=split(rs("tpuser"),"|")
for n=0 to ubound(tpuser)
 if loginuser=tpuser(n) then
 useriftp=true
 end if
next
end if

for n=0 to ubound(tpcount)
if tpcount(n)<>"" then
alltp=alltp+Cint(tpcount(n))
end if
next
		for i=0 to ubound(ltsel)
if ltsel(i)<>"" then%>
    <tr bgcolor="#FFFFFF"> 
      <td width="251">
      <%=i+1%><input name=tp type=radio value=<%=i%>><%=dvHTMLEncode(ltsel(i))%></td> 
      <td>
	  <%dim bfb
	  if alltp=0 then
	  bfb=0
	  else
	  bfb=(tpcount(i)/alltp)
	  end if%>
	  <img src="../obbs/PIC/bar2.gif" width="<%=bfb*300%>" height="10"> 
        <%=left((bfb*100),5)%>% &nbsp;&nbsp;<%=tpcount(i)%> 票</td>
    </tr>
    <%
end if 
next
%>
    <tr bgcolor="#FFFFFF"> 
      <td height="18" colspan="2">
	  <%
	  if userislogin and (not useriftp) then 
	  response.write("<input type=submit name=Submit value=投票><input name=id2 type=hidden value="&rs("id")&">")
      else
	  response.Write("你已经投过票了或你未登录,所以不能参加投票!")
	  end if
	  %>
        <input name="tpid" type="hidden" id="tpid" value="<%=tpid%>"> </td>
    </tr>
  </form>
</table>
<%
end sub
sub adduserlttp()
if not userislogin then
founderr=true
errmess=errmess&error1
end if
dim sqltext,rs,ttuser,i

set rs=server.createobject("adodb.recordset")
sqltext="select tpuser,count,click,userselect from lttp where id="&request.Form("tpid")
rs.open sqltext,conn,1,3
if rs("tpuser")<>"" then
ttuser=split(rs("tpuser"),"|")
 for i=0 to ubound(ttuser)
 if ttuser(i)<>"" and ttuser(i)=loginuser then
 response.write "<script language=JavaScript>" & chr(13) & "alert('你已经投过票了.你不能再投票了.呵呵!');history.back()</script>"
 exit sub
 end if
 next
end if

dim tp,tpcount,tpz
tp=cint(request.Form("tp"))
tpcount=split(rs("count"),"|")
  for i=0 to ubound(tpcount)
if tpcount(i)<>"" then
  if i=tp then
  tpcount(i)=tpcount(i)+1
  end if
  tpcount(i)=tpcount(i)&"|"  
  tpz=tpz&tpcount(i)
end if
  next
rs("count")=tpz
rs("click")=rs("click")+1
rs("userselect")=request.Form("tp")&"|"&rs("userselect")
rs("tpuser")=loginuser&"|"&rs("tpuser")
rs.update
end sub
%>
<%
response.Write(loadcopyc("copyc"))
response.write "Powered By ：obbs Version 1.0.1<br>Copyright &copy;2002 - 2003 <a href=http://www.mtvok.com target=""_blank""><b>mtvok.com</b></a>，页面执行时间： "& cint((timer()-startime)*1000)&" 毫秒</div>"
%>
</body>
</html>